盟威 Access 快速开发平台——权限判断

时　间:2016-07-21 09:13:55
作　者:易勋   ID：35404  城市：上海
摘　要:快速开发平台里面的权限控制，怎么直接获取是否有权限？
正　文:

盟威 Access 快速开发平台中的权限控制自动生成的是在每个主窗体的打开事件中：

Private Sub Form_Open(Cancel As Integer)
    Set mdctPermissionList = LoadPermissions("模块名称", Me)
    If Not mdctPermissionList("") Then
        Exit Sub
    End If
    On Error Resume Next
    EnableButton Me.btnAdd, mdctPermissionList("Add")

    。。。。。。
    ApplyTheme Me
    LoadLocalLanguage Me
End Sub
上面的方式是一次性获取所有属于该模块的权限，但是有时候用到权限判断的时候只需要对某权限进行单独的判断怎么办？

这样的情况就可以用到:HasPermission

使用方法：HasPermission("模块名称", "权限名称")

返回：true 或者 false