[DOR]

Код:

procedure TForm_Otchet.BitBtn1Click(Sender: TObject);
begin
  DataModule2.ADOQuery1.Active:=false;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('select*');
  DataModule2.ADOQuery1.SQL.Add('from клиенты');
  if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where ФИО '''+Edit1.Text+'''');
  if form_otchet.ComboBox1.ItemIndex=1 then
    DataModule2.ADOQuery1.SQL.Add('where Адрес '''+Edit1.Text+'''');
  DataModule2.ADOQuery1.Active:=true;

  Form_Rezult_Otchet.ShowModal;
end;

Админ: Пользуемся тегами, иначе последуют санкции!

Пжл поправте код, чтобы выполнялось исловие if.

[Страдалецъ]

Код:

if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where ФИО='''+Edit1.Text+'''');
if form_otchet.ComboBox1.ItemIndex=1 then
    DataModule2.ADOQuery1.SQL.Add('where Адрес='''+Edit1.Text+'''');

или так:

Код:

if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where ФИО like ''%'+Edit1.Text+'%''');
if form_otchet.ComboBox1.ItemIndex=1 then
    DataModule2.ADOQuery1.SQL.Add('where Адрес like ''%'+Edit1.Text+'%''');

[DOR]

А если поле по которомы нужно искать является датой? как перевести его в строку?

[lmikle]

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

А если поле по которомы нужно искать является датой? как перевести его в строку?

DateToStr()

[DOR]

Неправильно вопроc задал , как будет выглядеть код

Код:

if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where ФИО like ''%'+Edit1.Text+'%''');
if form_otchet.ComboBox1.ItemIndex=1 then
    DataModule2.ADOQuery1.SQL.Add('where Адрес like ''%'+Edit1.Text+'%''');

если искомое поле дата.

[Страдалецъ]

Можно например так:

Код:

if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where Дата = '''+DateToStr(DateTimePicker1.Date)+'''');

но я предпочитаю пользоваться параметрами:

Код:

if form_otchet.ComboBox1.ItemIndex=0 
then begin
       DataModule2.ADOQuery1.SQL.Add('where Дата = :Date');
       DataModule2.ADOQuery1.Parameters.ParamByName('Date').Value := DateTimePicker1.Date;
       end;