heyiyao001的博客

基于vf的word需求分析On Error GoTo finish Set qy1 = cnn.Execute("select * from 登陆 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'") If qy1.EOF = True Then If pnum < 2 Then pnum = pnum + 1 MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum Text1.Text = "" Text2.Text = "" Text1.SetFocus Exit Sub Else MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示" End End Sub