Question

vfp 表单设计

某银行的客户帐号和密码都存储在表“密码.dbf”中，请设计验证帐号和密码的表单。设计要求：
1、 若帐号和密码输入错，则用信息框提示。
2、 成功登录后，使用信息框显示。
3、 共可输入三次，三次输入错误则禁止进行系统。
如图所示的分别是表单界面、成功登录信息框和密码错误提示信息框。

我写的命令按钮“确定”click：
locate for 账号=thisform.text1.value
A=thisform.text2.value
if A=密码
=messagebox("欢迎进入本系统",0"欢迎") ……… ①说“函数名缺少” ，WHY？？？？？？？？？
else ②三次输入错误就禁止进入系统，怎么=messagebox("密码错误，是否重新输入",0,"错误") ③最后可以有完整的命令 ，感激不尽
endif

Answer 1

1)表单的init事件
PUBLIC n
n=0
2)“确定”按钮的click事件
user=ALLTRIM(thisform.text1.Value)
psw=ALLTRIM(thisform.text2.Value)
LOCATE FOR 帐号=user AND 密码=psw
IF FOUND() THEN
MESSAGEBOX("欢迎进入本系统！",0+64,,"欢迎")
ELSE
n=n+1
IF n=3 THEN
MESSAGEBOX("密码已输入三次，禁止进入！",0+48,"提示")
thisform.Release
ELSE
MESSAGEBOX("密码错误，请重新输入！",0+48,"提示")
ENDIF
ENDIF