vfp修改注册按钮click,使其不允许相同用户的多次注册

use login.dbf *打开用户表
go 1 定位到第一条记录
locate for 用户名=alltrim(thisform.text1.value) *定位到用户名为text1文本内容的记录
if found() *如果存在
messagebox("系统发现用户名为"+alltrim(thisform.text1.value)+"的用户已经存在，请重新设置用户名！",0+64+0,"提示") *提示信息
thisform.text1.value="" *清空text1文本内容
thisform.text1.setfucus *text1获得焦点
else *如果没有找到
…………*添加信息的代码
endif

大致是这样
这些代码没有经过调试，你可以自己复制过去试试。