利用Ｅｘｅｃｌ给程序增加统计图表功能.docVIP

利用Ｅｘｅｃｌ给程序增加统计图表功能 　　摘要：软件中增加统计图表分析功能能够更加直观、友好，通过一个delphi+Acess的简单实例，介绍了一种用尽量少的代码中利用Execl已有丰富多彩的图表分析功能来实现这个功能。 　　关键词：delphi；Acess；数据库；统计分析；图表 　　中图分类号：TP311.52文献标识码：A文章编号：1009-3044(2008)35-2439-01 　　Using Execl for Program Increase Statistical Chart 　　ZHUANG Xiao-gang 　　(Changzhou Pharmaceutical Co., Ltd., Changzhou 213003, China) 　　Abstract: In the software increases the statistical graph analysis function to be able to be more direct-viewing, to be friendly, through a delphi Acess simple example, introduced one kind had the richly colorful graph analysis function with as far as possible few codes in using Execl to realize this function. 　　Key words: delphi; acess; datebase; statistical analysis; graph 　　 　　1 引言 　　 　　在企业管理中，利用计算机辅助分析统计是必不可少的工作。如果分析结果能够以类似Execl统计分析图（比如柱状图、饼图等）的形式出现，无疑将更加直观、生动。当然，几乎所有的编程语言也都提供了这样的图表功能或者控件。但是，相对来说功能比较简单，很多复杂的图表分析很难实现，而比较好的一些商业控件又价格不菲。其实Execl做为一个成熟而又应用广泛的应用软件早已被广大应用人员接受，它的图表分析功能以及制作也比较简单，基本足够满足一般用户的需要，于是我们想到利用Execl来给我们的程序增加统计图表功能。并已应用于我们实际的系统。 　　 　　2 具体实现 　　 　　下面给出示例： 　　第一部分，Execl和Acess的处理。 　　第一步：准备测试数据库test.mdb 其中“明细表”是我们的模拟数据。 　　第二步：打开test.mdf 新建查询：Select 月份,Sum(销售额) as 月销售额 Into月份汇总 From明细表 Group by 月份 Order by月份执行，会看见新建了一张名为“月份汇总”数据表。无需保存新建的查询，关闭并退出Acess。 　　第三步：新建Execl文件，激活sheet1（缺省打开就已经激活了），选中A、B两列。在“数据”→“导入外部数据” →“导入数据”中选择我们的测试数据库test.mdb，选中其中的“月份汇总”。在Execl 的A、B两列将看见数据。 　　第四步：在Execl 中利用图表向导 制作需要的统计图，这里我们仅制作最简单的柱状图，基本完全使用系统缺省的设置。大家也可以根据自己需要制作饼图、折线图、星空图等。保存为月份汇总.xls文件。这个就是我们的月份汇总模版。 　　第二部分，是程序编制部分，相当简单。 　　新建一个程序放置数据控件ADOConnection和ADOQuery各一个，按钮控件Button 2个，如下图1所示。 　　 　　图1 　　ADOConnection1中ConnectionString的值置为： 　　Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False 　　ADOQuery1中Connection=ADOConnection1 　　双击Button1写入如下代码： 　　self.ADOConnection1.Connected:=true; 　　with self.ADOQuery1 do 　　begin 　　Active:=false; 　　SQL.Clear; 　　SQL.Add(Select * From MSysObjects Where Flags=0 AND Type=1 AND name =月份汇总); 　　Active:=true; 　　if not IsEmpty then 　　begin 　　Active:=false; 　　SQL.