社区
Delphi
帖子详情
请问如何在程序中控制Tquickrep控件的打印范围?
frankcuba
2002-07-16 02:36:54
设置Tquickrep的page属性也不行...
...全文
34
1
打赏
收藏
请问如何在程序中控制Tquickrep控件的打印范围?
设置Tquickrep的page属性也不行...
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
利用
Quick
Report创建报表
一、 简单了解各
控件
功能 以下是各
控件
最简单的使用功能,其他功能依具体的实现而介绍。 T
quick
Rep:带有坐标,作为其他报表
控件
(如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. 放一个T
quick
Rep
控件
在Form上,DataSet属性为Table1.(即要显示上边Table1所指向的表的内)。 展开T
quick
Rep的Bands属性,设HasDetail为true,这时自动增加个detail band(一个TQRBand
控件
,故也可以直接放一个TQRBand
控件
,BandType属性设为detail就行了)。 放一个TQRDBText
控件
在detail band上面,设DataSet指向Table1,DataField指向Company。第四步是设置在报表的什么位置显示什么类型的数据,而TQRDBText则具体实现。 选T
quick
Rep
控件
,按右键,选择”Preview”预览,应该看到表Customer的字段Company的所有字段值。 到这一个简单的例子就OK了,
程序
实现预览及利用TQRuickRep自带的
打印
功能只须在Form
中
加一个按钮,它的OnClick事件为:
Quick
Rep1->Preview(); 四、一个使用TQRGoups、TQRExpr
控件
的报表 该报表先列出州名,接着列出该州的所有公司及公司总数,一个州列完后空一行(groups
中
断),列出新的州名,接着列新州下的所有公司,没有填州名的公司统一列在Unknown state下面。 建立一个新project。 放一个Tquery在T
quick
rep上,其SQL属性为:select * from customer order by State,Company;(即根据州、公司排序),DatabaseName为BCDMome,Active为true. 放一个T
quick
Rep
控件
在Form1上,DataSet为Tquery1. 放一个TQRGroups
控件
在T
quick
Rep上,这时默认为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) 作用是在每个州的公司列完后显示该州总共有多少个公司。 按右键选预览,应该看到不同的州名及其公司和公司公司总数。 五、
Quick
Report 条件式列印 可以直接在 T
Quick
Report 的 OnFilter 事件
中
写明条件判断,OnFilter事件的引数
中
有一个以 var 宣告的 PrintRecord 布林型态变数,将这个变数设为 True(预设值), 该笔记录便会印出;反之, 设为False,就不印出这笔记录. procedure TForm1.
Quick
Report1Filter(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 7.0软件 自带有报表
Quick
Report组件(TQRShape等所有组件 说明)
DELPHI7.0软件自带有报表
Quick
Report组件,但是默认的情况下,工具栏
中
是没有的,需要手动添加,步骤: component->install packages->add->\borland\bin\dclqrt70.bpl 一、组件功能简介 上面的两个图是
Quick
Report组件页的
中
所有组件,在BCB6
中
提供给我们使用的不会少于上面的23个的。
深入
Quick
Rep
深入
Quick
Report(一) 作者:董维春 (本文已在《CSDN开发高手》04年第一、二、三期上发表,应广大网友的要求,经编辑同意,发表在CSDN作者本人文档
中
,略有修改,但仅即于此,未经CSDN或作者本人同意任何个人与网站不得转载、摘抄,否则任何涉及到版权的行为后果自负) 报表是数据库应用
程序
的基本组成部分之一,完整的数据库应用
程序
总要提供报表功能。与传统的数据库应用
程序
设计工具...
Quick
Report基本知识(转)
2002-08-01· · ··C++ Builder 编程俱乐部 一、 简单了解各
控件
功能 以下是各
控件
最简单的使用功能,其他功能依具体的实现而介绍。 T
quick
Rep:带有坐标,作为其他报表
控件
(如TQRBand)的容器,它的Band属性可以自动添加各种类型的TQRBand. TQRLabel:
打印
静态的文本(即不是根据数据库值来改变的),作用象T
在C++Builder
中
自定义预览窗口
在C++Builder
中
自定义预览窗口 Borland C++ Builder是基于C++语言的可视化编程环境,它提供了可重用组件库和一系列RAD设计工具,使得编程者只需用少量的手工代码就可以创建出高效的Windows应用
程序
,尤其是复杂的数据库访问应用
程序
,因此深受软件开发人员的喜爱。 在开发数据库访问应用
程序
时,会经常涉及到报表的
打印
问题。C++ Builder
中
提
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章