salesmanqueryreportfrm.pas

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

unit SalesManQueryReportFrm;

interface

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

type
  TQRSalesManQuery = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    LTitle: TQRLabel;
    LReportMaker: TQRLabel;
    QREDate: TQRExpr;
    ADOTable1: TADOTable;
    PageFooterBand1: TQRBand;
    DetailBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    QRLabel5: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel10: TQRLabel;
    LSalesManId: TQRDBText;
    LSalesManName: TQRDBText;
    LGoodId: TQRDBText;
    LGoodName: TQRDBText;
    LGoodType: TQRDBText;
    LGoodUnit: TQRDBText;
    LGoodNum: TQRDBText;
    LSaleDate: TQRDBText;
    QRExpr2: TQRExpr;
    QRExpr1: TQRExpr;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
    FUserName: string;
  public
    { Public declarations }
    procedure SetUserName(AValue: string);

  end;

var
  QRSalesManQuery: TQRSalesManQuery;

implementation

{$R *.DFM}

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


procedure TQRSalesManQuery.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  LConfigMgr: TConfigMgr;
begin
  LConfigMgr := TConfigMgr.Create;
  LTitle.Caption :=LConfigMgr.CompanyName + '业务员销售统计报表';
  FreeAndNil(LConfigMgr);
  DMMain.ADOTOperator.Open;
  DMMain.ADOTOperator.First;
  if DMMain.ADOTOperator.Locate('UserName', FUserName,[]) then
  begin
    LReportMaker.Caption := '制表人：' +
      DMMain.ADOTOperator.FieldByName('UserRealName').AsString;
  end
  else
  begin
    LCShowMessage('用户名不存在！');
  end;
  DMMain.ADOTSalesManQuery.Open;
  DMMain.ADOTSalesManQuery.First;
end;

end.