请问这段代码，我错在那里了，我不能实现注册的功能啊！！！急急急!!!

[url=http://www.]未命名.bmp[/url]

是这样的代码！！

因为图片显示不出来了

dluser=alltrim(upper(thisform.text1.value))
dlpassword=alltrim(upper(thisform.text2.value))
if empty(dluser) or empty(dlpassword)
   messagebox("輸入錯誤",1)
   thisform.text1.value=" "
   thisform.text2.value=" "
  else
    select welcome
    locate for alltrim(upper(用户))==dluser and alltrim(upper(密碼))==dlpassword
   if eof()
     messagebox("輸入錯誤，請再次輸入",1)
    else
     messagebox("注册成功",0)
     do form welcome.scx
     thisform.visible=.f.
    endif
 endif

请教高手解决啊~~~~~~~