Da die VCL-Version von TeeChart in einer Vielzahl von Entwicklungsumgebungen weit verbreitet und weithin anerkannt ist, entwickelte das spanische Unternehmen Steema Software SL im Oktober 1997 TeeChart Pro ActiveX. Dies ist zweifellos eine gute Nachricht für das B/S-Entwicklungsmodell, da es nur auf der Serverseite installiert werden muss. Statistische Grafiken können daher mit einem allgemeinen Browser angezeigt werden Ins Leben gerufen, erfreut es sich erneut großer Beliebtheit.
Als Nächstes stellen wir die gemeinsamen Eigenschaften und Anwendungen der ActiveX-Komponenten von TeeChart Pro V5 vor, die auf der ASP-Technologie basieren.
Schauen wir uns zunächst ein Beispiel eines zweidimensionalen Balkendiagramms an, das die TeeChart-Komponente zur Anzeige von „vierteljährlichen Umsätzen“ verwendet:
<HTML><BODY>
<%'-----------TeeChartEg.asp--- - --------------------
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Quarterly Sales Statistics"
TChart1.AddSeries( 1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Clear
TChart1.Series(0).Add 180, „1 Quarter“,RGB(35,70,128)
TChart1.Series(0).Add 240, „2 Quarter",RGB(255,80,128)
TChart1.Series(0).Add 210, "3 Quarter",&HFACE87
TChart1.Series(0).Add 280, "4 Quarter",16777215
TChart1.Export.SaveToJPEGFile server.mappath( "MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = Nothing
%>
<img src="MyChart.jpg">
</BODY></HTML>
1) Wie andere ASPs Komponenten Die Verwendungsmethode ist dieselbe. Erstellen Sie zuerst das Objekt.
Setze TChart1 = CreateObject("TeeChart.TChart")
2) Verwenden Sie seine Eigenschaften, um ein statisches statistisches Diagramm anzuzeigen.
TChart1.Header.Text(0)="Vierteljährliche Verkaufsstatistik"
...
TChart1.Series(0).Add 210, „3. Quartal“,&HFACE87
TChart1.Series(0).Add 280, „4. Quartal“,16777215
3 ) Generieren Sie eine statistische Grafikdatei
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
4) Geben Sie das Objekt frei.
Setzen Sie TChart1 = Nothing.
Viele Attribute der Objektklasse in Das obige Beispiel Dies sind alles Standardwerte, und wir können Einstellungen entsprechend bestimmten Umständen hinzufügen. Im Folgenden finden Sie eine detaillierte Einführung in andere allgemeine Eigenschaften der TeeChart-Komponente (aufgelistet in Form von Programmkommentaren).
<HTML> <HEAD><TITLE>Einführung in die Eigenschaftsmethoden des TeeChart-Objekts</TITLE></HEAD>
< BODY>
<%
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Height = 440 'Die Höhe des gesamten Diagramms
TChart1.Width = 500 'Die Breite des gesamten Diagramms'TChart1.Header.Text.Clear
'
TChart1. Header.Text.Add "Quarterly Sales Statistics" 'Charttitel, die Methode kann auch in der Form TChart1.Header.Text(0)="title"
TChart1.Header.Font.Size = 22 'Titelschriftgröße
TChart1. Header.Font.Bold = True 'Ob die Titelschrift
fett istTChart1 .Header.Font.Italic = True ' Ob die Titelschrift kursiv ist
TChart1.Panel.MarginLeft = 3 ' Der linke Rand des Diagramms
TChart1.Panel.Gradient.Visible = True ' Ob es eine Hintergrundfarbe gibt
TChart1.Panel.Gradient.StartColor = &HB3DEF ' Die Farbe des unteren Randes des Diagramms, Startfarbe
TChart1.Panel.Gradient.EndColor = &HFACE87 ' Diagrammhintergrundfarbe, Endfarbe
TChart1.Panel.BevelWidth = 0 ' Leinwandeinrückungsbreite
TChart1.AddSeries(0) ' Die Art und Weise, Grafiken anzuzeigen, der Wertebereich liegt zwischen 1 und 39
TChart1.Aspect.View3D = False ' False stellt 2D-Grafiken dar, True stellt 3D-Grafiken dar
TChart1.Aspect.Chart3DPercent = 10 ' Wenn ja Ist eine 3D-Grafik, stellt sie deren Neigung dar
TChart1.Aspect.Zoom = 100 ' Grafikanzeigeverhältnis
TChart1.Aspect.Orthogonal = TRUE 'Ob das 3D-Diagramm seitwärts gedreht wird
TChart1.Aspect.Rotation = -20 'Wenn das Diagramm seitwärts gedreht wird , der horizontale Drehwinkel beträgt -360~360
TChart1.Aspect.Elevation = 0 'Wenn das Diagramm seitwärts gedreht wird, drehen Sie die Vorder- und Rückseite. Angle -360~360
TChart1.Aspect.Perspective = 0 ' 3D-Grafik-Zentripetal-Aggregationsgrad
TChart1.Aspect .Chart3DPercent = 20 ' 3D-Grafikdicke 1~100
TChart1.Walls.Bottom.Size = 5 ' Wenn es sich um eine 3D-Grafik handelt, gibt sie deren Abszissendicke an.
TChart1.Walls.Bottom.Color = RGB(35,70,128) ' Grundfarbe
TChart1.Walls.Bottom.Transparent = True ' Wenn es sich um eine 3D-Grafik handelt, ob die Basis transparent ist. TChart1.Walls.Back.Pen.Visible = True ' Parameter Ob der Koordinatenrand angezeigt wird
TChart1.Walls.Left.Size = 5 ' Wenn es sich um eine 3D-Grafik handelt, wird deren Ordinatendicke angezeigt.
TChart1.Walls.Left.Color = 8454143 ' Die Ordinatenfarbe
TChart1.Walls.Left.Transparent = True ' Wenn es sich um eine 3D-Grafik handelt, ob die Ordinatenwand transparent ist
TChart1 .Legend.Visible = True ' Ob die Legende angezeigt werden soll
TChart1.Legend.VertSpacing = 9 ' Die Höhe des Legendenrahmens
TChart1.Legend.DividingLines.Visible = False ' Ob es Abstandslinien zwischen den Legenden gibt
'TChart1.Series(0 ) .Clear
'TChart1.Series(0).ColorEachPoint = True
'TChart1.Series(0).Add 180,"1 Quarter",RGB(35,70,128) ' Anzeigedaten statisch zum Diagramm hinzufügen, die Parameter sind numerische Werte in der Reihenfolge ,name,color'TChart1.Series
(0).Add 240, „2 Quarter“,255
'TChart1.Series(0).Add 210, „3 Quarter“,&HFACE87
TChart1.Series(0).Add 280 , "4 Quarter",16777215
TChart1.Axis.Depth.Visibl e= False ' Wenn die Koordinatenachse 3D-transparent ist, ob die Innenwand angezeigt werden soll
TChart1.Axis.DrawAxesBeforeSeries = False ' Ob das Gitter vor dem Diagramm angezeigt wird
TChart1.Axis.Left.Title.Caption = "Ausgabewert (Einheit: 10.000 Yuan)" ' Titel der vertikalen Achse
TChart1.Axis.Left.Title.Font.Bold = True ' Titel der vertikalen Achse, ob fett gedruckt werden soll
TChart1.Axis.Left. Title.Font.Size = 9 ' Titelgröße der vertikalen Achse
TChart1.Axis.Left.Title.Visible = True ' Ob der Name der vertikalen Achse angezeigt werden soll
TChart1.Axis.Left.Labels.Angle = 90 ' Neigungswinkel der Schriftart der vertikalen Achse
TChart1. Axis.Left.GridPen.Visible = True ' Ob die Achse des Abszissenparameters
TChart1.Axis.Bottom.Title.Caption = "Time Axis" anzeigt ' Ob der Titel der Abszissenachse
TChart1.Axis.Bottom.Title.Font.Bold = True ' Ob der Titel der Abszissenachse fett ist.
TChart1.Axis .Bottom.Title.Font.Size= 9 'Titelgröße der Abszissenachse
TChart1.Axis.Bottom.Labels.Angle = 0 'Neigungswinkel der Abszissenschrift 0~360
TChart1.Axis.Bottom. GridPen.Visible = True ' Parameter vertikal Ob die Koordinatenachse
TChart1.Footer.Text.Add "Chart Lower Title" 'Der untere Titel des Diagramms
TChart1.Footer.Font.Size = 11 'Die Schriftgröße des unteren Titels
TChart1 .Footer.Font.Bold = True 'Ob die Schriftart des unteren Titels fett ist
TChart1.Footer.Font.Italic = False 'Ob die Schriftart des unteren Titels kursiv ist
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg") ,False,JPEGBestQuality, 100, TChart1.Width, TChart1.Height 'Exportspeicher
Set TChart1 = Nothing
%>
für die MyChart.jpg-Datei <img src="MyChart.jpg"></BODY></HTML>
Hinweis: 1 Es lohnt sich, die Eigenschaften des grafischen Anzeigemodus von TChart1.AddSeries(0) zu studieren. Interessierte Leser können ihn von 0 bis 39 testen, um ihre ideale Anzeigemethode zu finden.
2. Für Farbreferenzen werden drei Darstellungsmethoden von RGB verwendet, zum Beispiel: RGB(255,255,255) = &HFFFFFF = 16777215. Die spezifische Konvertierungsmethode wird nicht erläutert.
3. Die Eigenschaften von True und False können stattdessen durch 1 und 0 dargestellt werden.
Für das Hinzufügen von Gruppendiagrammen sehen Sie hier ein Beispiel für die Anzeige von zwei Datengruppen.
<%Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Quarterly Sales Volume"'Title
TChart1.AddSeries(1)
TChart1.AddSeries(1)
TChart1.Series(0).Add 180 , „Quarter 1“,RGB(255,255,255)
TChart1.Series(1).Add 240, „Quarter 1“,255
TChart1.Series(0).Add 280, „Quarter 2“,RGB(255,255,255)
TChart1.Series(1 ).Add 200, „2nd Quarter“,255
TChart1.Series(0).Add 150, „3rd Quarter“,RGB(255,255,255)
TChart1.Series(1).Add 320, „3rd Quarter“,255
TChart1.Series( 0).Add 360, "4 Quarters",RGB(255,255,255)
TChart1.Series(1).Add 200, "4 Quarters",255
TChart1.Series(0).Marks.Visible = True ' Ob der Datentitel angezeigt werden soll
TChart1. Series(0).Marks.Style = 0 'Datenanzeigestil 0~9, 0 ist numerischer Wert, 1 ist Prozentsatz...
TChart1.Series(1).Marks.Style=0
TChart1.Export.SaveToJPEGFile Server. mappath("MyChart .jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = Nothing
%>
Die beiden obigen Beispiele generieren statisch statistische Ergebnisse und zeigen sie dann an. In der tatsächlichen Arbeit wird jedoch eine dynamischere statistische Datenanzeige aus der vorhandenen Datenbank gelesen. Nachfolgend geben wir ein Beispiel für die Verwendung von ADO, um eine direkte Verbindung zur Access-Datenbank herzustellen und die Ergebnisse dynamisch anzuzeigen. Die Datenbank ist (test.mdb) und die beiden Spalten der Tabelle sind Spaltenname und Spaltenwert. Dies sind der Monatsname und die entsprechenden statistischen Daten, Spaltenname (Januar, Februar,...), Spaltenwert (103, 210,...):
<%Dim OutputStream
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header . Text(0)="Quarterly Sales Volume"'Title
TChart1.AddSeries(0)'Der Stilwert der angezeigten Grafiken ist 1~39, siehe unten
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rst= Server.CreateObject( "ADODB.Recordset")
Conn.Open "driver={microsoft access drivers (*.mdb)};dbq="&server.mappath("zcw.mdb")
strsql = "select * from test"
Rst. Öffnen Sie strsql,conn ,1,1
IF rst.RecordCount > 0 THEN
TChart1.Series(0).Datasource = rst
TChart1.Series(0).LabelsSource="colname"
TChart1.Series(0).YValues.ValueSource="colvalue "
ELSE
TChart1. Series(0).Fillsamplevalues(12)
TChart1.Header.Text(0)="Keine Ergebnisse, Daten werden zufällig angezeigt"
END IF
TChart1.Series(0).Marks.Visible=True
TChart1.Series(0) .Marks.Style =4
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = Nothing
Rst.Close
Set Conn = Nothing
%> <img src="MyChart .jpg">
Die oben genannten drei Beispiele werden alle nach der Generierung statischer JPG-Bilddateien angezeigt. Wenn das Speichern der Browsing-Ergebnisse keinen Sinn macht, können wir sie mit PNG (Portable Network Graphics) anzeigen.
<% Dim ChartType, OutputStream, ViewType
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.AddSeries(0)
Chart1.Series(0).FillSampleValues 20 ' Daten nach dem Zufallsprinzip generieren
OutputStream=Chart1.Export.asPNG.SaveToStream
Set Chart1= Nothing
Response.Binarywrite OutputStream
%>
Das Obige ist eine kurze Einführung in die Kombination von TeeChart-Komponentenattributen und ASP-Technologie. Ich hoffe, dass es für alle hilfreich ist. Eine kostenlose Testversion von Teechart Pro ActiveX kann unter http://www.steema.com/download/Downloadindex.htm heruntergeladen werden. Codebeispiele für die Kombination von TeeChart mit Asp finden Sie unter http://www.steema.com/products/teechart/asp/ASPHome.htm .