转ADP后 权限管理问题

fisher1013

前几天看到K仔的加精帖，http://www.office-cn.net/forum.php?mod=viewthread&tid=39813

觉得很好，原权限管理列子：



ADP版登陆时没有自动填写“级别”项。level=user.column(1) 没有起作用。

那位高手能指点一下小弟，在ADP中如何解决这种问题。

fisher1013

自己顶一下 请大侠帮帮忙~~


这里是K仔的原话：


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


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


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


用戶名          密碼


admin           001


user1            002


user2            003


reporter        004


权限请查阅资料表

[此贴子已经被作者于2007-7-7 8:39:54编辑过]