frmreaderlogin.frm

自考软件工程_宋瑞峰 自考软件工程_宋瑞峰

VERSION 5.00
Begin VB.Form FrmReaderLogin 
   Caption         =   "读者登陆"
   ClientHeight    =   1980
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3810
   Icon            =   "FrmReaderLogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1980
   ScaleWidth      =   3810
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   855
      Left            =   2400
      Picture         =   "FrmReaderLogin.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   960
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认"
      Height          =   855
      Left            =   720
      Picture         =   "FrmReaderLogin.frx":074C
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000018&
      Height          =   270
      Left            =   1560
      MaxLength       =   6
      TabIndex        =   1
      Top             =   360
      Width           =   2055
   End
   Begin VB.Label Label1 
      Caption         =   "读者编号"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "FrmReaderLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public strUserName As String

Private Sub Command1_Click()
'检查是否有该读者
Dim rs As New ADODB.Recordset
Dim SQL As String

SQL = "SELECT 借书证号 FROM reader WHERE 借书证号='" & Text1.Text & "'"
Set rs = ExecuteSQL(SQL)
If rs.EOF And rs.BOF Then
    If MsgBox("无此读者，请先添回用户.", vbExclamation + vbYesNo, "警告") = vbYes Then
        FrmAddReader.Show vbModal
    End If
    strUserName = ""
Else
    strUserName = Text1.Text
End If
rs.Clone
Set rs = Nothing
Unload Me
End Sub

Private Sub Command2_Click()
strUserName = ""
Unload Me
End Sub