答案:用记事本打开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-0C5C-11D2-A9FC-0000F8754DA1}#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
Begin VB.CommandButton cmdinfo
Caption = "添加信息"
Height = 345
Index = 3
Left = 60
TabIndex = 4
Top = 1800
Width =
上一个:用VB6.0自制压缩与解压缩程序(三)
下一个:用VB6.0自制压缩与解压缩程序(一)