Люди, помогите с фильтрацией.

[EgorKa1]

Всем привет, помогите с фильтрацией, как сделать так чтоб в combobox выбирал равенство + вводил данные в Edit и происходила фильтрация.
Вот как на скринах показано.А то вообще не понимаю как это сделать...
Снимок.PNG
СниАВмок.jpg

Пользуюсь ADOTable
Заранее спасибо.

[Dvoishnik]

губа не дура)
а сими кроме того что компоненты на форму выкинули что сделали??
У ComboBox есть свойство Items в него добавляйте что вам нужно
либо в ручную либо кодом

..............
Combobox1.Items.Add('Трам пам пам1');
Combobox1.Items.Add('Трам пам пам2');
Combobox1.Items.Add('Трам пам пам3');
Combobox1.ItemIndex:=1;
Edit1.Text:=Combobox1.Items.Strings[Combobox1.ItemIndex];
............
//вывод в эдит
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+Combobox1.Items.Strings[Combobox1.ItemIndex];
end;

[EgorKa1]

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

губа не дура)
а сими кроме того что компоненты на форму выкинули что сделали??
У ComboBox есть свойство Items в него добавляйте что вам нужно
либо в ручную либо кодом

..............
Combobox1.Items.Add('Трам пам пам1');
Combobox1.Items.Add('Трам пам пам2');
Combobox1.Items.Add('Трам пам пам3');
Combobox1.ItemIndex:=1;
Edit1.Text:=Combobox1.Items.Strings[Combobox1.ItemIndex];
............
//вывод в эдит
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+Combobox1.Items.Strings[Combobox1.ItemIndex];
end;

Так я равенства занес в items: =, >=, <=, <>.
А что на кнопку писать хз...
Второй скрин это в моей проге, просто первый выложил чтоб было понятней, что на форму выкинул.

[Dvoishnik]

я не могу понять что у вас не получается?
вы хотите чтоб вам дали код для вашей кнопки??

Combobox1.Items.Strings[Combobox1.ItemIndex];

вот так можно узнать что в комбобоксе выбрано
а дальше делайте ваш запрос. или Filter.

[EgorKa1]

Дело в том, что я знаю как сделать фильтр просто с edit..
А вот как сделать фильтр: combobox + edit
вот пример: выбираю в combobox значение <>, рядом в edit вписываю число, и оно должно вывести все записи, естественно кроме тех что мы исключили при помощи edit.
На скрине видно что для "Количество" свой combobox и edit.
так и для остальных полей.

[EgorKa1]

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

я не могу понять что у вас не получается?
вы хотите чтоб вам дали код для вашей кнопки??

Combobox1.Items.Strings[Combobox1.ItemIndex];

вот так можно узнать что в комбобоксе выбрано
а дальше делайте ваш запрос. или Filter.

Так вот именно, я не знаю как сделать запрос или свой filtеr(((

[Dvoishnik]

Пишите как делаете без комбобокс.
я подскажу дальше.

[EgorKa1]

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

Пишите как делаете без комбобокс.
я подскажу дальше.

что-то типо такого:

var filtr, add:string;
begin
if Length(Edit1.Text) > 0 then filtr:='Наименование LIKE '+#39+Edit1.Text+'%'+#39;
end;

[Dvoishnik]

if Length(Edit1.Text) > 0 then filtr:='Наименование '+Combobox1.Items.Strings[Combobox1.ItemIndex]+' '+
#39+Edit1.Text+'%'+#39;

ну если так тогда что то вроде того

[EgorKa1]

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

if Length(Edit1.Text) > 0 then filtr:='Наименование '+Combobox1.Items.Strings[Combobox1.ItemIndex]+' '+
#39+Edit1.Text+'%'+#39;

ну если так тогда что то вроде того

в общем написал такой код:

var filtr, add:string;
begin
if Length(Edit1.Text) > 0 then filtr:='tovName LIKE '+#39+Edit1.Text+'%'+#39;
if Length(Edit2.Text) > 0 then
begin
  if Length(filtr) > 0 then add:=' and ' else add:='';
  filtr:=filtr+add+'counts LIKE '+Combobox1.Items.Strings[Combobox1.ItemIndex]+' '+#39+Edit2.Text+'%'+#39;
end;
if Length(filtr) > 0 then
begin
  Form1.DBGrid2.DataSource.DataSet.Filtered:=False;
  Form1.DBGrid2.DataSource.DataSet.Filter:=filtr;
  Form1.DBGrid2.DataSource.DataSet.Filtered:=True;
  Close;
end;
if (Length(filtr) = 0) then
Application.MessageBox('Заполните хотя бы одно поле','Ошибка',MB_OK);
end;

выбивает ошибку при нажатии на кнопку:Снимок1111.PNG