SQL> create user mytest identified by mytest default tablespace users;
 
用户已创建。
 
SQL> grant connect,resource to mytest;
 
授权成功。
 
SQL>
SQL> conn mytest/mytest
已连接。
SQL>
SQL>
SQL> create table t1 as select * from dual;
 
表已创建。
 
SQL>
SQL>
SQL> create table t2 as select * from all_objects;
 
表已创建。
 
SQL> select table_name from user_tables;
 
TABLE_NAME
------------------------------
T1
T2
 
SQL>

SQL> create user expuser identified by expuser default tablespace users;
 
用户已创建。
 
SQL> grant connect,resource,dba to expuser;
 
授权成功。
 
SQL>

SQL> conn expuser/expuser
已连接。
SQL> CREATE or REPLACE FUNCTION exclude_table(obj_schema VARCHAR2,
  2                                           obj_name   VARCHAR2)
  3    RETURN VARCHAR2 IS
  4    d_predicate VARCHAR2(2000);
  5  BEGIN
  6    if sys_context('USERENV', 'SESSION_USER') = 'EXPUSER' THEN
  7      d_predicate := '1=2';
  8    else
  9      d_predicate := '';
 10    end if;
 11    RETURN d_predicate;
 12  END exclude_table;
 13  /
 
函数已创建。
 
SQL>

select table_name from dba_tables;

select table_name from dba_tables where owner='MYUSER';

PROCEDURE ADD_POLICY
参数名称                       类型                    输入/输出默认值?
------------------------------ ----------------------- ------ --------
 OBJECT_SCHEMA                  VARCHAR2                IN     DEFAULT
 OBJECT_NAME                    VARCHAR2                IN
 POLICY_NAME                    VARCHAR2                IN
 FUNCTION_SCHEMA                VARCHAR2                IN     DEFAULT
 POLICY_FUNCTION                VARCHAR2                IN
 STATEMENT_TYPES                VARCHAR2                IN     DEFAULT
 UPDATE_CHECK                   BOOLEAN                 IN     DEFAULT
 ENABLE                         BOOLEAN                 IN     DEFAULT
 STATIC_POLICY                  BOOLEAN                 IN     DEFAULT
 POLICY_TYPE                    BINARY_INTEGER          IN     DEFAULT
 LONG_PREDICATE                 BOOLEAN                 IN     DEFAULT
 SEC_RELEVANT_COLS              VARCHAR2                IN     DEFAULT
 SEC_RELEVANT_COLS_OPT          BINARY_INTEGER          IN     DEFAULT
 
几个主要字段的解释：
object_schema：用来做细粒度访问控制对象所对应的用户，如果为空则默认是当前用户。
object_name：用来做细粒度访问控制对象(可以是表，或视图或同义词)
policy_name：策略名，可自定义。但是如果对同一表或者视图，策略名必须唯一。但是如果是不同用户下的同一个表或者视图，可以用相同的策略名。
function_schema：自定义函数的用户，该用户应该有权限能调用之前我们建立的那个函数。如果为空，则默认是当前用户。
policy_function：函数名，即之前我们自己定义谓词的函数，如果函数定义在包里面，则这里也需写上包的名字。
statement_types：操作的类型，如select,insert,update或delete，如果为空，则默认是所有类型的操作。

SQL> exec dbms_rls.add_policy(OBJECT_SCHEMA=>'MYTEST',OBJECT_NAME=>'T1',POLICY_NAME=>'POL_T1',FUNCTION_SCHEMA=>'EXPUSER'
,POLICY_FUNCTION=>'EXCLUDE_TABLE');
 
PL/SQL 过程已成功完成。
 
SQL>

SQL> select OBJECT_OWNER,OBJECT_NAME,POLICY_GROUP,POLICY_NAME,PF_OWNER,FUNCTION from dba_policies
  2  where PF_OWNER='EXPUSER';
 
OBJECT_OWN OBJECT_NAM POLICY_GROUP                   POLICY_NAM PF_OWNER   FUNCTION
---------- ---------- ------------------------------ ---------- ---------- ------------------------------
MYTEST     T1         SYS_DEFAULT                    POL_T1     EXPUSER    EXCLUDE_TABLE
 
SQL>

SQL> conn system/manager
已连接。
SQL> select * from mytest.t1;
 
D
-
X
 
SQL>
SQL> conn expuser/expuser
已连接。
SQL> select * from mytest.t1;
 
未选定行
 
SQL>

C:\>exp expuser/expuser owner=mytest file=mytest.dmp log=mytest.log;
 
Export: Release 10.2.0.1.0 - Production on 星期五 1月 7 22:25:34 2011
 
Copyright (c) 1982, 2005, Oracle.  All rights reserved.
 
 
连接到: Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Production
With the Partitioning, OLAP and Data Mining options
已导出 ZHS16GBK 字符集和 AL16UTF16 NCHAR 字符集
 
即将导出指定的用户...
. 正在导出 pre-schema 过程对象和操作
. 正在导出用户 MYTEST 的外部函数库名
. 导出 PUBLIC 类型同义词
. 正在导出专用类型同义词
. 正在导出用户 MYTEST 的对象类型定义
即将导出 MYTEST 的对象...
. 正在导出数据库链接
. 正在导出序号
. 正在导出簇定义
. 即将导出 MYTEST 的表通过常规路径...
EXP-00079: 表 "T1" 中的数据是被保护的。常规路径只能导出部分表。
. . 正在导出表                              T1导出了           0 行
EXP-00091: 正在导出有问题的统计信息。
. . 正在导出表                              T2导出了       38250 行
. 正在导出同义词
. 正在导出视图
. 正在导出存储过程
. 正在导出运算符
. 正在导出引用完整性约束条件
. 正在导出触发器
. 正在导出索引类型
. 正在导出位图, 功能性索引和可扩展索引
. 正在导出后期表活动
. 正在导出实体化视图
. 正在导出快照日志
. 正在导出作业队列
. 正在导出刷新组和子组
. 正在导出维
. 正在导出 post-schema 过程对象和操作
. 正在导出统计信息
导出成功终止, 但出现警告。
 
C:\>

SQL> exec dbms_rls.drop_policy(OBJECT_SCHEMA=>'MYTEST',OBJECT_NAME=>'T1',POLICY_NAME=>'POL_T1');
 
PL/SQL 过程已成功完成。
 
SQL>