是关于报表的.
两个窗体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、只显示一行数据,而实际查到却有多行数据
是什么地方不对?
解决方案 »
- BDE 连接DELPHI程序和VF数据库的问题,BDE中建别名时VF的user name和password是什么
- tstringgrid的cell怎样直接进入编辑状态呢
- adotable中怎么实现按多个字段排序?
- 图像格式转换问题(在内存中)
- string Tstrings Tstringlist Tlist 有何区别?
- fastreport中如何添加空记录生成完整表格?
- 请大虾帮忙,如何将big5和gbk转换,不用控件,我要底层的算法,急急
- 如何向自己的程序发送功能键的press消息(例如:F8)?
- 急!如何才能把用query控件从磁盘调入的数据库及查询后的数据打印预览到QuickRep控件?
- 请问有什么软件或编程的方法把打包好的安装程序里的资源释放出来?
- 对文本文件的操作?请看代码!
- 招聘,工作地点在南京
QR。DATASET:=TABLE1;
QR。DATASET:=TABLE1;