在TQuickRep的OnStartPage事件中如何知道当前页是总页数的第几页呢？

leemanzhuo 2001-10-17 11:43:31

...全文

57 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

使用TQuickRep组件输出报表,简单实例.

一、简单了解各控件功能　　以下是各控件最简单的使用功能，其他功能依具体的实现而介绍。　　TquickRep:带有坐标，作为其他报表控件(如TQRBand)的容器,它的Band属性可以自动添加各种类型的TQRBand. 　　TQRLabel:打印静态的文本（即不是根据数据库值来改变的），作用象Tlabel , Caption的内容就打印出来的内容。　　TQRDBText:打印数据库字段值，一个值一行。作用象TDBText.把它的DataSet , DataField分别赋予Table1，Company时，将打印Table1所指向的表的Company字段的内容。　　TQRSysData:打印系统信息如时间，页码，报表头等。　　TQRMemo:非常象TQRLabel，只是它可以打印多行，也是打印静态数据。　　TQRRichText:打印RichText格式，能够连接到一个Form上的RichEdit控件并打印它的内容，不过必须是32位版本的。　　TQRShape:打印方框、圆和垂直、水平线。　　TQRImage:打印静态的图片，包括（BMP,WMF,ICON）. 　　TQRDBImage:从数据库接收图片。　　TQRBand:用来确定报表的不同位置应该显示什么内容，它上面可以放控件(参见二)。　　TQRGoups:Groups可以不限级别的组操作。当你连接了几个datasets到报表时可以通过Groups成组的对dataset进行操作。　　二、报表的控件摆放循序　　出现在所有页上的标题(PageHeader) 　　标题（只有首页才有）(Title) 　　所有列的标题(ColumnHeader) 　　记录的内容，一个字段一列(Detail) 　　摘要（最后一页才有）(Summary) 　　出现在所有页上的页脚(PageFooter) 　　这些根据设置不同的Band(不是控件，一种类型而已，在其上面可以放其他控件)来定位。总共有六种Band。　　三、一个简单的例子　　这个例子制作打印一张表的部分字段名及该字段数据内容的报表。　　建立一个新project 　　放一个TTable到Form上，DatabaseName设为BCDEMOS,TableName指向Customer表，Active设为true. 　　放一个TquickRep控件在Form上，DataSet属性为Table1.（即要显示上边Table1所指向的表的内）。　　展开TquickRep的Bands属性，设HasDetail为true,这时自动增加个detail band(一个TQRBand控件，故也可以直接放一个TQRBand控件，BandType属性设为detail就行了)。　　放一个TQRDBText控件在detail band上面，设DataSet指向Table1,DataField指向Company。第四步是设置在报表的什么位置显示什么类型的数据，而TQRDBText则具体实现。　　选TquickRep控件，按右键，选择”Preview”预览，应该看到表Customer的字段Company的所有字段值。　　到这一个简单的例子就OK了，程序实现预览及利用TQRuickRep自带的打印功能只须在Form中加一个按钮，它的OnClick事件为：QuickRep1->Preview();　　四、一个使用TQRGoups、TQRExpr控件的报表　　该报表先列出州名，接着列出该州的所有公司及公司总数，一个州列完后空一行（groups中断），列出新的州名，接着列新州下的所有公司，没有填州名的公司统一列在Unknown state下面。　　建立一个新project。　　放一个Tquery在Tquickrep上，其SQL属性为：select * from customer order by State,Company;(即根据州、公司排序)，DatabaseName为BCDMome,Active为true. 　　放一个TquickRep控件在Form1上,DataSet为Tquery1. 　　放一个TQRGroups控件在TquickRep上，这时默认为group header。（任何时候当group中断或更高级别的group中断，这个header都将打印出来，如果有表达式，根据表达式的值显示内容。）接着添加一个group footer band,添加时，放一个TQRBand控件在报表上，连接TQRGroups的FooterBand属性到这个QRBand，这时这个新建的TQRBand就成为Group Footer. （TQRGroup的一个重要特性是表达式，任何时候当表达式的值变时Group都将中断，如表达式是按省列出城市名，当前列出广东省，当属于该省的城市列完后，表达式值改变，这时Group中断，接着显示其他省的城市名。）TQRGroups的Expression属性设为Query1.State(根据不同的州来中断)。　　放一个TQRBand控件在报表上,BandType为rbDetail. 　　放一个TQRExpr控件在group header上面，其Expression属性为：if(State<>’’,State,’Unknown state’)，即如果公司的州没填，就归入Unknown state,否则归入State. 　　放三个TQRDBText在Detail上，他们的DataSet都指向Query1,DataField分别指向Company,Contact,Phone. 　　在放一个TQRExpr控件在group Footer上面,Expression为’Customers in’+State+’:’+Str(Count) 作用是在每个州的公司列完后显示该州总共有多少个公司。　　按右键选预览，应该看到不同的州名及其公司和公司公司总数。　　五、QuickReport 条件式列印　　可以直接在 TQuickReport 的 OnFilter 事件中写明条件判断,OnFilter事件的引数中有一个以 var 宣告的 PrintRecord 布林型态变数,将这个变数设为 True(预设值), 该笔记录便会印出;反之, 设为False,就不印出这笔记录. procedure TForm1.QuickReport1Filter(var PrintRecord: Boolean); begin PrintRecord := False; if YourTable.FieldByName(‘WantedField‘).AsInteger <= 100 then Exit; if YourTable.FieldByName(‘WantedField‘).AsInteger >= 150 then Exit; PrintRecord := True;

