盟威 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