Web统计图表解决方案

徐长友
        随着Internet技术的兴起,B/S结构的程序出现得越来越多,在Web上实现统计图表的方法有很多,相对于一般的应用程序实现比较难些。本文主要介绍Web统计图表的实现方法,对各种信息进行统计和分析,为提供决策依据,形象地表现分析结果,让信息用柱状图、折线图和圆饼图等结合数据仓库旋转分析以直观的形式表现出来!我们很多项目中都需要用到图表,查看了网上一些文章,B/S结构中大多使用了MS chart、shortGraph、Aspchart等组件实现,这些组件大多都是国外软件公司开发的,且需要Money才行,最终的效果看起来并不怎么样(个人觉得),并且有很一些缺点,如MS chart客户端得装有Office才行,否则无法使用。另外还有一些使用Applet实现的,如Java chart工具包,这个工具包是Java写的,适用于支持Java Applet的浏览器,如果不用Java的话,一般的应用程序很难使用它们。
    本文就提供一统计图表解决方案给你,当然你完全可以用于所有支持ActiveX的地方,不只是Web中。看完本文,我想你也能通过ASP、VBScript、Javascript来完成统计图表。最重要的是你可以写上 Copyright(C),yourcompany...,客户端让浏览器自动下载注册,无需安装。
     下面就用Delphi简单的开发一个可以在浏览器上生成统计图表的ActiveX(用BCB开发是一样的,只是代码有点点不同而已):
    首先,打开Delphi,通过菜单File->new,在New items中选取Acitvex Form,在AcitveForm winzard中New AcitveX Name输入自定名: 如Mychart,下面的选项可以根据需要自行选定,这里只选取Include AboutBox, 这样delphi会自动生成一个关于对话框。 在Mychart窗口中放置一个Tchart组件,Tchart增加一个Bar形的Series,具体的情况可以自行设定,本文只做简单的介绍, 建议用方法动态生成Series。
    在菜单view->Type Libary ,这里分别添加两个方法:
 Add_data和Clear_data,作用分别是添加数据和清除数据。
 Add_data方法中添加两个参数(ANum,类型:double, AName,类型:BSTR, Modifier 都设为in)
 代码如下:
 
   procedure TMychart.Add_data(ANum:Double;const AName:WideString);
   begin
         Series1.Add(ANum,AName,clteeColor);
   end;
 
   procedure TMychart.Clear_data;
   begin
         Series1.clear;
   end;
 
 设置一下Aboutbox,在Mychart窗口中加入一个TPopupMenu,用户弹出菜单看到关于对话框。 添加一个Menuitem设置Caption:="关于(&A)...", onclick代码如下:
    procedure TMychart.PM_AboutClick(sender:TObject);
    begin
          showMychartAbout;
    end;
  作用是显示关于对话框然后设置TChart的PopupMenu设置为加个的TPopupMenu就可以了!
 如果工程名没有更改的,编译一下生成MychartProj1.ocx,注册这个控件就可以使用了。
对于浏览器,可以用下面方法让其它自动注册它:
 Delphi中通过Project->Web Deloyment Options设置Web发布选项,简单设置如下:
  Target dir:  c:/document and settings/administrator/桌面/chart/html
  Target URL:  .
  Html dir  :  c:/document and settings/administrator/桌面/chart/html
然后通过菜单 project -> web Deploy 在 c:/document and settings/administrator/桌面/chart/html 目录下生成两个文件,一个html,另一个ocx文件。
  这里更改一下HTML文件加上个ID=mychart1,后面加些VBScript代码,如下:
  <HTML>
  <H1> Delphi 5 AcitveX Test Page </H1> <P>
  You should see you Delphi 5 forms or controls embedded in the form below
<HR><center><P>
<OBJECT id=mychart1
  classid="clsid:B977D48F1-4DDA-4F00-9781-EC7BA3278CBD"
  codebase=" ./MychartProj1.oxc#version=1,0,0,0"
  width=538
  height=350
  align=center
  hspace=0
  vspace=0
>
</OBJECT>
<script language=VBScript>
    mychart1.Add_data 110,"1月"
    mychart1.Add_data 180,"2月"
    mychart1.Add_data 120,"3月"
    mychart1.Add_data 100,"4月"
    mychart1.Add_data 80,"5月"
    mychart1.Add_data 90,"6月"
    mychart1.Add_data 110,"7月"
    mychart1.Add_data 109,"8月"
    mychart1.Add_data 108,"9月"
    mychart1.Add_data 78,"10月"
    mychart1.Add_data 99,"11月"
    mychart1.Add_data 101,"12月"
</script>
 
保存后再用浏览器打开HTML文件, 怎么样?这个Chart还行吧!
然后打开VB再试试,代码与上面的VBS一样.
 
在ASP中使用和HTML类似,你可通过ASP取出数据,然后使用Add_data方法。
 
Delphi中的Chart功能非常强大,你完全可以开发适合自己需要的统计图表控件,上面只是一个简简单单的示例。
相关推荐

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 1

打赏作者

yousoft2013

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值