Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#8

AW: TDBChart: zwei Werte aus Datenbank als X-Source

  Alt 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! <<
  Mit Zitat antworten Zitat