frmquanxian.frm

朋友给的

Attribute VB_Name = "frmQuanxian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strHead As String
Dim strWid  As String

Private Sub Check1_Click()
Dim I As Long
    If Check1.Value = 0 Then
        For I = 1 To MSFlexGrid2.Rows - 1
            MSFlexGrid2.TextMatrix(I, 2) = "无"
            MSFlexGrid2.Row = I
            MSFlexGrid2.Col = 0
            MSFlexGrid2.CellBackColor = &H80000005
            MSFlexGrid2.Col = 2
            MSFlexGrid2.CellBackColor = &H80000005
            gCnn.Execute "update VstMenu set zt='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) & "' where GUser='" & Text1 & "' and MnuEN='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 1) & "'"
        Next
    Else
        For I = 1 To MSFlexGrid2.Rows - 1
            MSFlexGrid2.TextMatrix(I, 2) = "有"
            MSFlexGrid2.Row = I
            MSFlexGrid2.Col = 0
            MSFlexGrid2.CellBackColor = &HFFFF&
            MSFlexGrid2.Col = 2
            MSFlexGrid2.CellBackColor = &HFFFF&
            gCnn.Execute "update VstMenu set zt='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) & "' where GUser='" & Text1 & "' and MnuEN='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 1) & "'"
        Next
    End If
End Sub

Private Sub Combo1_Change()
    Dim rs As New ADODB.Recordset
    Call ShowHead1
'    gCnn.Execute "insert into VstMenu(MnuEN,MnuCN,type,GUser,zt) values('" & rs1(0) & "','" & rs1(1) & "','" & rs1(2) & "','" & Text1 & "','无')"
    If rs.State = 1 Then rs.Close
    MSFlexGrid2.Rows = 1
    If Combo1.Text = "所有菜单" Then
        gSQL = "select MnuCN,Mnuen,zt from VstMenu where guser='" & Text1 & "' order by Mnuen"
    Else
        gSQL = "select MnuCN,Mnuen,zt from VstMenu where guser='" & Text1 & "' and type='" & Combo1 & "' order by Mnuen"
    End If
    rs.Open gSQL, gCnn, adOpenStatic, adLockReadOnly
    If rs.RecordCount >= 1 Then
        rs.MoveFirst
        Do While Not rs.EOF
            MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
            MSFlexGrid2.Row = MSFlexGrid2.Rows - 1
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 0) = rs.Fields(0).Value
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 1) = rs.Fields(1).Value
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = rs.Fields(2).Value
'            MSFlexGrid2.Row = i
            If MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = "无" Then
                MSFlexGrid2.Col = 0
                MSFlexGrid2.CellBackColor = &H80000005
                MSFlexGrid2.Col = 2
                MSFlexGrid2.CellBackColor = &H80000005
            Else
                MSFlexGrid2.Col = 0
                MSFlexGrid2.CellBackColor = &HFFFF&
                MSFlexGrid2.Col = 2
                MSFlexGrid2.CellBackColor = &HFFFF&
            End If
            
            rs.MoveNext
        Loop
    End If
    
End Sub

Private Sub Combo1_Click()
    Dim rs As New ADODB.Recordset
    Call ShowHead1
'    gCnn.Execute "insert into VstMenu(MnuEN,MnuCN,type,GUser,zt) values('" & rs1(0) & "','" & rs1(1) & "','" & rs1(2) & "','" & Text1 & "','无')"
    If rs.State = 1 Then rs.Close
    MSFlexGrid2.Rows = 1
    If Combo1.Text = "所有菜单" Then
        gSQL = "select MnuCN,Mnuen,zt from VstMenu where guser='" & Text1 & "' order by Mnuen"
    Else
        gSQL = "select MnuCN,Mnuen,zt from VstMenu where guser='" & Text1 & "' and type='" & Combo1 & "' order by Mnuen"
    End If
    rs.Open gSQL, gCnn, adOpenStatic, adLockReadOnly
    If rs.RecordCount >= 1 Then
        rs.MoveFirst
        Do While Not rs.EOF
            MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
            MSFlexGrid2.Row = MSFlexGrid2.Rows - 1
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 0) = rs.Fields(0).Value
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 1) = rs.Fields(1).Value
            MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = rs.Fields(2).Value
