出版日期：2002-12-16　总期号：498　本年期号：48

本期导读 热点聚焦 零组件 PC天地 数码与外设 软件.net 读者俱乐部 教育信息化 社会培训

Delphi＋Cell全攻略 《中国电脑教育报》雪梅 　　“聪明的程序员用Delphi”，因为Delphi易学易用，很快能够开发出高质量的软件来，备受程序员们青睐。 　　“最聪明的程序员用Delphi+Cell组件”，因为Cell组件是一款优秀的国产报表控件，在Delphi下使用，制作报表更加得心应手、如虎添翼。 　　让我们来看看如何在Delphi中使用Cell组件做简单的报表（即让程序打开一个Cell文件，然后选择表格区的一些数据来做一个功能简单的图表）为例，来体验一下在Delphi下使用Cell组件的全过程。 　　1、引入Cell组件控件 　　当你的计算机安装了Cell组件（在www.cellsoft.cc下载5.0版本）后，在Delphi的主菜单［Component ］→［Import ActiveX Control］下打开如下对话框（如图1）。 　　在列表框中选择“Cell5.0 ActiveX Control module”，单击［Install...］按钮。根据向导一步一步操作，Cell组件就引用到Delphi下了。 　　在Delphi 6下新建一个工程，在面板上打开ActiveX面板组（如图2），其中突起的表格控件就是Cell组件了。 　　2、 构建对象 　　首先，在窗体上放一个Cell组件，调好大小。依次在Cell组件的右边放4个Button按钮，Caption属性分别设为“打开文件”、“创建图表”、“删除图表”和“关闭程序”（如图3）。 　　最后在窗体上放一个OpenDialog控件，设置属性Filter的值（如图4），用来打开CLL文件（Cell组件生成的文件格式为CLL）。 　　3、代码实现 　　Button1的OnClick代码： 　　 begin｛打开华表文件｝ 　　 if opendialog1.Execute then 　　 cell1.OpenFile(opendialog1.FileName,'') ; 　　 end; 　　Button2的OnClick代码： 　　var col1,row1,col2,row2:integer; 　　begin｛选择数据，创建图表｝ 　　cell1.GetSelectRange(col1,row1,col2,row2); 　　cell1.CreateChart(col1,row1,col2,row2,0); 　　end; 　　Button3的OnClick代码： 　　Cell1.DeleteChart(Cell1.GetTopChartIndex(0), 0); 　　｛删除当前图表｝ 　　4、运行程序 　　到此为止整个程序就编好了。现在我们来运行程序： 　　单击［打开文件］按钮，先打开一个CLL文件， 再选中表格区域 ，单击［创建图表］按钮。这样，一个清晰的图表就制作出来了（如图5）。 　　只写了几行代码就能做出这样的功能强大的图表来，简单吧。怎么样？赶快亲自动手试一试吧。