create or replace procedure pro_droptable iscursor cur is select table_name from user_tables;drop_sql varchar2(1000);begin  for tbname in cur loop    begin      drop_sql:=‘drop table ‘||tbname.table_name;--将drop修改为truncate即可删除所有表的数据      execute immediate drop_sql;    end;  end loop;end pro_droptable;