閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1
閺€鎯版閹存劕濮�閺屻儳婀呴弨鎯版>>

正在阅读:Delphi+Cell轻松做报表Delphi+Cell轻松做报表

2004-04-16 10:25 出处:中国电脑教育报 作者:雪梅 责任编辑:sdq

  “聪明的程序员用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)。


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

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品
鎵嬫満璁块棶鍥炲埌椤堕儴