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

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

     Dim add As String
add = Trim(InputBox("请输入配置密码", "报表配置"))
If add = "" Then
MsgBox "密码不能为空,请重新输入!", , "提示信息"
Exit Sub
ElseIf add = "" Then
Frm_Main.Show vbModal
'初始化配置
Call Config
Else
MsgBox "密码不正确,请重新输入!", , "提示信息"
End If
上一篇:python操作mongodb之八地理索引空间数据


下一篇:【原创】只学到二维数组和结构体,不用链表也能写一个C贪食蛇?(四)