Excel2000:用Delphi自动生成报表

摘 要:Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换,讨论了报表制作工程中的一些细节性问题。

关键字:Delphi,Excel,报表

引言

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

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

Delphi控制Excel的方法

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 数据表格控制

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;

· 把年龄相仿的狮虎熊放一起,谁更厉害?结果出人意料

很多人都想知道狮子、老虎和熊打起来谁最厉害,于是便有好事之人把这三种动物关在一起...

· 湖北宜昌三峡坝区水面惊现神秘动物

近日,湖北宜昌,一段视频在当地热传:有网友在三峡坝区拍到神秘动物,体型硕大数米长...

· 什么是语段?语段的类型以及和句群、段落的区别与联系是什么?

句群是最高级的语言单位。 段落(自然段)是章法单位...

 
在Delphi中动态生成QuickReport报表
----笔者在前一段使用Delphi开发数据库的工作中,用户提出了这样一个需求:要根据自己的的查询结果动态生成报表然后进行打印。几经摸索,笔者使用动态生成QuickReport控件的方法满足了用户的需求。现将此方法说明如下...查看完整版>>在Delphi中动态生成QuickReport报表
 
自动生成--Delphi多层数据库应用项目源代码
当设计好数据库后,开发Delphi多层数据库应用项目有许多枯燥而重复的体力活要做,如放组件,命名(特别是给每个组件以及字段对象都取一个可读的名字),关联,.....等等, 我开发了一个代码自动生成工具,自动生成应...查看完整版>>自动生成--Delphi多层数据库应用项目源代码
 
Delphi控制Excel2000
类 别:COM & ActiveX(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 ...查看完整版>>Delphi控制Excel2000
 
Delphi 水晶报表打包解决
开发环境: Delphi6.0及水晶报表9.2 (程序中以Bde连接设计报表)打包工具: InstallShield Developer v8.02打包必备: Iinstallhields8.0 ...查看完整版>>Delphi 水晶报表打包解决
 
报表处理组件 BY DELPHI
本人倾精力,时间使用DELPHI开发了一套报表处理组件,适合各种软件系统复杂的报表处理功能,尤其是其提供的报表编辑,打印预览及数据导入接口等功能可以迅速满足客户提出的有关报表处理的各种需求。1.设计原则:1.1 ...查看完整版>>报表处理组件 BY DELPHI