Пустой Combobox

[flyinsky]

Здравствуйте. у меня выполняется фильтрация запросом

datamodule1.ADOTable2.Filtered:=false; 
        
datamodule1.ADOTable2.Filter:='Станция_отпр_я LIKE '+ #39 +  combobox1.Text + '%' + #39 +' AND '
+ 'Станция_назн_я LIKE '+ #39 + combobox2.Text + '%' + #39;

datamodule1.ADOTable2.Filtered:=true;

Он фильтрует сразу по обоим комбобоксам, а как сделать так чтобы:
1) если первый комбобокс заполнен а второй пустой то фильтровать только по первому
2) если второй комбобокс заполнен а первый пустой то фильтровать только по второму
3) если оба пустые то вывести сообщение showmessage('Введите данные')

Пробовал через If вываливаються ошибки.

[vovk]

Ну это вообщето не запрос, ну да ладно. Конечно нужно использовать условия,
как пример

if TRIM(combobox1.Text)<>'' and  TRIM(combobox1.Text)<>'' then
begin
message('Введите данные'); exit;
end;
datamodule1.ADOTable2.Filtered:=false; 

datamodule1.ADOTable2.Filter:='0 = 0 ';
if TRIM(combobox1.Text)<>'' then
  datamodule1.ADOTable2.Filter:=datamodule1.ADOTable2.Filter + ' AND  Станция_отпр_я LIKE '+ #39 +  combobox1.Text + '%' + #39;
if TRIM(combobox2.Text)<>'' then
  datamodule1.ADOTable2.Filter:=datamodule1.ADOTable2.Filter + ' AND Станция_назн_я   LIKE '+ #39 + combobox2.Text + '%' + #39;

datamodule1.ADOTable2.Filtered:=true;

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

Синхронно думаем ))))

))))

[Stilet]

С потолка:

with datamodule1.ADOTable2 do begin
 Filter:='(1=1) ';
 if combobox1.Text <>'' then Filter:=Filter+' AND (Станция_отпр_я LIKE '+QuotedStr( combobox1.Text + '%')+') ';
 if combobox2.Text <>'' then Filter:=Filter+'  AND (Станция_назн_я LIKE '+QuotedStr( combobox1.Text + '%')+') '
end;

vovk

Синхронно думаем ))))