利用登陆用户名实现权限限制

来源:www.accessoft.com 点击数:34072 　 | 收藏 | 复制

时　间:2013-05-05 21:33:21
作　者:阿四 ID：28039 城市：合肥
摘　要:用户一旦登陆系统，系统就要要用户名分配相应的权限，只让其看该看的信息
正　文:

一名叫杨阳的医生，登陆医院信息查看本月所开的药品数量。系统根据登陆用户名自动屏蔽其它医生的处方信息，只允许查看登陆者本人的处方信息。该功能是如何实现的呢：

1。在模块定义公共变量xm

2.将用户名赋值给公共变量。xm=me.text

3.将公共变量写入临时表，表名,字段名随便取，如表名wlj，字段名name。select "' & xm & '" as name into wlj. 这样生成一个名叫wlj的表。该表只有一个字段。用户每次登陆，都会这个表，新表自动覆盖旧表。采用docmd.setwarng false,屏蔽系统警告。

4。利用dlookup函数，,间接将登陆名作为查询过滤条件。dlookup("[name]","wlj")这个函数的返回值就是登陆用户名。

请打开附件中的数只据库，在登陆窗口中输入“杨阳”，按确定，系统将只显示杨阳的信息。打开查询，也只显示杨阳开的处方信息。

点击下载此附件