如何根据权限对子窗字段进行锁定？

goto2008

请看图片....

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

heqing3000

我比较喜欢用ACCESS自带的安全系统！

zyz218

建一个模块级变量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

这个什么权限设置对我来说太重要了...
因为日后可能登陆的人...会有两三个...如果他们都可以随便删除.数据..那太恐怖了

goto2008

ACCESS自带的工作组文件来管理用户

不知论坛有没有这种教程????     真得研究下哦

andymark

工作组给破解了,也是形同虚设

goto2008

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

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

andymark

3楼已经给你提示了

t小宝

主窗体的加载事件代码:
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

非常感谢zyz218大哥和小宝大哥
子窗体的权限功能实现了....

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

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