Показать сообщение отдельно
  #2  
Старый 10.03.2018, 20:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, в принципе, все правильно сделал.
Только лучше использовать параметры запроса.
Пусть запрос в компоненте выглядит так:
Код:
SELECT * FROM ZakazPoligraf WHERE Data >= :dtFirst and Data <= :dtLast
Параметры должны быть настроены соотв. образов в инспекторе объектов. Тогда твой Delphi код будет такой:
Код:
procedure TForm26.FormShow(Sender: TObject);
var  FirstDay, LastDay: TDateTime;
begin
  QueryPoliMes.Active:=false;

  FirstDay := EnCodeDate(YearOf(Date), MonthOf(Date), 1);
  LastDay := FirstDay + DaysInMonth(Date) - 1;
  DateTimePicker1.Date:= FirstDay;
  DateTimePicker2.Date:= LastDay;

  QueryPoliMes.ParamByName('dtFirst').AsDateTime := DateTimePicker1.Date;
  QueryPoliMes.ParamByName('dtLast').AsDateTime := DateTimePicker2.Date;

  QueryPoliMes.Open;
end;
Ответить с цитированием