Поиск в БД: переход на следующую строку

← →
VadimLG (2003-12-02 14:19) [0]

Здравствуйте, уважаемые мастера! В целях обучения пишу простенькую БД. Прочитал статью "Поиск и фильтрация данных в Delphi", пытаюсь создать поиск по базе. С помощью Locate нахожу первую строку, отвечающую требованиям. Как продолжить поиск и найти остальные строки по порядку? У меня следующий код:
procedure TMainForm.BitBtn1Click(Sender: TObject); begin if not DataModule2.tInputGrid.Locate(ComboBox1.Text, Edit1.Text, []) then ShowMessage("Not found"); end;
И еще. При конструкции:
if not DataModule2.tInputGrid.Locate(ComboBox1.Text, Edit1.Text, [loCaseInsensitive, loPartialKey])
компилятор ругается на loCaseInsensitive и loPartialKey и говорит про Incompatible type TLocalOption and Integer. В че проблема?
Заранее спасибо.

← →
Silver Alex (2003-12-02 14:36) [1]

> компилятор ругается на loCaseInsensitive и loPartialKey
> и говорит про Incompatible type TLocalOption and Integer.
> В че проблема?

добавь в uses модуль DB, и не понятно что тебе надо поиск или фильтрация

← →
VadimLG (2003-12-02 14:45) [2]

Нужно чтобы я при очередном нажатии на кнопку прыгал на следующую запись, соответствующую искомой строке в Edit1.Text.

← →
Silver Alex (2003-12-02 15:04) [3]

а что не прыгает? или у тебя одинаковые значения?если одинаковые то наверное надо фильтровать

← →
VadimLG (2003-12-02 15:09) [4]

Да. У меня одинаковые значения. Если без фильтра нельзя обойтись, значит буду разбираться с ним. Спасибо. И за подсказку насчет модуля DB спасибо. А то все голову ломал не мог понять.

← →
Vlad (2003-12-02 15:14) [5]

Locate не будет "прыгать", т.к. каждый раз начинает поиск от начала набора данных.
Если втупую, то можно просто по кнопке "поиск" выполнять цикл
while not DataSet.Eof do... итд, каждый раз прерывая цикл на искомой строке.

← →
Silver Alex (2003-12-02 15:14) [6]

можно юзать тогда OnFilterRecord, есть такое событие у DataSet

Поиск в БД: переход на следующую строку Найти похожие ветки