Запись даты через DBedit

[xxbesoxx]

Scorpuha Предлагаю выложить проект и скажите конкретно как вы хотите что работал фильтр ?

[Scorpuha]

в проекте у меня сейчас бардак, а фильтр нужно что бы работал как сейчас (по вашему запросу) только с отображением в DBGride. DBGRId привязан к DataModule2.DataSource4.

[xxbesoxx]

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

в проекте у меня сейчас бардак, а фильтр нужно что бы работал как сейчас (по вашему запросу) только с отображением в DBGride. DBGRId привязан к DataModule2.DataSource4.

Пожалуйста
1.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Uses ---> StrUtils
    DataModule2.ADOQuery1.Close;
     DataModule2.ADOQuery1.SQL.Clear;
      DataModule2.ADOQuery1.SQL.Text:='select * from tab1 where Data_pereatestat between #'+
       AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', DateTimePicker1.Date),'.','/')
        +'# and #'+AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', DateTimePicker2.Date),'.','/')+'#';
        DataModule2.ADOQuery1.Open;
      if DataModule2.ADOQuery1.FieldByName('Data_pereatestat').AsString = '' then
     Application.MessageBox('Äàííûõ íà ýòî ïåðèîä íå íàéäåíî','Îøèáêà ââîäà äàííûõ', MB_ICONERROR);
end;

2.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  DataModule2.ADOQuery1.Close;
    DataModule2.ADOQuery1.SQL.Clear;
     DataModule2.ADOQuery1.SQL.Text:='select * from tab1 ';
   DataModule2.ADOQuery1.Open;
end;