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;