关于用户登陆窗口的代码

[Karl_He]

请大家帮忙分析一下我代码中的错误,现在不管在文本框输入什么,都只有 "不要开玩笑，一定要输入" 这句警告,这句话本来只是针对什么都不输入,而能进入的漏洞.清高首赐教.

use "管理员.dbf"
if thisform.text1.value='' or thisform.text2.value=''
result=messagebox("不要开玩笑，一定要输入",4+32,"警告")
else
locate for alltrim(管理员.姓名)=alltrim(thisform.text1.value);
and alltrim(管理员.密码)=alltrim(thisform.text2.value)
if found()
do "main.prg"
Thisform.release
messagebox("欢迎你,"+thisform.text1.value,4+32,"欢迎")
else
result=messagebox("请输入正确的用户名和密码",4+32,"警告")
if result=6
thisform.text1.value=""
thisform.text2.value=""
endif
endif
endif

[nononono]

if empty(thisform.text1.value) or empty(thisform.text2.value)
result=messagebox("不要开玩笑，一定要输入",4+32,"警告")
.................



注意，在默认情况下，表达式 'abc'=''、'abc'='a'、'abc'='ab' 总是为.t.。

[Karl_He]

居验证,
if empty(thisform.text1.value) or empty(thisform.text2.value) 会报错

改为以下则可:

if empty(thisform.text2.value)
result=messagebox("不要开玩笑，一定要输入",4+32,"警告")
.................

[nononono]

if empty(thisform.text1.value) or empty(thisform.text2.value) 会报错

==>

if empty(thisform.text1.value) .or. empty(thisform.text2.value)

[haona]

set exact on
IF ALLT(thisform.text1.value)='' or ALLT(thisform.text2.value)=''
.................
.................

[enlic_jean]

ALLT(thisform.text1.value)='' or ALLT(thisform.text2.value)=''

[nononono]

ALLT(thisform.text1.value)=='' or ALLT(thisform.text2.value)==''

[welleasy]

加上
set exact on
和上边几位的方法修改！

[冲锋游侠]

我不同意上一楼的说法，alltrim是消除字符串的前后空格，如果string是空格，那么empty(alltrim(string))的值一定为.T.，比较字符串时，可以用“==”进行精确比较。需要注意的是：string!=""的值一定为.F.

[nononono]

看看set exact on/off的说明

[oishi]

if thisform.text1.value='' or thisform.text2.value=''
这样的条件行吗!
你在text1中输入时,text2没有数据
当然会提示了!
应该把你个条件分开呀!

[wangbd8]

根据我的经验，判断字符串为空最好用长度进行判断：
1、string=''的形式，结果永真。
2、empty(string)的形式，当字符串的值为空格时可能会出错。
所以建议采用以下形式：len(alltrim(string))=0进行判断