“聪明的程序员用Delphi”,因为Delphi易学易用,很快能够开发出高质量的软件来,备受程序员们青睐。
“最聪明的程序员用Delphi+Cell组件”,因为Cell组件是一款优秀的国产报表控件,在Delphi下使用,制作报表更加得心应手、如虎添翼。
让我们来看看如何在Delphi中使用Cell组件做简单的报表(即让程序打开一个Cell文件,然后选择表格区的一些数据来做一个功能简单的图表)为例,来体验一下在Delphi下使用Cell组件的全过程。
引入Cell组件控件
当你的计算机安装了Cell组件(在http://www.cellsoft.com/下载5.0版本)后,在Delphi的主菜单[Component ]→[Import ActiveX Control]下打开如下对话框(如图1)。
在列表框中选择“Cell5.0 ActiveX Control module”,单击[Install...]按钮。根据向导一步一步操作,Cell组件就引用到Delphi下了。
在Delphi 6下新建一个工程,在面板上打开ActiveX面板组(如图2),其中突起的表格控件就是Cell组件了。
构建对象
首先,在窗体上放一个Cell组件,调好大小。依次在Cell组件的右边放4个Button按钮,Caption属性分别设为“打开文件”、“创建图表”、“删除图表”和“关闭程序”(如图3)。
最后在窗体上放一个OpenDialog控件,设置属性Filter的值(如图4),用来打开CLL文件(Cell组件生成的文件格式为CLL)。
代码实现
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); {删除当前图表}
运行程序
到此为止整个程序就编好了。现在我们来运行程序:
单击[打开文件]按钮,先打开一个CLL文件, 再选中表格区域,单击[创建图表]按钮。这样,一个清晰的图表就制作出来了(如图5)。
只写了几行代码就能做出这样的功能强大的图表来,简单吧。怎么样?赶快亲自动手试一试吧。