VFP 表单 确定按钮代码

VFP 表单 确定按钮代码

DO while .T.
if thisform.text1.value=Form1.用户名AND thisform.text2.value=Form1.密码
=messagebox("正确",1)
EXIT
else
=messagebox("用户名不正确!请重新输入",1)
endif
enddo追答
追问：老师要求ScaN而且你这个实现不了用户名正确，密码不对的显示密码错误效果
追答：DO while .T.
if thisform.text1.value<>Form1.用户名
=messagebox("用户名不正确!请重新输入",1)
loop
endif
if thisform.text2.value <>Form1.密码
=messagebox(" 密码不正确!请重新输入",1)
loop
endif
enddo
=messagebox("正确",1)
*不知你的 FORM1是什么，是个表吗？是表才可用 scan,否则不行select form1
scan
if eof()
=messagebox(" 用户名不正确!请重新输入",1)
exit
endif
if thisform.text1.value =Form1.用户名
if thisform.text2.value <>Form1.密码
=messagebox(" 密码不正确!请重新输入",1)
exit
else
=messagebox(" 正确!",1)
exit
endif
endif
endscanselect form1
scan
if eof()
=messagebox(" 用户名不正确!请重新输入",1)
exit
endif
if thisform.text1.value =Form1.用户名
if thisform.text2.value <>Form1.密码
=messagebox(" 密码不正确!请重新输入",1)
exit
else
=messagebox(" 正确!",1)
exit
endif
endif
endscan

appe blan
追问：？？？？？