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

Posted 2022-07-21 权限

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

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

checkbox Checked:=false; // 判断更新后用户是否拥有销售单管理权限 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) ); adoquery Open; if adoquery FieldByName( 用户编号 ) AsString<> then checkbox Checked:=true else checkbox Checked:=false; // 判断更新后用户是否拥有库存查询权限 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) ); adoquery Open; if adoquery FieldByName( 用户编号 ) AsString<> then checkbox Checked:=true else checkbox Checked:=false; // 判断更新后用户是否拥有权限管理权限 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) ); adoquery Open; if adoquery FieldByName( 用户编号 ) AsString<> then checkbox Checked:=true else checkbox Checked:=false; // 刷新更新后的列表框中的权限清单 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 listbox Items Add(adoquery fieldbyname( 权限名称 ) AsString); adoquery Next; end; end;

cha138/Article/program/Delphi/201311/24800

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

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