DELPHI 报表组件 Quick Report，Setup for XE10 Seattle

Delphi是一种非常优秀的可视化程序开发语言，Delphi 5 基于Windows 95/98/NT，采用高度结构化的Object Pascal语言，具有结构清晰、编译迅速等特点。它强大的可扩展数据库功能更赢得了无数数据库开发人员的青睐。本书详细介绍了Delphi 5 所增加的强大的数据库编程工具，例如ADO组件、IBX组件和数据模块设计窗口。本书由浅入深，系统地介绍了如何利用Delphi 5 强大的开发工具进行数据库应用程序的开发，并结合每一部分的内容，列举了大量实例，以便于读者掌握。本书适用于从事数据库应用程序开发的广大技术人员以及作为各院校师生的学习参考。 ---------------------------------------------目录前言第1章 Delphi 5.0 简介 11.1 Delphi 5.0 的新特点 11.1.1 集成开发环境（IDE）的改进 11.1.2 新的语言扩充 31.1.3 数据库的应用开发能力增强 41.1.4 其他方面的改进 41.2 Delphi 5.0 的集成开发环境 41.2.1 主窗口 51.2.2 代码编辑器 131.2.3 窗体设计器 151.2.4 对象观察器 161.2.5 工程管理器 181.3 面向对象的Pascal语言 191.3.1 Object Pascal 的语言基础 191.3.2 Object Pascal的程序设计 271.4 小结 29第2章数据库应用程序开发基本概述 302.1 数据库的基本概念 302.2 数据存取 312.3 数据库应用程序的开发步骤 312.4 数据库应用开发能力的增强 322.5 小结 33第3章 Delphi 5.0 的数据库工具 343.1 数据库工作平台 343.1.1 Database Desktop 353.1.2 设置工作目录及私有目录 353.1.3 创建数据表格 353.1.4 数据表格的属性 363.1.5 在Database Desktop中创建SQL型数据表格 393.1.6 在Database Desktop中使用查询 403.2 数据库引擎 423.3 数据库资源管理器 423.4 数据字典 453.5 SQL监视器 463.6 Datapump工具 463.7 小结 48第4章数据访问组件 494.1 数据访问组件简介 504.2 TTable组件介绍 504.2.1 数据集组件的基本知识 514.2.2 TTable 组件的重要属性 524.2.3 Ttable组件的重要方法 584.2.4 Ttable 组件的重要事件 694.2.5 举例说明 704.3 TQuery 组件介绍 714.3.1 TQuery组件和TTable组件的比较 724.3.2 TQuery组件的重要属性 724.3.3 TQuery组件的重要方法 754.4 TstoredProc组件介绍 774.4.1 TstoredProc组件的重要属性 774.4.2 TstoredProc组件的重要方法 784.4.3 利用TstoredProc组件实现存储过程 794.5 TDataSource组件介绍 814.5.1 TDataSource组件的重要属性 814.5.2 TDataSource组件的重要方法 824.5.3 TDataSource组件的重要事件 834.5.4 应用程序中建立TDataSource组件的基本步骤 844.6 Tdatabase组件介绍 844.6.1 TDatabase 组件的重要属性 844.6.2 TDatabase 组件的重要方法 874.6.3 TDatabase 组件的重要事件 884.7 Tsession组件介绍 884.7.1 Tsession的重要属性 894.7.2 Tsession的重要方法 894.8 其他组件介绍 904.9 数据访问组件的应用实例 914.10 ADO组件页介绍 994.10.1 ADO组件页概述 994.10.2 TADOConnection 1004.10.3 TADOCommand组件 1024.10.4 TADODataSet组件 1044.10.5 TADOTable 1064.11 小结 107第5章数据控制组件 1085.1 数据控制组件简介 1085.2 TDBGrid组件介绍 1095.2.1 TDBGrid组件的重要属性 1105.2.2 TDBGrid组件的重要事件 1125.2.3 TDBGrid组件的应用举例 1135.3 TDBNavigator组件介绍 1185.3.1 TDBNavigator组件实现的主要功能 1185.3.2 TDBNavigator组件的重要属性 1195.3.3 TDBNav

QuickRpt Bug 尾页打印页脚错误修正 Quickreport Bug { ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: QuickReport 4.0 for Delphi and C++Builder :: :: :: :: QUICKRPT.PAS - MAIN UNIT :: :: :: :: Copyright (c) 2007 QBS Software :: :: All Rights Reserved :: :: :: :: web: http://www.qusoft.com :: :: V4.00 :: :: 12/12/2003 add composite export :: :: 14/12/2003 add frames export :: :: 20/12/2003 Transparent property for band :: :: 20/12/2003 BackgroundImage property for TQuickrep :: :: 03/03/04 Orientation bug after setup dialog fixed :: :: 12/12/06 composite rep duplex fixed :: :: 27/02/07 sumary band position in multicolumn fix :: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: } {$I QRDEFS.INC} {$define notLLIONPDF} {$define BDETABLES} {$define notQRXDOC} unit QuickRpt;

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章