文档介绍:实验目的熟悉和掌握PL/SQL中关于存储过程、函数、包等高级程序设计技术。实验内容在实验四的基础上,把去除表的重复数据以建立主键约束的匿名程序块,建立相应的存储过程,并学会使用OracleSQLDEVELOPER工具对存储过程进行调试。存储过程:createorreplacePROCEDUREdel_du_testASBEGINDELETEFROMtestWHERErowidnotin(SELECTmin(rowid)FROMtestGROUPBYpaperid);ENDdel_du_test;执行存储过程:SETSERVEROUTONbegindel_du_test;end;存储过程:%TYPE;CURSORtest_cursorISSELECTpaperidFROMtestGROUPBYpaperidHAVINGcount(paperid)>1;BEGINDELETEFROMtestWHERErowidnotin(SELECTmin(rowid)FROMtestGROUPBYpaperid);ENDdel_du_cursor_test;执行存储过程:SETSERVEROUTONbegindel_du_cursor_test;end;把(1)中实现的存储过程,改用函数实现。CREATEORREPLACEFUNCTIONf_del_du_testRETURNVARCHAR2ASBEGINDELETEFROMtestWHERErowidnotin(SELECTmin(rowid)FROMtestGROUPBYpaperid);RETURN'Duplicatedrowsdeleted';ENDf_del_du_test;DECLAREl_strVARCHAR2(100):=NULL;BEGINl_str:=f_del_du_test();(l_str);END;%TYPE;CURSORtest_cursorISSELECTpaperidFROMtestGROUPBYpaperidHAVINGcount(paperid)>1;BEGINOPENtest_cursor;LOOPFETCHtest_cursorINTOvar_paperid;EXITWHENtest_cursor%NOTFOUND;DELETEFROMtestWHEREpaperid=var_paperidandrowid<>(SELECTmin(rowid)FROMtestWHEREpaperid=var_paperid);ENDLOOP;CLOSEtest_cursor;RETURN'Duplicatedrowsdeleted';ENDf_del_du_cursor_test;DECLAREl_strVARCHAR2(100):=NULL;BEGINl_str:=f_del_du_cursor_test();(l_st