权限问题,在线等待

Question

如果登陆用户名"txtlogin.text=ABC",菜单主窗体(Frmon)中的子菜单(momedd)不能使用,请问代码如何写

Answer 1

窗体上一个command,一个text,菜单标题mo,名称momedd
Private Sub Command1_Click()
If Text1.Text = "ABC" Then momedd.Enabled = False
End Sub
这只是个样板,大概意思就是这样的.你可以自己扩充

Answer 2

这是在登录窗口中的代码Private Sub cmdLogin_Click ()
    frmMain.momedd.Enabled = (txtUserName.Text <> "ABC")
End Sub