ПОИСК В БД

[HOMER]

Помогите пожалуйста. Есть таблица, поиск осуществляется по двум полям(ФИО,Улица).
Нужно сделать команду «Найти далее», чтоб прога дальше просматривала поля, а не стопорилась на первом встречном схожем значении. Вот что я напрограммировал:

var KeyFields: String;
    KeyValues: Variant;
    Options: TLocateOptions;
Begin
    KeyFields:='Fio;A_Street';
    KeyValues:=VarArrayOf([eFio.Text, eA_Street.Text]);//eFio и eA_Street-едиты(что искать)
Options:=[loCaseInsensitive, loPartialKey];
If not fmMain.TableAuth.Locate(KeyFields, KeyValues,Options) then begin
  Beep;
  MessageDlg ('Запись не найдена!', mtInformation, [mbOk], 0);
  eFio.SetFocus;
  exit;
end;
fmFindAuth.Close;
end;

Хотя б подсказку, дальше сам накумекаю.

[mihali4]

Все-таки пользуйтесь встроенным хэлпом.
Возможно, вам поможет метод поиска с использованием ранжирования - см. SetRange method.
Не совсем понятно, по каким критериям вы хотите осуществлять поиск...

[Yurk@]

Вполне возможно проводить поиск по одному КЛЮЧЕВОМУ полю:

with Table1 do
SetKey;
FieldByName('Имя поля').AsString:=Переменная;
GoToKey;