Office中国论坛/Access中国论坛
标题:
请问红尘如烟,您的通用系统中权限的问题
[打印本页]
作者:
fxbianxiu
时间:
2011-4-14 08:20
标题:
请问红尘如烟,您的通用系统中权限的问题
请问你的系统中,是如果将权限表与操作结合起来的,能简述一下你的原理吗,然后我再对着代码学习
作者:
zyp
时间:
2011-4-14 08:52
红尘版主是如何做的,我没有看过, 不过这种权限控制可以通过这种方法实现:
比如权限表中设置有下面栏位:
用户(文本)/窗体名(文本)/打开(是/否)/新增(是/否)/更改(是/否)/删除(是/否)
一个用户对每一个窗体都设定相应的权限,比如用户a对窗体的AA的权限如下:
a/AA/-1/-1/-1/0 (a用户对AA窗体有打开/新增/更改的权限,但无删除权限)
那么在窗体的打开事件写下(假如用户名已经保存到UserID这个变量中):
Private Sub Form_Open(Cancel As Integer)
If Nz(DLookup("[删除]", "权限表", "[窗体名]='AA' AND [用户]='" & UserID & "'"), 0) = 0 Then
MsgBox "对不起,你的权限不可开启本窗体", vbCritical
Cancel = True
End If
End Sub
加载事件中可以这么写
Private Sub Form_Load()
Me.AllowAdditions = Nz(DLookup("[新增]", "权限表", "[窗体名]='AA' AND [用户]='" & UserID & "'"), 0)
Me.AllowEdits = Nz(DLookup("[修收]", "权限表", "[窗体名]='AA' AND [用户]='" & UserID & "'"), 0)
Me.AllowDeletions = Nz(DLookup("[删除]", "权限表", "[窗体名]='AA' AND [用户]='" & UserID & "'"), 0)
End Sub
作者:
fxbianxiu
时间:
2011-4-14 14:38
本帖最后由 fxbianxiu 于 2011-4-14 14:41 编辑
多谢楼上的元老大人,我明白点啦,有不会的再请教
要是对菜单设置权限也和上面的方法一个思路吧
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3