Access培训招生
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

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


如下图

点击图片查看大图


然后对权限进行设置


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

点击图片查看大图



Access快速开发平台QQ群 (群号:115180141)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助