Question

VFP登陆界面

use 工资管理系统\员工密码locate for 员工号=thisform.text1.valueif found() if 密码==thisform.text2.value messagebox("登陆成功！") do form 工资管理系统\员工登陆界面 thisform.release else messagebox("密码错误，请重新输入！") thisform.text2.value="" thisform.text2.setfocus use 工资管理系统\员工信息 endifelse messagebox("此员工不存在，请重新输入") thisform.text1.value="" thisform.text2.value="" thisform.text1.setfocus endif

为什么输入正确的员工号也提示此员工不存在
是哪错了吗
use 工资管理系统\员工密码
locate for 员工号=thisform.text1.value
if found()
if 密码==thisform.text2.value
messagebox("登陆成功！")
do form 工资管理系统\员工登陆界面
thisform.release
else
messagebox("密码错误，请重新输入！")
thisform.text2.value=""
thisform.text2.setfocus
use 工资管理系统\员工信息
endif
else
messagebox("此员工不存在，请重新输入")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
endif

郁闷。。。这格式

Answer 1

select * from 员工密码 where 员工号=thisform.text1.value INTO CURSOR TMP
IF RECCOUNT() > 0
if 密码==thisform.text2.value messagebox("登陆成功！") do form 工资管理系统\员工登陆界面 thisform.release else messagebox("密码错误，请重新输入！") thisform.text2.value="" thisform.text2.setfocus use 工资管理系统\员工信息 endifelse messagebox("此员工不存在，请重新输入") thisform.text1.value="" thisform.text2.value="" thisform.text1.setfocus endif

Answer 2

按你的改一句：
locate for 员工号=thisform.text1.value
改成：
locate for allt(员工号) == allt(thisform.text1.value)
就好了