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
Inde 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> 没有相关教程
|