sele adminer
use student\database\adminer
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to注册名
seek cx
if alltrim(adminer.注册名)!=cx
cMssageTitle='用户名错误,请重新输入'
nDialogType=4+32
nAswer=messagebox(cMessageText,nDialogType,MessageTitle)
do case
case nAnswer=6(这句也不明白)
thisform.text1="
thisform.text1.setfocus