Question

delphi 数据库查询显示问题

通过用户名查询用户的购买记录
使用自带的打印控件QuickRpt　显示数据库查询结果，为什么得到的结果是一样的？
现在情况是假如：用户购买记录有三次，应该每次是不同的．但是现在显示的是三次但三次的结果是一样的？
正常情况应该是用户有几次购买记录就显示几条购买记录而且每条记录是不同的．
begin
with ADOQuery1 do begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From T_Powersell Where F_name =:F_name');
ADOQuery1.Parameters.ParamByName('F_name').Value := trim(edit1.Text);
AdoQuery1.Open;

QRLabel2.Caption :='User';
QRLabel7.Caption :=ADOQuery1.FieldValues ['F_name'];

QRLabel3.Caption :='Meter NO.';
QRLabel8.Caption :=ADOQuery1.FieldValues ['F_meterno'];

QRLabel4.Caption :='Customer NO.';
QRLabel9.Caption :=ADOQuery1.FieldValues ['F_custno'];

QRLabel5.Caption :='kWh';
QRLabel10.Caption :=ADOQuery1.FieldValues ['F_amount'];

QRLabel12.Caption :='Total Amount';
QRLabel13.Caption :=ADOQuery1.FieldValues ['F_total'];

QRLabel6.Caption :='Time & Date';
QRLabel11.Caption :=ADOQuery1.FieldValues ['F_time'];
QuickRep1.Preview;
end
end;
哪位帮我看看代码有什么问题吗？
想要的结果是通过查询用户名　得到用户的购买记录　有N次购买记录就显示N次再打印．
难道是不能用 QRLabel应该用 QREdit?

Answer 1

这应该是你的quickrep使用的问题！
你的QRlabel应该放到数据集控件上，你的QRLABEL应该是放到了REPORT TITLE上面吧。。

可能有点乱，因为很多年都不用这个控件了。。一般用fastreport..

追问

我的QRlabel 是放在quickrep 控件上的　

追答

记得quickrep里有个报表头控件，只能显示一条，一般这里放一报表头、标题什么，然后还有报表列表控件，这里应该是显示查询结果，可以把结果一条条列出来，另外好像还有个报表尾，这里就是打印一些页码什么的。如果你把qrlabel放到头和尾上，无论你查出多少条，一次只能显示一条。

手头没有DELPHI，只能这样回答你。。

追问

你说的我知道．现在是可以显示很多条记录．但每条记录都是一样的？

追答

记忆太模糊了。大约有很多年没用QR了,QR里有个dataset属性是否设置？

追问

上面的代码有没有问题？这上QR控件我也是第一次用不熟！我看哈！dataset 属性有什么用？

追答

代码没看到有什么问题，不过不建议你用qrlabel，貌似有qr的dblabel控件。。连接到数据库上就OK了。。

Answer 2

改fastreport或者reportmachine吧
Qreport太单调了
应该是你的逐项数据没有对应到数据集

追问

Qrepotr 就够用了啊！！！你的逐项数据没有对应到数据集　能详细说一下吗？

追答

Quickreport的dataset设置为你的ADOQuery就可以了