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

ASP
很不错的一个UBB代码
获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP
无组件生成缩略图
如何远程调用ACCESS数据库[要求加精!!]
也谈采集入库的技术
asp打包类
分页类,异常类
ASP用JMail、CDO发送邮件
保存远程图片函数修改正版
图片自动保存到本地并利用aspjpeg为图片加水印
改进 ASP 的字符串处理性能
简单分页函数一 常用
LINE9的目录浏览源程序
使用XMLDOM在不支持FSO的服务器上
[原创]本人常用的asp代码
生成所有页面的效果+分页生成
[原创]asp+fso在线管理图片功能
ASPJPEG学习手记
ASP代码的对象化
[原创]关于Script的Defer属性

浅谈TeeChart组件在ASP中的应用


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 199 ::
收藏到网摘: 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