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

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

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

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

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

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

点击下载此附件