求救:帮我看看我这段程序有什么问题
发在这里？........ 没学过VFP...
随便搜索了一个，自己参考调试吧
if empty(thisform.text1.value).or.empty(thisform.text2.value)
messagebox("用户名或密码不能为空！")
else
locate for 用户.用户名=alltrim(thisform.text1.value) and;
用户.密码=alltrim(thisform.text2.value)
if found()
do form main.scx
thisform.release
else
messagebox('用户名或密码错，请重输',0+48+0,'消息')
thisform.text1.gotfocus
endif
endif
页:
[1]