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