VB如何限制登录次数?设计登录界面,要求你登录三次不成功。
Private Sub cmdOK_Click()
如果txtUserName。Text = & quotvb01 & quot和txtPassword。Text = & quot123 & quot然后
t1 = MsgBox(& quot;Vb01登录成功”,,& quot系统提示”)
frmLogin。隐藏
表格1。显示
ElseIf txtUserName。Text = & quotvb02 & quot和txtPassword。Text = & quot123 & quot然后
T2 = MsgBox(& quot;Vb02登录成功”,,& quot系统提示”)
frmLogin。隐藏
表格2。显示
其他
T2 = MsgBox(& quot;用户名或密码错误“,,& quot系统提示”)
如果…就会结束
末端接头