Question

VFP 登陆界面

yhxm=alltrim(thisform.text1.value)
yhmm=alltrim(thisform.text2.value)
go top

sele 默认用户名密码
locate for 用户姓名=yhxm .and. 用户密码=yhmm
if found()=.f.
n =n+1
if n<3
messagebox('用户名或密码不对，请重新登录！',16,'系统提示')
thisform.text1.setfocus
thisform.text1.value=""
thisform.text2.value=""
thisform.refresh
else
messagebox('登录失败，3秒后自动结束程序！',16,'系统提示')
wait timeout 3
thisform.release
quit
endif
else

do form 主界面
endif

求教大神，这个代码打入后 从登入界面进去主界面的时候，原登陆界面还在，请问是哪里出问题了？

Answer 1

首先回答你的问题：
do form 主界面下面一行写上：Thisform.Release

另外，你这个程序有错误，即当你输入密码错误的时候哪怕是第一次，程序就会报错“找不到变量n”。
你这段程序应这么写：
假设你这个是登陆界面表单，那么在你的主程序中先定义个公共变量n，并设置初始值n=0:
public n
n=0
然后，以上的代码修正为：
yhxm=alltrim(thisform.text1.value)yhmm=alltrim(thisform.text2.value)
sele 默认用户名密码
go top locate for 用户姓名=yhxm .and. 用户密码=yhmm if found()=.f. n =n+1 if n<3 messagebox('用户名或密码不对，请重新登录！',16,'系统提示') thisform.text1.setfocus thisform.text1.value="" thisform.text2.value="" thisform.refresh else =messagebox('登录失败，3秒后自动结束程序！',16,'系统提示') wait timeout 3 thisform.release
release n
close tables all
clear
clear events quit endif else do form 主界面
thisform.release
release n endif