| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1149 人关注过本帖
标题:找不到TXTPASSWORD 是怎么回事?
只看楼主 加入收藏
a4661790
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2006-7-26
收藏
 问题点数:0 回复次数:6 
找不到TXTPASSWORD 是怎么回事?

我做的密码表单
表单上有一个确定按钮和一个取消按钮
现在是密码正确时没错误但是密码错误时它会显示“找不到TXTPASSWORD”下面是我的程序内容,大家看看有什么不对的地方啊
在按钮的click中写的
n=n+1
if n<=3
 IF thisform.text1.value='4661790'
 thisform.release &&hide
 do form 排榜1
 ELSE
   messagebox("口令不正确!请重新输入!",64,"提示窗口")
thisform.txtpassword.value=''
thisform.txtpassword.setfocus()
 endif
else
   messagebox("你不是合法用户!你不能使用!!",64,"提示窗口")
   thisform.release
endif

搜索更多相关主题的帖子: TXTPASSWORD thisform 密码 按钮 
2006-08-16 09:47
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 

TXTPASSWORD应该是输入密码文本框的名字,我看上面代码:thisform.text1.value='4661790'中TEXT1才是你界面上的输入文本框的名字,所以,TEXT1的NAME属性改为TXTPASSWORD


学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-08-16 09:54
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 
我想你的代码是不是拷贝过来的。。。。记得检查一下哦。

学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-08-16 09:55
a4661790
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2006-7-26
收藏
得分:0 

谢谢楼上的提醒
我知道怎么回事了
我把ELSE 语句里的txtpassword 改成text1后就好使了

2006-08-16 13:22
eryiqingfan
Rank: 1
等 级:新手上路
威 望:2
帖 子:379
专家分:0
注 册:2006-8-15
收藏
得分:0 

呵呵,互相帮助哦.


学习ING... 安静的阳台,抬头那一小片天空,自由自在唱属于自己的歌. 鬼鬼£小鬼 ++UU
2006-08-16 14:39
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
楼主的密码代码是固定密码形式,不利于软件维护,建议采用可修改密码的形式进行设计。
在初始化部分建立一个表"用户.DBF",用来存放用户名和密码(用户名和密码可采用加密或不加密的形式),如果没有加密则有这样的代码:

(1)FORM1.INIT()
CLOSE ALL
IF FILE("用户.DBF")
USE 用户.DBF
ELSE
CREATE TABLE 用户(用户名 C(8),密码 C(8)) &&建立用户表
APPEND BLANK &&添加初始用户
REPLACE 用户名 WITH "SYSTEM",密码 WITH "4661790" &&该初始用户的用户名为"SYSTEM",密码为"4661790"
ENDIF
THISFORM.TEXT1.INPUTMASK="XXXXXXXX" &&TEXT1存放用户名
THISFORM.TEXT2.INPUTMASK="XXXXXXXX" &&TEXT2存放密码
THISFORM.TEXT2.PASSWORDCHAR="*" &&密码显示为"*"
PUBLIC N
N=0

(2)登陆(COMMAND1.CLICK)
n=n+1
if n<=3
SELECT 用户
LOCATE ALL FOR 用户名=thisform.text1.value AND 密码=thisform.text2.value
IF !EOF()
 thisform.release &&hide
  do form 排榜1
ELSE
messagebox("用户名或口令不正确!请重新输入!",64,"提示窗口")
thisform.text1.value=''
thisform.text2.value=''
thisform.text1.setfocus()
ENDIF
else
 messagebox("你不是合法用户!你不能使用!!",64,"提示窗口")
 thisform.release
endif

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-08-16 21:04
a4661790
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2006-7-26
收藏
得分:0 

谢谢楼上的
长见识啊

2006-08-17 16:56
快速回复:找不到TXTPASSWORD 是怎么回事?
数据加载中...
 
   



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

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