| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1114 人关注过本帖
标题:关于登录系统的程序问题(比较急)
只看楼主 加入收藏
gengxu0523
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-6-5
收藏
 问题点数:0 回复次数:12 
关于登录系统的程序问题(比较急)
老师要求我们做一个有6个表单的程序,我想做一个登录系统,要有能注册。我弄了个表用来存储注册用户名和密码。但我不知道怎么样能把信息存到表中,登录的时候怎么样用表来验证用户名和密码。
下面是我写的代码但我不知道哪错了,不管我输的用户名,密码对不对都提示错误
use  e:\新建文件夹\系统\姓名及密码.dbf
a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)

if alltrim(姓名及密码.姓名)!=a .or. alltrim(姓名及密码.密码)!=val(b)
messagebox("姓名或密码错误",0,"错误提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do FORM e:\新建文件夹\系统\表单4.scx
endif
顺便问一下还有什么程序要用6个表单?
谢谢~
搜索更多相关主题的帖子: 新建文件夹 用户名 密码 
2011-06-05 20:53
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:0 
以下是引用gengxu0523在2011-6-5 20:53:41的发言:

if alltrim(姓名及密码.姓名)!=a .or. alltrim(姓名及密码.密码)!=val(b)
密码怎么变成了数值型?
2011-06-06 06:00
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分:0 
use  e:\新建文件夹\系统\姓名及密码.dbf
a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)

if alltrim(姓名及密码.姓名)!=a .or. alltrim(姓名及密码.密码)!=val(b)
messagebox("姓名或密码错误",0,"错误提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do FORM e:\新建文件夹\系统\表单4.scx
endif
顺便问一下还有什么程序要用6个表单?*****一个程序可能要有N个表单.

另外:要把信息存到表中,需要另编写密码修改程序.将修改后的信息存到表中:

repl 姓名及密码.姓名 with alltrim(thisform.text1.value),姓名及密码.密码 with alltrim(thisform.text2.value)


[ 本帖最后由 muyubo 于 2011-6-6 09:15 编辑 ]
2011-06-06 09:11
gengxu0523
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-6-5
收藏
得分:0 
回复 2楼 sywzs
因为存储在表里的密码是数值型 只有与表里的密码相同才能进入所以我把它变成数值型
2011-06-06 11:03
go2011
Rank: 6Rank: 6
等 级:侠之大者
帖 子:56
专家分:445
注 册:2011-4-21
收藏
得分:0 
如果存储在表里的密码是数值型,就不能使用alltrim(姓名及密码.密码)
2011-06-06 12:14
gengxu0523
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-6-5
收藏
得分:0 
回复 5楼 go2011
alltrim是因为输入到text的值是字符型的
2011-06-06 17:00
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
建议:把不等号换成等号好一些。例如:
if alltrim(姓名及密码.姓名)==alltrim(a) and 姓名及密码.密码=val(b)
   do FORM e:\新建文件夹\系统\表单4.scx
else
 ...
endif
另外,密码存放在 access 表中更安全一点。
2011-06-06 18:20
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:0 
设计思路就是错误的,密码应该是由字符(包括字母字符和数字字符)组成,因而不应使用数值型。
另外,把a=alltrim(thisform.text1.value)、b=alltrim(thisform.text2.value)中的value换成text试试。
一般情况下,我是把给控件赋值时用value,而取值时用text。

2011-06-07 04:56
gengxu0523
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-6-5
收藏
得分:0 
回复 8楼 sywzs
除了这些就没错了?
2011-06-07 21:29
gengxu0523
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-6-5
收藏
得分:0 
回复 8楼 sywzs
好像可以了 谢谢 请问text和value有什么区别?
2011-06-07 21:36
快速回复:关于登录系统的程序问题(比较急)
数据加载中...
 
   



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

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