Delphi＋Cell轻松做报表 - DELPHI基础教程 - 新闻中心 - PHP168整站系统 powered by www.php168.com

文章内容

“聪明的程序员用Delphi”，因为Delphi易学易用，很快能够开发出高质量的软件来，备受程序员们青睐。

“最聪明的程序员用Delphi+Cell组件”，因为Cell组件是一款优秀的国产报表控件，在Delphi下使用，制作报表更加得心应手、如虎添翼。

让我们来看看如何在Delphi中使用Cell组件做简单的报表（即让程序打开一个Cell文件，然后选择表格区的一些数据来做一个功能简单的图表）为例，来体验一下在Delphi下使用Cell组件的全过程。

引入Cell组件控件

当你的计算机安装了Cell组件（在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）。

只写了几行代码就能做出这样的功能强大的图表来，简单吧。怎么样？赶快亲自动手试一试吧。

【