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

２０１１年５月　安庆师范学院学报（自然科学版）　Ｊｏｕｒｎａｌ　ｏｆ　Ａｎｑｉｎｇ　Ｔｅａｃｈｅｒｓ　Ｃｏｌｌｅｇｅ（Ｎａｔｕｒａｌ　Ｓｃｉｅｎｃｅ　Ｅｄｉｔｉｏｎ）　Ｍａｙ．２０１１　ＶＯＩ．１７　ＮＯ．２　第ｌ７卷第２期　在Ｄｅｌｐｈｉ编程中利用Ｅｘｃｅｌ实现动态报表　余永武　（内江师范学院计算机科学学院，四川内江６４１１１２）　摘要：Ｄｅｌｐｈｉ作为一个ＲＡ　Ｐ工具，在界面设计和数据库编程上具有强大的功能，是开发Ｃ／Ｓ结构的ＭＩＳ系统的　有力工具。但是Ｄｅｌｐｈｉ在动态报表的处理上有一定的局限，而提供灵活的报表打印是ＭＩＳ系统十分重要的功能。利用　Ｄｅｌｐｈｉ中的Ｅｘｃｅｌ控件，使用事先制作好的Ｅｘｃｅｌ报表模板，将数据动态填入，从而实现复杂的不规则报表。用户可以根　据需要自定义模板，提高了系统的灵活性。　关键词：动态报表；信息管理系统；Ｄｅｌｐｈｉ；客户端／服务器结构　中图分类号：ＴＰ３１１．１１　文献标识码：Ａ　文章编号：１００７—４２６０（２０１１）０２一Ｏ１１４—０４　０　引　言　随着计算机技术的不断普及，办公的数字化程度越来越高，出现了大量的计算机系统，如固定资产　管理系统、人事工资管理系统等等。这其中存在大量的ＭＩＳ系统。ＭＩＳ系统的一个重要特点是需要处　理大量数据并形成报表Ｈ］。由于行业或者其他一些原因，这些报表的格式种类繁多，而且还有一些复　杂报表。这些报表的格式在开发期间可能都无法设定。为了解决这些问题，本文采用了表格功能强大　的Ｅｘｃｅｌ作为报表模板，用户可以按照自己的要求设置报表格式，程序运行时再根据用户的设置动态填　人数据，从而实现动态报表功能。　１实现原理　先由用户按照自己的格式生成Ｅｘｃｅｌ报表模板，系统读取模板文件，并把模板文件存人数据库，保　存用户输入的报表信息，如某一字段填入第几行第几列。报表打印时，提取相应的Ｅｘｃｅｌ文件，利用　Ｄｅｌｐｈｉ的Ｅｘｃｅｌ控件填人数据库的数据，实现动态报表功能。　２实现过程　２．１定义数据袁　系统使用ＭｓＳｑｌ　Ｓｅｒｖｅｒ２０００数据库，定义两个表，一个是ＭＢ，用来存储报表基本信息和Ｅｘｃｅｌ文件，　一个是ＭＢ—Ｄｅｔａｉｌ，存放报表的详细信息，如对应字段的行号和列号。表结构如下：　图１　ＭＢ表结构　图２　ＭＢ—Ｄｅｔａｉｌ表结构　收稿日期：２０ｌ０—１１—２３　作者简介：余永武．男，四川资中人，内江师范学院讲师．硕士研究，＿卜，主要从事网络信息系统方面的研究。　

