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

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

пошаговый поиск [D6, MSAccess]


Archey ©   (2002-05-12 20:31:00) 

Добрый вечер! Необходим DBEdit с возможностью инкрементального (пошагового) поиска в таблице по указанному полю. В случае отсутствия записи с искомым значением поля (например, ‘Иванов’ в поле ‘FIO’) выдавал бы message – «Запись не найдена. Создать новую запись для ‘Иванов’? ДА/НЕТ».


archey   (2002-05-15 12:29:00) [1]

Ура!!! Сам сделал! Нашел компонент wwIncrementalSearch , такой дбэдит с возможностью инкрементного (или инкрементального, судя по названию компонента) поиска, далее:

procedure TForm1. wwIncrementalSearchFIOExit(Sender: TObject);
begin
if wwIncrementalSearchFIO.text<>ADOTable_Mainfio.asstring then AboutBox.ShowModal;
end;

Я поставил для тренировки AboutBox. Работает как пулемет (ADO+Access), поле, кстати не ключевое.
Большое мерси кого побеспокоил.


Konorl   (2002-05-12 20:42:00) [2]

По моему мнению для инкрементного поиска по этому полю нужно иметь индекс. access имеет возможность создать индекс по полю. Что вы будете использовать ADO? Далее нужен провайдер и вот тут, в этой связке, проблемки с управлением индексом!
Так, что либо откажись от access, либо делай все в нем (IMHO)


Наверх

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