последовательный поиск по базе

[bosston]

Привет всем!
я только начинаю работать в дельфи, до этого работал с foxpro.
сейчас возник вопрос по сабжу. надо чтобы работало так:
1. при нажатии комбинации клавиш запускается окно диалога для ввода значения для поиска(это все работает). значение запоминается в глобальную пременную. курсор переходит на найденную запись. я это организовал через LOCATE.
2. при нажатии на комбинацию клавишь курсор должен переместиться на следующию запись удовлетворяющую условию - вот это я не могу организовать. LOCATE не проходит.
подскажите, как это сделать, юристы просит!

[Stilet]

LOCATE не проходит.

Показывай код.

[bosston]

procedure TForm2.F31Click(Sender: TObject);
begin
  //ab_nomer:= Query_list.FieldByName('Id_klient').AsString;
    If not Query_list.Locate('Id_klient',ab_nomer_find,[loCaseInsensitive]) then  //
       begin
          Beep;
          MessageDlg('Запись не найдена',mtInformation,[mbOK],0);
          exit;
       end;

end;

это уже повторный поиск

[Stilet]

Значит нет такой записи. Может в ab_nomer_find данные которых ну нет никак. или ты после первого запуска поиска умудряешся сменить позицию в базе, а locate начинает искать с текущей позиции.

[bosston]

Значит нет такой записи.

есть! но расположены рядом и курсор не переходит на следующую запись.

[koma_grusha]

лови образец

FindRecord.rar

подправишь по свою прогу, вместо ClientDataSet свою таблицу. Код там с коментариями

Надеюсь то что надо

[bosston]

спасибо, сделал.
но теперь вопрос в другом.
а во-второй закладке, где нет таблицы, будет работать?
у меня выдает ошибку, что нельзя установить фокус в таблице

[koma_grusha]

нельзя устанавливать фокус на невидимых или недоступных объектах

[ArtInt]

Попробуй через фильтр, находить записи:

  AdotableBluda.Filtered:=false;
  AdotableBluda.Filter:='category='+quotedstr('Спиртное');
 AdotableBluda.Filtered:=True;

  if AdotableBluda.RecordCount<>0 then
  begin
    showmessage ('запись есть');
  end;

[bosston]

привет всем!
поиск сделал, но надо отключить визуальный эффект поиска по базе и выдать окно с сообщением "Идет поиск", после окончания оно должно закрыться.
использую команду Query_list.DisableControls, но не понятно как она работает и где ее прописать?