Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


VadimLG ©   (2003-12-02 14:19:00) 

Здравствуйте, уважаемые мастера! В целях обучения пишу простенькую БД. Прочитал статью "Поиск и фильтрация данных в 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. В че проблема?
Заранее спасибо.


Vlad   (2003-12-02 15:14:00) [1]

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


Silver Alex   (2003-12-02 15:14:00) [2]

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


VadimLG   (2003-12-02 15:09:00) [3]

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


Silver Alex   (2003-12-02 15:04:00) [4]

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


VadimLG   (2003-12-02 14:45:00) [5]

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


Silver Alex   (2003-12-02 14:36:00) [6]


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо