Поиск по DBGrid

[Stian]

Доброго времени суток. Имеется база данных Access через ADO. На форме DBGrid, два Edita и Combobox. Осуществляю поиск по DBGrid. Однако возникает одна проблема, я не знаю, как связать эдиты и комбобокс, т.е. если набить поисковый запрос в эдиты, поиск проходит, если выбрать из комбобокса нужный параметр, таблица по нему отфильтруется. Но вместе они не работают. Чтобы к примеру сначала отфильтровать таблицу по параметру, взятому из комбобокса, и уже из отфильтрованных данных найти что-то при помощи эдит. Надеюсь, объяснение не слишком запутанное.

Поиск по edit:

procedure TForm1.ButtonClick(Sender: TObject);
var filtr, 
add: string;
begin
DataModule2.ADOQuery1.filtered:=false;
filtr:='';
if length(edit3.text) > 0 then
filtr:= 'Шифр LIKE ' + #39 + '%' + Edit3.Text + '%' + #39;;

if length(edit4.text) > 0 then
begin
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + 'Название LIKE ' + #39 + '%' + Edit4.Text + '%' + #39;
end;

if length(filtr) > 0 then
begin
DataModule2.ADOQuery1.Filter:= filtr;
DataModule2.ADOQuery1.filtered:=true;
end
else Showmessage('Все поля пусты! Для поиска заполните хотя бы одно');

end;

Фильтр Combobox:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'Выбрать год' then
DataModule2.ADOQuery1.Filter:='Год='+QuotedStr(ComboBox1.Text) else
DataModule2.ADOQuery1.Filter:='';

end;

Заполнение комбобокса:

procedure TForm1.FormActivate(Sender: TObject);
var
  year: string;
begin
  ComboBox1.Clear;
  ComboBox1.Items.Add('Выбрать год');
  DataModule2.ADOQuery1.First;
  while not DataModule2.ADOQuery1.Eof do
  begin
    year := DataModule2.ADOQuery1.FieldByName('Год').AsString;
    if (ComboBox1.Items.IndexOf(year) = -1) then
      ComboBox1.Items.Add(year);

    DataModule2.ADOQuery1.Next;
  end;
  DataModule2.ADOQuery1.First;
  ComboBox1.Text := 'Выбрать год';
end;

[Sparkman]

if Length(DataModule2.ADOQuery1.Filter)>0 then DataModule2.ADOQuery1.Filter:=DataModule2.ADOQuery1.Filter+' and ';
DataModule2.ADOQuery1.Filter:= DataModule2.ADOQuery1.Filter+'Год='+QuotedStr(ComboBox1.Text);

[Stian]

Все работает, но только один раз. Когда пытаешься выполнить другой поиск, вылетает ошибка:



С чем это может быть связано?

[Sparkman]

при инициализации нового поиска производите очистку фильтра

[Stian]

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

при инициализации нового поиска производите очистку фильтра

Подскажите пожалуйста, как это сделать. Я далеко не спец в делфи, только учусь.

[Sparkman]

например, объявите две глобальные строковые переменные:
1) для фильтра из Edit'ов;
2) для фильтра из ComboBox;

- при изменении значений в этих компонентах, записываете их значения в соответствующие переменные (var1:=ComboBox1.Text; var2:=Edit1.Text);
- при применении фильтра, производите конкатенацию (filter:=var1+var2) этих переменных со вставками логических операций (and/or) между ними.