在Delphi编程中利用Excel实现动态报表

1、南京帆软软件公司 商务咨询电话:86-025-5186 2240 在 Delphi 编程中利用 Excel 实现动态报表0 引言随着计算机技术的不断普及 , 办公的数字化程度越来越高 , 出现了大量的计算机系统 , 如固定资产管理系统、 人事工资管理系统等等。 这其中存在大量的 MIS 系统。 MIS 系统的一个 重要特点是需要处理大量数据并形成报表。 由于行业或者其他一些原因 , 这些报表的格式种 类繁多 , 而且还有一些复杂报表。 这些报表的格式在开发期间可能都无法设定。 为了解决这 些问题 , 本文采用了表格功能强大的 Excel 作为报表模板 , 用户可以按照自己的要求设置报 表格式

2、, 程序运行时再根据用户的设置动态填入数据 , 从而实现动态报表功能。1 实现原理先由用户按照自己的格式生成 Excel 报表模板 , 系统读取模板文件 , 并把模板文件存入 数据库 , 保存用户输入的报表信息 , 如某一字段填入第几行第几列。 报表打印时 , 提取相应 的 Excel 文件 , 利用 Delphi 的 Excel 控件填入数据库的数据 , 实现动态报表功能。2 实现过程2. 1 定义数据表系统使用 MsSql Server2000数据库 , 定义两个表 , 一个是 MB, 用来存储报表基本信息和 Excel 文件 , 一个是 MB_Detail存放报表的详细信息 , 如对应字

3、段的行号和列号。表结构如下 :图 1 MB 表结构 图 2 MB _Detail表结构MB 表中 , “模板内容” 字段为 image 类型 , 用来存储 Excel 模板文件 , “记录类型”字段用 来表示是单张表格 (只打印一条记录 还是列表 (打印多条记录 ; MB Detail表中的列号数据 类型为 char, 对应 Excel 中的列号如 A 、 B 、 C 等。2. 2 保存和读取 Excel 模板2. 2. 1 保存 Excel 模板本系统将用户设置好的 Excel 报表模板存入数据库“模板内容”字段。由于本字段存储 的是 Excel 文件内容 , 需要采用特殊的存储方式。 本系

4、统使用 Delph i 的 TO leContainer 控件 , 与 Excel 文件建立连接 , 最后存入数据库。因此 , 先在模板设置界面上放置 TO leContainer控件 , 取名为 OExcel ,主要代码如下 :V ar Stream: TS tream; / /定义保存文件的流Beg inOExce.l C reateOb jectFromF ile( edtfile. Tex ,t Fa lse;OExce.l DoV erb( OExce.l Prim aryV erb;MB. FieldByName(模板名称 . As String : = ExtractFileNa

5、me(edtFile.Text; Stream: = MB. CreateB lobStream (MB. Fie ldByName( ' 模板内容 ', bmW rite ;南京帆软软件公司商务咨询电话:86-025-5186 2240 tryOExcel SaveToS tream(Stream;finallyStream. Free;OExcel DestroyObject;end;End;2. 2. 2 读取 Excel 模板当需要打印报表时 , 需要将相应的 Exce l模板从数据库中读出保存 , 并用满足要求的 数据填充 , 其中读出 Excel 并保存的代码如下

6、:With TSaveDialog. Create(self doBeginFileName : = trim(MB.FieldByN ame(模板名称 . AsString ; / /保存的模板的 名称Stream: = MB. CreateBlobStream (MB. Fie ldByName(模板内容 , bmRead;/ /建立数据库流tryOExce.l LoadFromS tream( Stream ; / /将数据库中的数据读入 O leConta iner OExce.l O ldStreamForm at: = true;/ /设置保存的格式不变OExce.l SaveA

7、sDocument( FileName;/ /将 Excel 模板文件保存到当前文件夹 fina llyS tream. Free;end;End2. 3 利用 TExcelApplication 控件实现报表输出2. 3. 1 存储报表信息上节中实现了 Excel 模板的存储与读取 , 实际上 , 在保存 Excel 模板的同时 , 还要往数据 库中存入相应的模板信息 , 如某一字段的值存入填入 Excel 表格中的行号和列号 , 是打印单 行记录还是多条记录等。具体生成报表信息的界面如图 3和图 4所示 :图 3所示是打印多条记录的情况。这种情况下 , 只要确定某一字段需要填入模板中的哪

8、一列 , 因此 , 行号不能输入。这种格式主要用于列表式报表。图 4所示是打印单条记录的情况 , 需要指出每个字段在 Excel 中的行号和列号。 这种格式 主要用于打印卡片式的报表。南京帆软软件公司 商务咨询电话:86-025-5186 2240 图 3 打印多条记录 图 4 打印单条记录2. 3. 2 报表输出报表输出需要用到 Delphi 的 TExcelApplication 控件。 TExcelApplication 控件是 Delphi 提供的操作 MS Office文档的控件之一 , 通过它 , 可以实现在 Delphi 程序中对 Excel 文档的 相关操作。 TExcelAp

9、plication 控件的主要方法有 :ExcelA: = TExcelApplication. Create(self; / /建立控件ExcelA. Connect; / /打开一个 Excel 应用程序ExcelA. Visible0 : = true; / /打开的 Excel 中的 Sheet1可见ExcelA. Workbooks. Open( F ileN ame, EmptyParam, , 0; / /打开文件名为 FileN ame 的 Excel 文件具体的输出代码如下 :Stream: = MB. CreateBlobStream (MB. FieldByName(模板

10、内容 , bmRead ;O. LoadFromStream( Stream ; / /从数据库中读出 Excel 模板O. SaveA sDocument( FileName; / /保存ExcelA : = TExcelApplication. Create( self;ExcelA.Connect;ExcelA.Visible0 : = true;ExcelA.Workbooks. Open( FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, Empt

11、yParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0; / /打开ExcelWhile not DataSet Eof do / /DataSet为输出数据的表beginMB DETA IL. First;while not MB DETA IL. Eof dobeginif trim(MB DETA IL. FieldByName(列号 . AsString < > ''thenbegin tmpStr : = Trim ( DataSet FieldByN

12、ame( trim (MB DETA IL. FieldByNam南京帆软软件公司商务咨询电话:86-025-5186 2240 e(字段名 . As String . AsString ;row : = MB DETA IL. FieldByName(列号 . asString+ inttostr( RBegin ;ExcelA. Range row, row . Select;ExcelA. ActiveCell FormulaR1C1: = tmpstr;end;MB DETA IL. Next;end;Inc( RBegin ;DataSet Next;if not DataSet Eof thenExcelA. Range a + inttostr( RBegin , z + inttostr( RBegin . Insert( xlDown, 0 ; / /按模