procedure TQXKJYXGS.JTClick(Sender: TObject);
var //这是一个查看今天的数据,不知道是不是你想要的
mytime: TDateTime;
begin
mytime:=Now;
self.ADOQuery2.SQL.Clear;
self.ADOQuery2.SQL.Add('select * from DQQK where DRRQ=:DRRQ1');
self.ADOQuery2.Parameters.ParamByName('DRRQ1').Value:=DateToStr(mytime);
self.ADOQuery2.Open;
end;