做了一个验证的表单。这个是确定的代码。但输入用户名和密码的时候，点确定，总是出现找不到别名ADMINER这是怎么回事呀？帮忙看一下呀！！！


sele adminer
use adminer
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to 用户名
seek cx
if alltrim(adminer.用户名)!=cx
cMessageTitle='设备管理系统'
cMessageText='用户名错误，请重新输入'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text1.value=""
thisform.text1.setfocus
case nAnswer=7
cMessageTitle='设备管理系统'
cMessageText='不要乱来'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
else
if alltrim(adminer.密码)!=cy
cMessageTitle='设备管理系统'
cMessageTitle='密码错误，请重新输入'
nDialogType=4+32
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text2.value=""
thisform.text2.setfocus
case nAnswer=7
cMessageTitle='设备管理系统'
cMessageText='不要乱来'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
else
thisform.release
do case
case tablesc=1
do form deptstu
case table=2
do form weihu
endcase
endif
endif

你先去掉第1句

表文件要先打开（USE）然后才能选择（SELECT），如果是在当前工作区打开一个表，则SELECT可省略。