输入三次，就无权输入。
下面是我编的程序。
我想问一下，大方向上好像没有什么问题，只是，输入表中的任何一个姓名，任何一个密码，都会显示登陆成功是怎么回事？为什么姓名与密码不能一一对应呢？求高手解答啊！
use 表1
set exact on
locate for 姓名=thisform.text1.value
if empty(thisform.text1.value)
messagebox("请输入姓名")
thisform.text1.setfocus
else
locate for 密码=thisform.text2.value
if empty(thisform.text2.value)
messagebox("请输入密码")
thisform.text2.setfocus
else
if found()
messagebox("登录成功")
wait window"将进入系统!"timeout 2
thisform.release
else
i=i+1
if i<3
messagebox("密码错误，请重新输入")
thisform.text2.value=""
thisform.text2.setfocus
else
messagebox("您已经无权输入密码")
thisform.release
endif
endif
endif
endif

这是你程序的逻辑问题！
如果找到一个姓名，那么马上就比较密码而不是再locate for
if empty(thisform.text1.value) or empty(thisform.text2.value)
messagebox("请输入姓名或密码")
thisform.text1.setfocus
return
endif
...
locate for 姓名=thisform.text1.value
if found()
if 密码=thisform.text2.value
messagebox("登录成功")
endif
else
messagebox("登录失败")
。。。
endif

恩，谢谢了。我感觉也是因为locate for的问题，可是不知道该怎么改，我去试试啦，再次感谢

不要先使用messagebox()函数提示，这样用户操作起来很烦的。
直接在登陆表单上放两个文本框，一个输入用户名、一个输入密码，然后在［确定］按钮中写入检测语句。
检测语句中首先查找用户名，若查找到用户名后，再核对密码。

那不对的话该怎么提示呢？

我成功了，谢谢你，呵呵。
对了，还有一个问题，老师告诉我这个应该设计成嵌套的，我看您这个一开始好像也不是嵌套的，怎么不是连续显呢？难道是因为有renturn？

是我没有表达清楚意思。我是说开始的“请输入姓名和密码”的提示没有必要，因为用户需要点击提示框的按钮之后才能输入姓名和密码。

胡99，如果楼主开设设定TEXT1和TEXT2有值不就不是直接提示了？

楼主是希望有人不输入任何东西就要进入的时候给提示！

我也是新手
前几天自己 学习来的一个身份验证的表单
先做了一个 用户信息表 存了 几个用户名 和密码
觉得和你们讨论的方法不太一样 发上来做个参考
但是其中没有关于登录三次就不许登录的部分
表单的确定按钮c事件如下
CLOSE TABLES all
USE 用户信息
SET EXACT ON
DIMENSION s(1)
usr = ALLTRIM (THISFORM.TEXT1.Value)
pwd = ALLTRIM (THISFORM.TEXT2.Value)
s(1)=""

IF usr <>"" AND pwd <>"" then
SELECT*FROM 用户信息 WHERE(用户名=usr)and(密码=pwd)INTO ARRAY s
IF (ALLTRIM(s(1))<>"")THEN
        MESSAGEBOX ("登录成功！")
          DO 窗口菜单.mpr
          thisform.Release
     ELSE
         MESSAGEBOX ("用户不合法哦！")
     ENDIF
ELSE      
   MESSAGEBOX ("请输入用户名和密码！")
ENDIF

老眼昏花，没有仔细看代码。在此表示歉意！