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