CREATE OR REPLACE PROCEDURE P_CRSYN_GRANT(V_USER IN VARCHAR2, V_OBJECT_OWNER IN VARCHAR2) IS----V_USER         需要授权的用户
----V_OBJECT_OWNER     对象所有者CURSOR C_SQL_STR IS SELECT 'CREATE OR REPLACE PUBLIC SYNONYM '||OBJECT_NAME ||' FOR '||V_OBJECT_OWNER||'.'||OBJECT_NAME  CREATE_SQLFROM DBA_OBJECTSWHERE OBJECT_TYPE IN('TABLE', 'VIEW', 'PROCEDURE', 'TRIGGER', 'FUNCTION', 'PACKAGE','SEQUENCE') AND OWNER = UPPER(V_OBJECT_OWNER);
--定义索引表数据类型TYPE REG_TABLE_TYPE IS TABLE OF VARCHAR2(1000)INDEX BY BINARY_INTEGER;
--声明索引表数据类型的变量
   V_SELECT_TABLE REG_TABLE_TYPE;--定义参考游标数据类型  TYPE V_REF_CURSOR IS REF CURSOR ;
--声明参考游标数据类型的变量
   C_SQL V_REF_CURSOR;V_GRANT_STR VARCHAR2(2000);BEGINFOR V IN C_SQL_STR LOOPEXECUTE IMMEDIATE V.CREATE_SQL;END LOOP;V_SELECT_TABLE(1) := 'SELECT ''GRANT SELECT,INSERT,UPDATE,DELETE ON '' ||OBJECT_NAME || '' TO ''||'''||V_USER ||''' SQLSTR FROM DBA_OBJECTS WHERE OBJECT_TYPE =''TABLE'' AND OWNER = UPPER('''||V_OBJECT_OWNER||''')';V_SELECT_TABLE(2) := 'SELECT ''GRANT SELECT,INSERT,UPDATE,DELETE ON '' ||OBJECT_NAME || '' TO ''||'''||V_USER ||''' SQLSTR FROM DBA_OBJECTS WHERE OBJECT_TYPE =''VIEW'' AND OWNER = UPPER('''||V_OBJECT_OWNER||''')';V_SELECT_TABLE(3) := 'SELECT ''GRANT EXECUTE ON '' ||OBJECT_NAME || '' TO ''||'''||V_USER ||''' SQLSTR FROM DBA_OBJECTS WHERE OBJECT_TYPE =''PROCEDURE'' AND OWNER = UPPER('''||V_OBJECT_OWNER||''')';V_SELECT_TABLE(4) := 'SELECT ''GRANT EXECUTE ON '' ||OBJECT_NAME || '' TO ''||'''||V_USER ||''' SQLSTR FROM DBA_OBJECTS WHERE OBJECT_TYPE =''FUNCTION'' AND OWNER = UPPER('''||V_OBJECT_OWNER||''')';V_SELECT_TABLE(5) := 'SELECT ''GRANT SELECT ON '' ||OBJECT_NAME || '' TO ''||'''||V_USER ||''' SQLSTR FROM DBA_OBJECTS WHERE OBJECT_TYPE =''SEQUENCE'' AND OWNER = UPPER('''||V_OBJECT_OWNER||''')';FOR INT IN V_SELECT_TABLE.FIRST .. V_SELECT_TABLE.LAST LOOPOPEN C_SQL FOR V_SELECT_TABLE(INT);  LOOPFETCH C_SQL INTO V_GRANT_STR;    EXIT WHEN C_SQL%NOTFOUND;EXECUTE IMMEDIATE V_GRANT_STR;END LOOP;CLOSE C_SQL;              END LOOP;
END;