form2.frm

图书馆借书系统

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   4725
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7995
   LinkTopic       =   "Form2"
   ScaleHeight     =   4725
   ScaleWidth      =   7995
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   4695
      Left            =   0
      Picture         =   "Form2.frx":0000
      ScaleHeight     =   4635
      ScaleWidth      =   7995
      TabIndex        =   0
      Top             =   0
      Width           =   8055
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   4320
         TabIndex        =   6
         Top             =   3600
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "登陆"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2160
         TabIndex        =   5
         Top             =   3600
         Width           =   1095
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   2880
         TabIndex        =   4
         Top             =   2400
         Width           =   3015
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2880
         TabIndex        =   3
         Top             =   1560
         Width           =   3015
      End
      Begin VB.Label Label2 
         Caption         =   "密码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1440
         TabIndex        =   2
         Top             =   2400
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "用户"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1440
         TabIndex        =   1
         Top             =   1560
         Width           =   855
      End
   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 aa As String
If Text2.Text <> "" Or Text1 <> "sa" Then
    aa = MsgBox("密码或用户名错误", 5 + vbExclamation, "警告")
        If aa = 2 Then
            End
        Else
            Text2 = ""
            Text2.SetFocus
        End If
 Else
      Form3.Show
      Unload Form2
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text2.PasswordChar = "*"
Text2 = ""
Text1 = ""

End Sub