Нужно вывести отчет за выбранный промежуток времени, но не работает

procedure TOtchetPoDate.SpeedButton1Click(Sender: TObject);
begin
if OtchetPoDate.DateTimePicker2.DateTime < DateTimePicker1.DateTime  then
 showmessage(Не верные даты') else
 begin
 reportform:=TreportForm.create(self);
 reportForm.ShowModal;
 DM.PrihodQuery.SQL.Text:='A_SQL+B_SQL+C_SQL+D_SQL+V_SQL' + ' WHERE [Data]>=#'+DateToStr(DateTimePicker1.Date)+'# and [Data]<=#'+DateToStr(DateTimePicker2.Date)+'#';
 end;
end;
3 ответа

sajmon1, синтаксические ошибки исправьте.
procedure TOtchetPoDate.SpeedButton1Click(Sender: TObject);
begin
  if OtchetPoDate.DateTimePicker2.DateTime < DateTimePicker1.DateTime  then
    showmessage('Не верные даты') 
  else
  begin
    reportform := TreportForm.create(self);
    reportForm.ShowModal;
    DM.PrihodQuery.SQL.Text := 'A_SQL+B_SQL+C_SQL+D_SQL+V_SQL' + ' WHERE [Data]>=#' + DateToStr(DateTimePicker1.Date) + '# and [Data]<=#' + DateToStr(DateTimePicker2.Date) + '#';
  end;
end;


Все равно не выбирает просто выводит таблицу в DBgrid без выбора по дате(


A_SQL+B_SQL+C_SQL+D_SQL+V_SQL
Что-то вообще первый раз вижу такую конструкцию SQL-запроса... Или я от жизни отстал?