vfp6.0中表单的密码问题

密码问题
1、编写程序判断用户输入密码是否正确（用户名为：WDZG密码为：
GSBYB），如果用户输入正确显示“欢迎使用本系统！”否则显示“密码错误请重新输入！”
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 程序：
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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 方法二：
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
LOCA TE FOR ALLTRIM(YHM)==ALLTRIM(KK)
IF FOUND()
?”你输入的用户已经被注册！”
CANCEL
ENDIF
IF ALLTRIM(SS1)==ALLTRIM(SS2)
INSERT INTO ZCXX.DBF (YHM,MM) V ALUES(KK,SS1) ELSE
?”对不起，你两次输入的密码不一致！请重新输入。

”
ENDIF
RETURN。