Delphi程序执行时实时生成报表(1)
作者：刘建华
Delphi程序执行时实时生成报表
当前，在软件开发工具中，Delphi以其控件多、面向对象编程功能强、代码执行速度快和简单易用等特点，结合可视化开发环境和当前最快的编译器技术，已成为全球公认的快速应用开发工具，正被愈来愈多的编程人员所采用。使用Delphi可以编写各种Windows应用程序，尤其是开发数据库信息管理系统有其独特的优势。在数据库信息管理系统的开发的过程中，我们经常需要打印输出很多报表，用Delphi设计复杂报表是一件比较烦锁的事件，它没有Visual FoXPro中那样简便。但由于Delphi中设计报表采用的也是控件，因此，我们可以在程序执行时直接建立所需的报表控件来实时生成报表，而且，生成的报表样工可以由程序控制来决定。例如，我们在数据库信息查询时，查询出来的结果信息结构一般是不固定的，假如我们要将查询结果打印出来，只设计一种报表格式是不行的，为所有可能的结果信息都设计一种报表格式也不是一种很好的解决办法。为了解决这样一个问题，我们可以采用实时生成报表技术。本文的目的就是通过一个实例向大家详细介绍怎样实时生成报表。 本例所将设计一个打印对话框，该对话框包括TQickRep控件和一些报表样式控制控件，其它窗体外观如下图所示：1、 控件功能说明QuickRep:TQuickRep 它包括列标头(HB:TQRBand)、细节(DB:TQRBand)、页脚(FB:TQRBand)、总结(SB:TQRBand)带区，并且细节、页脚、总结中没有包括一个TQRLabel、TQREXPr或TDBText控件，主要是在程序执行时建立，列标头带区中包括Title(TQRLabel)用于报表标题；QRSQL: TQRLabel用于查询条件，这两个控件的Caption属性在程序执行时可任意更改。为了能够让QuickRep不显示出来，将其置于Panel1(Tpanel)的后面，并将Panel1扩展到整个窗体；Query:TQuery SQL语句控件，程序将根据Query返回的结果来生成报表。因此，在建立这个窗体时，一定要将Query.SQL属性指定一条SQL语句；在以上窗体中“纸张”和“页面设置”两栏所包括的控件是对QuickRep.Page属性的控制，程序执行时更改它们会直接改变QuickRep控件相应的属性值，这可以通过OnChange或OnExit事件代码完成；“打印内容设置”栏中的标题是指定报表的标题（TT:TEdit），其值与QuickRep.ReportTitle和Title.Caption一致，可以任意更改；“打印查询条件”复选框指定是否打印查询条件，该复选框的选取否直接控制QRSQL.Caption是否为空；“表列对齐方式”由一组选项按钮组成，它主要用于报表生成时细节内容的对齐方式，它的更改控制变量RD1（Byte）的值(0自动对齐,1中间对齐,2左边对齐)；“表列打印宽度”由一组选项按钮组成，主要用于在生成报表格式时列值的宽度，它的更改控制变量RD2（Byte）的值(0自动宽度,1相同宽度,2限制最大宽度)，当选中1相同宽度,2限制最大宽度时要求输入宽度，单位为像素；“统计方式”指出报表是否包含页脚(FB:TQRBAND)和总和(SB:TQRBAND)带区。
