| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2327 人关注过本帖
标题:vfp怎样设置密码,新手求助
取消只看楼主 加入收藏
深海紫菜
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-4-21
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
vfp怎样设置密码,新手求助
我的思路就是,先创一个表,然后表储存用户,密码。
然后表单,表单怎样设计成,读取表里的密码,然后来判断?能不能从表单里修改表里的用户和密码?
网上搜了些代码,看不懂,而且好像位置的关系,代码没办法读取。
默认文件夹d:/新建文件夹,打开的文件为do  xxxxx
帮忙随便设置登录窗口和修改密码窗口行不?
搜索更多相关主题的帖子: 修改密码 表单 新建文件夹 xxxxx 用户 
2012-04-21 23:18
深海紫菜
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-4-21
收藏
得分:0 
回复 2楼 sdta
网上搜的,请版主看下,这个代码引用表,但没有讲出表的位置。。。。请问什么原因?这代码要怎样用的?


完整的思路:
psw.dbf应该这样设计:
user(用户名),pass(密码)

在主程序中定义一个全局变量
public username

然后登录代码这样:
use psw.dbf in 0
loca for allt(user)==allt(thisform.text1.value)
if found()
 if allt(pass)==allt(thisform.text2.value)
  use in psw
  username=allt(thisform.text1.value)
  do form telnet.scx
 else
  messagebox("对不起,您的密码错误!请重新输入!",48,"错误提示")
  thisform.text2.value=""
  thisform.text2.setfocus
 endif
else
 messagebox("对不起,没有这个用户!请重新输入!",48,"错误提示")
 thisform.text1.setfocus
endif

修改密码的代码:
use psw.dbf in 0
loca for allt(user)==allt(username)
if allt(thisform.text1.value)#allt(pass)
 messagebox("对不起,您的旧密码错误!请重新输入!",48,"错误提示")
 use in psw
 thisform.text1.setfocus
else
 if allt(thisform.text2.value)#allt(thisform.text3.value)
  messagebox("对不起,两次输入的新密码不一致!请重新输入!",48,"错误提示")
  use in psw
  thisform.text3.setfocus
 else
  newpass=allt(thisform.text2.value)
  update psw set pass=allt(newpass) where allt(user)==allt(username)
  use in psw
  do form sn.scx
 endif
endif
2012-04-21 23:40
深海紫菜
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-4-21
收藏
得分:0 
回复 2楼 sdta
版主,我照那个网址做个一个表单,但确定时,每次都要自己选择管理那个表,这样才能读取用户和密码,怎么回事,是不是我哪里弄错了?
2012-04-22 09:57
快速回复:vfp怎样设置密码,新手求助
数据加载中...
 
   



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

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