Комплексный поиск в таблице

[RinoVaciO]

Доброго времени суток, уважаемые программеры!
В общем: BD - Access, через ADO.
Выводим через ADOTable таблицу в BDGrid, в таблице 5 полей, Фамилия, Имя, Отчество, Номер паспорта, Дата рождения. С помощью компонентов Edit необходимо задавать значения, с помощью которых происходила бы фильтрация (соответственно поиск). Проблем в программировании поиска по одному полю нет, в обработчик OnChange для строки ввода(Edit1) мы пишем следующее:

procedure TForml.Edit1Change(Sender:   TObject);
 begin
if  Length(Edit1.Text)>0 then DataModule2.BookTable.Filtered:=true
                                              else DataModule2.BookTable.Filtered:=false;
DataModule2.BookTable.Filter:='Фамилия>'''+Edit1.Text+'''',
end;

Но корректно поиск начинает работать только после того, как в обработчике OnFilterRecord таблицы BookTable прописать следующее:

procedure TDataModulel.BookTableFilterRecord(DataSet: TDataSet; var Accept:   Boolean); 
begin
Accept:=false;
if copy(BookTableFamilia.AsString,1,Length(Forml.Edit1.Text))= Forml.Edit1.Text then Accept:=true;
end;

В данном варианте настроено только для поиска по фамилии, а нужно настроить комплексный поиск, т.е. для каждого поля есть свой Edit, и после записи в них поискового параметра должны и отображаться соответствующие значения. Спасибо.

[rdama]

Первый Edit

  IF Trim(UserEd.Text)<>'' THEN
  begin
    Rep_TBL.Filtered:=False;
    Rep_TBL.Filter:=Rep_TBL.FieldByName('ShipName').FullName+' LIKE '+QuotedStr(
                   '%'+UserEd.Text+'%');
    Rep_TBL.Filtered:=true;
  end
  ELSE Rep_TBL.Filtered:=False;

Второй Edit

  IF Trim(IDEd.Text)<>'' THEN
  begin
    Rep_TBL.Filtered:=False;
    Rep_TBL.Filter:=Rep_TBL.FieldByName('ID').FullName+' LIKE '+
    QuotedStr('%'+IDEd.Text+'%');
    Rep_TBL.Filtered:=true;
  end
  ELSE Rep_TBL.Filtered:=False;

Что в первом случае на OnChange в edit, что во втором.
И события на DataSete нет.

[RinoVaciO]

Здорово! Отличный вариант без использования события на DataSet. Спасибо. НО Всё таки в комплексе этот поиск не работает, т.е. забивая сначала в Edit1 параметр поиска он фильтрует таблицу корректно, а после ввода в Edit2 он начинает отдельный поиск, хотя мне необходимо, чтобы он уже искал только из тех, которые высветились по первому запросу. Надеюсь понятно объяснил
И ещё этот код не работает с цифровой записью(не ищет по дате рождения) выдавая ошибку "Не удатся открыть фильтр". Помогите пожалуйста.

[rdama]

По дате не проверял. Необходимости уже давно не было. Но я думаю если по сидеть подумать и это можно решить.
А на счет составного фильтра.
Тебе просто надо перед тем как вешать новый фильтр сохранить старый и сложить его с новым.
Либо применять фильтр к уже отфильтрованному датасету.
Т.е. необходимо убрать строку

Rep_TBL.Filtered:=False;

По логике должно работать...

[Kemperok]

Поищи компонент CGrid в нем есть всевозможные фильтры, поиск по любому из столбцов, сортировка столбцов, так же позволяет сортировать найденые и отфильтрованные записи, при этом не обращаясь к базе данных, каждый раз когда вы выполняете подобные действия.