unit5.~pas

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

unit Unit5;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBTables;

type
  TQuickReport8 = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRExpr5: TQRExpr;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    Table1: TTable;
    QRLabel9: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel10: TQRLabel;
    QRExpr6: TQRExpr;
    QRExpr7: TQRExpr;
    QRLabel11: TQRLabel;
    QRExpr8: TQRExpr;
    procedure QRLabel6Print(sender: TObject; var Value: String);
    procedure QuickRepEndPage(Sender: TCustomQuickRep);
  private

  public

  end;

var
  QuickReport8: TQuickReport8;

implementation

{$R *.DFM}

procedure TQuickReport8.QRLabel6Print(sender: TObject; var Value: String);
var
   ddate:tdate;
  wyear,wmonth,wday:word;

begin

ddate:=date();
decodedate(ddate,wyear,wmonth,wday);
qrlabel6.Caption:=inttostr(wyear)+'年'+inttostr(wmonth)+'月';

end;

procedure TQuickReport8.QuickRepEndPage(Sender: TCustomQuickRep);
begin


quickreport8.QRLabel7.Visible:=true;
quickreport8.QRLabel8.Visible:=true;
quickreport8.QRLabel9.Visible:=true;
quickreport8.QRLabel10.Visible:=true;

quickreport8.QRLabel7.Enabled:=true;
quickreport8.QRLabel8.Enabled:=true;
quickreport8.QRLabel9.Enabled:=true;
quickreport8.QRLabel10.Enabled:=true;



end;

end.