这玩意不是很简单么？只要了解存储过程最基本的结构就知道写了

create procedure test_delete(i_tablename varchar2(50), i_id varchar2(20)) is
  l_sql varchar2(4000);
begin
  l_sql := 'delete ' || dbms_assert.enquote_name(i_tablename) || ' where id=' || dbms_assert.enquote_literal(i_id)  ;
  execute l_sql;
  commit;
exception
  when others then
    Raise_application_error(-20000, sqlerrm);
end;
/
复制

由于你表名是动态的,因此只能拼接动态sql,再加上防sql注入。

执行就是

begin
test_delete('表名','id值');
end;
/
复制

如果要创建包,也就是把这个过程放到包里就行了