USE 用户表
GO TOP
flag=0
do while not eof() &&添加一条语句
IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value)
IF Alltrim(口令)==Alltrim(Thisform.Text2.Value)
WAIT "欢迎使用" WINDOW TIMEOUT 2
ELSE
WAIT "口令错误" WINDOW TIMEOUT 2
endif &&添加一条语句
flag=1
EXIT
ENDIF
skip &&添加一条语句
ENDDO
IF flag=0 &&添加一条语句
WAIT "用户名错误" WINDOW TIMEOUT 2
ENDIF
USE 用户表
GO TOP
flag=0