第２期　余永武：在Ｄｅｌｐｈｉ编程中利用Ｅｘｃｅｌ实现动态报表　・１　１５・　ＭＢ表中，“模板内容”字段为ｉｍａｇｅ类型，用来存储Ｅｘｃｅｌ模板文件，“记录类型”字段用来表示是单　张表格（只打印一条记录）还是列表（打印多条记录）；ＭＢ—Ｄｅｔａｉｌ表中的列号数据类型为ｃｈａｒ，对应Ｅｘ－　ｃｅｌ中的列号如Ａ、Ｂ、Ｃ…等。　２．２保存和读取Ｅｘｃｅｌ模板　２．２．１保存Ｅｘｃｅｌ模板　本系统将用户设置好的Ｅｘｃｅｌ报表模板存人数据库“模板内容”字段。由于本字段存储的是Ｅｘｃｅｌ　文件内容，需要采用特殊的存储方式。本系统使用Ｄｅｌｐｈｉ的ＴＯｌｅＣｏｎｔａｉｎｅｒ控件，与Ｅｘｃｅｌ文件建立连　接，最后存人数据库　］。因此，先在模板设置界面上放置ＴＯｌｅＣｏｎｔａｉｎｅｒ控件，取名为ＯＥｘｃｅｌ，主要代码　如下：　Ｖａｒ　Ｓｔｒｅａｍ：ＴＳｔｒｅａｍ；／／定义保存文件的流　ＢｅｇｉｎＯＥｘｃｅ１．ＣｒｅａｔｅＯｂｊｅｃｔＦｒｏｍＦｉｌｅ（ｅｄｔｉｆｌｅ．Ｔｅｘｔ，Ｆａｌｓｅ）；　ＯＥｘｃｅ１．ＤｏＶｅ￣（ＯＥｘｃｅ１．ＰｆｉｍａｒｙＶｅｒｂ）；　ＭＢ．ＦｉｅｌｄＢｙＮａｍｅ（模板名称’．ＡｓＳｔｒｉｎｇ：＝ＥｘｔｒａｅｔＦｉｌｅＮａｍｅ（ｅｄｔＦｉｌｅ．Ｔｅｘｔ）；　Ｓｔｒｅａｍ：＝ＭＢ．ＣｒｅａｔｅＢｌｏｂＳｔｒｅａｍ（ＭＢ．ＦｉｅｌｄＢｙＮａｍｅ（模板内容’，ｂｍＷｒｉｔｅ）；　ｔｒｙ　ＯＥｘｃｅ１．ＳａｖｅＴｏＳｔｒｅａｍ（Ｓｔｒｅａｍ）；　ｉｎａｆｌｌｙ　Ｓ￣ｅａｍ．Ｆｒｅｅ；　ＯＥｘｃｅ１．ＤｅｓｔｒｏｙＯｂｊｅｃｔ；　ｅｎｄ；　Ｅｎｄ；　２．２．２读取Ｅｘｃｅｌ模板　当需要打印报表时，需要将相应的Ｅｘｃｅｌ模板从数据库中读出保存，并用满足要求的数据填充，其　中读出Ｅｘｃｅｌ并保存的代码如下：　Ｗｉｔｈ　ＴＳａｖｅＤｉａｌｏｇ．Ｃｒｅａｔｅ（ｓｅｒｆ）ｄｏ　Ｂｅ舀ｎ　ＦｉｌｅＮａｍｅ：＝ｔｒｉｍ（ＭＢ．ＦｉｅｌｄＢｙＮａｍｅ（　模板名称　）．ＡｓＳｔｒｉｎｇ）；／／保存的模板的名称　Ｓｔｒｅａｍ：＝ＭＢ．ＣｒｅａｔｅＢｌｏｂＳｔｒｅａｍ（ＭＢ．ＦｉｅｌｄＢｙＮａｍｅ（　模板内容　），ｂｍＲｅａｄ）；／／建立数据库流　ｔｒｙ　ＯＥｘｃｅ１．ＬｏａｄＦｒｏｍＳｔｒｅａｍ（Ｓ￣ｅａｍ）；／／将数据库中的数据读入ＯｌｅＣｏｎｔａｉｎｅｒ　ＯＥｘｃｅ１．ＯｌｄＳｔｒｅａｍＦｏｒｍａｔ：＝ｔｒｕｅ；／／设置保存的格式不变　ＯＥｘｃｅ１．ＳａｖｅＡｓＤｏｃｕｍｅｎｔ（ＦｉｌｅＮａｍｅ）；／／将Ｅｘｃｅｌ模板文件保存到当前文件夹　ｉｎａｌｆｌｙ　Ｓｔｒｅａｍ．Ｆｒｅｅ；　ｅｎｄ；　Ｅｎｄ　２．３　利用ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ控件实现报表输出　２．３．１存储报表信息　上节中实现了Ｅｘｃｅｌ模板的存储与读取，实际上，在保存Ｅｘｃｅｌ模板的同时，还要往数据库中存人相　应的模板信息，如某一字段的值存入填入Ｅｘｃｅｌ表格中的行号和列号，是打印单行记录还是多条记录　等。具体生成报表信息的界面如图３和图４所示：　图３所示是打印多条记录的情况。这种情况下，只要确定某一字段需要填入模板中的哪一列，因　此，行号不能输入。这种格式主要用于列表式报表。　

