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

Access快速开发平台--让有权限的人登录系统可以新增和修改,其他人只可以看到list窗体的数据,并且没有权限新增和修改的设置方法

时 间:2024-11-04 08:42:15
作 者:麥田   ID:11  城市:上海  QQ:3002789054点击这里给麥田发消息
摘 要:关于Access快速开发平台普通用户进入系统后,只可以看到list窗体的数据,并且没有权限新增和修改;让有权限的人登录系统可以新增和修改的设置方法。
正 文:

一、学员问题描述:
企业版:太原-简dan爱-215期  14:42:24
请教老师,在Access快速开发平台框架内开发的软件,我想让有权限的人登录系统可以新增和修改,其他人只可以看到list窗体的数据,并且没有权限新增和修改。如下图:
只有圈起来的这个字段怎么加权限,只有有权限的人可以新增和修改,其他人只是可以看到?
点击图片查看大图

二、解决方案:
      将下段代码写到edit窗体的加载事件过程里面,即如果登录的是admin帐号,则“改善等级”字段控件可以用;其他帐号登录系统,则“改善等级”字段控件不可用。
    If GetParameter("Current User Username") = "admin" Then
        Me.改善等级.Enabled = True
    Else
        Me.改善等级.Enabled = False
    End If


备   注:
上述代码使用的是以admin帐号登录系统进行控制权限,如果换成其他帐号,则自己改一下代码里面的admin帐号名称即可。

下面代码是以admin帐号或者其他多个帐号,登录系统检测这个权限的功能设置方法:
    If GetParameter("Current User Username") = "admin" or GetParameter("Current User Username") = "刘伟" Then
        Me.改善等级.Enabled = True
    Else
        Me.改善等级.Enabled = False
    End If


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

常见问答:

技术分类:

相关资源:

专栏作家

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