[St_K]

Доброго времени суток. Имеется база данных 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;

[lmikle]

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