Поиск в таблице бд

[Aндрей]

Имеется таблица в базе данных с разными полями, необходимо в ней организовать поиск данных по какому-то из этих полей. Например, в таблице есть столбец "Кол-во", содержащий строки 5, 2, 50, 2, 2 и т.д. Допустим если искать по этому столбцу строки с 2, при нажатии на копку поиск , он находит первую строку с 2, если эта строка с двойкой не удовлетворяет, то продолжить поиск таким образом, что при повторном нажатии кнопки "Поиск" он нашел строку со след 2 и т.д. если строк с двойками больше нет, то выдал сообщение “не найдено”.
Поиогите пожалуйста это реализовать. В принципе я сделал поиск с пом Locate, FIND KEY, FIND_NEAREST, он находит строку с первой двойкой, но при повторном нажатии на кн "Locate"
он все-равно находит эту же строку..

Вот мой поиск с пом Locate:

procedure TBooks.Button1Click(Sender: TObject);
var
finder:string;
begin
case
combobox1.ItemIndex of
0:finder:='B_NAME';
1:finder:='B_DATE';
2:finder:='B_KOL';
3:finder:='B_N_KOL';
4:finder:='Avtor';
5:finder:='ganr';
6:finder:='IZDAT';
end;
dm.BOOK.Locate(finder,edit1.Text,[loPartialKey])

end;

[EvKont]

Использование курсоров в базе данных помогает двигаться по строкам таблицы. Попробуй используя его в цикле от первой до последней записи сравнивать свою 2 с содержимым записи

Form1.ADOTable.First;

WHILE NOT ADOTable.Eof DO
      BEGIN
      IF ADOTable.FieldByName('Кол-во').AsString = '2' THEN
      ShowMessage('Найдено');
      ADOTable.Next;
      END;
      ShowMessage('Конец');

[Stilet]

Aндрей

Перед тем как Locate вызвать попробуй перескочить на следующую запись, чтоб он не считал текущую запись (которую сам и нашел)

if (not dm.BOOK.eof) and (not dm.BOOK.Bof)  then dm.BOOK.next;
dm.BOOK.Locate(finder,edit1.Text,[loPartialKey])