| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1822 人关注过本帖
标题:[求助]那位大哥帮我看看用户密码修改的源代码啊?
取消只看楼主 加入收藏
kleiven
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-5-30
收藏
 问题点数:0 回复次数:1 
[求助]那位大哥帮我看看用户密码修改的源代码啊?

今正做一个密码修改程序,有个问题要请教高手。

密码修改界面如下:

界面中有四个文本框,二个命令按钮,

三个文本框name属性依次为:te1、te2、te3、te4, te1输入用户名 te2要求用户输入原密码,te3与te4要求用户两次输入新密码。

二个命令按钮一个为“确定”键,一个为“退出”。

密码数据调用表"用户"中的user和pw字段中的数据。user字段为字符型,pw字段为数值型 "用户"表中的pw是换算的,输入密码=pw-26

资源位置在d:\zs\

“确定”键的代码如下:

set path to d:\zs\data\

use 用户 if alltrim(thisform.te2.value)==用户.user pw and alltrim(thisform.te3.value)==alltrim(thisform.te3.value)

do 用户.user pw==alltrim(thisform.te3.value)

thisform.release

else endif 在调用是出现错误,哪位大哥帮我修改一下.请指正

[此贴子已经被作者于2005-5-30 12:51:25编辑过]

搜索更多相关主题的帖子: quot 源代码 eqn 密码 sum 
2005-05-30 12:49
kleiven
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-5-30
收藏
得分:0 

set path to d:\zs\datause 用户.dbf if alltrim(thisform.text2.value)==user.and.pw=thisform.text2.value and thisform.text3.value=thisform.te4.value REPLACE pw WITH thisform.text3.value thisform.release else endif

这段是我改的代码,但是还是用不了! 请各位指教!

2005-06-01 13:58
快速回复:[求助]那位大哥帮我看看用户密码修改的源代码啊?
数据加载中...
 
   



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

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