Delphi控制Excel自动生成报表

2016-01-29 14:24 81 1 收藏

Delphi控制Excel自动生成报表,Delphi控制Excel自动生成报表

【 tulaoshi.com - Delphi 】

  关键字:Delphi,Excel,报表

  1 引言

  数据报表作为企事业单位上报和下达的重要信息载体,随着信息化建设的不断推进,在实际的工作中得到了前所未有的应用。因此,数据报表已经成为管理信息系统中重要的一项功能,并且,由于数据的多样性和统计信息的增加,数据报表的系统实现变得越来越复杂。

  Delphi是一个高效的可视化数据库管理信息系统开发工具,.但是Delphi开发环境中提供的报表控件在制作复杂报表时显得不够理想,不管是以前版本提供的Quick Report控件组,还是Delphi 7提供的Rave控件组,都不能让用户对生成的报表进行改动,且程序控制很难实现。Excel作为现代办公常用的电子表格制作工具,以它的易操作性和实用性,得到了各行业办公人员的青睐。本文根据实际应用实践,介绍利用Delphi编程控制Excel生成报表的各种方法。

  2 Delphi控制Excel的方法

  2.1 创建Excel文件

  要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。
创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:

function createExcel:variant;
var
 v:variant;
 sheet:variant;
begin
 v:=createoleobject(Excel.Application);//创建OLE对象
 v.visible:=true;
 v.workbooks.add(-4167); //添加工作表
 v.workbooks[1].sheets[1].name:=test;
 sheet:=v.workbooks[1].sheets[test];
 return v;
end;

  2.2 数据表格控制

  Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。

  (1)数据的导入(importData)

procedure importData;
var
 I,j:integer;
 v:variant;
begin
 v:=createExcel; //创建Excel文件test
 for I:=0 to maxcolumn do
  begin
   for j:=0 to maxrow do
    v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据
   end;
 end;

  (2)单元格的合并、边框的控制(lineStylecontrol)

  单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。

procedure lineStylecontrol;
var
 v,sheet,range:variant;
begin
 v:=createExecl;
 sheet:= v.workbooks[1].sheets[1];
 range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格
 range.select;
 range.merge; //合并单元格
 range.borders.linestyle:=xlcontinuous; //置边框线可见
 range.font.size:=9; //改变表格内文本字体大小
end;

  (3)表格的复制与粘贴(copyandPaste)

procedure copyandPaste;
var
 v,sheet,range:variant;
begin
 v:=createExecl;
 sheet:= v.workbooks[1].sheets[1];
 range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];
 range.select; //选定要复制的表格
 range.copy; //复制选定的表格
 sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
 sheet.paste; //粘贴表格
end;

  2.3 文件的保存

  文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:

procedure saveFile;
var
 sheet,v:variant;
begin
 v:=createExcel;
 if savedialog.execute then
 begin
  v.workbooks[1].saveas(savedialog.FileName);//保存文件
  v.workbooks[1].close; //关闭工作表
  v.quit; //关闭Excel
  v := unassigned;
 end;
end;

  3 报表制作应注意的问题

  (1)报表格式的选择

  报表格式的选择对信息系统报表的实现方法起着决定性的影响。如果在报表的格式要求比较严格的情况下,应当采用模板的方式产生报表。由于模板在数据导入之前就已经按照标准制定好,所以只要在程序中控制模板的复制与粘贴,然后编程实现数据输入指定位置即可。而对于报表格式多变的情况,由于数据的不同,需要合并单元格或者控制边框,可以直接在程序中自动控制报表的生成。
<

来源:https://www.tulaoshi.com/n/20160129/1493219.html

延伸阅读
1.Tomcat的安装不描述.现在假如Tomcat 安装目录为C:Tomcat 5.0,新建C: /Tomcat 5.0 /webapps /pdfservlet目录. 安装JDK 安装目录C:j2sdk1.4.2_09 去http://www.lowagie.com/iText/download.html下载itext1.3.0.jar,后解压 缩,将itext-1.3.0.jar 放到C: Tomcat 5.0 webapps myServlets WEB-INF lib下(当然还有一...
标签: Delphi
  在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在Delphi中我们可以采用多种方案来解决这一问题。如运用OLE自动化技术将数据输出到MS-Word、MS-Excel中等,但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件。它是挪威QuSoft公司专门为Delphi 编写的,使用QuickReport...
FineReport报表怎么日期自动计算   如上图所示的报表中,多了一个年龄字段,而在数据库中没有这个字段,这就得通过日期的计算获得。 下面我们就来看一下用Java报表工具FineReport实现上述报表的过程。 1.设计报表 1.1表样设计 按照下图设计好报表的基本框架。 报表表样设计 1.2日期自动计算 ...
标签: Java JAVA基础
  问题的由来 前不久做了一个通过JSP生成PDF报表的小项目,算得上开了一次眼界。企业的一些信息通过网络形成Html报表,虽然IE可以直接打印显示在其中的内容,但是从界面上来看,如果直接将Html的显示结果打印出来,显得不太美观。如果将它转成PDF文件再打印,则打印效果会好很多。 iText简介 iText是一个开放源码的Java类...
四四方方的窗体也会变形,利用win32 API函数setwindowrgn就可以将窗口定义为任何形状,以下是将窗口定义为园角矩形的例子: procedure TPortForm.FormCreate(Sender: TObject);var hr :thandle;beginhr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)setwindowrgn(handle,hr,true); //设置园角窗口end; ...

经验教程

282

收藏

57
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部