qrsalebackfrm.pas

这是一个本人初定的小制作

unit QRSaleBackFrm;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, Menus, MainDM,
  uConfigMgr, CommonFunc;

type
  TQRSaleBack = class(TQuickRep)
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLTitle: TQRLabel;
    QRExprPage: TQRExpr;
    QREDate: TQRExpr;
    QRLReportMaker: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
    FUserName: string;
  public
    procedure SetUserName(AValue: string);
  end;

var
  QRSaleBack: TQRSaleBack;

implementation

{$R *.DFM}

procedure TQRSaleBack.SetUserName(AValue: string);
begin
  FUserName := AValue;
end;

procedure TQRSaleBack.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  LConfigMgr: TConfigMgr;
begin
  LConfigMgr := TConfigMgr.Create;
  QRLTitle.Caption :=LConfigMgr.CompanyName + '退货情况统计报表';
  FreeAndNil(LConfigMgr);
  DMMain.ADOTOperator.Open;
  DMMain.ADOTOperator.First;
  if DMMain.ADOTOperator.Locate('UserName', FUserName,[]) then
  begin
    QRLReportMaker.Caption := '制表人：' +
      DMMain.ADOTOperator.FieldByName('UserRealName').AsString;
  end
  else
  begin
    LCShowMessage('发生重大错误，请联系软件开发商！');
  end;
  DMMain.ADOTSaleBack.First;
end;

end.