procedure
TForm15
.
SpeedButton1Click(Sender: TObject);
var
StartDate: TdateTime;
FinishDate: TdateTime;
begin
DataModule4
.
FindQuery
.
Active:=
false
;
DataModule4
.
FindQuery
.
SQL
.
Clear;
DataModule4
.
FindQuery
.
SQL
.
Add(
'SELECT *'
);
DataModule4
.
FindQuery
.
SQL
.
Add('FROM ТаблицаГИБДД);
DataModule4
.
FindQuery
.
SQL
.
Add(
'WHERE Кто LIKE '
'%'
+Edit1
.
Text+
'%'
''
);
DataModule4
.
FindQuery
.
SQL
.
Add(
'and [Дата поступления в ИФНС] between :StartDate and :FinishDate'
);
StartDate:=StrToDate(Edit2
.
Text);
FinishDate:=StrToDate(Edit3
.
Text);
DataModule4
.
FindQuery
.
Parameters
.
ParamByName(
'StartDate'
).Value := StartDate;
DataModule4
.
FindQuery
.
Parameters
.
ParamByName(
'FinishDate'
).Value := FinishDate;
DataModule4
.
FindQuery
.
Active:=
true
;
Form12
.
ShowModal;
end
;