[5分]关于平台当中设定菜单权限的问题

Public Function OpenMenu(ByVal FirstMenu As Long, ByVal SecondMenu As Long, ByVal ThirdMenu As Long, ByVal btnName As String)
    Dim Qx As Long
    Dim Yhm As String
    Dim AllowOpen As Long
    Yhm = Forms!usysfrmLogin!txtUserName
    Yhz = DLookup("[username]", "sys_tbluser", "[usernumber]='" & Yhm & "'")
    If DCount("[allowopen]", "sys_queObjectPur", "[userNumber]='" & Yhm & "' and [btnname]='" & btnName & "'") > 0 Then
        AllowOpen = DLookup("[allowopen]", "sys_queObjectPur", "[userNumber]='" & Yhm & "' and [btnname]='" & btnName & "'")
    Else
        MsgBox ("当前用户  " & Yhz & "  没有访问de权限！")
        Exit Function
    End If
    Select Case FirstMenu
    Case 1
        If AllowOpen = -1 Then
            g_acchelp_cmdSort1_Click
            menulabMouseClick (SecondMenu)
            MouseOnClick (ThirdMenu)
        Else
            MsgBox ("当前用户  " & Yhm & "  没有访问权限！")
        End If
    Case 2
        If AllowOpen = -1 Then
            g_acchelp_cmdSort2_Click
            menulabMouseClick (SecondMenu)
            MouseOnClick (ThirdMenu)
        Else
            MsgBox ("当前用户  " & Yhm & "  没有访问权限！")
        End If
    Case 3
        If AllowOpen = -1 Then
            g_acchelp_cmdSort3_Click
            menulabMouseClick (SecondMenu)
            MouseOnClick (ThirdMenu)
        Else
            MsgBox ("当前用户  " & Yhm & "  没有访问权限！")
        End If
    Case 4
        If AllowOpen = -1 Then
            g_acchelp_cmdSortSys_Click
            menulabMouseClick (SecondMenu)
            MouseOnClick (ThirdMenu)
        Else
            MsgBox ("当前用户" & Yhm & "没有访问权限！")
        End If
    End Select
End Function