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

来源:www.accessoft.com 点击数:1019 　 | 收藏 | 复制

时　间: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源码网店

【打印此文】【关闭窗口】