vfp6.0中表单的密码问题

密码问题 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