机房收费系统——禁用Menu

一、问题的出现

    刚开始，自己的 思路一直徘徊在frmlogin登陆窗体上。想着，点击登陆按钮，frmmain.show，同时，如果是一般用户就让管理员和操作员禁用。    所以，就开始实施自己的想法。但是，有个问题，就是menu是在frmmain窗体中，没有在frmlogin中，所有，当以给menucao赋值属性时，需要先说明frmmain.menucao.enable=false这样一来问题就出现了，这个 错误的原因是：我在其他窗体中，使用了frmmain，对他再次进行了属性设置以及调用。

二、思路的调整    为了避免不使用frmmain，尝试了编写新函数，调用等等。但是，发现都不是那么容易。    后来，调整了一下，忽然，想到，可以在frmmain本身中对menu进行设置，那么不就可以避免frmmain.menucao.enable这句话的出现了吗!    这样一来，轻松搞定！

三、结果

<span style="font-size:18px;">Private Sub MDIForm_Load()    MenuCao.Enabled = False    MenuUser.Enabled = False    MenuGuan.Enabled = False    txtsql = "select * from User_Info where userID='" & UserName & "'" '连接数据库    Set mrc = ExecuteSQL(txtsql, msgtext)    If Trim(mrc.Fields(2)) = Label20.Caption Then  'label20.caption=管理员        MenuGuan.Enabled = True        MenuCao.Enabled = True        MenuUser.Enabled = True    End If    If Trim(mrc.Fields(2)) = Label19.Caption Then        MenuCao.Enabled = True        MenuUser.Enabled = True    End If    If Trim(mrc.Fields(2)) = Label18.Caption Then        MenuUser.Enabled = True    End If    End Sub</span>

四、感悟    当你陷在一个困境中时，不要被这个现象所迷惑，可能他可以不存在，而是你自己给自己挖的陷阱。让自己变的艰难了。你可以决绝的重新归0，再次站在新的起点。给自己新的思路。    自己把自己推到困境，这种现象在我们身上会时不时出现，我想那是因为我们的思路有限，思路没有那么开阔，总是只给自己一条路。

    在学习当中，最好是，有多种解决方法，然后，选择合适自己的。