日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

一、設計方案中用設計表來保存功能或權限

可以根據(jù)需要，設置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 
    
 
 

這樣，菜單也有了，權限也有了。

四、執(zhí)行菜單功能

                                
 
 

                                 
  
  
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://m.5511xx.com/article/cosopds.html