teechart vcl 版本廣泛應用于多種開發環境并得到很好的認可，西班牙steema software sl公司于1997年10月又開發了teechart pro activex。對于b/s的開發模式無疑是一個好消息，由于它只需安裝在服務器端，客戶端無需安裝其他軟件，只要使用通用瀏覽器即可顯示統計圖形。
一、常數應用（靜態法）
結合asp技術介紹一下teechart pro v5 activex組件常用屬性及應用。
先來看一個以teechart組件來顯示"月產量"情況的二維柱狀圖實例：
<html><body>
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月",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 server.mappath("mychart.jpg"),false,jpegbestquality,100,tchart1.width, tchart1.height
4）釋放對象
; set tchart1 = nothing
上例中對象類的很多屬性都是默認值，我們可以根據具體情況進行添加設置。下面詳細介紹一下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 "季度銷售量統計" ' 圖表標題，方式也可采用 tchart1.header.text(0)="標題"形式
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月",rgb(35,70,128) ' 靜態向圖表中添加顯示數據,參數依次為數值大小,名稱,顏色
; 'tchart1.series(0).add 240, "2月",255
'tchart1.series(0).add 210, "3月",&hface87
tchart1.series(0).add 280, "4月",16777215
tchart1.axis.depth.visibl e= false ' 坐標軸是3d透明時，是否顯示內壁
tchart1.axis.drawaxesbeforeseries = false ; ' 網格是否顯示在圖的前
tchart1.axis.left.title.caption = "產量(T)" ' 縱坐標軸標題
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 = "時間軸" ' 橫坐標軸標題
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文件
set tchart1 = nothing
%> <img src="mychart.jpg">
</body></html>
注：1. tchart1.addseries(0)圖形顯示方式的屬性,可以從0~39測試一下，找到理想的顯示方式。
2.對于顏色的引用，采用rgb三種表示方法，例如：rgb(255,255,255) = &hffffff = 16777215。具體的換算方法不在說明。
3.屬性為true和false的可以用1和0替代表示。
對于組圖的添加，下面列舉一個顯示二組數據的例子。
<%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月",rgb(255,255,255)
tchart1.series(1).add 200, "4月",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 server.mappath("mychart.jpg"),false,jpegbestquality,100,tchart1.width, tchart1.height
; set tchart1 = nothing
%>
二、動態法
在實際工作中，通常是從現有的數據庫中統計數據。例子：利用ado連接access數據庫。數據庫為（dba04.mdb），表的兩列為NY，ycyl。（NY=200401，200402，……），ycyl（103，210，……）：
<%dim outputstream
set tchart1 = createobject("teechart.tchart")
tchart1.header.text(0)="月產量"'標題
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"
rst.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
set tchart1 = nothing
rst.close
set conn = nothing
%> <img src="mychart.jpg">
以上的三個實例都是生成靜態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
%>
慧都2010促銷季開幕，TeeChart for .NET 8折促銷！詳情咨詢：400-700-1020或023-66090381活動詳情：//ke049m.cn/zh-CN/Products_cn/TeeChart_chinese.html
標簽：
本站文章除注明轉載外，均為本站原創或翻譯。歡迎任何形式的轉載，但請務必注明出處、不得修改原文相關鏈接，如果存在內容上的異議請郵件反饋至chenjj@ke049m.cn
文章轉載自：網絡轉載
半島外圍網上直營 
137次
相關產品
正式授權
最新文章 
半島外圍網上直營相關的文章 
微信
在線咨詢
渝公網安備
50010702500608號
客服熱線