社区
Delphi
帖子详情
请问:delphi的quickrep打印时如何加入edit控件的数据
lyq
2001-11-06 01:34:30
...全文
44
2
打赏
收藏
请问:delphi的quickrep打印时如何加入edit控件的数据
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lovewangj
2001-11-06
打赏
举报
回复
直接加上就可以了。
liang_z
2001-11-06
打赏
举报
回复
在BeforePrint事件中写代码
QRLabel1.Caption := Edit1.Text;
利用
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上的Rich
Edit
控件
并
打印
它的内容,不过必须是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
Quick
Report 报表
控件
简介
在本讲中为大家介绍报表组件Qreport和统计组件Decision Cube,并讲一下BDE的DBI函数使用。 一、QReport 报表组件 已经讲过,QReport 组件不是很好用,不过如果您的要求不高还是使用它吧。QReport 组件的用途就是从
数据
集中读出
数据
生成报表。Qreport是一组组件,共有23个组件,只能简单介绍,让大家有个了解,知道这些组件有何用途,若要运用自如的话则需下
Delphi
StringGrid
控件
的用法
Delphi
StringGrid
控件
组件名称:StringGrid ●固定行及固定列: StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=资料区之颜色; ●资料行列之宽高度: StringGrid.DefaultColWidth:=内定全部之宽度; StringGrid.Default...
ZT:
DELPHI
講義
第一讲
delphi
基础 【例】改变窗体的标题,颜色,尺寸
delphi
程序设计特点:可视化,开发方便 【例】写代码,改变标题,颜色,尺寸 对象成为处处用到的基本元素。对象含有属性和事件。
delphi
以pascal语法为基础。 一、
delphi
是什么?
Delphi
是borland 公司研发的面向对象的,可视化的,快速的应用开发工具。 ◇对象是对相对独立的客观存在或相对独
delphi
Quick
Report
报表
控件
简介 2009-03-16 11:23 在本讲中为大家介绍报表组件Qreport和统计组件Decision Cube,并讲一下BDE的DBI函数使用。 一、QReport 报表组件 已经讲过,QReport 组件不是很好用,不过如果您的要求不高还是使用它吧。QReport 组件的用途就是从
数据
集中读出
数据
生成报表。Qreport是一组组件,共有23个组件,只能简单介绍,让大家...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章