frmlogin.frm

很好！ 很实用！ 免费！

VERSION 5.00
Begin VB.Form frmLogin 
   Caption         =   "(System)Login"
   ClientHeight    =   4680
   ClientLeft      =   2265
   ClientTop       =   2820
   ClientWidth     =   6285
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2765.098
   ScaleMode       =   0  'User
   ScaleWidth      =   5901.275
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtUserName 
      Height          =   345
      Left            =   1200
      TabIndex        =   2
      Top             =   3240
      Width           =   4365
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确    定"
      Default         =   -1  'True
      Height          =   390
      Left            =   3480
      TabIndex        =   4
      Top             =   4200
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取    消"
      Height          =   390
      Left            =   4800
      TabIndex        =   5
      Top             =   4200
      Width           =   1140
   End
   Begin VB.TextBox txtPassword 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   1200
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   3645
      Width           =   4365
   End
   Begin VB.Image ImageLogo 
      BorderStyle     =   1  'Fixed Single
      Height          =   2730
      Left            =   0
      Picture         =   "frmLogin.frx":0000
      Stretch         =   -1  'True
      Top             =   120
      Width           =   6225
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "用      户"
      Height          =   195
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   3240
      Width           =   630
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "密      码"
      Height          =   195
      Index           =   1
      Left            =   360
      TabIndex        =   3
      Top             =   3660
      Width           =   630
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    Unload Me
    End
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If g_System.ValidateUser(txtUserName.Text, txtPassword.Text) Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        Unload Me
        DoEvents
        MDIForm1.Show
    Else
        MsgBox "用户或密码错误,请重试!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub Form_Activate()
    If g_Debug Then
        txtUserName.Text = "Rzhou"
        txtPassword.Text = "111"
        cmdOK.SetFocus
        SendKeys "{Enter}"
    End If
End Sub

Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then Exit Sub
    Me.Width = 6405
    Me.Height = 5085
End Sub