QuickReport

最新推荐文章于 2024-09-12 17:40:12 发布

weixin_30588907

最新推荐文章于 2024-09-12 17:40:12 发布

阅读量69

点赞数

原文链接：http://www.cnblogs.com/tk-del/archive/2012/03/27/2419025.html

版权

          chongzhireportfrm:=Tchongzhireportfrm.Create(application);
          chongzhireportfrm.QRLabel1.Caption      :='开户单';
          chongzhireportfrm.cardid.Caption        := trim(cardid.text);
          chongzhireportfrm.name.Caption          := trim(DBEdit8.text);
          chongzhireportfrm.amount.Caption        := '0';
          chongzhireportfrm.camount.Caption       := trim(yuchongamount.text);
          chongzhireportfrm.chamount.Caption      := trim(yuchongamount.text);
          chongzhireportfrm.userid.Caption        := LoguserName;//loguserid;
if CheckBox1.Checked then
             chongzhireportfrm.QBillTag.Caption    := '已开发票'
else chongzhireportfrm.QBillTag.Caption := '';
          chongzhireportfrm.czreport.Print;
          chongzhireportfrm.free;