先做1吧DO CASE
CASE THISFORM.TEXT1.VALUE="ABCDEF" AND THISFORM.TEXT2.VALUE="123456"
MESSAGEBOX("欢迎使用本系统 ")
THISFORM.RELEASE
CASE THISFORM.TEXT1.VALUE="ABCDEF"
MESSAGEBOX("密码错误，请重新输入! ")
CASE THISFORM.TEXT2.VALUE="123456"
MESSAGEBOX("用户名错误，请重新输入! ")
OTHERWISE
MESSAGEBOX("用户名和密码错误，请重新输入! ")
ENDCASE
2、
use 口令表
do while not eof()
if thisform.text1.value=用户名 and thisform.text2.value=密码
messagebox("欢迎使用本系统 ")
thisform.release
exit
else
skip
endif
enddo
if eof()
messagebox("用户名或密码错误，请重新输入! ")
endif
