Question

Delphi中用Rave报表为什么不能打印SQL随机查询结果？

组件：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动态查询的结果。

请问各位大侠，错误出在哪里？如何修改？谢谢！

Answer 1

在程序代码中，删除窗体的创建。改为动态创建，即可解决你的问题。

Answer 2

你为什么不用 fastreport