setuserform.frm

一个用VB6.0开发的简单餐会管理系统。在WIN2K

    MSFlexGrid1.ColWidth(1) = 1200
    MSFlexGrid1.ColWidth(2) = 1200

    MSFlexGrid1.TextMatrix(0, 0) = "用户名"
    MSFlexGrid1.TextMatrix(0, 1) = "用户权限"
    MSFlexGrid1.TextMatrix(0, 2) = "用户等级"
    
    .MoveFirst
    Do While Not .EOF
        strTemp = .Fields("用户名")
        strTemp = strTemp & vbTab & .Fields("用户权限")
        strTemp = strTemp & vbTab & .Fields("用户等级")

        MSFlexGrid1.AddItem strTemp
        .MoveNext
    Loop
    
'    With MSFlexGrid1
'        .Row = 1
'        For i = 0 To .Cols - 1
'            .Col = i
'            .CellBackColor = &HC0C0C0
'        Next
'    End With

'    MSFlexGrid1.BackColorSel = &H8000000D

'}
   

End With
End Sub


'''''''''''''''''''
'''建立使用者对话框架框
Private Sub ModifyUserDataViewForm()
Me.Height = 4400
Me.Width = 6400
Me.Top = (MainForm.Height - Me.Height) / 2 - 1000
Me.Left = (MainForm.Width - Me.Width) / 2

nSelUserId = -1

GetComboListData

End Sub


'''''''''''''''''''
'''''设置输入锁定/激活
Private Sub SetUserDataTextBoxClear(fbool As Boolean)
    Text1.Text = ""
    Text2.Text = ""
    Combo1.Text = ""
'    Text1.Enabled = fbool
'    Text2.Enabled = fbool
'    Combo1.Enabled = fbool
End Sub

