浅析功能、权限、菜单相结合的设计方案
一、设计方案中用设计表来保存功能或权限
可以根据需要，设置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
网站题目：浅析功能、权限、菜单相结合的设计方案
分享链接：http://zsjierui.cn/article/cosopds.html