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

2011年 5月 安庆师范学院学报(自然科学版) May．2011 第 l7卷第2期 JournalofAnqingTeachersCollege(NaturalScienceEdition) VOI．17 NO．2 在Delphi编程中利用Excel实现动态报表 余 永 武 (内江师范学院 计算机科学学院，四川 内江 641112) 摘 要：Delphi作为一个 RAP工具，在界面设计和数据库编程上具有强大的功能，是开发C／S结构的MIS系统的 有力工具。但是Delphi在动态报表的处理上有一定的局限，而提供灵活的报表打印是MIS系统十分重要的功能。利用 Delphi中的Excel控件，使用事先制作好的Excel报表模板，将数据动态填入，从而实现复杂的不规则报表。用户可以根 据需要 自定义模板，提高了系统的灵活性。 关键词：动态报表；信息管理系统；Delphi；客户端／服务器结构 中图分类号：TP311．11 文献标识码 ：A 文章编号：1007—4260(2011)02一O114—04 0 引 言 随着计算机技术的不断普及，办公的数字化程度越来越高，出现了大量的计算机系统，如固定资产 管理系统、人事工资管理系统等等。这其中存在大量的MIS系统。MIS系统的一个重要特点是需要处 理大量数据并形成报表H]。由于行业或者其他一些原因，这些报表 的格式种类繁多，而且还有一些复 杂报表。这些报表的格式在开发期间可能都无法设定。为了解决这些问题，本文采用了表格功能强大 的Excel作为报表模板，用户可以按照 自己的要求设置报表格式，程序运行时再根据用户的设置动态填 人数据 ，从而实现动态报表功能。 1 实现原理 先由用户按照 自己的格式生成Excel报表模板，系统读取模板文件，并把模板文件存人数据库，保 存用户输入的报表信息，如某一字段填入第几行第几列。报表打印时，提取相应的Excel文件，利用 Delphi的Excel控件填人数据库的数据，实现动态报表功能。 2 实现过程 2．1 定义数据袁 系统使用MsSqlServer2000数据库，定义两个表，一个是 MB，用来存储报表基本信息和Excel文件， 一 个是MB—Detail，存放报表的详细信息，如对应字段的行号和列号。表结构如下： 图1 MB表结构 图2 MB—Detail表结构 收稿 日期 ：20l0—11—23 作者简介 ：余永武．男，四川资中人，内江师范学院讲师．硕士研究，_卜，主要从事网络信息系统方面的研究。 第2期 余永武：在 Delphi编程中利用Excel实现动态报表 ·115 · MB表 中，“模板内容”字段为 image类型，用来存储 Excel模板文件 ，“记录类型”字段用来表示是单 张表格(只打印一条记录)还是列表 (打印多条记录)；MB—Detail表中的列号数据类型为 char，对应 Ex- cel中的列号如A、B、C…等。 2．2 保存和读取 Excel模板 2．2．1 保存 Excel模板 本系统将用户设置好的Excel报表模板存人数据库 “模板 内容”字段。由于本字段存储的是Excel 文件 内容，需要采用特殊的存储方式。本系统使用Delphi的TOleContainer控件，与 Excel文件建立连 接，最后存人数据库 ]。因此，先在模板设置界面上放置TOleContainer控件，取名为 OExcel，主要代码 如下 ： VarStream：TStream；／／定义保存文件的流 BeginOExce1．CreateObjectFromFile(edtfile．Text，False)； OExce1．DoVe~(OExce1．PfimaryVerb)； MB．FieldByName(模板名称’．AsString：=ExtraetFileName(edtFile．Text)； Stream：=MB．