电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> delphi技术>>Delphi+Cell轻松做报表:

Delphi+Cell轻松做报表

来源:www.cncfan.com | 2006-1-10 | (有2460人读过)

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

点击打开新窗口


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

delphi技术热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号