vf中的找错
来源:百度知道 编辑:UC知道 时间:2024/08/20 17:28:42
&&功能:如果用户输入的用户名和口令一致,则在提示信息后关闭该表单;
&&否则重新输入用户名和口令。
&&**********Error**********************
if thisform.text1.value = thisform.text2.value
wait "欢迎使用……" window timeout 1
&&**********Error**********************
thisform.release
else
wait "用户名或口令不对,请重新输入……" window timeout 1
endif
&&否则重新输入用户名和口令。
&&**********Error**********************
if thisform.text1.value = thisform.text2.value
wait "欢迎使用……" window timeout 1
&&**********Error**********************
thisform.release
else
wait "用户名或口令不对,请重新输入……" window timeout 1
endif
首先在登录表单的init事件中定义全局变量:
PUBLIC I_
I_=0
在登录按钮的CLICK事件中:
if allt(thisform.text1.value) == allt(thisform.text2.value)
wait "欢迎使用……" window timeout 1
thisform.release
else
wait "用户名或口令不对,请重新输入……" window timeout 1
I_=I_+1
IF I_>3
MESSAGEBOX("超过次数,你不能使用!",0+16)
thisform.release
endif
endif
if allt(thisform.text1.value) == allt(thisform.text2.value)
wait "欢迎使用……" window timeout 1
&&**********Error**********************
thisform.release
else
wait "用户名或口令不对,请重新输入……" window timeout 1
endif
加分啊~~~~~~~~~~~~~~