Office中国论坛/Access中国论坛

标题: 如何根据权限对子窗字段进行锁定？ [打印本页]

作者: goto2008 时间: 2007-9-8 15:53
标题: 如何根据权限对子窗字段进行锁定？
请看图片....

[ 本帖最后由 goto2008 于 2007-9-8 23:31 编辑 ]

作者: heqing3000 时间: 2007-9-8 17:02
我比较喜欢用ACCESS自带的安全系统！

作者: zyz218 时间: 2007-9-8 17:11
建一个模块级变量strname为文本型，记录登录者姓名，然后在那个子窗体的当前事件中来判断
if  strname= goto2008    then
   me.实际成本.locked=true
   me.备注.locked=true
else
   me.实际成本.locked=false
   me.备注.locked=false
end if
不过在下建议使用ACCESS自带的工作组文件来管理用户最好,那样不用建那个全局变量,直接用currentuser来判断就行了，另外工作组文件来管理方便安全。
if  currentuser= goto2008    then
   me.实际成本.locked=true
   me.备注.locked=true
else
   me.实际成本.locked=false
   me.备注.locked=false
end if

作者: goto2008 时间: 2007-9-8 17:18
这个什么权限设置对我来说太重要了...
因为日后可能登陆的人...会有两三个...如果他们都可以随便删除.数据..那太恐怖了

作者: goto2008 时间: 2007-9-8 17:19
ACCESS自带的工作组文件来管理用户

不知论坛有没有这种教程????

真得研究下哦

作者: andymark 时间: 2007-9-8 22:16
工作组给破解了,也是形同虚设

作者: goto2008 时间: 2007-9-8 22:20

原帖由 andymark 于 2007-9-8 22:16 发表
工作组给破解了,也是形同虚设

......大哥帮忙看看我一楼的这个库要怎么做才好?

作者: andymark 时间: 2007-9-8 22:25
3楼已经给你提示了

作者: t小宝 时间: 2007-9-8 23:14
主窗体的加载事件代码:
Private Sub Form_Load()
With Me.成本表.Form
Select Case CurrentPopedom
Case "管理员"

Case "计划成本"
      .实际成本.Locked = True
      .备注.Locked = True

Case "实际成本"
      .计划价格.Locked = True
      .计划用量.Locked = True
      .计划成本.Locked = True
      .备注.Locked = True

Case "总经理"
      Me.成本表.Locked = True
Case "待定"
End Select

End With
End Sub

作者: goto2008 时间: 2007-9-8 23:38
非常感谢zyz218大哥和小宝大哥

子窗体的权限功能实现了....

我想再问个问题...(主窗体有三个按扭,比如是:添加,删除,打印)....我想实现
当身份为"实际成本",他到这个窗体时,主窗上的添加为不可用,,,,只有删除和打印可以用
当身份为"总经理".他到这个窗体时,主窗上的添加和,删除为不可用,,,,只有打印可以用

请教上面这串代码要怎么改????

作者: andymark 时间: 2007-9-8 23:48

原帖由 goto2008 于 2007-9-8 23:38 发表
非常感谢zyz218大哥和小宝大哥
子窗体的权限功能实现了....

我想再问个问题...(主窗体有三个按扭,比如是:添加,删除,打印)....我想实现
当身份为"实际成本",他到这个窗体时,主窗上的添加为不可用,,,,只 ...

应该学会举一反三, 即使你把整个系统都做完了,到头来还是一无所知
使按钮无效:
Me.添加.Enabled = False

作者: t小宝 时间: 2007-9-8 23:49
With Me.成本表.Form
Select Case CurrentPopedom
Case "管理员"

Case "计划成本"
      .实际成本.Locked = True
      .备注.Locked = True

Case "实际成本"
      .计划价格.Locked = True
      .计划用量.Locked = True
      .计划成本.Locked = True
      .备注.Locked = True

      Me.添加.Enabled =False

Case "总经理"
      Me.成本表.Locked = True
      Me.添加.Enabled =False
      Me.删除.Enabled =False

Case "待定"
End Select

End With

要学会以此类推...

作者: goto2008 时间: 2007-9-8 23:51
嗯......有了上面的代码......其它窗体都要学着画葫芦了.......

谢谢大哥的耐心指点.....

作者: piaoran 时间: 2007-12-11 16:23
收藏了

谢谢楼上的各位

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)