Moin...
Delphi-Quellcode:
qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >='
+ QuotedStr(datetostr(tt_D1_dt)) + 'and PO_FBEGIN_TIME <='
+ QuotedStr(datetostr(tt_D1_dt + 6)) + 'and PO_ADID ='
+ QuotedStr(Emply) + 'order by Po_Fbegin_Time ASC';
...da rollen sich mir die Fußnägel hoch.
Bitte benutze in Zukunft Parameter.
Delphi-Quellcode:
qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >= :STA and PO_FBEGIN_TIME <= :ENT and PO_ADID = :EMP order by Po_Fbegin_Time ASC'
qry_RPT_PO.SQL.ParamByName('STA').AsString := datetostr(tt_D1_dt); // !!! besser mit Datefeldern arbeiten
qry_RPT_PO.SQL.ParamByName('ENT').AsString := datetostr(tt_D1_dt + 6); // !!! besser mit Datefeldern arbeiten
qry_RPT_PO.SQL.ParamByName('EMP').AsString := Emply;
PS:
Du benutzt eine etwas eigenwillige Formatierung und Benamsung der Variablen.
Neulinge, die Delphi lernen wollen, sollten besser mit der Codeformatierung arbeiten.