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

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

   Set TChart1 = nothing

  %>

   以上两个例子都是静态的产生统计结果，然后显示。然而在实际工作中，更多的是从现有的数据库中读取动态的统计数据显示。下面我们举一个利用ADO直接连接Access数据库，动态显示结果的例子。数据库为（test.mdb），表的两列为colname，colvalue。分别为月份名称和对应的统计数据colname（1月份，2月份，……），colvalue（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("http://www.aspcool.com/lanmu/MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height

  Set TChart1 = nothing

  Rst.Close

  Set Conn = nothing

  %> <img src="http://www.aspcool.com/lanmu/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

  %>

   以上是对TeeChart组件属性与ASP技术结合的简单介绍，希望对大家有所帮助。Teechart Pro ActiveX免费试用版本可从http://www.steema.com/download/Downloadindex.htm下载。关于TeeChart与Asp结合的代码示例可参阅http://www.steema.com/products/teechart/asp/ASPHome.htm
   做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。

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




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