procedure TForm2.BitBtn6Click(Sender: TObject);
var
sqll:string;
begin
sqll:='select * from logistics where 日期>=strtodate(datetimepicker2.date)and 日期<=strtodate(datetimepicker3.date)';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqll);
adoquery1.Open;
end;
var
sqll:string;
begin
sqll:='select * from logistics where 日期>=strtodate(datetimepicker2.date)and 日期<=strtodate(datetimepicker3.date)';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqll);
adoquery1.Open;
end;
sqll := 'select * from logistics where 日期 >= '+
QuotedStr(DateTimeToStr(datetimepicker2.date)) +
' and 日期 <= ' + QuotedStr(DateTimeToStr(datetimepicker3.date));