-

　　插入：

　　1　CREATE　OR　REPLACE　Procedure　p_insert_t_stu　--存储过程名称

　　2　　(

　　3　　　p_stuid　in　Number,

　　4　　　p_stuname　in　Nvarchar2,

　　5　　　p_stusex　in　Nvarchar2,

　　6　　　p_stuadd　in　Nvarchar2

　　7　)

　　8　　as

　　9　　BEGIN

　　10　insert　into　t_stu

　　11　values

　　12　(p_stuid,p_stuname,p_stusex,p_stuadd);

　　13　commit;

　　14　end;

　　删除：

　　1　CREATE　OR　REPLACE　Procedure　p_delete_t_stu　--存储过程名称

　　2　(

　　3　　　p_stuid　in　Number,

　　4　　　p_msg　Out　Nvarchar2

　　5　)

　　6　Is

　　7　flag　Integer　:=　1;

　　8　v_stuid　Number;

　　9　Begin

　　10　Select　flag　Into　v_stuid　From　t_stu　Where　stuid=p_stuid;

　　11　Delete　t_stu

　　12　Where

　　13　stuid=p_stuid;

　　14　commit;

　　15　If　flag=1　Then

　　16　　Begin

　　17　　　　p_msg:='删除成功';　　18　　End;

　　19　End　If;

　　20　Exception　　21　　When　Others　Then

　　22　　　　p_msg:=Sqlerrm　||　','　||　'删除失败';

　　23　END;

　　修改：

　　1　CREATE　OR　REPLACE　Procedure　p_update_t_stu　--存储过程名称

　　2　(

　　3　　　p_stuid　in　Number,

　　4　　　p_stuname　in　Nvarchar2,

　　5　　　p_stusex　in　Nvarchar2,

　　6　　　p_stuadd　in　Nvarchar2

　　7　)

　　8　as

　　9　BEGIN

　　10　Update　t_stu　Set　stuname=p_stuname,stusex=p_stusex,stuadd=p_stuadd

　　11　Where

　　12　stuid=p_stuid;

　　13　commit;

　　14　end;