Ну, в принципе, все правильно сделал.
Только лучше использовать параметры запроса.
Пусть запрос в компоненте выглядит так:
Код:
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;