浅析功能、权限、菜单相结合的设计方案-菜单权限设计

一、设计方案中用设计表来保存功能或权限

可以根据需要，设置ID、功能名称、类别、模块及其他项目。

二、设计方案中用设计权限分配功能，将这些功能分配给具体操作人员

将分配到具体人员的权限保存到另一个表中。

三、在主窗口中把权限装入成为菜单项

如果权限中包含非功能项目，要在加载过滤掉，同时将单存权限读入保存到变量，当然每次用到再读也可以。显示如图。

部门代码如下：

Dim Gnsql As String = "SELECT * FROM 用户权限 WHERE 用户名称='当前用户'" 
        Dim dtQX As DataTable = hyDB.DBselect(Gnsql) '  
        Dim dqMK As String = "" 
        Dim gnNODE As TreeNode = Nothing 
        Dim dqNODE As TreeNode = Nothing 
 
        With dtQX  
            Dim qxROWS() As DataRow = .Select()  
            For i = 0 To qxROWS.GetUpperBound(0)  
                If dqMK <> qxROWS(i).Item("模块名称").ToString Then  
                    dqNODE = TreeView1.Nodes.Add(qxROWS(i).Item("模块名称").ToString)  
                Else  
                    gnNODE = dqNODE.Nodes.Add("", qxROWS(i).Item("功能名称").ToString)  
                End If  
                dqMK = qxROWS(i).Item("模块名称").ToString  
            Next  
        End With

这样，菜单也有了，权限也有了。

四、执行菜单功能

Public Sub ErmGn(ByVal Gn As String)  
        Select Gn  
            Case "销售订单"  
                Dim ErmXSDD As Form = New FormXSDD  
                ErmXSDD.Show()  
                Exit Select  
            Case "销售出库单"  
                Dim ErmXSCK As Form = New FormXSCK  
                ErmXSCK.Show()  
 
            Case "销售报价单"  
                Dim ErmXSBJ As Form = New FormXSBJ  
                ErmXSBJ.Show()  
                ......   
 
        End Select  
    End Sub

【编辑推荐】