clos all
use database_1.dbc
use longin_1
if len(alltrim(thisform.edit1.text))=0         &&删除字符串前后的空格  len字符串长度函数
 messagebox('用户名不能为空。',64,'提示')
  thisform.edit1.Setfocus                      &&获得焦点
  return
  else
select longin_1
locate for alltrim( 用户名)==alltrim(thisform.edit1.text)
if found()
if alltrim(密码)==alltrim(thisform.edit2.text)
   messagebox("欢迎使用本系统!",48)
   thisform.release
   do maimmenu.mpr
  else
  messagebox("你不是本系统的合法用户！禁止进入本系统！",48)
  quit
  endif
  ELSE
 MESSAGEBOX('没有此用户！')
 thisform.edit1.Setfocus   
  endif
        endif
这段程序运行的时候无论你输入的对还是不对，都可以进入系统。

大家无论如何也要帮帮我，我己经搞了几天了一个小程序也搞不好。