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

Posted 2022-07-14 权限

篇首语：上下观古今，起伏千万途。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统权限管理功能的实现（一）[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;

cha138/Article/program/Delphi/201311/24846

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

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