|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.08.2008, 17:42 | #1 |
Регистрация: 06.08.2008
Сообщений: 3
|
Как сделать сортировку (поиск) Delphi+Access
Народ! помогите написать сортировку или поиск, не знаю как это назвать. Допустим у меня в поле "Фамимлия" находятся много Ивановых, Петровых и т.д. и ввожу в TEdit букву "И" и все эти фамилии отфтльтровываются, дальше ввожу "Ив" и все фамилии начинающиеся на ИВ отфильтровываются. Как такое написать? Если можно, напишите код.
У меня есть такой <code> procedure TForm3.Edit1Change(Sender: TObject); begin if Length (Edit1.Text)>0 then DataModule1.map2.Filtered:=true else DataModule1.map2.Filtered:=false; DataModule1.map2.Filter:='Фамилия>' ''+Edit1.Text+''''; end; </code> но он ищет не так как надо, а приближенные значения. А если написать ИВАНОВ то все эти фамилии исчезают. |
24.08.2008, 18:34 | #2 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
Лично я никогда не задаю свойство Filter, а использую событие OnFilterRecord. Вот кусок кода из программы, SpeedSearch - как раз тот Edit в который вводится текст:
Код:
|
24.08.2008, 21:18 | #3 |
Регистрация: 06.08.2008
Сообщений: 3
|
А где взять это событие OnFilterRecord
|
25.08.2008, 02:05 | #4 |
Пользователь
Регистрация: 22.07.2008
Сообщений: 49
|
Я делал так:
Код:
В Edit1,2,3 ищешь по фамилии или имени или отчеству. согласен, что способ не самый лучший, да и зачем изобретать велосипед, когда уже он есть. Но пока мне легче извратиться и придумать что-то вроде выше изложенного, чем воспользоваться продвинутой, но не понятной пока FilterRecord По крайней мере результат тот же. |
25.08.2008, 14:37 | #5 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
нну символ % можно ведь посто добавить в запрос
Label1 тогда не нужен.
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
28.08.2008, 22:32 | #7 | |
Пользователь
Регистрация: 22.07.2008
Сообщений: 49
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста сделать поиск по базе данных в форме! Access 2003 | LilijaSt | Microsoft Office Access | 19 | 25.12.2010 10:13 |
Помогите переделать файловую сортировку на сортировку динамич. списков | Taisja | Помощь студентам | 2 | 15.06.2008 16:10 |
StringGrid сделать сортировку по алфавиту | Римма | Компоненты Delphi | 6 | 12.10.2007 16:15 |