VFP里面系统的登陆界面要怎么编程????

VFP里面系统的登陆界面要怎么编程????,第1张

登陆按钮代码

***一、检查芦乎输入的用户名是否存在***

1、打开存放用陪悔悉户名及前饥密码的表文件:如user.dbf,然后查找

user_name(user.dbf中的保存姓名的字段名),user_p(user.dbf中保存密码的字段名)

use user.dbf

if Locate for user_name=val(trhisform.text1.value)=.T. \\如果用户名存在

if val(thisform.text2.value)=user_p\\检查密码是否正确

...

二、注册新用户

三、修改密码。。。。

*新建一个表单,添加一个文本框,添加一个命令按钮(其余的修饰基孝迹控件自己解决)

*form1.init代码:慎闷

public times,mima

times=0

mima="a1b2c3"

this.caption="登录"

thisform.text1.passagewordmark="*"

*command1.click代码

if thisform.text1.value==mima

messagebox("登录成功!"搏并)

release mima

thisform.release

endif

times=times+1

do case

case time=1

messagebox("密码错!还有两次机会")

case time=2

messagebox("密码错!还有两一次机会")

case time=3

messagebox("密码错!系统拒绝你登录")

release mima

thisform.release

endcase


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12311668.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存