form5.frm

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

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00C0FFC0&
   Caption         =   "挂失"
   ClientHeight    =   3945
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6480
   LinkTopic       =   "Form3"
   ScaleHeight     =   3945
   ScaleWidth      =   6480
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "返   回"
      Height          =   495
      Left            =   3720
      TabIndex        =   1
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFFF80&
      Caption         =   "确   定"
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   2640
      Width           =   1335
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFC0&
      Caption         =   "注意："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFC0&
      Caption         =   "尊敬的用户，如果您想要挂失，请双击“确定”键，谢谢！"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   1200
      TabIndex        =   3
      Top             =   1440
      Width           =   4935
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "您确定要挂失吗？"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   1080
      TabIndex        =   2
      Top             =   480
      Width           =   3975
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
frmInfor.Show
End Sub

Private Sub Command2_Click()

Set db = OpenDatabase(App.Path + "/cw.mdb") '打开数据库
Set rs2 = db.OpenRecordset("SELECT * FROM Person")
NameQuery = frmFirst.txtName.Text '查找当前登陆用户的记录集
rs2.MoveFirst
Do Until rs2.EOF
If rs2.Fields("用户名") Like LCase(NameQuery) Then
With rs2
.Edit
!用户名 = " " & NameQuery
.Update
End With
Exit Sub
Else
rs2.MoveNext
End If
Loop
m = MsgBox("帐户已经成功挂失!", vbOKOnly + vbInformation, "操作成功！")
If m = 1 Then
Unload Me
frmFirst.Show
frmFirst.txtName = ""
frmFirst.txtPass = ""
End If


End Sub