机房收费系统（五）-添加或删除用户

这个窗体相对来说比较简单，要搞清楚这四个按钮是干什么的。

这里面还有一个添加用户的窗体，这个窗体在学生里面就有，就是多了一个用户级别。

单击选中一行的内容

 MSFlexGrid1.SelectionMode = flexSelectionByRow     '单击的时候选择的是整行
    MSFlexGrid1.FocusRect = flexFocusNone               '在当前单元的周围画一个焦点框
    MSFlexGrid1.HighLight = flexHighlightWithFocus      '该值决定了所选定的单元是否突出显示

然后通过一下代码就可以实现操作了

With MSFlexGrid1
        If .RowSel = 0 Then
            MsgBox "请选择数据", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
              If .RowSel > 0 Then

                  txtSQL = "delete from user_Info where userID='" & Trim(MSFlexGrid1.TextMatrix(.RowSel, 0)) & "'"
                  Set mrc = ExecuteSQL(txtSQL, MsgText)

                  '判断该用户是否正在登录
                  If Trim(MSFlexGrid1.TextMatrix(.RowSel, 0)) = UserName Then
                        MsgBox "该用户正在登录，不能删除", vbOKOnly + vbExclamation, "警告"
                        Exit Sub
                  Else
                        a = MsgBox("确定要删除该用户吗？", vbYesNo, "提示")
                        If a = 6 Then
                            .RemoveItem .RowSel
                        Else
                            Exit Sub
                        End If
                    End If
               End If
        End If
    End With

我们不能只做代码的搬运工，要理解代码的意思，还要搞清楚其中每段代码实现的功能。