guashi.frm

这是我学生写的关于游戏系统的论文

VERSION 5.00
Begin VB.Form guashi 
   Caption         =   "读者挂失卡号"
   ClientHeight    =   3285
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4275
   Icon            =   "guashi.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   3285
   ScaleWidth      =   4275
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data studentdata1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "db2.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   3120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "student"
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Frame Frame1 
      Caption         =   "请输入要挂失的卡号"
      Height          =   2295
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   4095
      Begin VB.TextBox Text2 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1560
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   1080
         Width           =   2055
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取 消"
         Height          =   375
         Left            =   2400
         TabIndex        =   4
         Top             =   1680
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Caption         =   "挂 失"
         Height          =   375
         Left            =   720
         TabIndex        =   3
         Top             =   1680
         Width           =   975
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   1560
         TabIndex        =   1
         Top             =   600
         Width           =   2055
      End
      Begin VB.Label Label2 
         Caption         =   "密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00400000&
         Height          =   495
         Left            =   480
         TabIndex        =   5
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "卡号:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00400000&
         Height          =   300
         Index           =   1
         Left            =   480
         TabIndex        =   2
         Top             =   600
         Width           =   810
      End
   End
End
Attribute VB_Name = "guashi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim A As Integer
If Text1.Text = "" Then
   MsgBox "你还没有输入卡号呢,请输入!"
Else
    studentdata1.Recordset.MoveFirst
flag2:
       If InStr(studentdata1.Recordset.Fields("卡号"), Text1.Text) And InStr(studentdata1.Recordset.Fields("密码"), Text2.Text) Then
           If studentdata1.Recordset.Fields("挂失否") = "否" Then
             A = MsgBox("确定要挂失吗?", vbOKCancel)
               If A = 1 Then
                  studentdata1.Recordset.Edit
                  studentdata1.Recordset.Fields("挂失否") = "是"
                 studentdata1.Recordset.Update
                 MsgBox "挂失成功!"
                 Unload guashi
                End If
            
            Else
              MsgBox "该读者已经挂失!"
           End If
       Else
       studentdata1.Recordset.MoveNext
         If Not studentdata1.Recordset.EOF Then
          GoTo flag2
         Else
           MsgBox "该卡号不存在"
         End If
      End If
End If
           
End Sub

Private Sub Command2_Click()
Unload guashi
End Sub