vfp取消按钮程序,运行后不按程序内容执行
locate for allt(thisform.text1.value)=allt(用户名)if empty(allt(thisform.text1.value))
if empty(allt(thisform.text2.value))
if empty(allt())
if messagebox("您确定要退出本界面吗?",1+32+256,"系统提示")=1
&&CLEAR READ
xyhzc.release
endif
endif
endif
else
&&
if found()==.F.
else
if messagebox("您确定要退出本界面吗?",1+32+256,"系统提示")=1
&&use data\用户数据表
xyhzc.release
endif
endif.
endif