用VFP如何进行软件登录界面的密码设计

2020-06-26 科技 108阅读
select 系统管理员
locate for alltrim(系统管理员.账号)==alltrim(thisform.text1.value)
if found()
locate for alltrim(系统管理员.密码)==alltrim(thisform.text2.value)
if found()
n=recno()
locate for 系统管理员.在线=.t.
replace 系统管理员.在线 with .f.
go n
replace 系统管理员. 在线 with .t.
replace 系统管理员.登录次数 with 系统管理员.登录次数+1
thisform.release
messagebox("欢迎"+alltrim(系统管理员.账号)+"第"+alltrim(str(系统管理员.登录次数))+"次使用实时会计报表系统!",64,"实时会计报表系统")
if thisform.check1.value=.t.
if messagebox("是否要修改密码?",1+64,"实时会计报表")=1
thisform.release
do form 修改密码
endif
endif
else
messagebox("你的密码输入有误!",16,"实时会计报表")
thisform.text2.value=""
thisform.text2.setfocus
endif
else
messagebox("你输入的账号不存在!",32,"实时会计报表系统")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
endif
这是自己做的参考一下啊:)希望对你有用呢
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com