设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 50252|回复: 161
打印 上一主题 下一主题

[模块/函数] [原创]系统登陆及密码修改,直接导入即可使用

[复制链接]
跳转到指定楼层
1#
发表于 2004-8-11 23:35:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
近来很多朋友问我要系统登陆和密码修改的例子

现在我就把我的一个系统里的这部分分离出来给各位朋友

也许做得并不完善

但可以基本做到直接导入到你的数据库就可以使用

谢谢大家的支持

有任何意见和建议可与我联系

接受 wzj 的意见,已做改进

1.屏蔽警告

2.重复用户不允许添加

3.更改SQL语句存在的问题

游客,如果您要查看本帖隐藏内容请回复




[此贴子已经被作者于2004-8-11 17:53:35编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-8-11 23:45:00 | 只看该作者
不顶可惜了
3#
发表于 2004-8-11 23:59:00 | 只看该作者
太好了。

点击这里给我发消息

4#
发表于 2004-8-12 00:08:00 | 只看该作者
好东西,输错密码那句很搞笑[em01],不顶真可惜了!
5#
发表于 2004-8-12 00:23:00 | 只看该作者
可以,能达到基本要求
6#
发表于 2004-8-12 00:56:00 | 只看该作者
窗体“pwd_change”中,“add”按钮来回切换后显示有误。而且我增加一个用户,怎么还提示输入参数?
7#
发表于 2004-8-12 01:09:00 | 只看该作者
我增加一个用户,怎么还提示输入参数?的原因是:

原代码:sql = "insert into passwd (用户,密码) values (" & Me.oldmm & "," & Me.newmm1 & ")"应改为:sql = sql = "insert into passwd (用户,密码) values ('" & Me.oldmm & "','" & Me.newmm1 & "')"因为用户和密码都是文本的类型。还有一个缺陷是,增加用户前要先检验一下表里是否已有该用户,有则不加。另外运行操作查询前最好用DoCmd.SetWarnings False语句来屏蔽警告窗体,这样会比较好一些。
8#
发表于 2004-8-12 01:11:00 | 只看该作者
还有,最好要有允许尝试密码错误的次数限制。
9#
发表于 2004-8-12 01:36:00 | 只看该作者
谢谢!
10#
发表于 2004-8-12 01:51:00 | 只看该作者
好!正要这个
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 04:39 , Processed in 0.300923 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表