locate for allt(用户名)==allt(username)
if found() == .T.
   if allt(密码) == allt(userpassword)
      locate for usertype==权限
         if found () == .T.
            thisform.release
            do form 主界面.scx
         else
            messagebox("用户名或密码错误",48,"登录提示")
            times=times-1   
         endif
    endif
endif     

为什么没进行权限的判断就可以进入主界面

用户名或密码正确就能进入主界面

排除空格影响试试：
 locate for allt(usertype)==allt(权限)

怎么对数据库里的密码进行加密

用关键字“加密”在本论坛搜索一下，可能会对楼主有启发。

怎么对输入密码的文本框里设置成只能输入数字和字母？感谢大家

vfp怎么实现数据库的加密和对输入密码的文本框设置成6位的数字和字母

6位数字
文本框的inputmark属性设置成999999

6位字母
文本框的format属性设置成A
maxlength属性设置成6

如过字母和数字都能输，其他字符不能输入怎么解决

最少输入六位密码怎么设置