frm_login.frm

基于vb的图书管理系统的设计

VERSION 5.00
Begin VB.Form frm_Login 
   BorderStyle     =   0  'None
   Caption         =   "登录对话框"
   ClientHeight    =   2190
   ClientLeft      =   3780
   ClientTop       =   3000
   ClientWidth     =   3945
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   2190
   ScaleWidth      =   3945
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00E0E0E0&
      Height          =   2220
      Left            =   0
      TabIndex        =   4
      Top             =   -45
      Width           =   3930
      Begin VB.CommandButton cmdEnd 
         BackColor       =   &H00FFFFC0&
         Caption         =   "退出"
         Height          =   420
         Left            =   2295
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   1665
         Width           =   1185
      End
      Begin VB.CommandButton cmdOK 
         BackColor       =   &H00FFFFC0&
         Caption         =   "登录"
         Height          =   420
         Left            =   495
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   1665
         Width           =   1185
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00E0E0E0&
         Height          =   1320
         Left            =   180
         TabIndex        =   5
         Top             =   180
         Width           =   3570
         Begin VB.TextBox txtUserName 
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   1125
            TabIndex        =   0
            Top             =   315
            Width           =   1815
         End
         Begin VB.TextBox txtPWD 
            ForeColor       =   &H00FF0000&
            Height          =   285
            IMEMode         =   3  'DISABLE
            Left            =   1125
            PasswordChar    =   "*"
            TabIndex        =   1
            Top             =   765
            Width           =   1815
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "密码："
            Height          =   180
            Left            =   315
            TabIndex        =   7
            Top             =   810
            Width           =   540
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "用户名："
            Height          =   180
            Left            =   315
            TabIndex        =   6
            Top             =   360
            Width           =   720
         End
      End
   End
End
Attribute VB_Name = "frm_Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdOk_Click()
strID = Trim(txtUserName.Text)
strAPWD = Trim(txtPWD.Text)



Unload Me

End Sub

Private Sub txtPWD_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 cmdOk_Click
End If
End Sub