Delphi中给用户设置权限方法

幸思无声_东莞

已于 2022-04-25 11:35:21 修改

阅读量988

点赞数 3

分类专栏： Delphi 文章标签：综合资源

于 2022-04-25 11:33:07 首次发布

本文链接：https://blog.csdn.net/qq_45083002/article/details/124400332

版权

Delphi 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

如何在delphi在给用户设置栏位权限我这边给您提供一个简单方法

思路：将权限进行二进制比较，进行位运算（直接上代码和图片）
备注：这个方法是前台完成的可能导致加载速度增加。

用户表（Action_Visible是你给于用户的权限）
在这里插入图片描述
栏位管理表（Action_Visible是如果用户需要打开栏位的权限要求）

Delphi代码（我这里设置的一级栏位）

AValue := ADOControllength.FieldByName('count').AsInteger;//获取栏位总数
     id:=DataModule1.ADOQuery1.FieldByName('Action_Visible').AsInteger;//获取用户Action_Visible权限
     i:=AValue;
    while AValue > 0 do//开始遍历
    begin
      Self.Menu := MainMenu1;
      mnierji := TMenuItem.Create(MainMenu1);
      mnierji.Caption := DataAndyERPModule.DataModule1.ADOQuery2.FieldByName('Menu_Desc').AsString;//创建迎接栏位
      MainMenu1.Items.Add(mnierji);
      qx:= DataAndyERPModule.DataModule1.ADOQuery2.FieldByName('Action_Visible').AsInteger;//获取栏位权限要求
       if(qx and id)=0 then//用户权限和栏位权限进行比较（如果不了解位运算看下面）
            begin
               MainMenu1.Items[i-avalue].Enabled:=False;//不符合的false，Enabled为栏位状态
            end;
       DataModule1.ADOQuery2.Next;//下一个栏位权限要求
      Dec(AValue);
    end;

效果展示
在这里插入图片描述

什么是位运算？

位运算是基于二进制来进行计算的，而一个数字以二进制在计算机进行存储的时候都会以补码的方式进行存储。
如图中用户id权限为15等于二进制1111
采购单窗口权限为1等于二进制0001：那么01111and0001=1不被FALSE；
验收管理权限为2等于二进制0010：那么01111and0010=1不被FALSE；
生成物料管理权限为4等于二进制0100：那么01111and0100=1不被FALSE；
测试权限为16等于二进制10000：那么01111and10000=0被FALSE；