中科新闻网腰突治疗方法:vfp 登陆问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/25 09:35:56
我设计了一个登陆的表，输入用户名和密码后登陆。但我一次无意中发现不输入用户名和密码直接也可以登陆(如果输入错误的用户名和密码是不能登陆的），不知道这是什么原因。我把我的登陆按钮的代码贴上大家帮我看看是什么问题，谢谢大家了。
locate for trim(用户名)==trim(thisform.text1.value)
if not found()
messagebox("没用此用户")
thisform.text1.value=""
thisform.text2.value=""
else
if trim(密码)==trim(thisform.text2.value)
messagebox("成功,欢迎进入系统")
do form huanying.scx
thisform.release
else
messagebox("密码错误")
thisform.text2.value=""
endif
endif
locate for trim(用户名)==trim(thisform.text1.value)
if not found()
messagebox("没用此用户")
thisform.text1.value=""
thisform.text2.value=""
else
if trim(密码)==trim(thisform.text2.value)
messagebox("成功,欢迎进入系统")
do form huanying.scx
thisform.release
else
messagebox("密码错误")
thisform.text2.value=""
endif
endif
代码本身没有大问题，只是不够严密。如果你的表中存在空记录就可以直接登录而不需输入用户名和密码。解决的办法是在你的这段代码前面加下面几行代码：
if empty(thisform.text1.value)
=messagebox('请输入用户名',48,'提示')
thisform.text1.setfocus
return
endif