[分享][原创]精细的用户权限管理事例，简单实用

fannky

引用源贴内容

++++++++++++++++++++++++++++++++++++++

以上是我自己弄得一个通用权限管理中的一段代码，这段代码使用的重复语句太多了，我看着都觉得烦，但是我改用Select case 老出错，谁有什么好办法阿？！

[em45]改好了我把源文件传上来给大家分享

可以轻松的让用户使用某一个模块，甚至只可以用主窗口而不能用子表。代码很少操作简单

只需要把新建立的窗口的Caption加入权限管理表中然后选择是否打勾就可以了

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2006-6-5 16:19:19编辑过]

andymark

你所列的控件都具有LOCK属性的,换言之只要把没LOCK属性的排除就简单多了

    Dim ctl As Control
    For Each ctl In Me.Controls
   
       If ctl.ControlType = acLabel Then
   
           Else
              ctl.Locked = True
        End If
     Next

fannky

以下是引用andymark在2006-6-5 11:45:00的发言：


你所列的控件都具有LOCK属性的,换言之只要把没LOCK属性的排除就简单多了

    Dim ctl As Control
    For Each ctl In Me.Controls
   
       If ctl.ControlType = acLabel Then
   
           Else
              ctl.Locked = True
        End If
     Next

谢谢，您的意思是不是除了ControlType = acLabel 以外，其他的控件都有.Locked属性？

andymark

命令按钮,直线 等等都没有LOCK属性,这要看实际情况,采用那种方法

还有一种方法,如果你的控件都邦定数据源的,可以参考下面的例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=39483&replyID=9889&skin=1

fannky

以下是引用andymark在2006-6-5 11:45:00的发言：



你所列的控件都具有LOCK属性的,换言之只要把没LOCK属性的排除就简单多了

谢谢，我数了一下ControlType共有19种属性，有Lock的属性的控件也大概就7种？如果用排除法那岂不是比直接选取写的代码还要多？（我希望做成通用型的，可判断窗口里面所有不固定的控件）

有没有什么办法：先判断控件有没有Locked属性，然后如果有就Lock，没有就直接Next。

以下是引用andymark在2006-6-5 12:16:00的发言：


命令按钮,直线 等等都没有LOCK属性,这要看实际情况,采用那种方法

还有一种方法,如果你的控件都邦定数据源的,可以参考下面的例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=39483&replyID=9889&skin=1

我把源文件传上来了，请指点

青青

直接用现成的安全工作组，不用编程即可搞定。

andymark

把代码改成这样,你测试一下

Public Sub SetFrm(frm As Form)
Dim TruPur As Boolean
TruPur = Nz(DLookup("[" & frm.Form.Caption & "]", "pur", "[姓名]=" & "'" & User & "' "))
If TruPur = False Then

   frm.AllowAdditions = False
   frm.AllowDeletions = False
   frm.AllowEdits = False
   
   
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
Exit Sub
End If
End Sub

zxc55166333

谢谢楼主了

zxc55166333

能问一下 什么情况下可以查看精华帖子吗？[em01]

jinpy

tks!