vf数据库编程问题,连续3次输入错误,则禁止用户输入

Question

现在要设计这样一个数据库登录窗口,如果用户输入帐号和密码正确,则显示:"欢迎登录",如果输入密码错误,则显示:"密码输入错误,请重新输入",而且如果用户连续3次输入错误,则禁止用户输入 请问如何用VF编程实现啊?

Answer 1

假设表单的text1用来输入账号，text2用来输入密码，command1为“确定”按钮，command2为“退出”按钮。
text2的passwordchr属性设置为“*"，防止登录时屏幕显示密码。
假设登录时正确的账号是“账号”，密码为“123456”
双击登录表单的空白处，进入form1的load事件，输入：
public
dlcs
&&登录次数变量
public
dlcs
dlcs=0
关闭load事件。
双击command1，进入确定按钮的click事件，输入：
zh1=allt(thisform.text1.value)
kl1=allt(thisform.text2.value)
if
zh1="账号"
and
kl1="123456"
=messagebox("欢迎登录")
thisform.release
do
form
menu1
&&口令正确进入菜单表单
else
dlcs=dlcs+1
if
dlcs>3
=messagebox("密码输入错误,再见")
thisform.release
do
form
quit1
&&三次错误进入退出表单
else
=messagebox("密码输入错误,请重新输入")
endif
endif