frmdeluser.frm

车辆管理系统是一个协助各单位进行全面的车辆管理的系统。包括车辆档案管理；驾驶员档案管理；车辆运营信息管理；车辆事故信息管理；车辆维修信息管理；车辆费用管理等几个功能模块。

VERSION 5.00
Begin VB.Form Frmdeluser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "删除用户"
   ClientHeight    =   1635
   ClientLeft      =   5925
   ClientTop       =   2025
   ClientWidth     =   3735
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1635
   ScaleWidth      =   3735
   Begin VB.CommandButton cmdcancel 
      Caption         =   "取 消"
      Height          =   375
      Left            =   2280
      TabIndex        =   2
      Top             =   840
      Width           =   1095
   End
   Begin VB.CommandButton cmdok 
      Caption         =   "确 定"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin VB.ComboBox Cboitem 
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Text            =   "选择要删除的用户"
      Top             =   360
      Width           =   1815
   End
End
Attribute VB_Name = "Frmdeluser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim msgtext As String
Dim txtsql As String

Private Sub cmdcancel_Click()
   Unload Me
End Sub

Private Sub cmdok_Click()
   If UCase(Trim(cboitem.Text)) = "ADMINISTRATOR" Then
      MsgBox "超级用户不允许被删除", vbOKCancel + vbExclamation, "警告"
      Exit Sub
   Else
      txtsql = "delete from users where user_id='" & Trim(cboitem.Text) & "'"
      Set mrc = ExecuteSQL(txtsql, msgtext)
      MsgBox "用户已经被删除", vbOKOnly + vbExclamation, "删除成功"
   End If
      Unload Me
   End Sub

Private Sub Form_Load()
  ' Dim count As Integer
  ' Dim mrc As ADODB.Recordset
   'Dim msgtext As String
  ' Dim txtsql As String
  Me.Left = 5880
  Me.Top = 1695
   txtsql = "select distinct user_id from users"
   Set mrc = ExecuteSQL(txtsql, msgtext)
       If Not mrc.EOF Then
          Do While Not mrc.EOF
             cboitem.AddItem Trim(mrc!user_id)
             mrc.MoveNext
          Loop
          cboitem.ListIndex = 0
       Else
          MsgBox "无任何用户信息！", vbOKOnly + vbExclamation, "警告"
          cmdok.Enabled = False
          Exit Sub
      End If
End Sub