if empty(thisform.text1.value) or empty(thisform.text2.value)
messagebox("用户名或者密码没有输入!",16,"错误")
ELSE
locat for 用户名=alltrim(thisform.text1.value)
if found()
locat for 登陆密码=alltrim(thisform.text2.value)
if found()
DO 系统菜单.mpr
thisform.release
else
messagebox("密码有误,请重新输入!",16,"密码错误")
thisform.text1.setfocus
endif
else
messagebox("用户名有误,请重新输入!",16,"用户名错误")
thisform.text2.setfocus
endif
endif
不知道为什么操作起来只要在text1（也就是登陆框） 里输入汉字就显示 操作符操作数类型不匹配    而输入字母就正常……
求高人指点~~~~~~~~~~
还有如能能添加限制登陆次数的命令？大约3次 谢谢啦

[ 本帖最后由 juice12345 于 2010-5-30 00:23 编辑 ]

1、事先给TEXT1控件赋空格试试。如在表单的init事件中写入ThisForm.Text1.Value=space(10)。
2、设置一个变量记录密码核对次数，超过N次就结束程序运行。但这作用不大，尝试者还可以继续重新运行程序再试N次，而重新启动程序是无法限制的。

楼主程序出现逻辑毛病，依据楼主的程序，若用一个人的账号和另外一个人的密码，也能登录。修改为
if empty(thisform.text1.value) or empty(thisform.text2.value)
  messagebox("用户名或者密码没有输入!",16,"错误")
ELSE
  locat for 用户名=thisform.text1.value and 登陆密码=thisform.text2.value &&text1和text2的inputmask设置为用户名宽度和密码宽度那么多X
  if found()
    DO 系统菜单.mpr
    thisform.release
  else
    messagebox("用户名或密码有误,请重新输入!",16,"密码错误")
    thisform.text1.setfocus
  endif
endif
至于限制次数，大可不必，登录界面设置一个退出按钮，那个人有力的话让他登录1万次，累了自然按退出的嘛

呵呵，大老虎看得挺仔细！不过，好像楼主的逻辑没有错哎！
楼主只要在判断密码的时候不是loca 而是直接比对就行啦！
嘿嘿！
判断次数的话，可以设置一个变量，初始设置为3，点一次确定，减个1直到为0就行啦！

那个TEXT的属性你是不是给设定什么东西了？

另外，介个大老虎，你让人家用户名也mask干吗？

谢谢咯……但看得我巨纠结………………我挨个试~~~~~~

还有请问……操作符那个还是不匹配……
我怎么都运行不起来……这个是我们的作业…………所以应用性就不用考虑太多了能运行起来就可以了……谢谢~~~

[ 本帖最后由 juice12345 于 2010-5-31 18:40 编辑 ]