''''''''''''''''''''
'''''得到下拉列表
Private Sub GetComboListData()
For i = 1 To JP_SET_USER_DJS
    If strJPsetUserArray(i) = JP_SET_USER_ON Then
        Select Case i
            Case JP_SET_USER_LEVEL1:
                Combo1.AddItem JP_SET_USER_LCN1, i - 1
            Case JP_SET_USER_LEVEL2:
                Combo1.AddItem JP_SET_USER_LCN2, i - 1
            Case JP_SET_USER_LEVEL3:
                Combo1.AddItem JP_SET_USER_LCN3, i - 1
            Case JP_SET_USER_LEVEL4:
                Combo1.AddItem JP_SET_USER_LCN4, i - 1
            Case JP_SET_USER_LEVEL5:
                Combo1.AddItem JP_SET_USER_LCN5, i - 1
        End Select
    End If
Next
End Sub

'''''''''''''''''''''
''''保存新建的用户数据
Private Function SaveUserData(flg As Integer)
    If Text1.Text = "" Then
        MsgBox "用户名不能为空。"
        SaveUserData = False
        Text1.SetFocus
        Exit Function
    End If
    
    If Text2.Text = "" Then
        MsgBox "密码不能为空。"
        SaveUserData = False
        Text2.SetFocus
        Exit Function
    End If
    
    If Combo1.Text = "" Then
        MsgBox "权限不能为空。"
        SaveUserData = False
        Combo1.SetFocus
        Exit Function
    Else
        Select Case Combo1.Text
            Case JP_SET_USER_LCN1:
                If strJPsetUserArray(1) = JP_SET_USER_ON Then
                    Combo1.ListIndex = 0
                End If
            Case JP_SET_USER_LCN2:
                If strJPsetUserArray(2) = JP_SET_USER_ON Then
                    Combo1.ListIndex = 1
                End If
            Case JP_SET_USER_LCN3:
                If strJPsetUserArray(3) = JP_SET_USER_ON Then
                    Combo1.ListIndex = 2
                End If
            Case JP_SET_USER_LCN4:
                If strJPsetUserArray(4) = JP_SET_USER_ON Then
                    Combo1.ListIndex = 3
                End If
            Case JP_SET_USER_LCN5:
                If strJPsetUserArray(5) = JP_SET_USER_ON Then
                    Combo1.ListIndex = 4
                End If
            Case Else
                MsgBox "权限设置错误。"
                SaveUserData = False
                Combo1.SetFocus
                Exit Function
        End Select
    End If
    
    Dim strSQL As String
    
    If flg = JP_USERDATA_CREATED Then
        strSQL = "SELECT * FROM 用户 where 用户等级 <= '" & tyUserStru.sUserLev & "' and '" & Text1.Text & "' = " & "用户名 ORDER BY 用户等级;"
        Data2.RecordSource = strSQL
        Data2.Refresh
        If Data2.Recordset.RecordCount <> 0 Then
            MsgBox "用户名重复"
            SaveUserData = False
            Text1.SetFocus
            Exit Function
        End If
    End If
    
    strSQL = "SELECT * FROM 用户 where 用户等级 <= '" & tyUserStru.sUserLev & "' order by 用户等级, 用户名;"
    Data2.RecordSource = strSQL
    Data2.Refresh

    With Data2.Recordset
        If flg = JP_USERDATA_CREATED Then
            .AddNew
        ElseIf flg = JP_USERDATA_CHANGE Then
            .Move nSelUserId
            .Edit
        End If
        .Fields("用户名") = Text1.Text
        .Fields("用户密码") = Text2.Text
        .Fields("用户权限") = Combo1.Text
        .Fields("用户等级") = CStr(Combo1.ListIndex + 1)
        .Update
    End With

    SaveUserData = True
End Function

Private Sub MSFlexGrid1_Click()
'    With MSFlexGrid1
'        nNowRow = .Row
'    End With
'    SelMSFlexGridRow
End Sub

Private Sub MSFlexGrid1_LostFocus()
    With MSFlexGrid1
        For i = 0 To .Cols - 1
            .Col = i
            .CellBackColor = &H8000000D
            .CellForeColor = &H8000000E
        Next
    End With
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With MSFlexGrid1
'        Label4.Caption = "列号:" & CStr(.Col)
'        Label4.Caption = Label4.Caption & ",行号:" & CStr(.Row)
'        Label4.Caption = Label4.Caption & ",所有列号:" & CStr(.ColSel)
'        Label4.Caption = Label4.Caption & ",所有行号:" & CStr(.RowSel)
        
    End With
    
End Sub


Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'        Label4.Caption = "FIX所有行号:" & CStr(MSFlexGrid1.FixedRows) & "," & CStr(MSFlexGrid1.FixedCols)

End Sub

Private Sub MSFlexGrid1_RowColChange()
'    With MSFlexGrid1
'        .RowSel = .Row
'        Label4.Caption = "列号:" & CStr(.Col)
'        Label4.Caption = Label4.Caption & ",行号:" & CStr(.Row)
'        Label4.Caption = Label4.Caption & ",所有列号:" & CStr(.ColSel)
'        Label4.Caption = Label4.Caption & ",所有行号:" & CStr(.RowSel)
'    End With
End Sub

Private Sub MSFlexGrid1_SelChange()
    With MSFlexGrid1
'        .RowSel = .Row
'        Label4.Caption = "列号:" & CStr(.Col)
'        Label4.Caption = Label4.Caption & ",行号:" & CStr(.Row)
'        Label4.Caption = Label4.Caption & ",所有列号:" & CStr(.ColSel)
        Label4.Caption = "FIX所有行号:" & CStr(.FixedRows) & "," & CStr(.FixedCols)
    End With

    With Data1.Recordset
        If MSFLXMoveDataRec(Data1.Recordset, MSFlexGrid1) Then
                .Move MSFlexGrid1.Row - 1
                nSelUserId = .AbsolutePosition
                Text1.Text = .Fields("用户名")
                Text2.Text = .Fields("用户密码")
                Combo1.Text = .Fields("用户权限")
        Else
            Exit Sub
        End If
    End With
   
'    SelMSFlexGridRow
End Sub


''''行的选择
Private Sub SelMSFlexGridRow()
Dim nNowRow As Integer

        With MSFlexGrid1
        nNowRow = .Row
        If nOldRow = -1 Then
            For i = 0 To .Cols - 1
                .Col = i
                .CellBackColor = &H8000000D
                .CellForeColor = &H8000000E
            Next
            nOldRow = .Row
            Exit Sub
        ElseIf nOldRow = 0 Then
            nOldRow = .Row
            Exit Sub
        End If
        
        If nNowRow <> nOldRow Then
            .Row = nOldRow
                For i = 0 To .Cols - 1
                    .Col = i
                    .CellBackColor = 0
'                    .CellForeColor = &HFFFFFFFF
                    .CellForeColor = &H0&
                Next
            .Row = nNowRow
                For i = 0 To .Cols - 1
                    .Col = i
                    .CellBackColor = &H8000000D
                    .CellForeColor = &H8000000E
                Next
            nOldRow = nNowRow
        End If
        
    End With
End Sub