MDI窗体的菜单问题！在线－等！

Question

有一个MDI窗体，把他的菜单和各级菜单项的菜单编辑器中的名称(如：mnuOpen)存储到数据库中，程序启动后，要求从数据库中读取这些名称使mdi中相应的菜单项变为黯淡，不可用。
如何实现？

Answer 1

不行,用SELECT CASE 语句判断吧~~~

Answer 2

Public Sub sub_MainRight(ByVal strForm As Form, ByVal strParentForm As String)
'用来进行权限判断
   '++===========================
    Dim vnt As Variant    Dim sQuery As String
    Dim i As Integer
    Dim ii As Integer
            sQuery = "SELECT * FROM tblprorightlaborclass where nameid='" & s_gl_UserNameID & "'"
            Set rstCMMSRight = cnnCMMS.Execute(sQuery)
     If rstCMMSRight.RecordCount <> 0 Then
            For i = 1 To rstCMMSRight.RecordCount                Select Case rstCMMSRight.Fields("controlname").Value
                     '*****************管理策划

Answer 3

Case "帐   号"
                           Select Case rstCMMSRight.Fields("status").Value
                               Case 1
                                  MDIForm1.m_account.Visible = False
                                  MDIForm1.m_account.Enabled = False
                               Case 2
                                 MDIForm1.m_account.Visible = True
                                 MDIForm1.m_account.Enabled = False
                               Case 3
                                 MDIForm1.m_account.Visible = True
                                 MDIForm1.m_account.Enabled = True
                             End Select
                             ......
                                                       
                  End Select
              rstCMMSRight.MoveNext
            Next
     End IfEnd Sub