ORACLE下删除当前用户下所有对象的SQL

ORACLE下删除当前用户下所有对象的SQL
Sql代码
--删除某个用户下的对象   
set heading off;   
set feedback off;   
spool c:\dropobj.sql;   
  prompt --Drop constraint   
 select 'alter table '||table_name||' drop constraint '||constraint_name||' ;' from user_constraints where constraint_type='R';   
 prompt --Drop tables   
 select 'drop table '||table_name ||';' from user_tables;    
    
 prompt --Drop view   
 select 'drop view ' ||view_name||';' from user_views;   
    
 prompt --Drop sequence   
 select 'drop sequence ' ||sequence_name||';' from user_sequences;    
    
 prompt --Drop function   
 select 'drop function ' ||object_name||';'  from user_objects  where object_type='FUNCTION';   
  
 prompt --Drop procedure   
 select 'drop procedure '||object_name||';' from user_objects  where object_type='PROCEDURE';   
    
 prompt --Drop package   
 prompt --Drop package body   
 select 'drop package '|| object_name||';' from user_objects  where object_type='PACKAGE';   
  
 prompt --Drop database link   
 select 'drop database link '|| object_name||';' from user_objects  where object_type='DATABASE LINK';  &