登录的确定.prg

来自「排课管理系统」· PRG 代码 · 共 33 行

cName=alltrim(thisform.txtName.value)
cPassword=alltrim(thisform.txtPassword.value)
if  empty(cName)
    messagebox("用户名不能为空",16,"用户登录验证")
    thisform.txtName.value=""
    thisform.txtName.setfocus
    return
 endif
 if  empty(cPassword)
      messagebox("口令不能为空",16,"用户登录验证")
      thisform.txtPassword.value=""
      thisform.txtPassword.setfocus
      return
  endif
  locate for alltrim(用户名)=cname
  if  not  found()
       messagebox("用户名输入错误!",16,"用户登录验证")
       thisform.txtName.selstart=0
       thisform.txtName.sellength=len(cName)
       thisform.txtName.setfocus
       return
   endif
   if  alltrim(口令)==cPassword
       messagebox("登录成功!",64,"用户登录验证")
     thisform.release
    else
       messagebox("口令错误!",16,"用户登录验证")
       thisform.txtPassword.value=""
       thisform.txtPassword.setfocus
     endif