Office中国论坛/Access中国论坛
标题: [原创][分享]简单的用户登陆和权限系统(05-16更新) [打印本页]
作者: K仔 时间: 2006-5-12 18:47
标题: [原创][分享]简单的用户登陆和权限系统(05-16更新)
用了一个下午和晚上终于完成了这个东东,因为我是小白,不太懂VBA,所以有些代码可能写得不好或太繁琐,希望那位高手可以帮我改进或指教一下小弟,我的进步全靠大家啦~!期实做一个程序关不难,最重要的是要有清晰的思路和比较好的逻辑思维能力,不竟VBA不懂还有大家和版主们的帮助嘛~呵呵~[em05]
思路: 建立两个资料表,一个资料表存放用户名,密码和用户级别;另一个资料表存放表单名和对应的用户级别!
在模块上建立Function,用变量来记录用户登陆的用户级别 ,在登陆对话框用变量记录是否登陆成功;再在有需要的表单上建立Form_Load 事件验证变类中是否已经登陆成功和用户级别与资料表对应的用户级表是否一致,都为true才打开表单……
用戶名 密碼
admin 001
user1 002
user2 003
reporter 004
权限请查阅资料表
已经把部份英文修改成中文,方便大家理解!用需要的朋友可以重新下载!
如遇到问题或见意,请跟贴大家一起研究或给我发信息,谢谢!
[此贴子已经被一点通于2006-5-19 15:39:00编辑过]
作者: 一点通 时间: 2006-5-12 18:51
编译成中文好吗？
作者: K仔 时间: 2006-5-12 18:56
以下是引用一点通在2006-5-12 10:51:00的发言：
编译成中文好吗？
资料表的字段吗?我习惯了用英语...我马上译!
作者: abi5700 时间: 2006-5-12 20:35
谢谢分享
作者: tanjh 时间: 2006-5-13 07:15
谢谢分享，我正好需要这个功能
作者: utngrihii 时间: 2006-5-13 16:32
楼主太可敬了，
谢谢你的分享，
作者: 一点通 时间: 2006-5-13 16:52
1.请将启动窗体改为有效的窗体,
2.由于是显示版,请在登陆窗体中提示密码,以免别人要打开表才找到密码
3.登陆后加一个过度窗体,用于打开其它窗体
作者: K仔 时间: 2006-5-13 17:34
以下是引用一点通在2006-5-13 8:52:00的发言：
1.请将启动窗体改为有效的窗体,
2.由于是显示版,请在登陆窗体中提示密码,以免别人要打开表才找到密码
3.登陆后加一个过度窗体,用于打开其它窗体
还是不够细心啊~我马上改~
作者: 一点通 时间: 2006-5-13 18:01
一个很好的例子,加精奖励,希望楼主再接再厉
作者: yqi 时间: 2006-5-13 18:08
太好了。我正需要这个，谢谢先
作者: hi-wzj 时间: 2006-5-13 21:03
当用户名开放时一定要加登陆出错次数的检验，否则暴力破解软件将很有可能从界面上攻击进去。
作者: ivanchris 时间: 2006-5-15 22:18
好東西....謝過了
作者: freeaccess 时间: 2006-5-16 19:24
good
作者: duoxie2003 时间: 2006-5-16 21:10
无聊看看吧！！
作者: duoxie2003 时间: 2006-5-16 21:17
无聊啊，灌水！灌水！灌水！灌水！灌水！灌水！灌水！灌水！
作者: 风云灵动 时间: 2006-5-16 23:31
谢谢楼主啊！[em05]
作者: K仔 时间: 2006-5-17 00:54
以下是引用hi-wzj在2006-5-13 13:03:00的发言：
当用户名开放时一定要加登陆出错次数的检验，否则暴力破解软件将很有可能从界面上攻击进去。
谢谢hi-wzj的意见,现已修改并更新原贴!
作者: teamark 时间: 2006-5-17 22:44
ding
作者: WDLRCZT 时间: 2006-5-17 22:59
顶
作者: westwind01 时间: 2006-5-18 00:02
作为一个菜鸟选手，十分感谢您的奉献
作者: lirongwu 时间: 2006-5-18 04:03
ttttttt
作者: yelijun24 时间: 2006-5-18 04:26
谢谢分享，学习中
作者: eddieliu 时间: 2006-5-18 06:15
关注
作者: 5988143 时间: 2006-5-18 06:39
好东西当然要顶
作者: 一杯绿茶 时间: 2006-5-18 15:55
顶一下～～
作者: Grant 时间: 2006-5-18 16:57
谢谢分享
作者: 无忧 时间: 2006-5-18 16:57
look
作者: HermesZ 时间: 2006-5-18 16:59
谢谢分享
作者: fjhtt 时间: 2006-5-18 17:54
[em02][em02][em02][em02]
作者: heqing3000 时间: 2006-5-18 19:30
谢谢
作者: duanpeng@ 时间: 2006-5-18 19:30
[em01]
作者: 付建新 时间: 2006-5-18 19:57
okok
作者: gq402402 时间: 2006-5-18 22:58
刚好需要这个，看看先~~谢谢了
作者: 狼书生 时间: 2006-5-19 00:09
以下是引用yqi在2006-5-13 10:08:00的发言：
太好了。我正需要这个，谢谢先
作者: 小小鸟 时间: 2006-5-19 14:53
ding
作者: 66666qqq 时间: 2006-5-19 17:52
look
作者: 真主 时间: 2006-5-19 18:07
看一下,学习中
作者: videochat 时间: 2006-5-19 23:34
谢谢，希望是自己需要的，
顶你，兄弟
作者: videochat 时间: 2006-5-20 01:45
看了下，好象没del 用户名和组啊
请问怎么编写个？代码如何写呢？
谢谢，菜鸟问
作者: jcxd 时间: 2006-5-20 23:22
谢谢楼主
作者: dsxiaozq 时间: 2006-5-20 23:41
谢谢
作者: windgoast 时间: 2006-5-22 05:14
huifu
作者: xyz119 时间: 2006-5-22 07:58
look
作者: fller00 时间: 2006-5-22 19:22
顶啦
作者: zyz218 时间: 2006-5-22 21:24
以下是引用一点通在2006-5-13 10:01:00的发言：
一个很好的例子,加精奖励,希望楼主再接再厉
作者: goltaxhs 时间: 2006-5-22 21:32
我也要学习一下
作者: hobozhao 时间: 2006-5-22 21:49
标题: 怎样才能到代码
各位大佬：我是一个爱好Access编程，却又能力有限！请教各位我如何才能看到大家写的代码？
作者: fannky 时间: 2006-5-22 22:46
你这种方法对小型控制还行，大一点的系统就不行了
作者: oldnick 时间: 2006-5-23 01:08
学习下
作者: tmac008 时间: 2006-5-23 01:32
看一下
作者: sjds333 时间: 2006-5-23 04:15
急着想学习
作者: h2832 时间: 2006-5-24 18:45
顶
作者: rainless_9 时间: 2006-5-24 19:10
?????????????????
作者: gq402402 时间: 2006-5-24 19:27
kkkkkkkkkkk
作者: zhj268 时间: 2006-5-24 23:33
谢谢！支持你正在找这个呢
作者: lvehua 时间: 2006-5-25 03:46
想看看
作者: beining 时间: 2006-5-25 03:50
正好需要这DD,THX~
作者: 苍蝇 时间: 2006-5-25 07:15
来看看效果
作者: wang1950317 时间: 2006-5-25 07:35
诲人不倦！好！
作者: zhengda110 时间: 2006-5-25 18:14
不错
作者: gzwah 时间: 2006-5-25 18:56
dd
作者: 小高 时间: 2006-5-25 21:25
看看 先
作者: walker-dong 时间: 2006-5-25 21:30
很好,我正需要这方面的提示,谢谢!
作者: violetkan 时间: 2006-5-25 21:44
太好了，我正需要这个
作者: violetkan 时间: 2006-5-25 21:53
看完了，没看懂。我也有个帖子，和你的题目差不多，帮忙看一下错在哪里，就在你下面。 violetkan
作者: winner 时间: 2006-5-26 01:38
kankan
作者: 付谦 时间: 2006-5-26 01:57
!
作者: djhong 时间: 2006-5-26 02:08
look
作者: tq032lo 时间: 2006-5-26 03:38
好东西，谢谢
作者: 死去活来 时间: 2006-5-26 04:02
我汗，是不是这个坛子里的人豆油这毛病啊
~~~~~~
逼上梁山啊~
作者: 死去活来 时间: 2006-5-26 04:07
最简单的登录
声明：左括号打不出来了只好用这个代替 “〔”
function denglu〔)
if intputbox "gaga","gaga" <> "
WD" then
quit
end if
end function
哈哈，毛病多多，不过要是图省事这个也不错，稍微改进一下就ok了，累死暴力破解器[em03][em03][em03][em03]
作者: fofoso 时间: 2006-5-26 05:31
可以学习一下
作者: baojicao 时间: 2006-5-26 05:34
kankan!
作者: chang 时间: 2006-5-26 07:41
更新下来看看
作者: pho 时间: 2006-5-26 16:47
先看一下
作者: K仔 时间: 2006-5-26 17:39
以下是引用死去活来在2006-5-25 20:07:00的发言：
最简单的登录
声明：左括号打不出来了只好用这个代替 “〔”
function denglu〔)
if intputbox "gaga","gaga" <> "WD" then
quit
end if
end function
哈哈，毛病多多，不过要是图省事这个也不错，稍微改进一下就ok了，累死暴力破解器[em03][em03][em03][em03]
作者: xiaoc 时间: 2006-5-26 18:20
xie xie fenxiang
作者: xiaoc 时间: 2006-5-26 18:21
谢谢分享
作者: tonny20060812 时间: 2006-5-26 23:28
我也想学这个
作者: ok123.1 时间: 2006-5-26 23:51
看看
作者: liw99814 时间: 2006-5-27 07:08
我也学学
作者: zxb7802 时间: 2006-5-27 08:10
应该是个不错的东东吧
作者: yiyiya 时间: 2006-5-27 18:59
LET ME SEE
作者: ccmyfriend 时间: 2006-5-27 19:14
谢谢分享
作者: df 时间: 2006-5-28 02:14
ok
作者: zj57774776 时间: 2006-5-28 03:59
标题: 1111
1111
作者: zj57774776 时间: 2006-5-28 04:00
标题: ???????
???????????
作者: zj57774776 时间: 2006-5-28 04:00
ri
作者: kennylee 时间: 2006-5-28 06:14
look
作者: steven_shuhong 时间: 2006-5-28 06:24
谢谢！收下了！
[此贴子已经被作者于2006-5-27 22:29:57编辑过]
作者: XWQ2000 时间: 2006-5-29 00:55
VSAZG
作者: caoybh 时间: 2006-5-29 06:17
标题: ding
ding
作者: laiguiyou 时间: 2006-5-29 16:18
see
作者: yodong 时间: 2006-5-30 01:34
see
作者: lzhicheng88 时间: 2006-5-30 09:30
SEE
作者: liangge 时间: 2006-5-30 19:03
太好了，楼主你资料很好，我回去要好好学习下，谢谢了
作者: lfxwolf 时间: 2006-5-30 21:15
好东西呀
作者: myhome810 时间: 2006-5-31 06:23
ok
作者: dxlz 时间: 2006-5-31 07:09
thanks
作者: gina_zenglin 时间: 2006-5-31 21:21
太谢谢楼主了，正在困惑中！！
| 欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |