basedata_unit.pas.~8~

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

unit basedata_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit,DB;
  type
   Tbasedata=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  CheckRec(Id:string):Boolean;
   function  GetArcId(WorkId:string):string;
   function  GetWorkerName(WorkId:string):string;
   function  GetDepartName(WorkId:string):string;
   function  GetSex(WorkId:string):string;
   function  GetBirth(WorkId:string):string;
   function  GetNativePlace(WorkId:string):string;
   function  GetSchAge(WorkId:string):string;
   function  GetMajor(WorkId:string):string;
   function  GetGraSch(WorkId:string):string;
   function  GetPoliSta(WorkId:string):string;
   function  GetWorkTime(WorkId:string):string;
   function  GetComeTime(WorkId:string):string;
   function  GetLinkPhone(WorkId:string):string;
   function  GetAddress(WorkId:string):string;
   function  GetRemark(WorkId:string):string;
   function  GetPhoto(WorkId:string):Tstream;
   //function  GetBlob():TField;
   function  AllRec(SQL:string):OLEVariant;
   procedure WorkId1(Id:string;path1:string);
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(Id:string);
   procedure FindRec(Id:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

 function Tbasedata.CheckRec(Id:string):Boolean;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
  if Datamod.Person_adoq2.Eof then result:=false
  else result:=true;
 end;

  function Tbasedata.GetArcId(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('archives_id').AsString;
 end;

   function Tbasedata.GetWorkerName(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
 end;

   function Tbasedata.GetDepartName(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('department_name').AsString;
 end;

   function Tbasedata.GetSex(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('sex').AsString;
 end;

   function Tbasedata.GetBirth(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('birthday').AsString;
 end;

   function Tbasedata.GetNativePlace(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('native_place').AsString;
 end;

   function Tbasedata.GetSchAge(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('school_age').AsString;
 end;

   function Tbasedata.GetMajor(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('major').AsString;
 end;

   function Tbasedata.GetGraSch(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('graduate_sch').AsString;
 end;

   function Tbasedata.GetPoliSta(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('politic_status').AsString;
 end;

   function Tbasedata.GetWorkTime (WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('work_time').AsString;
 end;

   function Tbasedata.GetComeTime(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('come_time').AsString;
 end;

   function Tbasedata.GetLinkPhone(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('link_phone').AsString;
 end;

    function Tbasedata.GetRemark(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
 end;

   function Tbasedata.GetPhoto (WorkId:string):Tstream;

 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
  result:=Datamod.Person_adoq2.CreateBlobStream(Datamod.Person_adoq2.FieldbyName('photo'),bmRead);

 end;

   function Tbasedata.GetAddress(WorkId:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from base_data where worker_id='''+WorkId+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('address').AsString;
 end;
       {
  function Tbasedata.GetBlob():TField;
 begin
  Datamod.Person_adoq1.Close ;
  Datamod.Person_adoq1.SQL.Clear;
  Datamod.Person_adoq1.SQL.Add(' select WORKER_ID 员工编号,WORKER_NAME 员工姓名,SEX '
+'性别,ARCHIVES_ID 档案编号 ,SCHOOL_AGE 学历,PHOTO 个人照片,'
+'BIRTHDAY 出生日期,NATIVE_PLACE 籍贯,GRADUATE_SCH 毕业学校,'
+'POLITIC_STATUS 政治面貌,LINK_PHONE 联系电话,DEPARTMENT_NAME '
+'所在部门名称,MAJOR 专业,ADDRESS 住址,WORK_TIME 参加工作时间,'
+'COME_TIME 入本单位时间,REMARK 备注  '
+' FROM BASE_DATA ');
  Datamod.Person_adoq1.Open ;
 result:=Datamod.Person_adoq1.fieldbyname('个人照片');
 end;    }

  function Tbasedata.AllRec(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 Tbasedata.WorkId1(Id:string;path1:string);
 var
 picture1:Tpicture;
 begin

  picture1:=tpicture.create;
  picture1.LoadFromFile(path1); 
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from base_data ');
  Datamod.Person_adoq2.Open;
  Datamod.Person_adoq2.Insert;
  Datamod.Person_adoq2.fieldbyname('worker_id').AsString:=Id;
  Datamod.Person_adoq2.FieldByName('photo').Assign(picture1);
  Datamod.Person_adoq2.Post;
 end;


 procedure Tbasedata.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 Tbasedata.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 Tbasedata.RecDel(Id:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  BASE_DATA where WORKER_ID='''+Id+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

   procedure Tbasedata.FindRec(Id:string);
 begin
  Datamod.Person_adoq3.Close ;
  Datamod.Person_adoq3.SQL.Clear;
  Datamod.Person_adoq3.SQL.Add('select *  from  BASE_DATA where WORKER_ID='''+Id+'''');
  Datamod.Person_adoq3.Open;
 end;




end.