Const MAX_ENTER = 3Private Sub Command1_Click() Static iEnterCount As Integer If LCase(Trim(Text1)) = "admin" And LCase(Trim(Text2)) = "admin" Then iEnterCount = 0 MsgBox "登陆成功!" Else If iEnterCount >= MAX_ENTER Then MsgBox "输入错误次数已达三次或以上,程序自动退出。" End End If MsgBox "用户名或密码错误!" iEnterCount = iEnterCount + 1 End If End Sub
Const MAX_ENTER = 3Private Sub Command1_Click()
Static iEnterCount As Integer
If LCase(Trim(Text1)) = "admin" And LCase(Trim(Text2)) = "admin" Then
iEnterCount = 0
MsgBox "登陆成功!"
Else
If iEnterCount >= MAX_ENTER Then
MsgBox "输入错误次数已达三次或以上,程序自动退出。"
End
End If
MsgBox "用户名或密码错误!"
iEnterCount = iEnterCount + 1
End If
End Sub
这种学习态度的人,实在不值得大家去帮忙。
[/Quote]
[/Quote]
05-10 08:34 16 a294447011294447011
05-10 23:12 管理
r 哪个教我做个登陆窗体,谢谢 [VB 控件] 0 cdcjk
05-04 11:58 16 yatou1113
05-10 14:20 管理
r 哪个教我做个登陆窗体,谢谢 [VB 基础类] 0 cdcjk
05-04 11:32 26 cdcjk
05-08 18:58 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 vbScript] 0 cdcjk
02-04 11:53 1 meiZiNick
05-01 19:25 管理
? 国内最大的免费空间站 [多媒体/设计/Flash/Silverlight 开发 网页设计(Dreamweaver等)] 20 cdcjk
01-31 11:59 1 UltraBejing
05-01 13:59 管理
r 在VB 中倒三角形怎么编写程序 [VB 控件] 0 cdcjk
03-21 13:33 2 meiZiNick
05-01 13:44 管理
r 怎么样用VB写一个好的启动窗体 [VB 基础类] 0 cdcjk
04-09 13:25 31 UltraBejing
05-01 07:56 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 vbScript] 0 cdcjk
02-05 12:45 2 meiZiNick
05-01 05:27 管理
r 能把老的原来286或386的CPU改造成现在双核就好了? [专题开发/技术/项目 英特尔多核计算技术] 0 cdcjk
04-19 21:16 1 matrixdwy
04-20 14:08 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 ASP] 0 cdcjk
02-04 11:51 12 zhaozhengzzlt
03-30 17:27 管理
r 在VB 中倒三角形怎么编写程序 [VB 基础类] 0 cdcjk
03-21 13:33 17 caprason
03-26 14:14 管理
? 请软件高手回答一个问题 [.NET技术 非技术区] 50 cdcjk
02-20 20:40 47 a38809972
03-24 16:55 管理
r 在VB 中倒三角形怎么编写程序 [VB 基础类] 0 cdcjk
03-20 22:10 31 myjian
03-24 14:26 管理
? 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 ASP] 100 cdcjk
02-02 14:30 60 cdcjk
03-24 10:37 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [多媒体/设计/Flash/Silverlight 开发 网页设计(Dreamweaver等)] 0 cdcjk
02-04 11:54 1 chnechen
02-14 13:28 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 JavaScript] 0 cdcjk
02-05 12:45 7 he_8134
02-08 03:01 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [.NET技术 ASP.NET] 0 cdcjk
02-05 12:44 1 AllenWei
02-05 12:54 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 HTML(CSS)] 0 cdcjk
02-05 12:46 0
管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Java Web 开发] 0 cdcjk
02-05 12:44 0
管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [.
哪个高手有好的简单的验证码的原代码发来!急!急!急! [.NET技术 ASP.NET] 0 cdcjk
02-04 11:50 8 cdcjk
02-04 15:03 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Java Web 开发] 0 cdcjk
02-04 11:52 2 java2000_net
02-04 14:01 管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [.NET技术 C#] 0 cdcjk
02-04 11:53 0
管理
r 哪个高手有好的简单的验证码的原代码发来!急!急!急! [Web 开发 HTML(CSS)] 0 cdcjk
02-04 11:52 0
管理
r 国内最大的免费空间站 [Web 开发 ASP]