rep1.pas

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

unit rep1;

interface

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

type
  TQuickReport1 = class(TQuickRep)
    QRSubDetail1: TQRSubDetail;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    Table1: TTable;
    QRBand2: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    QRLabel36: TQRLabel;
    QRLabel37: TQRLabel;
    QRLabel38: TQRLabel;
    QRLabel39: TQRLabel;
    QRLabel40: TQRLabel;
    QRLabel41: TQRLabel;
    QRLabel42: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel44: TQRLabel;
    QRLabel45: TQRLabel;
    QRLabel46: TQRLabel;
    //procedure QRExpr1Print(sender: TObject; var Value: String);
    procedure QRSysData1Print(sender: TObject; var Value: String);
    procedure QRLabel1Print(sender: TObject; var Value: String);
    procedure QRLabel2Print(sender: TObject; var Value: String);
    procedure QRLabel5Print(sender: TObject; var Value: String);
    procedure QRLabel6Print(sender: TObject; var Value: String);
  private

  public

  end;

var
  QuickReport1: TQuickReport1;

implementation

{$R *.DFM}



procedure TQuickReport1.QRSysData1Print(sender: TObject;
  var Value: String);

  var
   ddate:tdate;
  wyear,wmonth,wday:word;

begin

ddate:=date();
decodedate(ddate,wyear,wmonth,wday);
//qrsysdata1.Text:=inttostr(wyear)+'年'+inttostr(wmonth)+'月';

//qrsysdata1.Data:='gfdgd';

 //qrexpr1.Expression:='jkjsfjlksjf';
end;

procedure TQuickReport1.QRLabel1Print(sender: TObject; var Value: String);


var
   ddate:tdate;
  wyear,wmonth,wday:word;

begin

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


end;

procedure TQuickReport1.QRLabel2Print(sender: TObject; var Value: String);
begin
qrlabel2.Caption:=table1.FieldValues['队别']+'职工工资表';
end;

procedure TQuickReport1.QRLabel5Print(sender: TObject; var Value: String);
begin




qrlabel5.WordWrap:=TRUE;
QRLABEL5.Caption:='工龄'+CHR(13)+'工资';
end;

procedure TQuickReport1.QRLabel6Print(sender: TObject; var Value: String);
begin
qrlabel6.Caption:='技能'+chr(13)+'工资';
end;

end.