vb6-很简单的配置密码验证提示

 1 ‘很简单的配置密码验证提示
 2  
 3     Dim add As String
 4     add = Trim(InputBox("请输入配置密码", "报表配置"))
 5     If add = "" Then
 6         MsgBox "密码不能为空，请重新输入！", 64, "提示信息"
 7         Exit Sub
 8     ElseIf add = "123456" Then
 9         Frm_Main.Show vbModal
10         ‘初始化配置
11         Call Config
12     Else
13         MsgBox "密码不正确，请重新输入！", 64, "提示信息"
14     End If