workage_unit.~pas

本系统是结合行业管理中实际的人力资源、工资制度

unit workage_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
  type
   Tworkage=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  WorkAgeRec(Id,Work_unit:string):Boolean;
   function  WorkAgeRec1(FindSQL:string):Boolean;
   function  GetWorkerId(ReId:string):string;
   function  GetUnitName(ReId:string):string;
   function  GetWorkerName(ReId:string):string;
   function  GetBeginDate(ReId:string):string;
   function  GetOverDate(ReId:string):string;
   function  GetWorkTime(ReId:string):string;
   function  GetDuty(ReId:string):string;
   function  GetLevel1(ReId:string):string;
   function  GetRemark(ReId:string):string;
   function  GetSumWorTime(Id:string):Integer;
   function  WorkAgeRecs(SQL:string):OLEVariant;
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(ReId:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

constructor Tworkage.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;

destructor Tworkage.Destroy;
begin
 freeandnil(Datamod);
 inherited;
end;

 function Tworkage.WorkAgeRec(Id,Work_unit:string):Boolean;
 begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where '
  +'worker_id='''+Id+''' and unit_name='''+Worker_unit+'''');
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;

  function Tworkage.WorkAgeRec1(FindSQL:string):Boolean;
 begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(FindSQL);
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;

 function Tworkage.GetWorkerId(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_id').AsString;
 end;

  function Tworkage.GetUnitName(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('unit_name').AsString;
 end;

 function Tworkage.GetWorkerName(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
 end;

  function Tworkage.GetBeginDate(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('begin_date').AsString;
 end;

  function Tworkage.GetOverDate(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('over_date').AsString;
 end;

  function Tworkage.GetWorkTime(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('work_time').AsString;
 end;

   function Tworkage.GetDuty (ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.fieldbyname('duty').AsString;
 end;

    function Tworkage.GetLevel1 (ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.fieldbyname('level1').AsString;
 end;

    function Tworkage.GetRemark (ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
 end;

     function Tworkage.GetSumWorTime(Id:string):Integer;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select sum(work_time) from work_age where '
+'worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.Fields[0].AsInteger;
 end;

   function Tworkage.WorkAgeRecs(SQL:string):OLEVariant;
 begin
  Datamod.Person_adoq1.Close ;
  Datamod.Person_adoq1.SQL.Clear;
  Datamod.Person_adoq1.SQL.Add(SQL);
  Datamod.Person_adoq1.Open ;
  result:=Datamod.Person_dsp1.Data;
 end;

 procedure Tworkage.RecInsert(InsertSQL:string);
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(InsertSQL);
  Datamod.Person_adoq2.ExecSQL;
 end;

  procedure Tworkage.RecUpdate(UpdateSQL:string);
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(UpdateSQL);
  Datamod.Person_adoq2.ExecSQL;
end;

  procedure Tworkage.RecDel(ReId:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  work_age where record_id='''+ReId+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

end.