form4.frm

就是开发一个简易的银行卡管理系统,对持卡人信息和基本操作信息进行管理。 简易银行卡管理系统的主要功能： ●新开设一个帐户 ●能够进行存款操作 ●能够进行取款操作 ●挂失帐户

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C0FFC0&
   Caption         =   "请慎重选择"
   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         =   "此帐户即将被冻结，如要继续，请点击“确定”键三次"
      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") '打开数据库
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 '查找当前登陆用户的记录集
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("帐户已经成功冻结!", 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