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

首先在登录表单的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

加分啊~~~~~~~~~~~~~~