vfp用户登录的登录按钮代码怎么写

用表单中的“用户”和“密码"访问某个数据表,如果找到记录就算登录成功。

假设用户名和密码放在A表中,代码如下:
n=alltrim(thisform.text1.value)
p=alltrim(thisform.text2.value)
use A
locate for 用户名=n
if not found()
messagebox("用户不存在")
else
if p<>密码
messagebox("密码不正确")
else
messagebox("登陆成功")
endif
endif
use
温馨提示:答案为网友推荐,仅供参考
相似回答