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

Posted 2022-07-21 权限

篇首语：天才就是百分之九十九的汗水加百分之一的灵感。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统权限管理功能的实现（二）[1]相关的知识，希望对你有一定的参考价值。

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

// 修改选择的用户的权限 procedure Trights Button Click(Sender: TObject); var str:string; begin //获得与某个用户相对应的用户编号 UserName:=bobox Text; adoquery Close; adoquery SQL clear; adoquery SQL Text:= select 用户编号 from 用户清单 where 姓名= +UserName+ ; adoquery Open; UserNumber:=adoquery fieldbyname( 用户编号 ) AsString; adoquery Close; //计算权限清单中的权限序号之最大值以免其后输入的权限序号与已有的冲突 adoquery Close; adoquery SQL clear; adoquery SQL Text:= select max(权限序号) maxnum from 权限清单 as max ; adoquery Open; MaxNumber:=adoquery fieldbyname( maxnum ) AsString; adoquery Close; //删除该用户的所有权限记录以备下一步的修改 adomand CommandText:= delete from 权限清单 where 用户编号= +UserNumber+ ; adomand Execute; //打开对用户权限记录表的插入权限这是由建立数据库的时候就设置好的用完后需要把它关闭 adomand CommandText:= SET IDENTITY_INSERT 权限清单 on ; adomand Execute; //检查checkbox 状态判断是否给该用户商品资料维护权限 if checkbox Checked then begin order:=strtoint(MaxNumber)+ ; str:=inttostr(order); adomand CommandText:= insert into 权限清单([权限序号] [用户编号] [权限名称]) values( +str+ + +UserNumber+ + +checkbox Caption+ + ) ; adomand Execute; end; //检查checkbox 状态判断是否给该用户供货商资料维护权限 if checkbox Checked then begin order:=strtoint(MaxNumber)+ ; str:=inttostr(order); adomand CommandText:= insert into 权限清单([权限序号] [用户编号] [权限名称]) values( +str+ + +UserNumber+ + +checkbox Caption+ + ) ; adomand Execute; end;

cha138/Article/program/Delphi/201311/24802

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

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