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/)