是关于报表的.
两个窗体Form1,form3。form1中有控件datasetzfm,button1。form3中有控件quickrep1,上边放有qrband2,qrband3,qrband4,其bandtype属性依次设为rbtitle,rbcolumnheader,rbdetail。qrband3中放有qrlabel2到qrlabel5。qrband4中放有qrdbtext1到qrdbtext4。现有如下程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
datasetzfm.Close;
datasetzfm.CommandText:=searchsql;
datasetzfm.Open;
if datasetzfm.RecordCount=0 then
showmessage('对不起,没有查到相关记录!')
else
begin
form3.QRLabel2.Caption:='公司';
form3.QRLabel3.Caption:='收款';
form3.QRLabel4.Caption:='支付';
form3.QRLabel5.Caption:='差额';
form3.QRDBText1.DataSet:=datasetzfm;
form3.QRDBText2.DataSet:=datasetzfm;
form3.QRDBText3.DataSet:=datasetzfm;
form3.QRDBText4.DataSet:=datasetzfm;
form3.QRDBText1.DataField:='公司';
form3.QRDBText2.DataField:='收款';
form3.QRDBText3.DataField:='支付';
form3.QRDBText4.DataField:='差额';
form3.QuickRep1.Preview;
end;
现在有两个问题:
1、QRLabel2到QRLabel5均无显示
2、只显示一行数据,而实际查到却有多行数据
是什么地方不对?
两个窗体Form1,form3。form1中有控件datasetzfm,button1。form3中有控件quickrep1,上边放有qrband2,qrband3,qrband4,其bandtype属性依次设为rbtitle,rbcolumnheader,rbdetail。qrband3中放有qrlabel2到qrlabel5。qrband4中放有qrdbtext1到qrdbtext4。现有如下程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
datasetzfm.Close;
datasetzfm.CommandText:=searchsql;
datasetzfm.Open;
if datasetzfm.RecordCount=0 then
showmessage('对不起,没有查到相关记录!')
else
begin
form3.QRLabel2.Caption:='公司';
form3.QRLabel3.Caption:='收款';
form3.QRLabel4.Caption:='支付';
form3.QRLabel5.Caption:='差额';
form3.QRDBText1.DataSet:=datasetzfm;
form3.QRDBText2.DataSet:=datasetzfm;
form3.QRDBText3.DataSet:=datasetzfm;
form3.QRDBText4.DataSet:=datasetzfm;
form3.QRDBText1.DataField:='公司';
form3.QRDBText2.DataField:='收款';
form3.QRDBText3.DataField:='支付';
form3.QRDBText4.DataField:='差额';
form3.QuickRep1.Preview;
end;
现在有两个问题:
1、QRLabel2到QRLabel5均无显示
2、只显示一行数据,而实际查到却有多行数据
是什么地方不对?
QR。DATASET:=TABLE1;
QR。DATASET:=TABLE1;