unit12.pas

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

unit Unit12;

interface

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

type
  TQuickReport12 = class(TQuickRep)
    PageHeaderBand1: TQRBand;
    QRExpr50: TQRExpr;
    QRLabel2: TQRLabel;
    QRExpr49: TQRExpr;
    QRExpr1: TQRExpr;
    DetailBand1: TQRBand;
    QRExpr2: TQRExpr;
    QRLabel4: TQRLabel;
    QRLabel1: TQRLabel;
    QRExpr51: TQRExpr;
    QRLabel3: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel50: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel49: TQRLabel;
    QRLabel48: TQRLabel;
    QRLabel47: TQRLabel;
    QRLabel45: TQRLabel;
    QRLabel44: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel42: TQRLabel;
    QRLabel41: TQRLabel;
    QRLabel40: TQRLabel;
    QRLabel39: TQRLabel;
    QRLabel38: TQRLabel;
    QRLabel37: TQRLabel;
    QRLabel36: TQRLabel;
    QRLabel35: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel46: TQRLabel;
    QRExpr9: TQRExpr;
    QRExpr8: TQRExpr;
    QRExpr7: TQRExpr;
    QRExpr47: TQRExpr;
    QRExpr46: TQRExpr;
    QRExpr45: TQRExpr;
    QRExpr43: TQRExpr;
    QRExpr42: TQRExpr;
    QRExpr41: TQRExpr;
    QRExpr40: TQRExpr;
    QRExpr4: TQRExpr;
    QRExpr39: TQRExpr;
    QRExpr38: TQRExpr;
    QRExpr37: TQRExpr;
    QRExpr36: TQRExpr;
    QRExpr35: TQRExpr;
    QRExpr34: TQRExpr;
    QRExpr33: TQRExpr;
    QRExpr32: TQRExpr;
    QRExpr31: TQRExpr;
    QRExpr30: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr29: TQRExpr;
    QRExpr28: TQRExpr;
    QRExpr27: TQRExpr;
    QRExpr26: TQRExpr;
    QRExpr25: TQRExpr;
    QRExpr24: TQRExpr;
    QRExpr23: TQRExpr;
    QRExpr22: TQRExpr;
    QRExpr21: TQRExpr;
    QRExpr20: TQRExpr;
    QRExpr19: TQRExpr;
    QRExpr18: TQRExpr;
    QRExpr16: TQRExpr;
    QRExpr15: TQRExpr;
    QRExpr14: TQRExpr;
    QRExpr13: TQRExpr;
    QRExpr12: TQRExpr;
    QRExpr11: TQRExpr;
    QRExpr17: TQRExpr;
    Table1: TTable;
    QRExpr48: TQRExpr;
    QRExpr5: TQRExpr;
    QRExpr6: TQRExpr;
    QRExpr10: TQRExpr;
   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);
    procedure QRLabel7Print(sender: TObject; var Value: String);
    procedure QRLabel8Print(sender: TObject; var Value: String);
   //procedure QRLabel10Print(sender: TObject; var Value: String);
    //procedure QRLabel11Print(sender: TObject; var Value: String);
    procedure QRLabel12Print(sender: TObject; var Value: String);
    procedure QRLabel13Print(sender: TObject; var Value: String);
    procedure QRLabel14Print(sender: TObject; var Value: String);
    procedure QRLabel15Print(sender: TObject; var Value: String);
    procedure QRLabel26Print(sender: TObject; var Value: String);
    procedure QRLabel27Print(sender: TObject; var Value: String);
    procedure QRLabel28Print(sender: TObject; var Value: String);
    procedure QRLabel29Print(sender: TObject; var Value: String);
    procedure QRLabel30Print(sender: TObject; var Value: String);
    procedure QRLabel31Print(sender: TObject; var Value: String);
    procedure QRLabel33Print(sender: TObject; var Value: String);
    procedure QRLabel42Print(sender: TObject; var Value: String);
    procedure QRLabel43Print(sender: TObject; var Value: String);
    procedure QRLabel44Print(sender: TObject; var Value: String);
    procedure QRLabel45Print(sender: TObject; var Value: String);
    procedure QRLabel46Print(sender: TObject; var Value: String);
    procedure QRLabel49Print(sender: TObject; var Value: String);
    procedure QRLabel50Print(sender: TObject; var Value: String);
    procedure QRLabel23Print(sender: TObject; var Value: String);
    procedure QRLabel19Print(sender: TObject; var Value: String);
    procedure QuickRepStartPage(Sender: TCustomQuickRep);
    procedure QuickRepPreview(Sender: TObject);
    procedure QRLabel3Print(sender: TObject; var Value: String);
  private

  public

  end;

