想问一下,用QReport如何实现预览用Query查询出来的全部记录?要怎么设置呢?(0分)

  • 主题发起人 主题发起人 gyzhen
  • 开始时间 开始时间
G

gyzhen

Unregistered / Unconfirmed
GUEST, unregistred user!
想问一下,用QReport如何实现预览用Query查询出来的全部记录?要怎么设置呢?
能给个例子吗?谢谢!
 
up
谢谢!!!
 
不大明白!是不是显示query1里的全部记录而已!
如果这样的话,
你要建临时表的,把查询出来的记录全放到临时表里,然后再打印这个临时表信息
quickrep1.Preview;
 
要这么麻烦?难道不能直接从query1得到的结果打印?
 
显示QUERY中的记录 你必须先要使字段变为永久字段 然后在用字段对象和报表打印控件连接
另外一种方法就是用动态生成QRLABEL 通过两个循环就可以把你的数据统统打印出来 而且你
还可以自己根据记录数来分页
 
哪位仁兄能把相关的代码贴出来吗?有源程序最好啦。
发我邮箱gyzhen1@163.com
谢谢!!!
 
编程最重要的就是思路
源代码不能解决任何问题的,何况是个很简单的问题
1、动态生成QRSHAPE
2、动态生成QRLABEL(PARENT )为 QRSHAPE
3、取出QUERY中的值
4、两个循环就可以了
5、如果记录很多自己编写个预览的窗体,然后自己设定每页的记录数
 
我在做毕业设计,以前没用过报表,现在很快就要答辩了,时间很紧,没时间慢慢研究Qreport啊
帮帮忙吧。
谢谢
 
你邮箱多少 我做个DEMO给你
 
已经发到你信箱了你去看看 大概思路就是那样的 你可以在上面做扩展
 
在UNIT2下在添加两行代码来释放对象
with FormPreviewdo
try
CurRep:=nil;
QRPreview1.QRPrinter:=nil;
 
to soft_lover:
能发一个demo给我吗,我也遇到这样的问题,
不知从何下手,不胜感激!!!xiaodaihehe@sina.com.cn
 
可以给我也发一个demo吗,我也想学习学习,多谢!
 
你的Query是动态查询的吗?如果8是,把fields字段添加进去
然后设置QRDbText的值为fields字段的值,打开query,就可以预览时看到了呀~
 
我想动态生成qrdbtext是可以达到目的的:
var
qtext:array[1..20] of TQRDBText;
i:integer;
for i:=0 to query1.fieldcount-1do
begin
qrtext[i+1]:=TQRDBText.create(self);
...........
end;
 

Similar threads

回复
0
查看
832
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部