用QReport做的表单为什么每次只能打印出一条数据，而不能把检索到的数据全打出来？(50分)

用QReport做的表单为什么每次只能打印出一条数据，而不能把检索到的数据全打出来？
打印部分的代码：
procedure TForm1.Button4Click(Sender: TObject);
begin
DataModule2.ADOQuery2.Close;
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Select 姓名 from tbcase order by 编号');
DataModule2.ADOQuery1.Open;
Unit3.PSu_print.QRDBText1.DataSet:=DataMod.DataModule2.ADOQuery1;
Unit3.PSu_print.quickRep1.Preview;
DataMod.DataModule2.ADOQuery1.Close;
end;
是不是在属性那还要设什么东西？

procedure TForm1.Button4Click(Sender: TObject);
begin
Unit3.PSu_print.QRDBText1.DataSet:=DataMod.DataModule2.ADOQuery1;
<<--这句换到前面试试
DataModule2.ADOQuery2.Close;
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Select 姓名 from tbcase order by 编号');
DataModule2.ADOQuery1.Open;
Unit3.PSu_print.quickRep1.Preview;
DataMod.DataModule2.ADOQuery1.Close;
end;

不行，打印的时候还是只能打第一条记录

哪位大侠能解决，帮帮忙
或加偶的QQ23818127，急！！！！！！！！！！！！！

没人能帮忙解决吗？
偶的表单里只有QuincRep1、QRBand1和QRDBText1这几个控件，没有别的
可打印的时候只能打出每一条记录，别的记录都不能打印，但检索出好多条记录的

自己解决了，谢谢大家的关注