personwagemanage.pas

人事工资考勤管理信息系统

unit PersonWageManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, DB, ADODB, DBGrids;

type
  TPersonWageManageFrm = class(TForm)
    Panel1: TPanel;
    wageG: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);  
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PersonWageManageFrm: TPersonWageManageFrm;
implementation
  uses PersonnelDataDM,Enter;
{$R *.dfm}

procedure TPersonWageManageFrm.FormCreate(Sender: TObject);
var i:integer;
begin
   with wageG do
    begin
     cells[0,0]:='部门代码';
     cells[1,0]:='部门名称';
     cells[2,0]:='职工类型';
     cells[3,0]:='职工代码';
     cells[4,0]:='职工姓名';
     cells[5,0]:='基本工资';
     cells[6,0]:='基本奖金';
     cells[7,0]:='效益奖金';
     cells[8,0]:='养老保险';
     cells[9,0]:='医疗保险';
     cells[10,0]:='扣发工资';
     cells[11,0]:='扣发奖金';
     cells[12,0]:='考勤扣发';
     cells[13,0]:='实发工资';
    end;

    with  PersonnelData.ADOQuery1 do
       begin
        close;
        SQL.Clear;
        SQL.Add('Select * from wage_manage where '+' EmployeeID'+'='+ DLFrm.UserID);
        open;
        first;
        with wageG do
          for i:=1 to PersonnelData.ADOQuery1.RecordCount do
            begin
             cells[0,i]:=inttostr(fieldbyname('DepartID').asinteger);
             cells[1,i]:=fieldbyname('DepartName').AsString;
             cells[2,i]:=fieldbyname('EmployeeClass').AsString;
             cells[3,i]:=inttostr(fieldbyname('EmployeeID').asinteger);
             cells[4,i]:=fieldbyname('Name').AsString;
             cells[5,i]:=floattostr(fieldbyname('Base_pay').AsFloat);
             cells[6,i]:=floattostr(fieldbyname('Base_prize').AsFloat);
             cells[7,i]:=floattostr(fieldbyname('Benefit_prize').AsFloat);
             cells[8,i]:=floattostr(fieldbyname('E_insurance').AsFloat);
             cells[9,i]:=floattostr(fieldbyname('Medicare').AsFloat);
             cells[10,i]:=floattostr(fieldbyname('Deprive_pay').AsFloat);
             cells[11,i]:=floattostr(fieldbyname('Deprive_prize').AsFloat);
             cells[12,i]:=floattostr(fieldbyname('Deprive_attend').AsFloat);
             cells[13,i]:=floattostr(fieldbyname('Pay').AsFloat);
             next;
            end;
        end;
end;

procedure TPersonWageManageFrm.Button1Click(Sender: TObject);
begin
    PersonWageManageFrm.Close;
end;

end.