VFP 愛用者社區

[syr01]

例如:本月1号的密码是100001,那本月11号的密码变为100011.同时为了防止恶意用户登陆系统,系统设置了一个循环变量,如密码连续错了3次,使"确认"按钮Enabled=.F.系统将强行退出.另外,为了加强管理,提高安全性,在系统中定义了一个全局变量wjb,用户登陆时的用户级别就在wjb 中,在系统中就可对用户实行级别控制.
在Form的过程Activate中输入如下代码:
public cX,wjb
cX=0
系统对计算机提供的日期与初始密码来设置新密码的过程,是在Form的过程Load中输入如下代码:
close all
public wjb,wxm
selec 1
use newuser.dbf
local num,sub,new,sun
scan
num=day(date())
if num<=9
sun='0'+allt(str(num))
else
sun=allt(str(num))
endif
sub=allt(substr((newuser.密码),1,4))
new=sub+sun
replace 密码 with new
endscan
select 1
use newuser
release num,sub,new,sun
登陆确认按钮代码:
if upper(allt(thisform.text2.value))=upper(allt(newuser.密码))
wjb=newuser.用户级别
wxm=newuser.姓名
wfq=.t.
do 菜单.mpr
release thisform
close databases
else
cX=cX+1
cMessageTitle=" 管理系统"
cMessageText="密码错误,请重新输入!"
nDialogType=0+32+0
thisform.text2.setfocus
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) thisform.text2.value=" "
if cX=3
=messagebox(' 对不起!您无权使用,请退出!',0+64+0,'管理系统')
thisform.command1.enabled=.f.
thisform.text2.enabled=.f.
thisform.combo1.enabled=.f.
thisform.text2.value=" "
endif
endif

[garfield]

謝謝你分享經驗 ^.^

[Jerry]

好呀~
剛好有用到 , 真是感謝 !