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
vb6-很简单的配置密码验证提示
时间: 2024-10-25 19:51:57