VPF::Поиск по БД - Форум программистов

Гость_shaft666

Дата 11.1.2006, 19:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите как можно организовать поиск по таблице (Table), ищем с позиции курсора (ставишь галочку "Вверх", ищет вверх, ставишь "Вниз", ищет вниз).

P.S. Как в "Блокноте".

offline

Дата 11.1.2006, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7

для поиска используй Locate
если хочешь искать вверх, то придется наверное перебором

neat

Дата 12.1.2006, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 20.12.2005

Репутация: нет
Всего: нет

Не надо никаких галочек. Locate ищет по всей базе независимо от того, где стоит курсор и останавливается на найденной.

Гость_shaft666

Дата 12.1.2006, 13:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

neat это понятно, но если 2 и более одинаковые записи, поиск останавливается на первой найденой.....

bas

Дата 12.1.2006, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: 1
Всего: 2

FindKey,FindNearest

kobra

Дата 13.1.2006, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 730
Регистрация: 15.6.2005
Где: Грузия, Тбилиси

Репутация: 1
Всего: 9

если ползуеш компонеты BDE то FindFirst, FindNext, FindPrior, FindLast.
а если ADO, напиши и дам исходник.

Гость_shaft666

Дата 13.1.2006, 21:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

kobra А может для BDE есть??? Буду очень признателен ] smile

Albinos_x

Дата 13.1.2006, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Цитата(Гость_shaft666 @ 13.1.2006, 21:06

)

А может для BDE есть??? Буду очень признателен

поиск по полям Name и Fam

Код


Table1.Filtered:=false;
Table1.Filter:='Name = ''Вася'' and Fam = ''Пупкин''';
Table1.Filtered:=true;

количество найденых записей будет равно:

Код


col:=Table1.RecordCount;

также можно использовать следующий вариант:
если Table1.Filtered:=true, то обрабатывается событие для кадой записи OnFilterRecord, в обработчике передаётся параметр-переменная Accept, если ей передать значение false, то запись отображаться не будет... приблизительно это будет выглядить так:

Код


procedure Tform1.Table1FilterRecord(DataSet:TDataset; var Accept:boolean);
begin
Case filterwert of
   1 : accept:=(DateSet.FieldByName('Name').AsString = 'Вася');
   2 : accept:=(DateSet.FieldByName('Fam').AsString = 'Пупкин');
   end;
end;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »