添加和删除用户窗体--机房收费系统

添加窗体比较简单，删除用户有几个需要注意的问题：

1.控件的列标题不能删除

2.不能删除正在登陆的用户

3.设置一个系统管理员，防止用户都删除进不去系统

4.设置只能选择一行

附上删除用户的代码：

Private Sub cmddelete_Click()        Dim mrc As ADODB.Recordset    Dim txtsql As String    Dim msgtext As String        '显示控件的标题不可删    If MSFlexGrid1.Row = 0 Then        MsgBox "请选择数据！", vbOKOnly + vbInformation, "提示"        Exit Sub    End If'    不能删除正在登陆的用户    If MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0) = UserName Then        MsgBox "不能删除正在登陆的用户", vbOKCancel + vbInformation, "提示"    Else        txtsql = "select * from User_Info where userID= '" & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) & "'"        Set mrc = executesql(txtsql, msgtext)'          添加系统管理员，不得删除系统管理员          If mrc.Fields(0) = "11" Then            MsgBox "您不能删除该用户", vbExclamation, "提示"                   Else             a = MsgBox("是否删除当前用户？", vbOKCancel, "提示")             If a = vbOK Then             Cancel = True                mrc.Delete                MSFlexGrid1.RemoveItem MSFlexGrid1.Row               Else                mrc.Update             End If          End If    End If      End Sub

这样就可以删除用户了。