xklb
a=Thisform.text1.value
b=Thisform.text2.value
if a==""
n=messagebox("请输入用户名",4+32,"学生管理系统
登陆")
do case
case n=6
thisform.text1.value=""
thisform.text1.setfocus
case n=7
thisform.release
endcase
else
if b==""
n=messagebox("请输入密码",4+32,"学生管理系统登陆")
do case
case n=6
thisform.text2.value=""
thisform.text2.setfocus
case n=7
thisform.release
endcase
endif
endif
locate for alltrim(xklb.Id)==alltrim(a)
if found()
if alltrim(xklb.Ps)==alltrim(b)
do cxcd.mpr
thisform.release
else
messagebox("密码错误,请重新输入",64,"学生综测管理系统登陆")
errornumber=errornumber+1
endif
else
messagebox("用户"+a+"不存在!",64,"学生综测管理系统登陆")
errornumber=errornumber+1
endif