Delphi程序执行时实时生成报表

日期：2008年2月25日作者：查看:[大字体中字体小字体]

上述类型为动态数组类型，数据的每个元素为一个类。在实时建立报表控件时，要建立的控件个数是不确定的且控制名称也不能确定，用动态数组是一个比较好的解决办法，即可以任意指定数据的维数，又不用自己管理内存分配问题，还有利于报表包含控件的释放与处理。程序还声明了上述类型的变量如下：
      CHBName:TQRLabelName;
      DBName:TQRDBTextName;
      CHBShape,DBShape,FBShape,SumShape:TQRShapeName;
      FBName,SumName:TQRExpName;
这些数组变量将在窗体建立时根据Query返回的字段结果分配内存，每一个字段对就数组的一个元素。
程序执行过程：窗体在建立并显示时，就对本窗体建立初始化操作。在OnCreate事件中将QuickRep.Page属性的相应值显示出来，在OnShow事件中执行Query.Open操作，并根据返回结果分配控件数组变量空间。窗体建立后，单击“生成”按钮生成报表(忽略备注字段和相片字段)，然后可单击“打印”和“预览”进行打印或者预览报表。当产生报表后又更改了设置，必须重新生成报表。如果Query返回的结果集字段太多，生成报表时有可能纸张矿小不能将生成全部报表，可调整报表纸张大小，再生成报表。当关闭窗体时，将释放建立的控件。
3、源程序清单及注释
unit PrintDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Spin, QuickRpt,QRPrntr,printers, Qrctrls,
Db, DBTables, ComCtrls,SysIni;
type
TQRLabelName=array of TQRLabel;//列标头带区中列标题控制件类动态数组
TQRDBTextName=array of TQRDBText; //细节带区中列标题控制件类动态数组
TQRShapeName=array of TQRShape; //线条控制件类动态数组
TQRExpName=array of TQRExpr; //统计控制件类动态数组
TPrintForm = class(TForm)
    GroupBox1: TGroupBox;
    Label5: TLabel;
    BtnSet: TbitBtn;//“设置”按钮控件
    BtnCancel: TBitBtn;// “关闭”按钮控件
    Panel1: TPanel;
    BtnPrint: TBitBtn;// “打印”按钮控件
    BtnPrview: TBitBtn;// “预览”按控件钮
    QuickRep: TQuickRep;// 快速报表控件
    HB: TQRBand;// “列标头”带区控件
    Title: TQRLabel;// 报表标题控件
    QRE1: TQRExpr;// 列标头带区中“页码”控件
    QRE2: TQRExpr;//列标头带区中“日期”控件
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页
Delphi程序执行时实时生成报表相关文章：
·Fireworks教程液体金属表面特效制作
·多个CSS样式表争夺特定选择符的控制权
·HTML表格标记：行的水平对齐属性ALIGN
·纯CSS制作的新闻网站中的文章列表
·Illustrator绘制精美三维图表实例
·Excel表格页码设置打印输出更直观
·经典：交换机故障检测检查表
·QQ会员成长体系介绍及成长值换算参照表
·sqlldr加载数据到不同表的问题
·下载：MSN微软官方圣诞表情包
Delphi程序执行时实时生成报表相关软件
·火影忍者必杀技表演秀
·《文明4》官方科技树图表
·图片欣赏-世界名表欣赏
·万用表应用技巧
·历代CPU最全明细参数表
·心理自测表
·中国地方菜系及代表菜
·注册表结构
·用图表说话
·化学元素周期表

上一篇:Delphi中串行通信的实现

下一篇:Delphi的压缩流与解压流

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

Delphi程序执行时实时生成报表

精品推荐

热点TOP10

特别推荐