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

i是用来限制登录密码输入错误次数的，超过3次就退出。
i=i+1 && 由于前面没有给i初始化赋值，所以，这里会报错误的
* 在最前面定义一下变量，就可以了。放到你这段程序的最上面去
local i
i = 0

i应该是事先定义的全局变量，在表单INIT事件写入下面代码：
PUBLIC I
I=0

对，只要设好全局变量i就可以了。

谢谢，问题已经解决了