设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[模块/函数] [原创][分享]简单的用户登陆和权限系统(05-16更新)

[复制链接]
跳转到指定楼层
1#
发表于 2006-5-12 18:47:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
用了一个下午和晚上终于完成了这个东东,因为我是小白,不太懂VBA,所以有些代码可能写得不好或太繁琐,希望那位高手可以帮我改进或指教一下小弟,我的进步全靠大家啦~!期实做一个程序关不难,最重要的是要有清晰的思路和比较好的逻辑思维能力,不竟VBA不懂还有大家和版主们的帮助嘛~呵呵~[em05]





思路: 建立两个资料表,一个资料表存放用户名,密码和用户级别;另一个资料表存放表单名和对应的用户级别!


在模块上建立Function,用变量来记录用户登陆的用户级别 ,在登陆对话框用变量记录是否登陆成功;再在有需要的表单上建立Form_Load 事件验证变类中是否已经登陆成功和用户级别与资料表对应的用户级表是否一致,都为true才打开表单……


用戶名          密碼


admin           001


user1            002


user2            003


reporter        004


权限请查阅资料表


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



已经把部份英文修改成中文,方便大家理解!用需要的朋友可以重新下载!


如遇到问题或见意,请跟贴大家一起研究或给我发信息,谢谢!




[此贴子已经被一点通于2006-5-19 15:39:00编辑过]

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

1429#
发表于 2024-1-29 15:04:58 | 只看该作者
学习
回复

使用道具 举报

1428#
发表于 2021-1-29 16:14:17 | 只看该作者
需要
回复

使用道具 举报

点击这里给我发消息

1427#
发表于 2021-1-24 17:32:02 | 只看该作者
深圳
回复

使用道具 举报

点击这里给我发消息

1426#
发表于 2021-1-15 10:11:28 | 只看该作者
学习
回复

使用道具 举报

1425#
发表于 2020-12-2 11:10:05 | 只看该作者

谢谢分享
回复

使用道具 举报

点击这里给我发消息

1424#
发表于 2020-11-22 10:56:09 | 只看该作者
好好学习,学习
1423#
发表于 2020-11-5 21:56:23 | 只看该作者
回复

使用道具 举报

点击这里给我发消息

1422#
发表于 2020-4-27 14:09:06 | 只看该作者
学习
回复

使用道具 举报

1421#
发表于 2018-4-21 12:29:28 | 只看该作者
谢谢分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-5 17:45 , Processed in 0.117541 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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