Delphi中给用户设置权限方法

如何在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；

新up如有帮助到大家可以帮我点一个赞吗非常感谢，如文章有问题也欢迎提出！