浅谈TeeChart组件在ASP中的应用(1) - 中国站长下载,源码下载,站长工具下载

     由于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("http://www.aspcool.com/lanmu/MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height

   Set TChart1 = nothing

  %>

  <img src="http://www.aspcool.com/lanmu/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("http://www.aspcool.com/lanmu/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 = "产值(单位:万元)" ' 纵坐标轴标题

   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("http://www.aspcool.com/lanmu/MyChart.jpg"),False,JPEGBestQuality, 100 , TChart1.Width , TChart1.Height '导出存储为http://www.aspcool.com/lanmu/MyChart.jpg文件

   Set TChart1 = nothing

  %> <img src="http://www.aspcool.com/lanmu/MyChart.jpg">

  </BODY></HTML>




   做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。

软件：	ASP 源码 \| .NET源码 \| PHP 源码 \| JSP 源码 \| CGI 源码 \| 网页模板 \| 网页素材 \| 字体下载 \| 工具软件 \| 服务器类 \| 书籍教程
文章：	网页编程 \| 网页制作 \| 数据库区 \| 服务器区 \| 网络安全 \| 网站运营 \| 图形图象




中国站长下载	本页只接受PR>=4 IT类站点连接,申请连接,谢谢您们的支持!希望我们的下载站能够真正帮到中国的站长们！
	关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 Copyright © 2005-2006 ChinaZhan.Net. All Rights Reserved .