是这样的代码!!
因为图片显示不出来了
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