[St_K]

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

Поиск по edit:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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:

Код:

1 2 3 4 5 6 7

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;

[lmikle]

Гм... я бы сел просто на событие OnfilterRecord и там бы обработал все 3 фильтра, если уж ты все фильтруешь на клиенте. А еще лучше фильтр по году сразу вынести в запрос через параметр.