QuickReport

          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;