有一份作业要求写一个登陆程序，包括一个login表单上有工号，密码两个标签和对应的text1和text2两个文本框，另有一份数据表qxjb内存有工号、姓名、密码、权限级别字段。要求登陆后打开mainmenu主菜单。因要求键盘操作，所以我的代码是这样的

login表单的init事件：
PUBLIC gongh,mima
gongh=ALLTRIM(thisform.text1.Value)
mima=ALLTRIM(thisform.text2.Value)
USE qxjb NOUPDATE &&以只读方式打开权限级别表

然后text2的keypress事件：
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode=13 &&按下回车键
  LOCATE FOR 工号=gongh
  IF FOUND()
     IF 密码=mima
      DO FORM mainmenu
     ELSE 
      MESSAGEBOX('密码错误！')
     ENDIF
  ELSE
    MESSAGEBOX('无此用户！')
    RETURN
  ENDIF
ENDIF

现在问题是login运行后不管我输入的工号密码对不对都会打开mainmenu，求高手帮我分析一下问题出在哪里。