set exact on
if alltrim()="" or alltrim(thisform.text2.value)=""
    MESSAGEBOX("用户名或者密码不能为空",46+2,"验证失败")
else
   thisform.n=thisform.n+1
   locate for alltrim(用户名) == alltrim()
   if alltrim(密码)==alltrim(thisform.text2.value)   
      m.用户名 =用户名
      MESSAGEBOX("成功登陆,欢迎使用此系统",46+2,"登陆成功")
      do form 查询系统.scx
      thisform.release
  else
     if thisform.n<3
        MESSAGEBOX("密码错误,请重新输入",46+2,"错误")  
        thisform.text2.value=""
        thisform.text2.setfocus()
     else
        MESSAGEBOX("密码错误三次,系统无法启动",46+2,"不要侵入我的系统")
        thisform.release
        clear events
        quit
     endif
  endif
endif