【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:CRPrint.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit CRPrint;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, QuickRpt, ExtCtrls, QRCtrls;
    
    type
      TF_CRPrint = class(TForm)
        QuickRep1: TQuickRep;
        TitleBand1: TQRBand;
        DetailBand1: TQRBand;
        QRLabel1: TQRLabel;
        PageFooterBand1: TQRBand;
        QRSysData1: TQRSysData;
        QRSysData2: TQRSysData;
        QRShape3: TQRShape;
        QRShape4: TQRShape;
        QRShape7: TQRShape;
        QRLabel2: TQRLabel;
        QRDBText1: TQRDBText;
        QRLabel3: TQRLabel;
        QRDBText2: TQRDBText;
        QRLabel4: TQRLabel;
        QRDBText3: TQRDBText;
        QRLabel5: TQRLabel;
        QRDBText4: TQRDBText;
        QRLabel6: TQRLabel;
        QRDBText5: TQRDBText;
        QRLabel7: TQRLabel;
        QRDBText6: TQRDBText;
        QRShape1: TQRShape;
        QRLabel8: TQRLabel;
        procedure QuickRep1AfterPreview(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      F_CRPrint: TF_CRPrint;
    
    implementation
    
    uses DataModule;
    
    {$R *.dfm}
    
    procedure TF_CRPrint.QuickRep1AfterPreview(Sender: TObject);
    begin
        Close;
    end;
    
    procedure TF_CRPrint.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
        Action := caFree;
        F_CRPrint := nil;
    end;
    
    end.
    

上一篇：CRMMain_Unit.pas
下一篇：餐饮管理系统