oracle 的存储过程写法

首先得定义一个包，也就是package

create or replace package PKG_SC_STUDY is --创建包头
type t_cur is ref cursor;               --定义一个cursor

--得到敏感词列表
procedure listFilterWord (
p_strWhere in varchar2,
p_pageSize in number,
p_pageNow in number,
c_cur out t_cur);

--得到敏感词列表总数
procedure countFilterWord (
p_strWhere in varchar2,
totalCount out number);

--根据条件得到相关信息
procedure getDetail( p_strWhere in varchar2,
c_cur out t_cur);

--添加敏感词
procedure addFilterWord ( p_fname in sc_stu_filterword.fname%type,
p_remarks in sc_stu_filterword.remarks%type,
p_adduser in sc_stu_filterword.adduser%type,
p_grade in sc_stu_filterword.grade%type);

--根据id修改信息
procedure updateFilterWord ( p_id in sc_stu_filterword.id%type,
p_fname in sc_stu_filterword.fname%type,
p_remarks in sc_stu_filterword.remarks%type,
p_grade in sc_stu_filterword.grade%type);

--根据id启用/禁用敏感词
procedure enabledFilterWord ( p_id in sc_stu_filterword.id%type,
p_isenable in sc_stu_filterword.isenable%type);

--根据id删除敏感词
procedure deletedFilterWord ( p_id in sc_stu_filterword.id%type);

end PKG_SC_STUDY;

接着定义一个包体，也就是package bodies

create or replace package body PKG_SC_STUDY is

--得到敏感词详细表列表
procedure listFilterWord (
p_strWhere in varchar2,
p_pageSize in number,
p_pageNow in number,
c_cur out t_cur) is

v_sql varchar(4000);
begin
v_sql := 'select t.id,t.fname,t.remarks,t.adduser,b.name,t.adddate,t.isenable,t.grade
from sc_stu_filterword t,sc_base_users b where t.adduser = b.userid '||p_strWhere;

v_sql:= 'select * from (select a.*,rownum from ('||v_sql||') a where rownum <='||(p_pageNow*p_pageSize)||')
where rownum >'||((p_pageNow-1)*p_pageSize);

open c_cur for v_sql;
end listFilterWord;

--得到敏感词列表总数
procedure countFilterWord (
p_strWhere in varchar2,
totalCount out number) is

v_sql varchar(4000);
begin
v_sql := 'select count(t.id) from sc_stu_filterword t,sc_base_users b where t.adduser = b.userid  '||p_strWhere;
EXECUTE IMMEDIATE v_sql into totalCount;
end countFilterWord;

--根据条件得到相关信息
procedure getDetail( p_strWhere in varchar2,
c_cur out t_cur) is

v_sql varchar(4000);
begin
v_sql := 'select t.id,t.fname,t.remarks,t.adduser,b.name,t.adddate,t.isenable,t.grade
from sc_stu_filterword t,sc_base_users b where t.adduser = b.userid '||p_strWhere;
open c_cur for v_sql;
end getDetail;

--添加敏感词
procedure addFilterWord ( p_fname in sc_stu_filterword.fname%type,
p_remarks in sc_stu_filterword.remarks%type,
p_adduser in sc_stu_filterword.adduser%type,
p_grade in sc_stu_filterword.grade%type) is
begin
insert into sc_stu_filterword (id,fname,remarks,adduser,adddate,grade)
values (sc_stu_filterword_seq.nextval,p_fname,p_remarks,p_adduser,sysdate,p_grade);
end addFilterWord;

--根据id修改信息
procedure updateFilterWord ( p_id in sc_stu_filterword.id%type,
p_fname in sc_stu_filterword.fname%type,
p_remarks in sc_stu_filterword.remarks%type,
p_grade in sc_stu_filterword.grade%type) is
begin
update sc_stu_filterword t set t.fname = p_fname, t.remarks = p_remarks, t.grade = p_grade where t.id = p_id;
end updateFilterWord;

--根据id启用/禁用敏感词
procedure enabledFilterWord ( p_id in sc_stu_filterword.id%type,
p_isenable in sc_stu_filterword.isenable%type) is
begin
update sc_stu_filterword t set t.isenable = p_isenable where t.id = p_id;
end enabledFilterWord;

--根据id删除敏感词
procedure deletedFilterWord ( p_id in sc_stu_filterword.id%type) is
begin
delete from sc_stu_filterword t where t.id = p_id;
end deletedFilterWord;

end PKG_SC_STUDY;

package跟package bodies 里面的方法要一一对应，连参数也一样，否则就会报错。

至于方法内部的方法，跟sql语句的写法一样。
本文出自 “haveonce” 博客，请务必保留此出处http://haveonce.blog.51cto.com/5884040/1169595