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

一、設(shè)計方案中用設(shè)計表來保存功能或權(quán)限

可以根據(jù)需要，設(shè)置ID、功能名稱、類別、模塊及其他項目。

二、設(shè)計方案中用設(shè)計權(quán)限分配功能，將這些功能分配給具體操作人員

將分配到具體人員的權(quán)限保存到另一個表中。

三、在主窗口中把權(quán)限裝入成為菜單項

如果權(quán)限中包含非功能項目，要在加載過濾掉，同時將單存權(quán)限讀入保存到變量，當(dāng)然每次用到再讀也可以。顯示如圖。

部門代碼如下：

    
 
 

     
  
  
Dim Gnsql As String = "SELECT * FROM 用戶權(quán)限 WHERE 用戶名稱='當(dāng)前用戶'" 
     
  
  
        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 
    
 
 

這樣，菜單也有了，權(quán)限也有了。

四、執(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 
                                
 
 

文章題目：淺析功能、權(quán)限、菜單相結(jié)合的設(shè)計方案
URL鏈接：http://www.5511xx.com/article/cosopds.html