TChart - 3 Variabeln

[Uwe Raabe]

In der Series kannst du über DataSource - Manual für jeden Datenpunkt einen Text, einen Y-Wert und den Radius angeben. Für den Text könnte man nun den Usernamen nehmen, während für den Y-Wert zunächst nur ein Index für den Getränkenamen angegeben werden kann. Der Radius kann dann wieder der tatsächlichen Menge entsprechen.

Um die Texte dann auf der X-Achse darzustellen, muss in Chart - Axis - BottomAxis - Labels - Style - Style die Option Text ausgewählt werden.

Die Texte bei der Y-Achse sind etwas aufwändiger: Hier muss erst unter Chart - Axis - LeftAxis - Labels - Style - Style die Option Point Value ausgewählt werden. Dann im oberen Tab auf Items wechseln. Hier das Automatic ausschalten und für jeden Value den passenden Getränkenamen als Text eintragen.

[Asura]

Gut ich habe mal die Einstellungen getroffen.

Delphi-Quellcode:

procedure TF_UsersStatistic.LoadUserStatistic(Query: TADOQuery);
var Bubble: TBubbleSeries;
begin

  Query.SQL.Clear;
  Query.SQL.Add('SELECT DISTINCTROW usr_users.usr_ID, usr_users.usr_Username, bev_beverages.bev_ID, bev_beverages.bev_name, Sum(odt_details.odt_Count) AS [Anzahl]');
  Query.SQL.Add('FROM bev_beverages INNER JOIN ((usr_users INNER JOIN ord_orders ON usr_users.[usr_ID] = ord_orders.[ord_usr_ID]) INNER JOIN odt_details ON ord_orders.[ord_id] = odt_details.[odt_ord_ID]) ON bev_beverages.[bev_ID] = odt_details.[odt_bev_ID]');
  Query.SQl.Add('GROUP BY usr_users.usr_ID, usr_users.usr_Username, bev_beverages.bev_ID, bev_beverages.bev_name');
  Query.Open;
  Query.First;

  Bubble := TBubbleSeries.Create(Self);
  Bubble.ParentChart := Chart;

  while Query.Eof do
    begin
      with Bubble do
        begin
          AddBubble(Query.FieldByName('usr_users.usr_ID').AsFloat, Query.FieldByName('bev_beverages.bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);
        end;
      Query.Next;
    end;

end;

Ich wollte mich erstmal an den Versuch wagen mit den Zahlen zu arbeiten, um dann in nachhinein die Einstellungen zu treffen.
Leider stellt er gar nichts dar und ich wundere mich, dass hier nicht mal ein Bubble angezeigt wird. Jemand vllt eine Idee, weshalb da gar nichts angezeigt wird?

[hoika]

Hallo,
baue dir erst mal ein Beispiel-Projekt ohne DB-Anbindung
mit fest definierten Werten.

Wenn das klappt, vergleiche es mit Deiner Version (deinen Daten).

[himitsu]

Zitat von hoika:

baue dir erst mal ein Beispiel-Projekt ohne DB-Anbindung

Das tut er doch?
Die Datasource ist nicht mit dem Chart verbunden.

Im Prinzip macht es ja keinen Unterschied, wo die Werte her kommen.
AddBubble wird manuell aufgerufen.

Zitat von hoika:

mit fest definierten Werten.

Nja, man könnte das als fest definierte Werte ansehn.
Im Debugger lässt sich prüfen, ob die Werte stimmen
und er kann zum Test auch noch ein DBGrid an die DataSource binden.

[Delphi.Narium]

muss das  while Query.Eof do nicht  while not Query.Eof do heißen?

[Asura]

Gut, also habe mich nun weiter ran versucht:

Delphi-Quellcode:

  
while not Query.Eof do
    begin

      for I := 0 to Chart.SeriesCount -1 do
        begin

          if Chart.Series[ I ].Name = Query.FieldByName('usr_ID').AsString then
            begin

              with Chart.Series[I] do
                begin
                  AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);
                end;

            end
          else
            begin
              Bubble := TBubbleSeries.Create(Self);
              Bubble.ParentChart := Chart;
              Bubble.AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);;
            end;

        end;

      Query.Next;
    end;

Folgende Probleme, die ich nicht lösen kann:
AddBubble kann nicht ausgeführt werden, da nicht Chart.Series[I] weiß, dass es sich um ein Bubble Serie handelt.
Das zweite Problem ist natürlich, dass bei der If-Else-Abfrage jedes mal wenn der erste Werte nicht stimmt er ja eine neue Serie erstellen würde.
Wie könnte ich das umgehen?

[himitsu]

Zitat von Asura:

AddBubble kann nicht ausgeführt werden, da nicht Chart.Series[I] weiß, dass es sich um ein Bubble Serie handelt.

ein Cast?
TBubbleSeries(Chart.Series[I])

Und das ELSE muß natürlich nach die Schleife.
das IF trifft nur bei einer der Serien und bei allen Anderen fügt es neu hinzu, egal, ob die gewünschte Serie schon kam / noch kommt.

AddBubble braucht dann also nicht doppelt sein, wenn du erst die Serie suchst, wenn nicht gefunden neu erzeugst und erst danach AddBubble auf das Gefundene/Erzeugte.