| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 757 人关注过本帖
标题:请教登陆程序问题急哇~~~~
只看楼主 加入收藏
juice12345
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-5-29
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
请教登陆程序问题急哇~~~~
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 编辑 ]
搜索更多相关主题的帖子: 登陆 
2010-05-29 23:58
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:6 
1、事先给TEXT1控件赋空格试试。如在表单的init事件中写入ThisForm.Text1.Value=space(10)。
2、设置一个变量记录密码核对次数,超过N次就结束程序运行。但这作用不大,尝试者还可以继续重新运行程序再试N次,而重新启动程序是无法限制的。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-05-30 07:45
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:6 
楼主程序出现逻辑毛病,依据楼主的程序,若用一个人的账号和另外一个人的密码,也能登录。修改为
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万次,累了自然按退出的嘛

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-05-30 10:50
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:6 
呵呵,大老虎看得挺仔细!不过,好像楼主的逻辑没有错哎!
楼主只要在判断密码的时候不是loca 而是直接比对就行啦!
嘿嘿!
判断次数的话,可以设置一个变量,初始设置为3,点一次确定,减个1直到为0就行啦!

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

2010-05-31 09:46
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
另外,介个大老虎,你让人家用户名也mask干吗?

2010-05-31 09:50
juice12345
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-5-29
收藏
得分:0 
谢谢咯……但看得我巨纠结………………我挨个试~~~~~~
2010-05-31 17:23
juice12345
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-5-29
收藏
得分:0 
还有请问……操作符那个还是不匹配……
我怎么都运行不起来……这个是我们的作业…………所以应用性就不用考虑太多了能运行起来就可以了……谢谢~~~

[ 本帖最后由 juice12345 于 2010-5-31 18:40 编辑 ]
2010-05-31 18:16
快速回复:请教登陆程序问题急哇~~~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025187 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved