向各位老师请教一下，按照网上做的登陆界面，运行后提示找不到变量“i”，到底是什么问题？ - VFP论坛

已结贴√ 问题点数：20 回复次数：1

向各位老师请教一下，按照网上做的登陆界面，运行后提示找不到变量“i”，到底是什么问题？

IF LEN(ALLTRIM(thisform.text2.value))=0
   MESSAGEBOX('请输入用户名或密码！')
   RETURN
ENDIF

***如果没有找到相同记录时执行下面代码
USE e:/学习/合同资料/账户密码
LOCATE FOR ALLTRIM(用户名)==ALLTRIM(thisform.text1.Value)
IF EOF()
   USE
   MESSAGEBOX("没有此用户！")
   thisform.text1.Value=""
   thisform.text2.Value=""
   thisform.text1.SetFocus
   i=i+1
     IF i<=3
        MESSAGEBOX("密码或用户名错，请重新输入！")
        thisform.text2.Value=""
        thisform.text2.SetFocus
     ELSE
        MESSAGEBOX("连续三次输入错误，系统将退出！")
        USE
        QUIT
     ENDIF
RETURN
ENDIF

***找到后执行下面代码
IF ALLTRIM(thisform.text2.Value)==ALLTRIM(密码)
   MESSAGEBOX("可以进入！",48,"信息提示")
   DO FORM e:/学习/合同资料/ahl
   thisform.Release
ELSE
   USE
   MESSAGEBOX("密码错误")
   thisform.text2.Value=""
   thisform.text2.SetFocus
   i=i+1
     IF i<=3
        MESSAGEBOX("密码错，请重新输入！")
        thisform.text2.Value=""
        thisform.text2.SetFocus
     ELSE
        MESSAGEBOX("连续三次输入错误，系统将退出！")
        USE
        QUIT
     ENDIF
RETURN
ENDIF