vfp6.0中表单的密码问题密码问题
1、 编写程序判断用户输入密码是否正确(用户名为:WDZG密码为:GSBYB),如果用户输入正确显示“欢迎使用本系统!”否则显示“密码错误请重新输入!”
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
程序:
CLEAR
ACCEPT”请输入你的用户名:” TO THM
ACCEPT”请输入你的密码:” TO MM
IF ALLTRIM(YHM)==”WDZG” AND ALLTRIM(MM)==”GSBYB”
?” 欢迎使用本系统!”
...
密码问题
1、 编写程序判断用户输入密码是否正确(用户名为:WDZG密码为:GSBYB),如果用户输入正确显示“欢迎使用本系统!”否则显示“密码错误请重新输入!”
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
程序:
CLEAR
ACCEPT”请输入你的用户名:” TO THM
ACCEPT”请输入你的密码:” TO MM
IF ALLTRIM(YHM)==”WDZG” AND ALLTRIM(MM)==”GSBYB”
?” 欢迎使用本系统!”
ELSE
?” 密码错误请重新输入!”
ENDIF
RETURN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2、 编写一程序检验用户输入密码是否正确,密码是“123456”,如果用户输入正确显示“欢迎使用本系统!”否则显示“密码错误请重新输入!”。当第三次输入错误时显示“你是非法用户!”最多只允许用户输入错三次。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
程序:方法一:
CLEAR
N=0
DO WHILE .T.
ACCEPT”请输入你的密码:” TO MM
IF ALLTRIM(MM)==”123456”
?” 欢迎使用本系统!”
EXIT
ELSE
?” 密码错误请重新输入!”
N=N+1
IF N=3
?“你是非法用户!”
EXIT
ENDIF
ENDIF
ENDDO
RETURN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
方法二:
CLEAR
FOR N=1 TO 3
ACCEPT”请输入你的密码:” TO MM
IF ALLTRIM(MM)==”123456”
?” 欢迎使用本系统!”
EXIT
ELSE
?” 密码错误请重新输入!”
IF N=3
?“你是非法用户!”
EXIT
ENDIF
ENDIF
ENDFOR
3、 编写一程序检验用户输入密码是否正确,密码是“abcd”,如果用户输入正确显示“欢迎使用本系统!”再打开xsda.dbf,否则显示“密码错误请核对后输入!”。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
程序:
CLEAR
ACCEPT”请输入你的密码:” TO MM
IF ALLTRIM(MM)==”abcd”
?” 欢迎使用本系统!”
use xsda.dbf
ELSE
?” 密码错误请核对后输入!”
ENDIF
RETURN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4、 有一个存放用户名和密码的
zcxx.dbf,其中有字段YHM C(8,) ,MM C(6),请编写程序检验用户输入的用户名或密码是否符合zcxx.Dbf中的某一条记录,如果与某条记录匹配则说明用户密码正确提示“欢迎使用本系统!”否则提示“你输入的用户名或密码有误!”
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
程序:
CLEAR
ACCEPT”请输入你的用户名:” TO kk
ACCEPT”请输入你的密码:” TO ss
use zcxx.dbf
locate for alltrim(kk)==alltrim(YHM) and alltrim(ss)== alltrim(MM)
IF found()
?” 欢迎使用本系统!”
ELSE
?” 你输入的用户名或密码有误!”
ENDIF
RETURN
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5、 编写一个注册程序能够让用户将注册信息填写到有一个存放用户名和密码的表zcxx.dbf,其中有字段YHM C(8,) ,MM C(6)。
CLEAR
?”请输入你要注册的信息(用户名和密码)”
ACCEPT”请输入要注册的用户名:” TO KK
ACCEPT”请输入要注册的密码:” TO SS1
ACCEPT”请确认要注册的密码:” TO SS2
USE ZCXX.DBF
LOCATE FOR ALLTRIM(YHM)==ALLTRIM(KK)
IF FOUND()
?”你输入的用户已经被注册!”
CANCEL
ENDIF
IF ALLTRIM(SS1)==ALLTRIM(SS2)
INSERT INTO ZCXX.DBF (YHM,MM) VALUES(KK,SS1)
ELSE
?”对不起,你两次输入的密码不一致!请重新输入。”
ENDIF
RETURN
本文档为【vfp6.0中表单的密码问题】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。