・ｌ　１６・　安庆师范学院学报（自然科学版）　２０１１年　图４所示是打印单条记录的情况，需要指出每个字段在Ｅｘｃｅｌ中的行号和列号。这种格式主要用　于打印卡片式的报表。　…一＿　≤　—　（巍№ｆｄ≯　｛？薯　■　誊　一　■　黎ｌ菇氍　瞄　０每聋舞怒象　箍　＾　翰倍感譬　凌攮鬣　ｉ　ｉ　ｌ¨　稃＿　囊：　｛　。ｌ薯　ｌ　ｉ　择拳爨司囔黎　摹秘ｌ誊　量毫｝＃　捂罾号　婚　ｔ｜Ｉ性　量　谣　Ｅ声广蔫　卑冀　∞　向量Ｉ｛阐　。　ｉ　ｌｌ１　参＿　曩　。　∞　＃　∞Ⅻｇ　．“誊　ｔ　＃　№　图３打印多条记录　图４打印单条记录　２．３．２报表输出　报表输出需要用到Ｄｅｌｐｈｉ的ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ控件　。ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ控件是Ｄｅｌｐｈｉ提供的操　作ＭＳ　Ｏｆｆｉｃｅ文档的控件之一，通过它，可以实现在Ｄｅｌｐｈｉ程序中对Ｅｘｃｅｌ文档的相关操作。ＴＥｘｃｅｌＡｐ—　ｐｌｉｃａｔｉｏｎ控件的主要方法有　Ｊ：　ＥｘｃｅｌＡ：＝ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ．Ｃｒｅａｔｅ（ｓｅｌｆ）；／／建立控件　ＥｘｃｅｌＡ．Ｃｏｎｎｅｃｔ；／／打开一个Ｅｘｃｅｌ应用程序　ＥｘｃｅｌＡ．Ｖｉｓｉｂｌｅ［０］：＝ｔｒｕｅ；／／打开的Ｅｘｃｅｌ中的Ｓｈｅｅｔｌ可见　ＥｘｃｅｌＡ．Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ（ＦｉｌｅＮａｍｅ，ＥｍｐｔｙＰａｒａｍ，…，０）；／／打开文件名为ＦｉｌｅＮａｍｅ的Ｅｘｃｅｌ文件　具体的输出代码如下：　Ｓｔｒｅａｍ：＝ＭＢ．ＣｒｅａｔｅＢｌｏｂＳｔｒｅａｍ（ＭＢ．ＦｉｅｌｄＢｙＮａｍｅ（模板内容’，ｂｍＲｅａｄ）；　Ｏ．ＬｏａｄＦｒｏｍＳｔｒｅａｍ（Ｓｔｒｅａｍ）；／／从数据库中读出Ｅｘｃｅｌ模板　Ｏ．ＳａｖｅＡｓＤｏｃｕｍｅｎｔ（ＦｉｌｅＮａｍｅ）；／／保存　ＥｘｃｅｌＡ：　ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ．Ｃｒｅａｔｅ（ｓｅｌｆ）；　ＥｘｃｅｌＡ．Ｃｏｎｎｅｃｔ；　ＥｘｃｅｌＡ．Ｖｉｓｉｂｌｅ［０］：　ｔｒｕｅ；　ＥｘｃｅｌＡ．Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ　（ＦｉｌｅＮａｍｅ，ＥｍｐｔｙＰａｒｍ，ＥｍｐｔａｙＰａｒｍ，ａＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，　ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，　ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，ＥｍｐｔｙＰａｒａｍ，０）；／／打开　Ｅｘｃｅｌ　Ｗｈｉｌｅ　ｎｏｔ　ＤａｔａＳｅｔ．Ｅｏｆ　ｄｏ／／ＤａｔａＳｅｔ为输出数据的表　ｂｅｇｉｎ　ＭＢ—ＤＥＴＡＩＬ．Ｆｉｒｓｔ；　ｗｈｉｌｅ　ｎｏｔ　ＭＢｂｅｇｉｎ　ＤＥＴＡＩＬ．Ｅｏｆ　ｄｏ　ｉｆ　ｔｒｉｍ（ＭＢ　ＤＥＴＡＩＬ．ＦｉｅｔｄＢｙＮａｍｅ（　列号　）．ＡｓＳｔｒｉｎｇ）＜＞　ｔｈｅｎ　ｂｅｇｉｎ　ｔｍｐＳｔｒ：＝Ｔｒｉｍ（ＤａｔａＳｅｔ．ＦｉｅｌｄＢｙＮａｍｅ（ｔｒｉｍ（ＭＢ～ＤＥＴＡＩＬ．ＦｉｅｌｄＢｙＮａｍｅ（　字段名　）．Ａｓ－　Ｓｔｒｉｎｇ））．ＡｓＳｔｒｉｎｇ）；　

