rep1.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 87 行

unit rep1;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  Tuserdefinereport = class(TQuickRep)
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRBand4: TQRBand;
    QRBand5: TQRBand;
    QRBand3: TQRBand;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public

  end;

var
  userdefinereport: Tuserdefinereport;
  cap,total:boolean;
  ucap,utotal,index:string;
implementation

uses printsel,canfind,main, print;
{$R *.DFM}

procedure Tuserdefinereport.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var qrtotal,qrtotal1:TQRExpr;
    qrlabel,qrlabel1:TQRLabel;
begin
   qrlabel2.caption:=companyname1;
   qrlabel2.update;
   qrlabel2.left:=0;
   qrlabel3.left:=0;
   qrlabel3.width:=userdefinereport.Width;
   qrlabel2.width:=userdefinereport.width;
   if cap and (trim(ucap)<>'') then
      qrlabel3.caption:=ucap;
   qrlabel3.update;
 //  if total and (trim(utotal)<>'') then
 //  begin
   if formprint.field11<>'' then
   begin
      qrtotal:=TQRExpr.create(self);
      qrtotal.parent:=userdefinereport.QRBand4;
      qrtotal.Expression:='Sum('+formprint.field11+')';
      qrtotal.Left:=400;
      qrtotal.top:=10;
      qrtotal.show;
   end;
   if formprint.field21<>'' then
   begin
      qrtotal1:=TQRExpr.create(self);
      qrtotal1.parent:=userdefinereport.QRBand4;
      qrtotal1.Expression:='Sum('+formprint.field21+')';
      qrtotal1.Left:=170;
      qrtotal1.top:=10;
      qrtotal1.show;
   end;
   if formprint.field1<>'' then
   begin
      qrlabel:=TQRLabel.create(self);
      qrlabel.parent:=userdefinereport.QRBand4;
      qrlabel.Left:=250;
      qrlabel.top:=10;
      qrlabel.caption:='总计（'+formprint.field1+'）:';
   end;
   if formprint.field2<>'' then
   begin
      qrlabel1:=TQRLabel.create(self);
      qrlabel1.parent:=userdefinereport.QRBand4;
      qrlabel1.Left:=20;
      qrlabel1.top:=10;
      qrlabel1.caption:='总计（'+formprint.field2+'）:';
   end;
end;

end.