| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1094 人关注过本帖
标题:系统的密码登录问题
只看楼主 加入收藏
vicki
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2005-5-5
收藏
 问题点数:0 回复次数:3 
系统的密码登录问题
在系统的密码登录表单里,填入的密码正确,按‘确定’键进入系统内部(即进入‘系统主表单’),它的程序如何编呢?
(另外,我己将密码表单的数据环境设置为‘密码表’,‘密码表’的字段名只有1个,是‘密码’。这样做正确吗?该如何设置整个密码表单呢?)
搜索更多相关主题的帖子: 密码 系统 表单 环境 主表 
2005-05-07 11:42
swyou
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-5-3
收藏
得分:0 
那样设置是可以呀,要是在密码表上加多一个用户名呀,也不错呀,密码的代码你一点都不会吗

2005-05-08 23:49
忧郁的蓝
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-9-27
收藏
得分:0 
private npassword
select user
npassword=alltrim(thisform.txt密码.value)
locate for alltrim(用户名)=alltrim(thisform.txt用户名.value)
if found().and.npassword=alltrim(密码)
    thisform.visible=.f.
    do form main
else
    =messagebox("用户名或密码错误,请用户重新输入")
    thisform.txt用户名.setfocus
endif        

———————————————————————— 忧郁的蓝 chenming142@ 加油,加油!!
2005-09-27 23:55
yylong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-10-26
收藏
得分:0 

use F:\VF练习\表\denglu.dbf set exact on locate for allt(xm)=allt(thisform.xm.value) if found() if allt(thisform.cpass.value)=allt(cpass) messagebox("欢迎进入!",0,"登陆提示") thisform.release else thisform.n=thisform.n-1 if thisform.n=0 messagebox("密码错误,登陆失败!",16,"失败提示") thisform.release else thisform.cpass.value="" thisform.cpass.setfocus messagebox("密码错误,请重新输入!",16,"错误提示") thisform.l.caption="你还有"+str(thisform.n,2)+"次机会" thisform.refresh

endif endif endif 在表单属性中新设属性n=3 并在表中加一个标签,name=l

2005-10-27 10:42
快速回复:系统的密码登录问题
数据加载中...
 
   



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

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