personattendmanage.pas

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

unit PersonAttendManage;

interface

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

type
  TPersonAttendManageFrm = class(TForm)
    Button1: TButton;
    PersonAttendG: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

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

var
  PersonAttendManageFrm: TPersonAttendManageFrm;

implementation
   uses PersonnelDataDM, AttendManage, Enter;
{$R *.dfm}


procedure TPersonAttendManageFrm.FormCreate(Sender: TObject);
var i:integer;
begin
   with PersonattendG do
    begin
     PersonattendG.ColCount:=14;
     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 attend_info where '+' EmployeeID'+'='+ DLFrm.UserID);
        open;
        first;
        with PersonattendG do
          for i:=1 to PersonnelData.ADOQuery1.RecordCount do
            begin
             cells[0,i]:=fieldbyname('Time').AsString;
             cells[1,i]:=inttostr(fieldbyname('EmployeeID').asinteger);
             cells[2,i]:=fieldbyname('Name').AsString;
             cells[3,i]:=inttostr(fieldbyname('Late').asinteger);
             cells[4,i]:=inttostr(fieldbyname('Leave_early').asinteger);
             cells[5,i]:=inttostr(fieldbyname('Pa_leave').asinteger);
             cells[6,i]:=inttostr(fieldbyname('S_leave').asinteger);
             cells[7,i]:=inttostr(fieldbyname('Absence').asinteger);
             cells[8,i]:=inttostr(fieldbyname('Job_wound').asinteger);
             cells[9,i]:=inttostr(fieldbyname('Holiday').asinteger);
             cells[10,i]:=inttostr(fieldbyname('W_leave').asinteger);
             cells[11,i]:=inttostr(fieldbyname('M_leave').asinteger);
             cells[12,i]:=inttostr(fieldbyname('F_leave').asinteger);
             cells[13,i]:=inttostr(fieldbyname('H_leave').asinteger);
             next;
            end;
       end;
end;


 //返回按钮
procedure TPersonAttendManageFrm.Button1Click(Sender: TObject);
begin
    PersonAttendManageFrm.Close;
end;

end.