求救:帮我看看我这段程序有什么问题

小喆

发在这里？

........

呼噜

没学过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