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
这是自己做的参考一下啊:)希望对你有用呢