如何根据数据库用户信息动态启用/禁用 ToolStripMenuItem？

Question

我有 2 个表格。一种是登录表单，一种是工作区表单（设置为带有ToolStripMenuItem 控件的mdi Container）。

workspace form = f1
login form = f2

我的应用程序首先加载 f1，然后同时加载 f2。我在 f1 加载期间加载 f2 的代码如下：

Dim uLogin As New frm2
'set the parent form of child window
uLogin.MdiParent = Me
uLogin.Show()

密码和userid正确后，f2应该被卸载，进入工作区，禁用基于user表的菜单项：

'i have put this piece of code after success login function
Dim dr As Datarow
Dim userDS As Dataset
Dim userDT As Datatable
userDS = some sql db query
userDT = userDS.Tables(0)
If userDT.Rows.Count > 0 Then
    dr = userDT.Rows(0)
End If

For Each dr In userDT.Rows

    Dim ParentMenu As New  ToolStripMenuItem(dr.Item("MI_MenuName").ToString)
    ParentMenu.Enabled = CBool(dr.Item("RR_menuIsEnabled"))

Next dr

这是示例数据库用户表：

我的应用程序用户体验：

没有错误，用户已登录，但菜单项的启用/禁用没有按预期工作。查询 TSQL 是正确的，并且正在使用 VS 2005 和 MS SQL。

Answer 1

假设您的主 MenuStrip 名为“MenuStrip1”，并且其 Modifiers() 属性已更改为 Public，您可以使用如下代码：

Dim f1 As frm1 = DirectCast(Me.MdiParent, frm1)
For Each dr In userDT.Rows
    Dim mnuName As String = dr.Item("MI_MenuName").ToString()
    Dim mnus() As ToolStripMenuItem = f1.MenuStrip1.Items.Find(mnuName, True)
    If mnus.Length > 0 Then
        mnus(0).Enabled = CBool(dr.Item("RR_menuIsEnabled"))
    End If
Next dr