帮忙看下这里的语句要怎么改,谢谢
use 用户表do case
case thisform.Optiongroup1.option1.value=1
GO TOP
flag=0
do while not eof()
IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value)
IF Alltrim(用户密码)==Alltrim(Thisform.Text2.Value)
if Alltrim(用户类型)=="系统管理员"
do form 主控制平台
ELSE
WAIT "不能访问" WINDOW TIMEOUT 1
endif
flag=1
EXIT
ENDIF
endif
skip
enddo
IF flag=0
WAIT "用户名错误" WINDOW TIMEOUT 2
ENDIF
case thisform.Optiongroup1.option2.value=2
GO TOP
flag=0
do while not eof()
IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value)
IF Alltrim(用户密码)==Alltrim(Thisform.Text2.Value)
if Alltrim(用户类型)=="一般用户"
do form 主控制平台1
ELSE
WAIT "不能访问" WINDOW TIMEOUT 1
endif
flag=1
EXIT
ENDIF
endif
skip
enddo
IF flag=0
WAIT "用户名错误" WINDOW TIMEOUT 2
ENDIF
endcase
我运行的时候,只能运行前面部分,而且前面部分如果密码错误的话也不显示“不能访问”