VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登陸界面"
   ClientHeight    =   4455
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5760
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   Picture         =   "Form3.frx":F84A
   ScaleHeight     =   4455
   ScaleWidth      =   5760
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2400
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   2320
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   1800
      Width           =   2175
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3320
      MouseIcon       =   "Form3.frx":1F3E9
      MousePointer    =   99  'Custom
      Top             =   3360
      Width           =   975
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   1450
      MouseIcon       =   "Form3.frx":1F53B
      MousePointer    =   99  'Custom
      Top             =   3360
      Width           =   975
   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()
Call Image1_Click
End Sub

Private Sub Form_Load()
Text1.BackColor = RGB(98, 162, 207)
Text2.BackColor = RGB(98, 162, 207)
End Sub

Private Sub Image1_Click()
Set qy1 = cnn.Execute("select * from 登陸 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'")
If qy1.EOF = True Then
 MsgBox "用戶名或密碼錯誤!", vbInformation, "提示"
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
 Exit Sub
Else
 Unload Me
 form1.Show
End If
End Sub

Private Sub Image2_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub