oracle删除登陆用户下所有表、视图、存储过程等数据

BEGIN 
    FOR rec IN 
    (SELECT object_name,object_type from user_objects 
    WHERE object_type='PROCEDURE' 
    OR object_type='TABLE' 
    OR object_type='VIEW' 
    OR object_type='FUNCTION' 
    OR object_type='PACKAGE' 
    OR object_type='SEQUENCE' 
    ) 
    LOOP 
        IF rec.object_type='TABLE' THEN 
           EXECUTE IMMEDIATE 'DROP '||rec.object_type||' '||rec.object_NAME||' CASCADE CONSTRAINTS'; 
        ELSE 
            EXECUTE IMMEDIATE 'DROP '||rec.object_type||' '||rec.object_NAME; 
        END IF; 
   END LOOP;     
END; 
/