Delphi中用Rave报表为什么不能打印SQL随机查询结果？
组件：query1,rvproject1,rvdatasetconnection1在query1中属性SQL中写的是select*fromshuju打印程序：proced...
组件：query1,rvproject1,rvdatasetconnection1
在query1中属性SQL中写的是select * from shuju
打印程序：
procedure TForm21.BitBtn1Click(Sender: TObject);
begin
with query3 do
begin
close;
sql.Clear;
sql.Add('select * from shuju where riqi=:a and shijian=:b');
parambyname('a').asstring:=strtoint(edit1.text);
parambyname('b').asstring:=strtoint(edit2.text);
prepare;
open;
end;
if query3.RecordCount=1 then
begin
rvproject1.Execute;
end;
end;
rvdatasetconnection1连接query1。
结果在预览出来的报表中始终显示的是在query1中属性SQL中写的是select * from shuju的查询结果，即显示数据库中的所有数据，也就是报表的内容并不是程序中SQL动态查询的结果。
请问各位大侠，错误出在哪里？如何修改？谢谢！ 展开
在query1中属性SQL中写的是select * from shuju
打印程序：
procedure TForm21.BitBtn1Click(Sender: TObject);
begin
with query3 do
begin
close;
sql.Clear;
sql.Add('select * from shuju where riqi=:a and shijian=:b');
parambyname('a').asstring:=strtoint(edit1.text);
parambyname('b').asstring:=strtoint(edit2.text);
prepare;
open;
end;
if query3.RecordCount=1 then
begin
rvproject1.Execute;
end;
end;
rvdatasetconnection1连接query1。
结果在预览出来的报表中始终显示的是在query1中属性SQL中写的是select * from shuju的查询结果，即显示数据库中的所有数据，也就是报表的内容并不是程序中SQL动态查询的结果。
请问各位大侠，错误出在哪里？如何修改？谢谢！ 展开
展开全部
在程序代码中，删除窗体的创建。改为动态创建，即可解决你的问题。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
