标题:找不到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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-84226-1-1.html




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

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