当前位置: 首页 > 图文教程 > 网络编程 > ASP > 浅谈TeeChart组件在ASP中的应用

ASP
二文件上传,才30行代码
用ASP制作在线测试
三级下拉框连动的数据库版
用户注册及跟踪代码(一)
用户注册及跟踪代码(二)
用户注册及跟踪代码(三)
ASP.Net写的浏览器间谍
ASP实现播放Flash的例子
用DataList控件开发一个简单的留言本程序
aspemail组件的应用
编写数据库脚本
用ASP建立邮件列表
用ASP技术编制隐藏用户密码程序
用ASP统计用户在站点的停留时间
HTTP方式上载文件的ASP程序实例
使用VB编写纯ASP程序
用ASP统计用户在站点的停留时间(1)
用ASP统计用户在站点的停留时间(2)
用ASP实现论坛的UBB功能(一)
用ASP实现论坛的UBB功能(二)

浅谈TeeChart组件在ASP中的应用


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 50 ::
收藏到网摘: n/a

 

      由于TeeChart VCL 版本广泛应用于多种开发环境并得到很好的认可,西班牙Steema Software SL公司于1997年10月又开发了TeeChart Pro ActiveX。对于B/S的开发模式无疑是一个好消息,由于它只需安装在服务器端,客户端无需安装其他软件,只要使用通用浏览器即可显示统计图形,因此一面市更是又一次得到极大的欢迎。

       下面我们结合ASP技术介绍一下TeeChart Pro V5 ActiveX组件常用属性及应用。

       我们先来看一个以TeeChart组件来显示"季度销售量"情况的二维柱状图实例:

<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季度",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="/upload/tech/20091103/20091103101446_e6b4b2a746ed40e1af829d1fa82daa10.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            ' 标题字体是否粗体

     &nbs