sele Passwordinfo &&选择表文件Passwordinfo
locate for allt(用户名）=allt(thisform.text1.value)
if ?eof()
messagebox("用户名已存在，请重新输入!",64,"信息提示"）
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
else
if allt(thisform.text2.value)!=allt(thisform.text3.value)
messagebox("确认密码错误，请重新输入!",64,"信息提示")
thisform.text2.value=""
thisform.text3.value=""
else
append blank
repl 用户名 with allt(thisform.text1.value)
repl 密码 with allt(thisform.text2.value)
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
endif
endif

报错的时候点击 挂起，从工具菜单中进入 调试器，报错的位置就在那里

try
cUser = alltrim(thisform.text1.value)
cPwd01 = alltrim(thisform.text2.value)
cPwd02 = alltrim(thisform.text3.value)
catch &&这里可以添加错误对象，在 return 前进行错误信息提示
return
endtry
_tally = 0
select 用户名 from Passwordinfo where alltrim(用户名) = cUser
if _tally != 0
messagebox("用户名已存在，请重新输入!",64,"信息提示"）
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
return
endif
if cPwd01 != cPwd02
messagebox("确认密码错误，请重新输入!",64,"信息提示")
thisform.text2.value=""
thisform.text3.value=""
return
endif
insert into Passwordinfo (用户名,密码) values (cUser,cPwd01)
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""

密码登录，权限要分明，
一般用户没有添加的权限，
所以，只要判断，用户名是否在表格，