vfp表单登陆和修改密码的表单代码

发布网友发布时间：2022-09-20 06:07

共1个回答

热心网友时间：2023-11-03 10:07

新建一个Login表.有如下字段:用户名(C),密码(C).
再建一个表单，有如下控件:两个文本框控件(txtName,txtPassWord)，一个按钮控件.
在按钮的Click事件中写如下代码:
if empty(thisform.txtname.value) or empt(thisform.txtpassword.value)
messagebox("用户名或者密码没有输入!",16,"错误")
else
use login &&路径一定要无误
locat for 用户名=alltrim(thisform.txtname.value)
if found()
locat for 密码=alltrim(thisform.txtpassword.value)
if found()
use
&&在此处写入通过身份认证后的代码
else
messagebox("密码有误,请重新输入!",16,"密码错误")
thisform.txtpassword.setfocus
endif
else
messagebox("用户名有误,请重新输入!",16,"用户名错误")
thisform.txtname.setfocus
endif
endif