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

[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

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

楼主问题可不可以说清楚点：
错在哪里？是提示语法错误呢？还是只是不能查询出结果？
从你有程序看，你没有要注册的语句呀？只有个验证用户名及密码的查询而已！
另外，你第10行，要判断是否查询到结果，改成： if found() 吧。(不过，你为何不用select 呢？)

看不出有何错误。不过建议将倒数第三行的thisform.visible=.f.改为thisform.release
。

if eof()
     messagebox("輸入錯誤，請再次輸入",1)
    else
     messagebox("注册成功",0)
     do form welcome.scx
     thisform.visible=.f.
endif

这段代码反了！
eof()是记录已到文件尾，表示你输入的用户，密码在库里没有，这时应该是注册成功！

if eof()
     messagebox("注册成功",0)
     do form welcome.scx
     thisform.visible=.f.
else
     messagebox("輸入錯誤，請再次輸入",1)
endif

楼主的意思是根据用户输入的用户名和密码，登录程序进行操作吧？

从程序上看，不像是注册，倒像是验证用户名和密码。如果是注册，szy345的程序是对的，但是，你的程序只能是新用户才能进入，老用户将退出，不能再继续运行。

都是高手，，，学习下