社区
Delphi
帖子详情
请教一报表打印问题~怎么用quickreport使column排在第一列,内容排在后面列~
flyfish99
2004-05-08 01:01:39
请教一报表打印问题~怎么用quickreport使column排在第一列,内容排在后面列~
quickreport里面不是column 与detail都是一行一行的么?
我想要他变成一列一列的,改怎么实现啊??
谢谢了~!
...全文
52
5
打赏
收藏
请教一报表打印问题~怎么用quickreport使column排在第一列,内容排在后面列~
请教一报表打印问题~怎么用quickreport使column排在第一列,内容排在后面列~ quickreport里面不是column 与detail都是一行一行的么? 我想要他变成一列一列的,改怎么实现啊?? 谢谢了~!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
flyfish99
2004-05-11
打赏
举报
回复
再顶~
flyfish99
2004-05-09
打赏
举报
回复
re : ycjf(高信)
不实际吧,太多数据了,还要一个一个添加啊~
是不是quickreport实现不了这个功能啊~
谢谢了~~比较急啊~~~~~~~
野草飞雪
2004-05-08
打赏
举报
回复
不用quickreport,
自己编一个,用画布直接画在打印机上。
flyfish99
2004-05-08
打赏
举报
回复
第/二列用qrText??
那不是报表里面的内容都只能够用代码一个字段一个字段的添加进去了啊?
ltolll
2004-05-08
打赏
举报
回复
第一列用qrlable,第二列用qrText
Quick
Report
打印
预览汉化
中文化的
打印
预览窗口,无需安装,覆盖即可。
codergear/c++builder/delphi
报表
打印
控件
quick
report
v4.07
用于c++ builder 6.0的
quick
report
打印
控件,也可以用于codergear。
Quick
Report
分页
打印
演示
Quick
Report
报表
按要求分页
打印
的演示例子。
利用
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) 所有
列
的标题(
Column
Header) 记录的
内容
,一个字段一
列
(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
Report
1Filter(var PrintRecord: Boolean); begin PrintRecord := False; if YourTable.FieldByName(‘WantedField‘).AsInteger <= 100 then Exit; if YourTable.FieldByName(‘WantedField‘).AsInteger >= 150 then Exit; PrintRecord := True;
Quick
Report
打印
DBGrid中的数据
Quick
Report
打印
DBGrid中的数据并实现分页
Delphi
5,927
社区成员
262,932
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章