Запрос на поиск

[Loqwer78rus]

Выбираю поле записываю в DBedit данные которые хочу найти. Не знаю что писать в Button для работы всех полей в поиске. Может есть пример кода. Обрыл весь интернет. (Связь Delphi+mysql)

[xxbesoxx]

Примерно так

 if Combobox1.Text ='Fio' then
   begin
      With ADOQuery1 do
      begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT * FROM  Таблица');
       SQL.Add('WHERE Fio = '''+Edit1.Text +'''');
       Open;
      end
      else
 if Combobox1.Text ='Staj' then
     begin
      With ADOQuery1 do
      begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT * FROM  Таблица');
       SQL.Add('WHERE Staj = '''+Edit1.Text +'''');
       Open;
      end
   end

[Loqwer78rus]

Вот что я сделал. Ну только по дате. Не знаю как еще добавить сюда текстовый и числовой тип, чтобы по другим, Dbedit, полям искать

procedure TForm1.Button2Click(Sender: TObject);
var d1:tDATE;
s:string;
begin
     if(Combobox1.Text='DATA_ROJD') then d1:=StrToDate(DBEdit8.Text);
     s:=FormatDateTime('yyyy-mm-dd',d1);

     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     if(Combobox1.Text='Data_rojd') then ADOQuery1.SQL.Add('select * from Sotrudniki where '+Combobox1.Text+'='+#39+s+#39';')
     else ADOQuery1.SQL.Add('select * from Sotrudniki where ' +combobox1.Text+'='+#39+DBEdit8.Text+#39';');
     ADOQuery1.Open;
     Datasource1.DataSet.Close;
     Datasource1.DataSet:=adoquery1;
     DBGrid1.DataSource:=datasource1;
     dbgrid1.DataSource.DataSet.Active:=true;
    // DBEdit1.DataSource:=DBGrid1.DataSource;
     //DBEdit2.DataSource:=DBGrid1.DataSource;
    // DBEdit3.DataSource:=DBGrid1.DataSource;

end;

[xxbesoxx]

Вот что я сделал. Ну только по дате.

1) Отлажите это проект !
2) Изучайте фильтр по дате (параметризированные запросы) есть на форуме много примеры
3) и потов верните ваши проекте и продолжите работу