第２期　ｒｏｗ：：ＭＢ余永武：在Ｄｅｌｐｈｉ编程中利用Ｅｘｃｅｌ实现动态报表　・１ｌ７・　ＤＥＴＡＩＬ．ＦｉｅｌｄＢｙＮａｍｅ（列号　．ａｓＳｔｒｉｎｇ＋ｉｎｔｔｏｓｔｒ（ＲＢｅｇｉｎ）；　ＥｘｃｅｌＡ．Ｒａｎｇｅ［ｒｏｗ，ｒｏｗ］．Ｓｅｌｅｃｔ；　ＥｘｃｅｌＡ．ＡｃｔｉｖｅＣｅｌ１．ＦｏｒｍｕｌａＲ１　Ｃ１：＝ｔｍｐｓｔｒ；　ｅｎｄ；　ＭＢＤＥＴＡＩＬ．Ｎｅｘｔ；　ｅｎｄ；　Ｉｎｃ（ＲＢｅｇｉｎ）；　ＤａｔａＳｅｔ．Ｎｅｘｔ；　ｉｆ　ｎｏｔ　ＤａｔａＳｅｔ．Ｅｏｆ　ｔｈｅｎ　ＥｘｃｅｌＡ．Ｒａｎｇｅ［一ａ＋ｉｎｔｔｏｓｔｒ（ＲＢｅｇｉｎ），　ｚ　＋ｉｎｔｔｏｓｔｒ（ＲＢｅｇｉｎ）］．Ｉｎｓｅｒｔ（ｘｌＤｏｗｎ，０）；／／按模板格　式新建一行　ｅｎｄ；　３结论　在Ｄｅｌｐｈｉ中可以使用多种报表工具完成报表的设计和打印，但大多数报表工具都太专业，普通用　户使用有一定困难。Ｅｘｃｅｌ是使用非常广泛的办公软件，简单易学，通过Ｅｘｃｅｌ与Ｄｅｌｐｈｉ结合，可以设计　出非常复杂的报表格式，完全实现报表的动态生成与输出。本文使用的方法已经在最近开发的设备管　理系统中使用，用户反映良好。　参考文献：　［１］李存斌，汪兵．Ｄｅｌｐｈｉ深度编程及其项目应用开发［Ｍ］．北京：中国水利水电出版社，２００２．　［２］王振江．Ｄｅｌｐｈｉ　２００５精彩编程百例［Ｍ］．北京：中国水利水电出版社，２００６．　［３］方朝晖．Ｅｘｃｅｌ与可视化软件开发工具协同制作特殊报表［Ｊ］．安庆师范学院学报（自然科学版），１９９９，５（４）：７０—７１．　［４］王小华．Ｄｅｌｐｈｉ程序员经验点滴——桌面、网络编程实例集锦［Ｍ］．北京：兵器工业出版社，北京希望电子出版社，２００６　Ｉｍｐｌｅｍｅｎｔｉｎｇ　Ｄｙｎａｍｉｃ　Ｒｅｐｏｒｔ　Ｕｓｉｎｇ　Ｅｘｃｅｌ　ｉｎ　Ｄｅｌｐｈｉ　Ｐｒｏｇｒａｍｍｉｎｇ　ＹＵ　Ｙｏｎｇ—ＷＵ　（Ｃｏｌｌｅｇｅ　ｏｆ　Ｃｏｍｐｕｔｅｒ　Ｓｃｉｅｎｃｅ，Ｎｅｉｊｉａｎｇ　Ｎｏｒｍａｌ　Ｕｎｉｖｅｒｓｉｔｙ，Ｎｅｉｊｉａｎｇ，Ｓｉｃｈｕａｎ　６４１１１２，Ｃｈｉｎａ）　Ａｂｓｔｒａｃｔ：Ａｓ　ａ　ＲＡＰ　ｔｏｏｌ，Ｄｅｌｐｈｉ　ｈａｓ　ｐｏｗｅｒｆｕｌ　ｆｕｎｃｔｉｏｎｓ　ｉｎ　ｉｎｔｅｒｆａｃｅ　ｄｅｓｉｇｎ　ａｎｄ　ｄａｔａｂａｓｅ　ｐｒｏｇｒａｍｍｉｎｇ，ａｎｄ　ｉｔ　ｉｓ　ａ　ｐｏｗｅｒｆｕｌ　ｔｏｌ　ｉｎ　ＭＩＳ’Ｓ　ｄｅｖｅｌｏｐｍｅｎｔ．Ｈｏｗｅｖｅｒ，Ｄｅｌｐｈｉ　ｈａｓ　ｃｅｒｔ￣ｎ　ｌｉｍｉｔａｔｉｏｎ　ｉｎ　ｄｙｎａｍｉｃ　ｒｅｐｏｒｔ，ａｎｄ　ｏｆｆｅｒｓ　ｆｌｅｘｉｂｌｅ　ｐｒｉｎｔ　ｗｈｉｃｈ　ｉｓ　ｖｅｒｙ　ｉｍｐｏｒ－　ｒａｎｔ　ｆｕｎｃｔｉｏｎ　ｆｏｒ　ＭＩＳ　ｓｙｓｔｅｍ．Ｔｈｉｓ　ｐａｐｅｒ　ｕｓｅｓ　Ｄｅｌｐｈｉ　Ｅｘｃｅｌ　ｃｏｍｐｏｎｅｎｔｓ．ａｎｄ　ｍａｋｅｓ　ｇｏｏｄ　ｕｓｅ　ｏｆ　ｔｈｅ　ｐｒｉｏｒ　Ｅｘｃｅｌ　ｒｅｐｏｒｔ　ｔｅｍｐｌａｔｅ　ｔｏ　ｉｍｐｌｅｍｅｎｔ　ＳＯｍｅ　ｃｏｍｐｌｅｘ　ｉｒｒｅｇｕｌａｒ　ｒｅｐｏｒｔｓ　ａｎｄ　ｔｈｅｎ　ｔｏ　ｉｍｐｒｏｖｅ　ｔｈｅ　ｆｌｅｘｉｂｉｌｉｔｙ　ｏｆ　ｈｅ　ｓｔｙｓｔｅｍ．　Ｋｅｙ　ｗｏｒｄｓ：ｄｙｎａｍｉｃ　ｒｅｐｏｒ，ＭＩＳ，Ｄｅｌｐｈｉ，Ｃ／Ｓ