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

goto2008

请看图片....

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

piaoran

收藏了

谢谢楼上的各位

goto2008

嗯......有了上面的代码......其它窗体都要学着画葫芦了.......

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

t小宝

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

要学会以此类推...

andymark

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

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

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

goto2008

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

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

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

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

andymark

3楼已经给你提示了

goto2008

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

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

andymark

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