VFP 退出时显示错误

来源:百度知道 编辑:UC知道 时间:2024/05/19 18:29:13
在错误输入3次退出系统时,显示不能清除正在使用的对象。

密码修改表单:
kl=allTrim(ThisForm.newtxt.value)
if alltrim(ThisForm.text1.value)==''
messagebox("请输入密码! ",0+64,"系统提示")
thisform.text1.setfocus
return
endif

if len(alltrim(thisform.newtxt.value))<5
messagebox("新密码不能小于5位! ",0+64,"系统提示")
thisform.newtxt.value=''
thisform.newtxt.setfocus
return
endif
if len(alltrim(thisform.oknewtxt.value))<5
messagebox("确认密码不能小于5位! ",0+64,"系统提示")
thisform.newtxt.value=''
thisform.newtxt.setfocus
return
endif
if alltrim(thisform.oknewtxt.value)<>alltrim(thisform.newtxt.value) or len(alltrim(thisform.oknewtxt.value))<>len(alltrim(thisform.newtxt.value))
messagebox("新密码和确认密码不一致! ",0+64,"系统提示")
thisform.newtxt.value=''
thisform.oknewtxt.value=''
t

Clear Events
ON SHUTDOWN

Close All

Clear all
quit

以上代码改成以下试试
close tables
release all
close all
clear all
clear events
quit

把程序发到我邮箱
44571841@qq.com

执行到thisform.release,表单已经释放,再执行下面的语句会出错。
如果将其编译成EXE文件,thisform.release后面的clear event
ON SHUTDOWN
Close All
Clear all
quit
全部去掉。