rewardpun_unit.pas

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

unit rewardpun_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
  type
   Trewardpun=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  RewardPunRec(ReId:string):Boolean;
   function  RewardPunRec1(FindSQL:string):Boolean;
   function  GetRWPIdList():Tstrings;
   function  GetWorkerId(ReId:string):string;
   function  GetRecordDate(ReId:string):string;
   function  GetRecordType(ReId:string):string;
   function  GetWorkerName(ReId:string):string;
   function  GetRecCont(ReId:string):string;
   function  GetRecReason(ReId:string):string;
   function  GetAllowUnit(ReId:string):string;
   function  GetRemark(ReId:string):string;
   function  GetRewardCount(year,month:string):Integer;
   function  GetPunCount(year,month:string):Integer;
   function  RewardPunRecs(SQL:string):OLEVariant;
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(ReId:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

 function Trewardpun.GetRWPIdList():TStrings;
 var
  idrec:TStrings;
 begin
  idrec:=TStringlist.Create ;
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select distinct(worker_id) from reward_pun');
  Datamod.Person_adoq2.Open;
  while not Datamod.Person_adoq2.Eof  do
  begin
  idrec.Add(Datamod.Person_adoq2.fieldbyname('worker_id').AsString);
  Datamod.Person_adoq2.Next;
  end;
  result:=idrec;
 end;

 function Trewardpun.RewardPunRec(ReId:string):Boolean;
 begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;

 function Trewardpun.RewardPunRec1(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 Trewardpun.GetWorkerId(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_id').AsString;
 end;

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

  function Trewardpun.GetRecordDate(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('record_date').AsString;
 end;

  function Trewardpun.GetRecordType(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('record_type').AsString;
 end;

  function Trewardpun.GetRecCont(ReId:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('record_content').AsString;
 end;

  function Trewardpun.GetRecReason(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('record_reason').AsString;
 end;

  function Trewardpun.GetAllowUnit(ReId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_id='''+ReId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('allow_unit').AsString;
 end;

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

  function Trewardpun.GetRewardCount(year,month:string):Integer;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_type=''奖励'' '
+'and year(record_date)='''+year+''' and month(record_date)='''+month+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.RecordCount;
 end;

   function Trewardpun.GetPunCount(year,month:string):Integer;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_type=''惩罚'' '
+'and year(record_date)='''+year+''' and month(record_date)='''+month+'''');
  Datamod.Person_adoq2.Open;
 result:=Datamod.Person_adoq2.RecordCount;
 end;

   function Trewardpun.RewardPunRecs(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 Trewardpun.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 Trewardpun.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 Trewardpun.RecDel(ReId:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  check_info where record_id='''+ReId+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

end.