Y
yyy_as
Unregistered / Unconfirmed
GUEST, unregistred user!
我QReport用写代码的形式生成简单的列表式报表。
代码如下:结果确是显示一行。
我觉得是QRDBText2.DataField 后面的字段设置有问题,但又不知道如何设置。
请帮忙看一下,本人在此谢谢了。
procedure TfrmFindPrint.Button3Click(Sender: TObject);
begin
with TfrmQReportPrint.Create(self)do
show;
end;
procedure TfrmQReportPrint.FormCreate(Sender: TObject);
begin
with frmdm.ADOQuery1do
begin
close;
sql.Clear;
sql.add('select * from total1');
open;
QRLabel1.Caption:='½±ÅÅ°ñÁбí';
QRLabel2.Caption:='Delphi ±¨±íʾÀý----ÁÐ±í±¨±í';
QRLabel3.Caption:='num';
QRLabel4.Caption:='coun';
QuickRep1.DataSet:=frmdm.ADOQuery1;
QRDBText1.DataSet:=frmdm.ADOQuery1;
QRDBText1.DataField:=frmdm.ADOQuery1.FieldValues['num'];
QRDBText2.DataSet:=frmdm.ADOQuery1;
QRDBText2.DataField:=frmdm.ADOQuery1.FieldValues['coun'];
end;
end;
代码如下:结果确是显示一行。
我觉得是QRDBText2.DataField 后面的字段设置有问题,但又不知道如何设置。
请帮忙看一下,本人在此谢谢了。
procedure TfrmFindPrint.Button3Click(Sender: TObject);
begin
with TfrmQReportPrint.Create(self)do
show;
end;
procedure TfrmQReportPrint.FormCreate(Sender: TObject);
begin
with frmdm.ADOQuery1do
begin
close;
sql.Clear;
sql.add('select * from total1');
open;
QRLabel1.Caption:='½±ÅÅ°ñÁбí';
QRLabel2.Caption:='Delphi ±¨±íʾÀý----ÁÐ±í±¨±í';
QRLabel3.Caption:='num';
QRLabel4.Caption:='coun';
QuickRep1.DataSet:=frmdm.ADOQuery1;
QRDBText1.DataSet:=frmdm.ADOQuery1;
QRDBText1.DataField:=frmdm.ADOQuery1.FieldValues['num'];
QRDBText2.DataSet:=frmdm.ADOQuery1;
QRDBText2.DataField:=frmdm.ADOQuery1.FieldValues['coun'];
end;
end;