系统的密码登录问题
在系统的密码登录表单里,填入的密码正确,按‘确定’键进入系统内部(即进入‘系统主表单’),它的程序如何编呢?(另外,我己将密码表单的数据环境设置为‘密码表’,‘密码表’的字段名只有1个,是‘密码’。这样做正确吗?该如何设置整个密码表单呢?)
use F:\VF练习\表\denglu.dbf set exact on locate for allt(xm)=allt(thisform.xm.value) if found() if allt(thisform.cpass.value)=allt(cpass) messagebox("欢迎进入!",0,"登陆提示") thisform.release else thisform.n=thisform.n-1 if thisform.n=0 messagebox("密码错误,登陆失败!",16,"失败提示") thisform.release else thisform.cpass.value="" thisform.cpass.setfocus messagebox("密码错误,请重新输入!",16,"错误提示") thisform.l.caption="你还有"+str(thisform.n,2)+"次机会" thisform.refresh
endif endif endif 在表单属性中新设属性n=3 并在表中加一个标签,name=l