|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Поможите с фильтрацией базы данных
У меня есть некая база данных, текст вводится в Edit нужно сделать так чтобы при введение символов происходило фильтрование...
пробовал по аналогии с ComboBox'сом: Код:
procedure TForm1.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text='Все' then begin Table2.Filtered:=True; Table2.Filter:='Kod > 0'; end else begin Table2.Filtered:=True; Table2.Filter:='Grup = ''' + ComboBox1.Text+''''; end; end; но так он ничего не выводит |
#2
|
|||
|
|||
Как минимум, нужно :
Код:
Table2.Filtered:=False; //!!! Table2.Filter:='...'; Table2.Filtered:=True; //!!! |
#3
|
||||
|
||||
Этот код работает нормаль. Я не могу сделать так чтобы по мере ввода символов в базе данных отбрасывались не подходящие по фильтру подскажите пожалуйсто
|
#4
|
|||
|
|||
Цитата:
OnChange editboksa pishem Код:
Timer1.Enabled:=False; Timer1.Enabled:=True; Код:
If Trim(Edit1.Text)<>'' Then Begin try ADOTable1.Filtered := True; ADOTable1.Filter := 'gvari LIKE ''' + Edit1.Text+ '%' + ''''; finally Timer1.Enabled:=False; end; end else begin ADOTable1.Filtered := False; end; |
#5
|
||||
|
||||
код для поиска по ДБФ через TQuery ... для ADOTable должно быть аналогичным:
Код:
procedure TfForm.Ed1Change(Sender: TObject); begin if Length(Ed1.Text)>0 then begin Ed2.Enabled:=False; Q1.Filter:='TIN = '''+Ed1.Text+'*'''; Q1.Filtered:=True; end else begin Ed2.Enabled:=True; Q1.Filtered:=False; end; end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#6
|
||||
|
||||
Спасибо за помощь. Вечером попробую.
|