求救:帮我看看我这段程序有什么问题
if thisform.text1.value=""messagebox("请输入用户名和密码！！")
thisform.text1.setfocus
endif
use yonghu
locate for yonghuming=alltrim(thisform.text1.value)
if found() and mima=alltrim(thisform.text1.value)
do form main
thisform.release
else
messagebox("你属于非法用户！请从新输入或者注册！")
thisform.release
endif
是属于VFP的程序,我在登陆窗口,不用输用户名和密码,它也能自动登陆！ 希望高手门能够帮我修正！谢谢了！ 发在这里？
........ 没学过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]