1.查询某个日期的数据
with query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * from 表');
Sql.Add('Where 日期字段=:date');
ParaByName('date').AsString:=日期;
Open;
End;
2.某段日期数据
with query1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * from 表');
Sql.Add('Where 日期字段 between :date1 and :date2');
ParaByName('date1').AsString:=日期1;
ParaByName('date2').AsString:=日期2;
Open;
End;