***一、检查芦乎输入的用户名是否存在***
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)