TeeChart VCL バージョンはさまざまな開発環境で広く使用され、よく知られているため、スペインの Steema Software SL 会社が 1997 年 10 月に TeeChart Pro ActiveX を開発しました。 B/S 開発モデルにとっては間違いなく朗報です。クライアントは他のソフトウェアをインストールする必要がなく、一度インストールすれば統計グラフィックスを表示できます。が発売され、再び大好評を得ています。
次に、ASP テクノロジに基づいた TeeChart Pro V5 ActiveX コンポーネントの共通プロパティとアプリケーションを紹介します。
まず、TeeChart コンポーネントを使用して「四半期売上高」を表示する 2 次元棒グラフの例を見てみましょう。
<HTML><BODY>
<%'-----------TeeChartEg.asp--- - --------------------
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="四半期売上統計"
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四半期",RGB(255,80,128)
TChart1.Series(0).Add 210, "3 四半期",&HFACE87
TChart1.Series(0).Add 280, "4 四半期",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) 他の ASP と同じコンポーネント 使用方法は同じで、最初にオブジェクトを作成します。
Set TChart1 = CreateObject("TeeChart.TChart")
2) そのプロパティを使用して、静的な統計グラフを表示します。
TChart1.Header.Text(0)="四半期売上統計"
...
TChart1.Series(0).Add 210, "第 3 四半期",&HFACE87
TChart1.Series(0).Add 280, "第 4 四半期",16777215
3
)
統計グラフィック ファイル
TChart1.Export.SaveToJPEGFile
を生成し
ます。
上記の例 これらはすべてデフォルト値であり、特定の状況に応じて設定を追加できます。以下は、TeeChart コンポーネントのその他の共通プロパティの詳細な紹介です (プログラム コメントの形式でリストされています)
<HTML> <HEAD><TITLE>TeeChart オブジェクトのプロパティ メソッドの紹介</TITLE></HEAD>
< BODY>
<%
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Height = 440 'チャート全体の高さ
TChart1.Width = 500 'チャート全体の幅 'TChart1.Header.Text.Clear
'
TChart1.
Header.Text.Add "Quarterly Sales Statistics" 'グラフのタイトル、メソッドは TChart1.Header.Text(0)="title"TChart1.Header.Font.Size = 22 'タイトルのフォント サイズ
TChart1の形式にすることもできます
。 Header.Font.Bold = True 'タイトルのフォントが
ボールドかどうかTChart1 .Header.Font.Italic = True 'タイトルのフォントがイタリックかどうか
TChart1.Panel.MarginLeft = 3 'チャートの左マージン
TChart1.Panel.Gradient.Visible = True ' 背景色の有無
TChart1.Panel.Gradient.StartColor = &HB3DEF ' チャートの下部の色の開始色
TChart1.Panel.Gradient.EndColor = &HFACE87 ' チャートの背景色終了色
TChart1.Panel.BevelWidth = 0 'キャンバスのインデント幅
TChart1.AddSeries(0) ' グラフィックの表示方法、値の範囲は 1 ～ 39
TChart1.Aspect.View3D = False ' False は 2D グラフィックを表し、True は 3D グラフィックを表します
TChart1.Aspect.Chart3DPercent = 10 ' の場合は 3D グラフィックスであり、その傾きを表します
TChart1.Aspect.Zoom = 100 ' グラフィック表示率
TChart1.Aspect.Orthogonal = TRUE ' 3D チャートを横に回転させるかどうか
TChart1.Aspect.Rotation = -20 ' チャートを横に回転させる場合、水平方向の回転角度は -360 ～ 360
TChart1.Aspect.Elevation = 0 ' チャートを横に回転させる場合は前後に回転角度 -360 ～ 360
TChart1.Aspect.Perspective = 0 ' 3D グラフィックスの求心集約度
TChart1.Aspect .Chart3DPercent = 20 ' 3D グラフィックスの厚さ 1~100
TChart1.Walls.Bottom.Size = 5 ' 3D グラフィックの場合、横軸の厚さを示します
TChart1.Walls.Bottom.Color = RGB(35,70,128) ' ベースカラー
TChart1.Walls.Bottom.Transparent = True ' 3Dグラフィックの場合、ベースが透明かどうか TChart1.Walls.Back.Pen.Visible = True ' パラメータ 座標枠を表示するかどうか
TChart1.Walls.Left.Size = 5 ' 3D グラフィックの場合、縦座標の厚さを示します
TChart1.Walls.Left.Color = 8454143 ' 縦座標の色
TChart1.Walls.Left.Transparent = True ' 3D グラフィックの場合、縦座標の壁が透明かどうか
TChart1 .Legend.Visible = True ' 凡例を表示するかどうか
TChart1.Legend.VertSpacing = 9 ' 凡例フレームの高さ
TChart1.Legend.DividingLines.Visible = False ' 凡例間に空白線があるかどうか
'TChart1.Series(0 ) .Clear
'TChart1.Series(0).ColorEachPoint = True
'TChart1.Series(0).Add 180,"1 Quarter",RGB(35,70,128) ' 表示データをチャートに静的に追加します。パラメータは数値です。順番に、名前、色'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 ' 座標軸が3D透明の場合、内壁を表示するかどうか
TChart1.Axis.DrawAxesBeforeSeries = False ' グラフの前面にグリッドを表示するかどうか
TChart1.Axis.Left.Title.Caption = "出力値（単位：万元）" ' 縦軸タイトル
TChart1.Axis.Left.Title.Font.Bold = True '
TChart1.Axis.Left を太字にするかどうか。 Title.Font.Size = 9 ' 縦軸のタイトルサイズ
TChart1.Axis.Left.Title.Visible = True ' 縦軸の名前を表示するかどうか
TChart1.Axis.Left.Labels.Angle = 90 ' 縦軸のフォントの傾き角度
TChart1. Axis.Left.GridPen.Visible = True ' 横軸パラメータ軸に表示するかどうか
TChart1.Axis.Bottom.Title.Caption = "Time Axis" ' 横軸のタイトルを表示するかどうか
TChart1.Axis.Bottom.Title.Font.Bold = True '横軸のタイトルを太字にするかどうか
TChart1.Axis .Bottom.Title.Font.Size= 9 '横軸のタイトル サイズ
TChart1.Axis.Bottom.Labels.Angle = 0 '横軸のフォントの傾き角度 0~360
TChart1.Axis.Bottom。 GridPen.Visible = True ' パラメータ 垂直方向 座標軸を表示するかどうか
TChart1.Footer.Text.Add "グラフ下部タイトル" 'グラフ下部タイトル
TChart1.Footer.Font.Size = 11 '下部タイトルのフォント サイズ
TChart1 .Footer.Font.Bold = True '下部タイトルのフォントが太字かどうか
TChart1.Footer.Font.Italic = False '下部タイトルのフォントが斜体かどうか
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg")
,False,JPEGBestQuality, 100, TChart1.Width, TChart1.Height 'MyChart.jpg ファイル <img src="MyChart.jpg"></BODY></HTML>
のストレージをエクスポートします
TChart1 = nothing
%>
を設定します注: 1 TChart1.AddSeries(0) のグラフィック表示モードのプロパティは、興味のある方は 0 から 39 までテストして、理想的な表示方法を見つけることができます。
2. カラー参照には、RGB の 3 つの表現方法が使用されます。例: RGB(255,255,255) = &HFFFFFF = 16777215。具体的な変換方法については説明しておりません。
3. True と False のプロパティは、代わりに 1 と 0 で表すことができます。
グループグラフの追加について、2つのグループのデータを表示する例を示します。
<%Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="四半期売上高"'タイトル
TChart1.AddSeries(1)
TChart1.AddSeries(1)
TChart1.Series(0).Add 180 , "四半期 1",RGB(255,255,255)
TChart1.Series(1).Add 240, "四半期 1",255
TChart1.Series(0).Add 280, "四半期 2",RGB(255,255,255)
TChart1.Series(1) ).Add 200, "第 2 四半期",255
TChart1.Series(0).Add 150, "第 3 四半期",RGB(255,255,255)
TChart1.Series(1).Add 320, "第 3 四半期",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 ' データタイトルを表示するかどうか
TChart1.Series(0).Marks.Style = 0 'データ表示スタイル 0～9、0は数値、1はパーセント...
TChart1.Series(1).Marks.Style=0
TChart1.Export.SaveToJPEGFileサーバー。 mappath("MyChart .jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = nothing
%>
上記の 2 つの例は、統計結果を静的に生成して表示します。ただし、実際の作業では、より動的な統計データ表示は既存のデータベースから読み込まれます。以下に、ADO を使用して Access データベースに直接接続し、結果を動的に表示する例を示します。データベースは (test.mdb) で、テーブルの 2 つの列はcolnameとcolvalueです。これらは、月の名前と、対応する統計データの列名 (1 月、2 月、...)、列値 (103、210、...) です:
<%Dim OutputStream
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header Text(0)="四半期売上高"'Title
TChart1.AddSeries(0)'表示されるグラフィックのスタイル値は 1 ～ 39 です。以下を参照してください。
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rst= Server.CreateObject( "ADODB.Recordset")
Conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("zcw.mdb")
strsql = "select * from test
" Open 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)="結果なし、データをランダムに表示します"
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
TChart1 = なしを設定
Rst.Close
Conn = なしを設定
%> <img src="MyChart .jpg">
上記 3 つの例はすべて、静的な JPG 画像ファイルを生成した後に表示されます。閲覧結果を保存する価値がない場合は、PNG (Portable Network Graphics) を使用して表示できます。
<% Dim ChartType, OutputStream, ViewType
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.AddSeries(0)
Chart1.Series(0).FillSampleValues 20 ' データをランダムに生成
OutputStream=Chart1.Export.asPNG.SaveToStream
Set Chart1= Nothing
Response.Binarywrite OutputStream
%>
上記は、TeeChart コンポーネントの属性と ASP テクノロジの組み合わせについて簡単に説明したものであり、皆様のお役に立てば幸いです。 Teechart Pro ActiveX の無料試用版は、 http://www.steema.com/download/Downloadindex.htmからダウンロードできます。 TeeChart と Asp を組み合わせたコード例については、 http://www.steema.com/products/teechart/asp/ASPHome.htmを参照してください。