当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： 作为一个开发各种信息系统的程序员，写报表是家常便饭的事，以至于曾经写个一个为报表而报表的项目^_^我用过报表的控件不多，用过Quick Report，Rave Report还有以前用VB时用过十分低版本的Crystal Report，当然还有这篇文章的主角Excel。

 

 

在Delphi中创建的简单的Excel报表类

作为一个开发各种信息系统的程序员,写报表是家常便饭的事,以至于曾经写个一个为报表而报表的项目^_^ 【程序编程相关:中科软科技股份有限公司(borland软】

【推荐阅读:快速导出数据到Excel（一）：利用剪贴】

我用过报表的控件不多,用过quick report,rave report还有以前用vb时用过十分低版本的crystal report,当然还有这篇文章的主角excel.excel做报表有什么好处与坏处.我就不说了,大家都明白.（写了浪费大家时间） 【扩展信息:Delphi关于线程的消息处理】

在delphi中有专门的控件去调用word.excel等的office组件.但这些控件的功能太多了,之间又有不少的联系,如果只是为调用excel生成报表的话,我觉得还不如我自己这个类方便.

我先来介绍一下我这个类的用法,各位看官,主看以下代码:

procedure tform1.formcreate(sender: tobject);

begin

  afer := tflexexcelreport.create;

  afer.modelfile := extractfilepath(application.exename) + book1.xls;

end;

procedure tform1.formdestroy(sender: tobject);

begin

  afer.free;

end;

procedure tform1.button2click(sender: tobject);

var

  p1, p2 : tpoint;

begin

  p1.x := 2;

  p1.y := 3;

  p2.x := 10;

  p2.y := 20;

  afer.connect;

  afer.cells[1, 2] := flexexcelreport test;

  afer.selectcell(1, 2);

  afer.copy;

  afer.selectrange(p1, p2);

  afer.paste;

  afer.selectcell(1, 2);

  afer.clear;

  afer.setprintarea(p1, p2);

end;

程序运行后,点击button2,就会马上创建一个excel的实例,这个实例是以book1.xls为模板来打开的,打开后excel会自动把这个文档命名为book11.然后在1,2这个格里面填入内容,选择这个格子,复制,跟着选择2,3 －10,20这个区域,把刚才复制在剪贴板的内容复制进去.接下来就清除掉1,2中的内容,最后设置打印区域.

每次点击button2都会重复上面的操作.反正用户点击多少次button2,就会生成多少个excel的实例.
...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：