我是新手
我自己编了一个登陆的程序不知道为什么 即使密码本来就是错的也能进入！！

各位前辈能不能给我发个做好的密码登陆的源码啊？

就是从密码表中取用户名和密码 与 表单文本框中的用户名和密码比对

对了就进入

错了重新输入 错误3次锁定的那种！

谢谢啊 急死我了

[此贴子已经被作者于2006-5-22 10:53:02编辑过]

登陆的确定表单：
我是这样做的，做了一个表，字段包括：用户名、密码，内容你可以随便输入
set exact on
if alltrim(thisform.combo1.value)=""or alltrim(thisform.text1.value)=""
messagebox("用户名或者密码不能为空!",46+2,"验证失败")
ELSE
thisform.n=thisform.n+1
locate for alltrim(用户名)==alltrim(thisform.combo1.value)
if alltrim(密码)==alltrim(thisform.text1.value)

messagebox("登陆成功，欢迎使用!",46+2,"成功登陆")
*可以在调用你的主表单
thisform.release
else
if thisform.n<3
messagebox("密码错误，请重新输入",46+2,"错误")
thisform.text1.value=""
thisform.text1.setfocus()
else
messagebox("密码错误三次，系统无法启动",46+2,"警告")
thisform.release
endif
endif
endif

大家看看
这是我的源码 问题在哪里哦？
为什么我现在运行连MESSAGEBOX也不出呢？
急死了

if lenc(allt(thisform.text1.value))#0 .and. lenc(allt(thisform.text2.value))#0 then
use data\passwd
if cn<3
locate for alltrim(thisform.text1.value)=alltrim(passwd.yonghuming)
if found()
if alltrim(thisform.text2.value)=alltrim(passwd.mima)
rank=1
thisform.release
else
cn=cn+1
messagebox("口令错误！","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
cn=cn+1
messagebox("用户错误！","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
messagebox("三次错误！","提示窗口")
thisform.release
endif
endif

我也是新手，上面是我参考写的
你可以看看我的，我的运行没有问题

好的
谢谢 我去弄弄！谢谢拉

中间没问题，用调试器查一下第一IF语句的条件设置

这里：
if cn<3
locate for alltrim(thisform.text1.value)=alltrim（passwd.yonghuming)
if found()
if alltrim(thisform.text2.value)=alltrim(passwd.mima)
等号前后的值应该掉换
CN也要定义了才可用
改为：locate for alltrim（passwd.yonghuming)=alltrim(thisform.text1.value)

强烈建议大家不要轻易使用ALLTRIM()函数和两个等号(==)进行比较,特别是严格比较的情况下。
只要你清楚你的字段的类型和宽度，在对应的文本框里设置相应的初始值(VALUE)和输入格式(INPUTMASK)就可以放心地比较了。