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

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

可以根据需要，设置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://www.shufengxianlan.com/qtweb/news1/340851.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容