'            MSFlexGrid2.Row = i
            If MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = "无" Then
                MSFlexGrid2.Col = 0
                MSFlexGrid2.CellBackColor = &H80000005
                MSFlexGrid2.Col = 2
                MSFlexGrid2.CellBackColor = &H80000005
            Else
                MSFlexGrid2.Col = 0
                MSFlexGrid2.CellBackColor = &HFFFF&
                MSFlexGrid2.Col = 2
                MSFlexGrid2.CellBackColor = &HFFFF&
            End If
            
            rs.MoveNext
        Loop
    End If
    
    
    
End Sub

Private Sub ShowHead1()
    'MSFlexGrid2设置
    strHead = "菜单名称,英文,权限"
    strWid = "1600,0,440"
    FillGridHead MSFlexGrid2, strHead, strWid
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Command4_Click()
    Call Form_Load
End Sub


Private Sub Form_Load()
'    T_用户表 id,登陆号码,姓名,权限
    Dim rs As New ADODB.Recordset
    Dim I As Long
    If Me.WindowState = 0 Then Me.Move 0, 0
    Call ShowHead
    MSFlexGrid2.Rows = 1
    If rs.State = 1 Then rs.Close
    MSFlexGrid1.Rows = 1
    gSQL = "select 登陆号码,姓名,权限 from T_用户表 where 状态='正常使用' and 登陆号码<>'1001'"
    rs.Open gSQL, gCnn, adOpenStatic, adLockReadOnly
    If rs.RecordCount >= 1 Then
        rs.MoveFirst
        Do While Not rs.EOF
            MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
            MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = rs.Fields(0).Value
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = rs.Fields(1).Value
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = rs.Fields(2).Value
            rs.MoveNext
        Loop
    End If
    If rs.State = 1 Then rs.Close
    Combo1.Clear
    Combo1.AddItem "所有菜单"
    rs.Open "select MnuCN from stMenu where type='root' order by Mnuen", gCnn, adOpenStatic, adLockReadOnly
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        For I = 0 To rs.RecordCount - 1
            Combo1.AddItem (rs(0))
            rs.MoveNext
        Next
    End If
'    gtxtclear
    Combo1.Enabled = False
    Check1.Value = 0
End Sub

Private Sub ShowHead()
    'MSFlexGrid1设置
    strHead = "登陆号码,姓名,权限"
    strWid = "800,1200,0"
    FillGridHead MSFlexGrid1, strHead, strWid
End Sub

Private Sub MSFlexGrid1_Click()
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim I As Long
    If MSFlexGrid1.Rows = 1 Then Exit Sub
    If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = "" Then Exit Sub
    Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
    Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
    Combo1.Enabled = True
    If rs.State = 1 Then rs.Close
    rs.Open "select count(*) from VstMenu where GUser='" & Text1 & "'", gCnn, adOpenStatic, adLockReadOnly
    If rs(0) = 0 Then
        If rs1.State = 1 Then rs1.Close
        rs1.Open "select MnuEN,MnuCN,type from stMenu order by MnuEN", gCnn, adOpenStatic, adLockReadOnly
        If rs1.RecordCount > 0 Then
            rs1.MoveFirst
            For I = 0 To rs1.RecordCount - 1
                gCnn.Execute "insert into VstMenu(MnuEN,MnuCN,type,GUser,zt) values('" & rs1(0) & "','" & rs1(1) & "','" & rs1(2) & "','" & Text1 & "','无')"
                rs1.MoveNext
            Next
        End If
    End If
    Call Combo1_Change
    Check1.Value = 0
'    MSFlexGrid2.Clear
End Sub

Public Sub gtxtclear()
        Text1 = ""
        Text2 = ""
End Sub

Private Sub MSFlexGrid2_Click()
    If MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = "有" Then
        MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = "无"
        MSFlexGrid2.Col = 0
        MSFlexGrid2.CellBackColor = &H80000005
        MSFlexGrid2.Col = 2
        MSFlexGrid2.CellBackColor = &H80000005
        
    Else
        MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) = "有"
        MSFlexGrid2.Col = 0
        MSFlexGrid2.CellBackColor = &HFFFF&
        MSFlexGrid2.Col = 2
        MSFlexGrid2.CellBackColor = &HFFFF&
    End If
    gCnn.Execute "update VstMenu set zt='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 2) & "' where GUser='" & Text1 & "' and MnuEN='" & MSFlexGrid2.TextMatrix(MSFlexGrid2.Row, 1) & "'"
End Sub