usertable_unit.pas

来自「本系统是结合行业管理中实际的人力资源、工资制度」· PAS 代码 · 共 99 行

unit usertable_unit;

interface
 uses
  Windows,Messages,SysUtils,Variants,DBclient,DB,ADODB,Classes,persondatamod_unit;
  type
   Tusertable=class(TObject)
   private
    Datamod:TPerson_datamod;
   public
   function GetUserPwd(UserName:string):string;
   function GetUserLevel(UserName:string):string;
   function CheckUser(UserName:string):Boolean;
   procedure UserInsert(InsertSQL:string);
   procedure UserUpdate(UpdateSQL:string);
   procedure UserDelete(DeleteSQL:string);
   procedure CreateTable(SQL:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

 function Tusertable.GetUserPwd(UserName:string):string;
 begin

  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from USER_TABLE where '
+'USER_NAME='''+UserName+'''');
  Datamod.Person_adoq2.Open;
  result:=Datamod.Person_adoq2.fieldbyname('user_pwd').AsString ;
 end;

 function Tusertable.GetUserLevel(UserName:string):string;
 begin

  Datamod.Person_adoq2.Close ;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from USER_TABLE where '
+'USER_NAME='''+UserName+'''');
  Datamod.Person_adoq2.Open;
  result:=Datamod.Person_adoq2.fieldbyname('power_level').AsString ;
 end;

 function Tusertable.CheckUser(UserName:string):Boolean;
 begin
 Datamod.Person_adoq2.close;
 Datamod.Person_adoq2.sql.clear;
 Datamod.Person_adoq2.sql.add(' select * from user_table where user_name='''+UserName+'''');
 Datamod.Person_adoq2.Open ;
 if  Datamod.Person_adoq2.Eof  then  result:=false
 else result:=true;
 end;

 procedure Tusertable.CreateTable(SQL:string);
 begin
 Datamod.Person_adoq2.close;
 Datamod.Person_adoq2.sql.clear;
 Datamod.Person_adoq2.sql.add(SQL);
 Datamod.Person_adoq2.ExecSQL;
 end;

  procedure Tusertable.UserUpdate(UpdateSQL:string);
 begin
 Datamod.Person_adoq2.close;
 Datamod.Person_adoq2.sql.clear;
 Datamod.Person_adoq2.sql.add(UpdateSQL);
 Datamod.Person_adoq2.ExecSQL;
 end;

  procedure Tusertable.UserDelete(DeleteSQL:string);
 begin
 Datamod.Person_adoq2.close;
 Datamod.Person_adoq2.sql.clear;
 Datamod.Person_adoq2.sql.add(DeleteSQL);
 Datamod.Person_adoq2.ExecSQL;
 end;

 procedure Tusertable.UserInsert(InsertSQL:string);
 begin
 Datamod.Person_adoq2.close;
 Datamod.Person_adoq2.sql.clear;
 Datamod.Person_adoq2.sql.add(InsertSQL);
 Datamod.Person_adoq2.ExecSQL;
 end;

end.