自动为新建的表创建同义词

问题提出：

为了控制用户权限，给某些用户只有查询系统的权限，但是这样带来的维护麻烦是每次系统创建了新的表，都需要给查询用户对这个表的查询权限授权，然后查询用户使用的时候不方便，要加上用户的前缀才能使用。这里提供一个自动为新创建的表进行授权和创建同义词的办法。

解决的办法就是使用系统触发器，当在一个schema上创建一个表的时候，就使用动态语句来执行授权和创建同义词的语句。问题的难点是如果单纯使用execute immedite来创建同义词，则会报权限不足，怎么都搞不定。后来搜索了一下，tom提供了下面的方法，就是把任务提交到一个job，使用job来完成创建同义词的工作，问题得到解决。

结合上一篇发表的一个自杀程序，可以看到，很多东西如果程序做起来不方便，可以通过job进行变通，让job来完成我们需要的工作。

CREATE OR REPLACE TRIGGER AUTO_CREATE_SYNONYM
AFTER CREATE ON SCHEMA
DECLARE
V_STR VARCHAR2(200);
V_JOB NUMBER;
BEGIN
IF (ORA_DICT_OBJ_TYPE = 'TABLE') THEN
--判断创建的对象是否是表
V_STR := 'execute immediate "grant select on ' || ORA_DICT_OBJ_NAME ||
' to query";';
--为查询用户query授权
DBMS_JOB.SUBMIT(V_JOB, REPLACE(STR, '"', ''''));
V_STR := 'execute immediate "create or replace synonym query.' ||
ORA_DICT_OBJ_NAME || ' for ' || ORA_DICT_OBJ_NAME || '";';
--创建同义词
DBMS_JOB.SUBMIT(V_JOB, REPLACE(STR, '"', ''''));
END IF;
EXCEPTION
WHEN OTHERS THEN
MAIL_TOOLS.MAIL_FILES('');
END AUTO_CREATE_SYNONYM;