权限管理RBAC 进销存管理系统权限管理功能的实现（一）[2]

进销存管理系统权限管理功能的实现（一）[2]  

    ——此文章摘自《Delphi 数据库开发经典案例解析》定价 ￥ 　特价 ￥ 　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

    ( ) 实现用户权限管理的代码如下     // 关闭窗体时同时关闭对权限清单的插入许可功能     procedure Trights FormClose(Sender: TObject; var Action: TCloseAction);     begin     //先将对权限清单表的插入功能关闭     adomand CommandText:= SET IDENTITY_INSERT 权限清单 off ;     adomand Execute;     //关闭窗体是返回上一级窗体     manage show;     end;           // 窗体显示时 为下拉列表框设置用户词典     // 不允许对管理员sys的权限进行设置     procedure Trights FormShow(Sender: TObject);     begin            adoquery Close;      adoquery SQL Clear;      adoquery SQL Text:= select distinct 姓名 from 用户清单 where 姓名!= sys ;      adoquery Open;      bobox Clear;      while not adoquery Eof do     begin      bobox Items Add(adoquery fieldbyname( 姓名 ) AsString);      adoquery Next;      end     end;           // 将下拉列表中选中的用户所对应拥有的权限显示在列表框中     procedure Trights ComboBox Change(Sender: TObject);     var      str temp:string;     begin     adoquery Close;     adoquery SQL clear;     adoquery SQL Text:= select 权限名称 from 权限清单 where 用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ + ) ;     adoquery Open;     listbox Clear;           while not adoquery Eof do      begin       temp:=adoquery fieldbyname( 权限名称 ) AsString;       listbox Items Add(temp);       adoquery Next;       end;

lishixinzhi/Article/program/Delphi/201311/24846