usertable_unit.pas

这是用delphi开发的一个物资管理信息系统

unit usertable_unit;

interface
 uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Tusertable=class(TObject)
   private
    Datamod:TDataMod;
   public
   function GetUserPwd(UserName:string):string;
   function getuserIdList():Tstrings;
   function GetUserRec(Name:string):TStrings;
   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:=TDataMod.Create(nil);
end;

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

 function Tusertable.GetUserRec(Name:string):TStrings;
var
 //i:integer;
 userrec:TStrings;
 begin
  userrec:=TStringlist.Create ;
  Datamod.login_adoq.Close;
  Datamod.login_adoq.SQL.Clear;
  Datamod.login_adoq.SQL.Add('select * from USER_TABLE where USER_NAME='''+Name+'''');
  Datamod.login_adoq.Open;
  if Datamod.login_adoq.Eof then
  begin
  userrec.Add('');
  end
  else
  begin
  userrec.Add(Datamod.login_adoq.fieldbyname('USER_NAME').AsString);
  userrec.Add(Datamod.login_adoq.fieldbyname('USER_PWD').AsString) ;
  userrec.Add(Datamod.login_adoq.fieldbyname('USER_LEVEL').AsString) ;
  end;
  result:=userrec;
 end;

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

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

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

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

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

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

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

 function Tusertable.getuserIdList ():TStrings;
 var
  idlist:TStrings;
 begin
  idlist:=TStringlist.Create  ;
  Datamod.login_adoq.Close ;
  Datamod.login_adoq .SQL.Clear;
  Datamod.login_adoq .SQL.Add('select * from user_table');
  Datamod.login_adoq .Open;
  while not Datamod.login_adoq .Eof  do
  begin
  idlist.Add(Datamod.login_adoq .fieldbyname('user_name').AsString );
  Datamod.login_adoq.Next ;
  end;
  result:=idlist;
 end;

end.