frmlogin.frm

来自「VB6.0应用例题」· FRM 代码 · 共 145 行

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   1770
   ClientLeft      =   2835
   ClientTop       =   3480
   ClientWidth     =   3750
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1045.774
   ScaleMode       =   0  'User
   ScaleWidth      =   3521.047
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtPassword 
      BackColor       =   &H00FFFFFF&
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   6
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   600
      Width           =   1575
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   390
      Left            =   2100
      MaskColor       =   &H00808080&
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1140
      Width           =   1140
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&Y)"
      Height          =   390
      Left            =   495
      MaskColor       =   &H00808080&
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1140
      Width           =   1140
   End
   Begin VB.ComboBox cbl_name 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1560
      TabIndex        =   0
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "密    码(&P):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   1
      Left            =   225
      TabIndex        =   5
      Top             =   660
      Width           =   1290
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "用户名称(&U):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   225
      TabIndex        =   4
      Top             =   150
      Width           =   1290
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    cbl_name.AddItem "刘钢"
    cbl_name.AddItem "朱茂然"
    cbl_name.AddItem "邹红艳"
    cbl_name.Text = cbl_name.List(0)   '显示组合框中的第一项
End Sub
Private Sub cbl_name_Click()
    SendKeys "{tab}"       'txtPassword.SetFocus
    txtPassword.Text = ""
End Sub
Private Sub cbl_name_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{tab}"
    txtPassword.Text = ""
End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then cmdOK_Click
End Sub
Private Sub cmdOK_Click()   '检查正确的密码
    sirpwd = UCase(Trim(txtPassword))
    If sirpwd = "1111" Then
       Unload Me
       frmMain.Show
    Else
       MsgBox "无效的密码，请重试!", , "登录"
       txtPassword.SetFocus
       txtPassword = ""
    End If
End Sub
Private Sub cmdCancel_Click()
  End
End Sub