登陆时密码不起作用!!!!
我用6.0编了一个登陆程序,可是郁闷的是不管有没有用户名和密码都显示登陆成功!!!我在表中给密码设置了掩码,是不是有关系呢?
源码如下:
if select("managerinformation")=0
messagebox("数据表ímanagerinformation数据表不存在,请查实!!!!"0+16","警告")
else
select managerinformation
thisform.txtMname.value=""
thisform.txtMpassword.value=""
if allt(Mname)=allt(thisform.txtMname.value)
if allt(Mpassword)=allt(thisform.txtMpassword.value)
messagebox("登陆成功!!!",0+64,"恭喜")
thisform.release
else
i=i-1
if i<=0
messagebox("非法使用,程序即将关闭!!",0+16,"警告")
thisform.release
endif
messagebox("密码错误,你还有"+str(i)+"次机会",0+64,"错误")
thisform.txtMpassword.setfocus
endif
else
messagebox("用户名不存在,请查实!!!",0+64,"错误")
endif
endif