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

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

可以根据需要，设置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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

1.

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

四、执行菜单功能

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 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

1.

【编辑推荐】