DBChart mehr als eine Serie einfügen.

[Chemiker]

Hallo,

mit folgendem Quell-Code wird eine Series für ein DBChart gefüllt, aber irgendwie habe ich keine Idee wie ich vorgehen muss, um mehrere SQL-Abfragen als verschiedene Series ins DBChart einzufügen.

Delphi-Quellcode:

StrKessel:= 'K01T1';
  StrDatumAnf:= StrToDateTime('06.03.2008 00:00:00');
  StrDatumEnd:= StrToDateTime('06.03.2008 02:00:00');
  StrTabelle:= 'MW_Tabelle';
  StrAb:= 'SELECT *FROM MW_Tabelle where MW_MSID = :aStrKessel and (MW_DatumUhrZeit between :aStrDatumAnf and :aStrDatumEnd)';
  DSAbfrage.Close;
  DSAbfrage.SelectSQL.Text:= StrAb;
  DSAbfrage.ParamByName('aStrKessel').AsString:= StrKessel;
  DSAbfrage.ParamByName('aStrDatumAnf').AsDateTime:= StrDatumAnf;
  DSAbfrage.ParamByName('aStrDatumEnd').AsDateTime:= StrDatumEnd;
  DSAbfrage.GenerateSQLs;
  Series1.DataSource:= DSAbfrage;

Um es vorwegzunehmen, ich würde schon gerne bei DBChart bleiben, weil ich keine besondere Manipulation der Daten vornehme.

Bis bald Chemiker

[nahpets]

Hallo,

Zitat von Chemiker:

Hallo,

mit folgendem Quell-Code wird eine Series für ein DBChart gefüllt, aber irgendwie habe ich keine Idee wie ich vorgehen muss, um mehrere SQL-Abfragen als verschiedene Series ins DBChart einzufügen.

Delphi-Quellcode:

StrKessel:= 'K01T1';
  StrDatumAnf:= StrToDateTime('06.03.2008 00:00:00');
  StrDatumEnd:= StrToDateTime('06.03.2008 02:00:00');
  StrTabelle:= 'MW_Tabelle';
  StrAb:= 'SELECT *FROM MW_Tabelle where MW_MSID = :aStrKessel and (MW_DatumUhrZeit between :aStrDatumAnf and :aStrDatumEnd)';
  DSAbfrage.Close;
  DSAbfrage.SelectSQL.Text:= StrAb;
  DSAbfrage.ParamByName('aStrKessel').AsString:= StrKessel;
  DSAbfrage.ParamByName('aStrDatumAnf').AsDateTime:= StrDatumAnf;
  DSAbfrage.ParamByName('aStrDatumEnd').AsDateTime:= StrDatumEnd;
  DSAbfrage.GenerateSQLs;
  Series1.DataSource:= DSAbfrage;

Um es vorwegzunehmen, ich würde schon gerne bei DBChart bleiben, weil ich keine besondere Manipulation der Daten vornehme.

Bis bald Chemiker

reicht es da nicht aus, den ganzen Block nochmal zu verwenden, mit veränderten Paramtern und einer weiteren DataSource und dannSeries2.DataSource := DSAbfrage2;