Access快速开发平台《进销存管理系统》培训教程--主页权限设置(适用于1.7.1版本与2.2.0版本的平台)

时　间:2021-12-06 11:31:01
作　者:欧志华   ID：51519  城市：广州
摘　要:Access快速开发平台《进销存管理系统》培训教程--主页权限设置(适用于1.7.1版本与2.2.0版本的平台)。
正　文:

      有学员在学习培训教程《进销存管理系统》到最后设置主页的时候，需要对主页按钮的权限进行设置。其实可以根据作业三的内容进行扩展，代码如下:

Private Sub Form_Open(Cancel As Integer)
    Set mdctPermissionList = LoadPermissions("主页权限", Me)
    If Not mdctPermissionList("") Then
        Exit Sub
    End If
    ApplyTheme Me
    On Error Resume Next
    Me.btn销售退货单.Enabled = mdctPermissionList("销售退货单")
    Me.btn采购入库单.Enabled = mdctPermissionList("采购入库单")
    Me.btn销售出库单.Enabled = mdctPermissionList("销售出库单")
    Me.btn销售退货单.Enabled = mdctPermissionList("销售退货单")
    Me.btn报损单.Enabled = mdctPermissionList("报损单")
    Me.btn报溢单.Enabled = mdctPermissionList("报溢单")    
End Sub

如下图：

然后对权限进行设置

为了展示方便，我把按钮从透明调整为可见，这样就可以看到权限是否设置正常，等权限功能设置好，需要把按钮调整为透明。