TBeDbChart

Die Klasse TBeDbChart kapselt alle Funktionalitäten und Eigenschafte die zum Anlegen und zur Aufbereitung von Diagrammen nötig sind.

Eigenschaften

Eigenschaft	Beschreibung
ExecEditChart:S	Diagramm-Designer aufrufen
CbChartToolCount:N	Anzahl der hinzugefügten Tools

Funktionen und Methoden

Funktion / Methode

Parameter

Beschreibung

CbChartToolAdd:O

Fügt dem Diagramm ein Tool hinzu. Das Tool das übergeben wird muss bereits instanziiert sein.

aCbChartTool:O

Objekt vom Typ TTeeCustomTool

CbChartToolGet:O

Liefert das Tool zurück, das an sich an der Stelle aIndex befindet

aIndex:L

Index des Tools

CbChartToolRemove

Entfernt das übergebene Tool wieder von dem Diagramm

aCbChartTool:O

Objekt vom Typ TTeeCustomTool

Beispiel

CODE

// Hinweis: Das Beispiel erfodert ein Formular mit der ID "@CHART_1", auf welchem
//          sich die mit "FindObject()" geladenen Objekte befinden

|oForm, BeDBChart1, Series1, ChartTool1,
 BeAdsQuery1, MemCalcTable1, DataSourceEx1, BeAltGrid1,
 cJahr, cJahrBis
|

StartSeq
   // Formular-Objekte laden
   oForm := LoadForm( "@CHART_1", Application ),
   oForm.Visible := false,
   BeDBChart1    := FindObject( oForm, "BeDBChart1" ),
   Series1       := FindObject( oForm, "Series1" ),
   ChartTool1    := FindObject( oForm, "ChartTool1" ),
   BeAdsQuery1   := FindObject( oForm, "BeAdsQuery1" ),
   MemCalcTable1 := FindObject( oForm, "MemCalcTable1" ),
   DataSourceEx1 := FindObject( oForm, "DataSourceEx1" ),
   BeAltGrid1    := FindObject( oForm, "BeAltGrid1" ),

   // Abfrage-Zeitraum
   cJahr    := str(year(date())-1) + '01',
   cJahrBis := str(year(date())-1) + '12',

   // SQL-Abfrage: Gesamt-Umsätze im angegeben Jahr
   BeAdsQuery1.SQL := sqlstr(SELECT DAB520.JAHRMONAT, DAB520.VK_UMSATZ,
                             convert(DAB520.JAHRMONAT, SQL_INTEGER) AS JAHRMONAT_INT

                                WHERE     SUCHBEGR like 'TT%'


                                      AND TAG is null


                            ),
   BeAdsQuery1.Active := true,

   // SQL-Ergebnis in Memtable übertragen
   MemCalcTable1.BorrowFromDataSet := BeAdsQuery1,
   // Weitere Spalte wird für die Beschriftung der Monate im Chart gebraucht
   AddMemField(MemCalcTable1, 'BEZ', 'C', 20, 0),
   MemCalcTable1.Active := true,
   dbgotop(BeAdsQuery1),
   while not eof(BeAdsQuery1) do
     myappend(MemCalcTable1),
     MemCalcTable1:JAHRMONAT     := BeAdsQuery1:JAHRMONAT,
     MemCalcTable1:JAHRMONAT_INT := BeAdsQuery1:JAHRMONAT_INT,
     MemCalcTable1:VK_UMSATZ     := BeAdsQuery1:VK_UMSATZ,
     MemCalcTable1:BEZ           := cMonth(stod(BeAdsQuery1:JAHRMONAT + '01')),
     mypost(MemCalcTable1),
     dbskip(1, BeAdsQuery1),
   end,

   // MemTable zusätzlich im Browser anzeigen
   BeAltGrid1.RegisterDataSet := MemCalcTable1,
   BeAltGrid1.ReadWriteProps  := false,

   // Captions setzen
   oForm.OrigCapt := 'Beispielprogramm: TBeDBChart in F12 Masken',
   BeDBChart1.Title.Text := 'Umsätze nach Monaten (' + Str(year(date())) + ')',

   // Chart: Anzeige refreshen
   BeDBChart1.ExecRefreshChart,

   // Formular anzeigen
   ShowModal(oForm),

OnError
   Meld(GetErrorText()),
   DestroyObject( oForm ),
StopSeq,