用记事本打开frmLogin.frm文件，copy以下内容到其中：



VERSION 5.00

Begin VB.Form frmLogin

BorderStyle = 3 'Fixed Dialog

Caption = "登录"

ClientHeight = 1545

ClientLeft = 2835

ClientTop = 3480

ClientWidth = 3750

Icon = "frmLogin.frx":0000

LinkTopic = "Form1"

LockControls = -1 'True

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 912.837

ScaleMode = 0 'User

ScaleWidth = 3521.047

ShowInTaskbar = 0 'False

StartUpPosition = 2 '屏幕中心

Begin VB.TextBox txtUserName

Height = 345

Left = 1290

TabIndex = 1

Text = "123"

Top = 135

Width = 2325

End

Begin VB.CommandButton cmdOK

Caption = "确定"

Default = -1 'True

Height = 390

Left = 495

TabIndex = 4

Top = 1020

Width = 1140

End

Begin VB.CommandButton cmdCancel

Cancel = -1 'True

Caption = "取消"

Height = 390

Left = 2100

TabIndex = 5

Top = 1020

Width = 1140

End

Begin VB.TextBox txtPassword

Height = 345

IMEMode = 3 'DISABLE

Left = 1290

PasswordChar = "*"

TabIndex = 3

Text = "123"

Top = 525

Width = 2325

End

Begin VB.Label lblLabels

Caption = "用户名称(&U):"

Height = 270

Index = 0

Left = 105

TabIndex = 0

Top = 150

Width = 1080

End

Begin VB.Label lblLabels

Caption = "密码(&P):"

Height = 270

Index = 1

Left = 105

TabIndex = 2

Top = 540

Width = 1080

End

End

Attribute VB_Name = "frmLogin"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit



Public LoginSucceeded As Boolean



Private Sub cmdCancel_Click()

'设置全局变量为 false

'不提示失败的登录

LoginSucceeded = False

Unload Me

End Sub



Private Sub cmdOK_Click()

'检查正确的密码

If UCase(txtPassword) = "123" And UCase(txtUserName) = "123" Then

'将代码放在这里传递

'成功到 calling 函数

'设置全局变量时最容易的

LoginSucceeded = True

Unload Me

frmAddInfo.Show 1, frmMain

Else

MsgBox "无效的用户或密码密码，请重试!", , "登录"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

End Sub



用记事本打开frmAddIn