日期查询方法可以用SQL进行参数查询,代码如下:
TForm1.Button1Click(Sender : TObject) ;
var
date1,date2 : TDate ;
begin
with Query1 do
begin
Close ;
SQL.Clear ;
SQL.Add('select * from 表名 where 字段名<=:date1 and 字段名>=:date2') ;
Prepare ;
Params[0].AsDate := 日期上限值 ;
Params[1].AsDate := 日期下限值 ;
Open ;
end ;
end ;