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
这段程序运行的时候无论你输入的对还是不对，都可以进入系统。

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

打开数据库不是用USE　是用ＯＰＥＮ DATA呀。再看一下你的逻辑上有没有错误

locate的结果不是用found()来判断的.

locate         eof()是到文件尾
seek           found()是否找到!

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



查看红色字体部分