VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C0FFC0&
   Caption         =   "請(qǐng)慎重選擇"
   ClientHeight    =   3660
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6435
   BeginProperty Font 
      Name            =   "宋體"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form2"
   ScaleHeight     =   3660
   ScaleWidth      =   6435
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "取  消"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5160
      TabIndex        =   2
      Top             =   1800
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "確  定"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5160
      TabIndex        =   1
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFC0&
      Caption         =   "此帳戶即將被凍結(jié)，如要繼續(xù)，請(qǐng)點(diǎn)擊“確定”鍵三次"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   840
      TabIndex        =   0
      Top             =   960
      Width           =   3615
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim response
Set db = OpenDatabase(App.Path + "/cw.mdb") '打開(kāi)數(shù)據(jù)庫(kù)
Set rs1 = db.OpenRecordset("PersonCount")
Set rs1 = db.OpenRecordset("SELECT * FROM PersonCount")
Set rs2 = db.OpenRecordset("Person")
Set rs2 = db.OpenRecordset("SELECT * FROM Person")
NameQuery2 = frmFirst.txtName.Text '查找當(dāng)前登陸用戶的記錄集
rs1.MoveFirst
Do Until rs1.EOF
If rs1.Fields("用戶名") Like LCase(NameQuery2) Then
With rs1
.Delete
.MoveLast
End With
Exit Sub
Else
rs1.MoveNext
End If
Loop
rs2.MoveFirst
Do Until rs2.EOF
If rs2.Fields("用戶名") Like LCase(NameQuery2) Then
With rs2
.Delete
.MoveLast
End With
Exit Sub
Else
rs2.MoveNext
End If
Loop
pp = MsgBox("帳戶已經(jīng)成功凍結(jié)!", vbOKOnly + vbInformation, "成功！")
If response = 1 Then
End
End If
Unload Me
frmFirst.txtName.Text = ""
frmFirst.txtPass.Text = ""
frmFirst.Show
End Sub

Private Sub Command2_Click()
Unload Me
frmFirst.txtName.Text = ""
frmFirst.txtPass.Text = ""
frmFirst.Show
End Sub