Фильтрация данных в таблице

[stevieg]

Здравствуйте. У меня следующая задачка:
Имеется таблица с тремя полями: Login, Password, Access (уровень доступа).
Мне нужно осуществлять фильтрацию по одному или нескольким полям.
Код написал следующий:

ADOQuery1.Filtered:=true;
ADOQuery1.Filter:= 'Login='+QuotedStr(Edit1.Text);
ADOQuery1.Filter:= 'Password='+QuotedStr(Edit2.Text);
ADOQuery1.Filter:= 'Access='+QuotedStr(Combobox1.Text);

Но тут фильтрация осуществляется как бы одновременно по всем трем фильтрам, то есть, если какое-либо поле (edit1, edit2, combobox1) оставить не заполненным, то результаты фильтрации будут нулевыми.
Вопрос: как сделать так, чтобы я заполнял фильтры на свой выбор и фильтрация осуществлялась именно по заполненным фильтрам?
Я так подозреваю, нужно прописывать какие-то условия. Подскажите, пожалуйста. Заранее спасибо.

[kate158]

у меня был проект, где по всем полям искался текст из edit.
вот код, может поможет =) таблица - состоит из полей - имя, фамилия, отчество

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Trim(Edit1.Text)<>''  then begin
   adoquery1.Filtered := false;
   adoquery1.Filter :=' name Like '+ QuotedStr('*'+Trim(Edit1.Text)+'*')
 +'or first_name Like '+ QuotedStr('*'+Trim(Edit1.Text)+'*')
 +'or second_name Like '+ QuotedStr('*'+Trim(Edit1.Text)+'*');
   adoquery1.Filtered := true;
  end
  else begin
    adoquery1.Filtered := false;
  end;
end;

[stevieg]

Сообщение от kate158

у меня был проект, где по всем полям искался текст из edit.
вот код, может поможет =) таблица - состоит из полей - имя, фамилия, отчество

procedure TForm1.edFilterNameChange(Sender: TObject);//обработка изменений эдита
begin
  if Trim(edFilterName.Text)<>''  then begin
   dm.people.Filtered := false;
   dm.people.Filter :=' name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*')
 +'or first_name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*')
 +'or second_name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*');
   dm.people.Filtered := true;
  end
  else begin
    dm.people.Filtered := false;
  end;
end;

Кейт, поясните пожалуйста, edFilterName и dm.people - это что у вас?

[kate158]

edFilterName - так у меня названо поле edit,dm.people - data module, на котором размещен ado query (people).я всегда для всех adoquery создаю отдельный data module
исправила.кинь на форму edit, при наборе текста у тебя будет фильтроваться таблица

[stevieg]

Кейт, большое спасибо, все работает.
P.S. Прикольная подпись