黄龙300改装600排气管:麻烦帮用下Visual FoxPro6.0编下这题啊~~?作业急啊~不会做啊~

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 04:51:19
请用Visual FoxPro6.0编这题啊~~麻烦了`作业俺不会啊`
Q:编写一个口令校验程序,限定最多可输入3次口令,有一次可以正确的可打开数据库;若3次均不正确,则退出系统。
回答啊`~各位GG!!MM!!!
生死存亡啊~
如果是高手的话`~请在线教我吧`~QQ:115831154

if thisform.text1.value="admin"and thisform.text2.value="123456"
messagebox("欢迎进入本系统",0+64,"提示信息")
thisform.hide
do form f2
else
if thisform.newp<3
thisform.newp=thisform.newp+1
messagebox("用户名或密码错误,请重新输入",0+64,"提示")
else
messagebox("登陆失败!",0+64,"提示")
thisform.release
endif
endif

if thisform.text1.value="admin"and thisform.text2.value="123456"
messagebox("欢迎进入本系统",0+64,"提示信息")
thisform.hide
do form f2
else
if thisform.newp<3
thisform.newp=thisform.newp+1
messagebox("用户名或密码错误,请重新输入",0+64,"提示")
else
messagebox("登陆失败!",0+64,"提示")
thisform.release
endif
endif