protitle_unit.pas

工资管理系统 可以用语SQL数据库课程设计

unit protitle_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
  type
   Tprotitle=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function  ProtitleRec(Id:string):Boolean;
   function  ProtitleRec1(FindSQL:string):Boolean;
   function  GetWorkerName(Id:string):string;
   function  GetAssessDate(Id:string):string;
   function  GetAssessUnit(Id:string):string;
   function  GetAssessTitle(Id:string):string;
   function  GetRemark(Id:string):string;
   function  ProtitleRecs(SQL:string):OLEVariant;
   procedure RecInsert(InsertSQl:string);
   procedure RecUpdate(UpdateSQl:string);
   procedure RecDel(Id:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

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

  function Tprotitle.ProtitleRec1(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 Tprotitle.GetWorkerName(Id:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
 end;

  function Tprotitle.GetAssessDate(Id:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('  select * from pro_title where worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('assess_date').AsString;
 end;

  function Tprotitle.GetAssessUnit(Id:string):string;
 begin
 Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('  select * from pro_title where worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('assess_unit').AsString;
 end;

  function Tprotitle.GetAssessTitle(Id:string):string;
 begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
  Datamod.Person_adoq2.Open ;
 result:=Datamod.Person_adoq2.fieldbyname('assess_title').AsString;
 end;

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

   function Tprotitle.ProtitleRecs(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 Tprotitle.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 Tprotitle.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 Tprotitle.RecDel(Id:string);
begin
  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('delete from  protitle where worker_id='''+Id+'''');
  Datamod.Person_adoq2.ExecSQL;
 end;

end.