use 密码.dbf
select 密码
loca for allt(账号)==allt()
if found()
  if allt(密码)==allt(thisform.text1.value)
     use in 密码
     do form 系统主表单.scx
  else
      messagebox("对不起，您的密码错误！请重新输入！",48,"错误提示")
      thisform.text1.value=""
      thisform.text1.setfocus
   endif
else
   messagebox("对不起，没有这个用户！请重新输入！",48,"错误提示")
   
endif

use 密码.dbf ALIAS 密码

if allt(密码)==allt(thisform.text1.value)
运行时观察一下这句的 allt(密码) 和 allt(thisform.text1.value) 是什么

你发个附件上来，好帮你测试　

楼上正解！

用messageBox()函数将这两个字符显示出来比较一下，原因很容易找到的。