确定控件的代码有错误吗
做了一个验证的表单。这个是确定的代码。但输入用户名和密码的时候,点确定,总是出现找不到别名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