ADO, Access, SQL, Магазин

'select *from [] where date=#'+dayof()+'/'+monthof()+'/'+yearof()+'#;'

with Query1 do begin
  Close;
  SQL.Text:='SELECT * FROM имя таблицы(таблиц) WHERE DATA=:DATA;';
  Parameters[0].Value:=значение параметра(с типом дата);
  Open;
end;

Parameters[0].Value:=StrToDate(Edit1.Text);

procedure TfMain.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 fDM.ADOQuery1.Close; // закрыть файл-результат выполнения предыдущего запроса
 fDM.ADOQuery1.SQL.Clear; // удалить текст предыдущего запроса
 // записываем новый запрос в свойство SQL
 Parameters[0].Value:=StrToDate(Edit1.Text);
 fDM.ADOQuery1.SQL.Text:='select * from Zakazi where ДатаЗаказа  = '+Parameters[0];
 fDM.ADOQuery1.Open; // активизируем выполнение запроса
 DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

procedure TfMain.Edit1Change(Sender: TObject);
var d: TDateTime;
begin
 if (Edit1.Text <> '') and (TryStrToDateTime(Edit1.Text, d)) // пользователь ввел инф
 then begin
  with fDM.ADOQuery1 do begin
    Close; // закрыть файл-результат выполнения предыдущего запроса
    SQL.Text:='select * from Zakazi where ДатаЗаказа  = :DATA'; // удалить текст предыдущего запроса
    Parameters[0].Value:=StrToDate(Edit1.Text);
    Open; // активизируем выполнение запроса
    DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
  DBGrid1.DataSource:=fDM.DSQuery1;
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Модель';
  1: strField:='Бренд';
  2: strField:='Вид';
  3: strField:='Тип';
  4: strField:='Стоимость';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'=' +Edit1.Text);
 fDM.ADOQuery1.Open;
 end;end;

fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+'='''' +Edit1.Text+''');

procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin //start
 if not CheckBox1.Checked then Exit;
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Model';
  1: strField:='Brend';
  2: strField:='Vid';
  3: strField:='Tip';
  4: strField:='Ctoimost';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;                              // |
 fDM.ADOQuery1.SQL.Clear;                 //  ' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');
 fDM.ADOQuery1.Open;
 fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
 fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
 fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
 DBGrid1.DataSource:=fDM.DSQuery1;
 end else begin
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
  fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
  fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
  DBGrid1.DataSource:=fDM.DSQuery1;
 end;
 
end; //end

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
DBGrid1.DataSource := fDM.DSTovarMainData;
if ComboBox1.ItemIndex = 1 then
DBGrid1.DataSource := fDM.DSPokupatelData;
if ComboBox1.ItemIndex = 2 then
DBGrid1.DataSource := fDM.DSotchetData;
if ComboBox1.ItemIndex = 3 then
DBGrid1.DataSource := fDM.DSckladData;
end;

fDM.TPokupatelData.MasterFields:='';