最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

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

可以根據需要，設置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.fisionsoft.com.cn/article/cosopds.html