var
  QuickReport12: TQuickReport12;
  var xh:integer;


implementation

  uses GJGZGL,unitds;

{$R *.DFM}

procedure TQuickReport12.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 TQuickReport12.QRLabel2Print(sender: TObject; var Value: String);
begin
//     qrlabel2.Caption:=form1.dszm.text+'职工工资表';
end;

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

qrlabel5.Caption:='工龄'+chr(13)+'工资';


end;

procedure TQuickReport12.QRLabel6Print(sender: TObject; var Value: String);
begin

qrlabel6.Caption:='技能'+chr(13)+'工资';

end;

procedure TQuickReport12.QRLabel7Print(sender: TObject; var Value: String);
begin

qrlabel7.Caption:='效益'+chr(13)+'工资';

end;

procedure TQuickReport12.QRLabel8Print(sender: TObject; var Value: String);
begin
qrlabel8.Caption:='其它'+chr(13)+'工资';

end;

procedure TQuickReport12.QRLabel46Print(sender: TObject; var Value: String);
begin
qrlabel46.Caption:='加班'+chr(13)+' 费';

end;

procedure TQuickReport12.QRLabel19Print(sender: TObject; var Value: String);
begin
qrlabel19.Caption:='利润'+chr(13)+'提成';

end;

procedure TQuickReport12.QRLabel12Print(sender: TObject; var Value: String);
begin
qrlabel12.Caption:='补发'+chr(13)+' 1';

end;

procedure TQuickReport12.QRLabel13Print(sender: TObject; var Value: String);
begin
qrlabel13.Caption:='补发'+chr(13)+' 2';
end;

procedure TQuickReport12.QRLabel14Print(sender: TObject; var Value: String);
begin
//qrlabel14.Caption:='补发'+chr(13)+' 3';
end;

procedure TQuickReport12.QRLabel15Print(sender: TObject; var Value: String);
begin
 qrlabel15.Caption:='独子'+chr(13)+' 费';

end;

procedure TQuickReport12.QRLabel26Print(sender: TObject; var Value: String);
begin
qrlabel26.Caption:='趟次'+chr(13)+' 扣';

end;

procedure TQuickReport12.QRLabel27Print(sender: TObject; var Value: String);
begin
qrlabel27.Caption:='安全'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel28Print(sender: TObject; var Value: String);
begin
qrlabel28.Caption:='服务'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel29Print(sender: TObject; var Value: String);
begin
qrlabel29.Caption:='卫生'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel30Print(sender: TObject; var Value: String);
begin
qrlabel30.Caption:='准点'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel31Print(sender: TObject; var Value: String);
begin
qrlabel31.Caption:='技术'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel33Print(sender: TObject; var Value: String);
begin
qrlabel33.Caption:='应发'+chr(13)+'工资';
end;

procedure TQuickReport12.QRLabel42Print(sender: TObject; var Value: String);
begin
qrlabel42.Caption:='大病'+chr(13)+' 保';
end;

procedure TQuickReport12.QRLabel43Print(sender: TObject; var Value: String);
begin
qrlabel43.Caption:='车队'+chr(13)+' 扣';
end;

procedure TQuickReport12.QRLabel44Print(sender: TObject; var Value: String);
begin
qrlabel44.Caption:='扣款'+chr(13)+' 1';
end;

procedure TQuickReport12.QRLabel45Print(sender: TObject; var Value: String);
begin
qrlabel45.Caption:='天然'+chr(13)+' 气';
end;

//procedure TQuickReport12.QRLabel46Print(sender: TObject; var Value: String);
//begin
//qrlabel46.Caption:='扣款'+chr(13)+' 3';
//end;

procedure TQuickReport12.QRLabel49Print(sender: TObject; var Value: String);
begin
qrlabel49.Caption:='实发'+chr(13)+'工资';
end;

procedure TQuickReport12.QRLabel50Print(sender: TObject; var Value: String);
begin
qrlabel50.Caption:='本月'+chr(13)+' 尾';
end;

procedure TQuickReport12.QRLabel23Print(sender: TObject; var Value: String);
begin
qrlabel23.Caption:='上月'+chr(13)+' 尾';
end;

procedure TQuickReport12.QuickRepStartPage(Sender: TCustomQuickRep);
begin

xh:=0;


end;

procedure TQuickReport12.QuickRepPreview(Sender: TObject);
begin
//table1.Filter:='队别'+'='+''''+form1.dszm.Text+'''';
//quickreport6.ResetIme;
end;

procedure TQuickReport12.QRLabel3Print(sender: TObject; var Value: String);
var
ddate:tdate;
  wyear,wmonth,wday:word;
begin


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

//qrlabel3.Alignment:=

end;

end.