Question

vfp 密码登录登录验证代码怎么写

用户表是 yhb.dbf(编号，用户名，密码）,登录表单里面有一个combo框，combo的值为表的用户名，两个txt文本框（一个的值为编号选中用户名的时候值自己动查到表中对应编号的值，另外一个为密码），还有两个按钮，一个确定，一个取消，代码应该怎样写?
没反应呀 ,还是没反应呀

Answer 1

combo的interactivechange:
select yhb
locat for 用户名=thisform.combo1._value
if found()
thisform.编号.value=编号
endif

确定按钮的click:
select yhb
locat for 用户名=thisform.combo1._value
if found()
if 密码=thisform.密码.value
messagebox("密码正确")
else
messagebox("密码错误")
endif
endif

Answer 2

在combo控件的chick事件中输入如下代码：
use yhb
c1=alltrim(thisform.combo1.value)
loca for 用户名=c1
thisform.text1.value=编号

确定按钮的chick事件：
sele yhb
c1=alltrim(thisform.combo1.value)
t2=alltrim(thisform.text2.value)
loca for 用户名=c1
if alltrim(密码)==t2
messagebox("登陆成功!",64,"成功")
else
messagebox("密码错误，登陆不成功!",16,"失败")
thisform.text2.value=""
thisform.text2.setfocus
endif

取消按钮chick事件：
thisform.release