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

K仔

用了一个下午和晚上终于完成了这个东东,因为我是小白,不太懂VBA,所以有些代码可能写得不好或太繁琐,希望那位高手可以帮我改进或指教一下小弟,我的进步全靠大家啦~!期实做一个程序关不难,最重要的是要有清晰的思路和比较好的逻辑思维能力,不竟VBA不懂还有大家和版主们的帮助嘛~呵呵~[em05]





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


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


用戶名          密碼


admin           001


user1            002


user2            003


reporter        004


权限请查阅资料表

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

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


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

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

一点通

编译成中文好吗？

K仔

以下是引用一点通在2006-5-12 10:51:00的发言：
编译成中文好吗？

资料表的字段吗?我习惯了用英语...我马上译!

abi5700

谢谢分享

tanjh

谢谢分享，我正好需要这个功能

utngrihii

楼主太可敬了，

谢谢你的分享，

一点通

1.请将启动窗体改为有效的窗体,

2.由于是显示版,请在登陆窗体中提示密码,以免别人要打开表才找到密码

3.登陆后加一个过度窗体,用于打开其它窗体

K仔

以下是引用一点通在2006-5-13 8:52:00的发言：


1.请将启动窗体改为有效的窗体,

2.由于是显示版,请在登陆窗体中提示密码,以免别人要打开表才找到密码

3.登陆后加一个过度窗体,用于打开其它窗体

还是不够细心啊~我马上改~

一点通

一个很好的例子,加精奖励,希望楼主再接再厉

yqi

太好了。我正需要这个，谢谢先