| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1938 人关注过本帖
标题:设置注册的问题
只看楼主 加入收藏
invater
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-11-27
收藏
 问题点数:0 回复次数:10 
设置注册的问题
请问高手们,
我想弄个注册的
我写了这个
if thisform.text1.value="" or thisform.text2.value="" or thisform.text3.value="" or thisform.text2.value=thisform.text3.value  
    messagebox("你的输入有问题,请从新再输入完整的信息",1+48)
   else
    messagebox("注册成功",0)
  endif

说明一下:text1 是  输入用户
          text2 是 输入密码
          text3 是 重复密码
可是运行了以后老是提示第一个信息 -->   messagebox("你的输入有问题,请从新再输入完整的信息",1+48)


找高手解决,能不能写个代码看看
搜索更多相关主题的帖子: 注册 
2008-11-27 16:40
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
lcUser=alltrim(upper(thisform.text1.value))  &&用户
lcPassword1=alltrim(thisform.text2.value)    &&密码
lcPassword2=alltrim(thisform.text3.value)    &&重复密码
if empty(lcUser) or empty(lcPassword1) or empty(lcPassword2) or lcPassword1#lcPassword2
  messagebox("你的输入有问题,请从新再输入完整的信息",1+48)
  thisform.text1.setfocus
else
  select users  &&用户表,事先打开
  locate all for alltrim(upper(用户))==lcUser and Alltrim(密码)==lcPassword1
  if eof()
    messagebox("你的输入有问题,请从新再输入完整的信息",1+48)
  else
    messagebox("注册成功",0)
  endif
endif

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-11-27 17:06
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
回复 楼主 invater 的帖子
if thisform.text1.value="" or thisform.text2.value="" or thisform.text3.value="" and thisform.text2.value=thisform.text3.value

[[it] 本帖最后由 tlliqi 于 2008-11-27 17:09 编辑 [/it]]
2008-11-27 17:08
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
2楼正解
2008-11-27 17:10
invater
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-11-27
收藏
得分:0 
我也知道我怎么会错了,因为我的“”里面没空一格
2008-11-27 20:15
invater
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-11-27
收藏
得分:0 
能说说这是什么意思么?alltrim(upper(thisform.text1.value))
2008-11-27 20:23
invater
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-11-27
收藏
得分:0 
# 又是什么意思呢?
 如 lcPassword1#lcPassword2
2008-11-27 21:00
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用invater在2008-11-27 20:23的发言:

能说说这是什么意思么?alltrim(upper(thisform.text1.value))

alltrim()去掉前导及尾部空格,upper()转换为大写字母。目的是为了保证写诸如smith、SMITH、Smith用户是一个用户。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-11-27 21:32
invater
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-11-27
收藏
得分:0 
那lcPassword1#lcPassword2又是什么意思
2008-11-27 21:33
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用invater在2008-11-27 21:00的发言:

# 又是什么意思呢?
 如 lcPassword1#lcPassword2

这是vfp帮助文件里说的。
下表列出关系操作符。
操作符     动作           代码
<          关系操作符     ? 23 < 54
>          大于           ? 1 > 2
=          等于           ? cVar1 = cVar
<>, #, !=  不等于         ? .T. <> .F.
<=         小于或等于     ? {^1998/02/16} <= {^1998/02/16}
>=         大于或等于     ? 32 >= nHisAge
==         字符串比较     ? status == "Open"

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-11-27 21:34
快速回复:设置注册的问题
数据加载中...
 
   



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

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