用记事本打开 ** 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
用记事本打开 ** frmAddInfo.frm ** 文件， copy 以下内容到其中 ：
VERSION 5.00
Object = "{831FDD16 -0C 5C -11D2-A9FC -0000F 8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmAddInfo
BorderStyle = 3 'Fixed Dialog
Caption = " 信息打包 "
ClientHeight = 5505
ClientLeft = 45
ClientTop = 330
ClientWidth = 8655
ControlBox = 0 'False
Icon = "frmAddInfo.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5505
ScaleWidth = 8655
ShowInTaskbar = 0 'False
StartUpPosition = 1 ' 所有者中心
Begin VB.TextBox txtEditInfo
Height = 285
Index = 3
Left = 1530
TabIndex = 15
Tag = " 商务频道系统文件更新 "
Text = " 商务频道系统文件更新 "
Top = 3420
Width = 5535
End
Begin VB.CommandButton cmdok
Caption = " 导入包列表 "
Height = 375
Index = 2
Left = 3930
TabIndex = 14
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = " 关 闭 "
Height = 375
Index = 3
Left = 5850
TabIndex = 8
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = " 导出包列表 "
Enabled = 0 'False
Height = 375
Index = 1
Left = 2010
TabIndex = 7
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = " 信息打包 "
Enabled = 0 'False
Height = 375
Index = 0
Left = 90
TabIndex = 6
Top = 5040
Width = 1245
End
Begin VB.Frame framInfo
Caption = " 编辑命令 "
Height = 2235
Index = 1
Left = 7110
TabIndex = 2
Top = 3270
Width = 1545
Begin VB.CommandButton cmdinfo
Caption = " 删除精选项 "
Enabled = 0 'False
Height = 345
Index = 1
Left = 60
TabIndex = 9
Top = 750
Width = 1425
End
Begin VB.CommandButton cmdinfo
Caption = " 修改信息 "
Enabled = 0 'False
Height = 345
Index = 2
Left = 60
TabIndex = 5
Top = 1280
Width = 1425
End
<P class=MsoNormal style="MARGIN: 0cm