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

 

posted @ 2014-07-28 23:08  不平凡总在于坚持！  阅读(429)  评论(0)  编辑  收藏  举报