Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
Delphi XE2 Professional
|
AW: TDBChart: zwei Werte aus Datenbank als X-Source
15. Okt 2020, 19:30
Hier mal mein Code:
Delphi-Quellcode:
DataModule_DB.ZQuery.SQL.Clear;
DataModule_DB.ZQuery.SQL.Add('SELECT ID, DATUM, UHRZEIT, TEMPSENSOR_1, FEUCHTESENSOR_1 FROM Wetterdaten');
If not alle_Datensaetze then
begin
DataModule_DB.ZQuery.SQL.Add('WHERE DATUM = :Date AND UHRZEIT BETWEEN :Time_min AND :Time_max');
DataModule_DB.ZQuery.SQL.Add('ORDER BY UHRZEIT');
end
else
DataModule_DB.ZQuery.SQL.Add('ORDER BY DATUM');
//Parameter
If not alle_Datensaetze then
begin
DataModule_DB.ZQuery.ParamByName('Date').AsDate := Datum;
DataModule_DB.ZQuery.ParamByName('Time_min').AsTime := Uhrzeit_min;
DataModule_DB.ZQuery.ParamByName('Time_max').AsTime := Uhrzeit_max;
end;
DataModule_DB.ZQuery.Open;
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
|
|
Zitat
|