实验二PLSQL编程实验报告

1、实验项目类型： 设计 实验地点:课程名称:ORACLE据库系统及应用成绩评定:湖南第一师范学院信息科学与工程系实验报告实验项目名称：实验二：PL/SQL编程指导教师：学生姓名：学号：专业班级：实验时间：年 月曰一、实验目的与要求:1、掌握PL/SQL程序设计的基本知识；2、掌握PL/SQL中SELECT语句和 DML语句的正确使用方法；3、掌握存储过程、函数、游标、触发器与包的创建与使用。二、实验环境：（硬件环境、软件环境）1?硬件环境：奔W pc。2. 软件环境： Windows2000 操作系统，Oracle 9i。三、实验内容：（原理、操作步骤、程序代码等）任务：1、编写存储过程，根据用

2、户输入的部门编号实现在PL/SQL中逐行显示emp表中该部门员工的工资级别。工资级别是：当工资为空时，为空，工资在1000元以下的为低，在 1000和3000之间的为中，高于3000元的为高。要有异常处理（该部门编号不存在）。create or replaceprocedure review（v dept noin dept.dept no%type ） iscursor c1 is select * fromempwhere emp.dept no 二v dept no ;record1 emp%rowtype ;dept no no t fou ndexcepti on ;beg in o

3、pe n c1 ;fetchc1 intorecord1 :if ( notc1 %fou nd)the nraisedept no_no t_fou ndend ifwhilec1 %fou ndloopif n vl (record1.sal , 0) 1000 thendbms output.put line(record1.e nameII工资低;elsifnvl (record1.saldbms output.put lineelse,0) 3000 then(record1.e nameII工资中等；dbms output.put li ne(record1.e nameII工资高

4、;end if :fetch c1 into record1 end loop : close cl :the nexcepti on whe n dept no_no t_fou nddbms output.put li ne(dept no not found)；end ;2.有这么一张表tempi ,他只有一个number(8)的字段no,由于在创建表时忘记设置主键约束，导致表中有很多重复的记录。请你编写一个存储过程，将表中重复的记录保留一个，删除其余的。create or replace procedure myprol iscursor v_cursor is select dist

5、i net * from tempi; f_no tempi. no %type;begi nope n v_cursor;fetch v_cursor into f_no;delete from tempi ;while v_cursor%fo und loopin sert into tempi values(f_ no); fetch v_cursor into f_no;end loop;close v_cursor;en d;3. 编写一个存储函数，用于判断DEPT表中某一编号的部门是否存在，若存在此部门编号，则返回TRUE，否则返回 FALSECreate or replace f

6、un cti on judge_dept ( v_dept no dept.dept no %type) return boolea nisv dept no2 dept.dept no %type:二-i ;beg inselect dept no into v dept no2 from dept wheredept no 二v dept no ;if ( v_dept no 2-i) the nreturn true;|else returnfalse;end if;end ;4、编写一过程，调用第3题的函数判断某一编号的部门是否存在，存在则输出该部门员工的姓名、工作，否则提示不存在此部

7、门或此部门无员工。create or replace procedure dno (v_dept nodept.dept no%type ) iscursor ci is select * from emp wheredept no =v_dept no ;record2emp%rowtype ;v judgeboolea n :二 falsebeg inv judge:二iudge_dept( v_dept no );if (v_judge ) the nope n cl ;fetchcl into record2 ;whilecl %ound loopdbms output.put li

8、ne(record2.e nameII| record2.job);fetchc1 into record2 ;endloop ;closec1 ;elsedbms output.put li ne(dept no not found);endend ;if ;5、编写一个触发器，在DEPT表执行INSERT语句后被激发，此触发器将新部门的编号(dept no)、名称(dn ame) 及执行此操作的用户(USER)、当时的日期(SY SDAT日插入N_DEPT表(注：此 表已建好，表结构为N_DEPT ( DEPTNO NUMBER(4),DNAME VARCHAR2(10), UNAMEVA

9、RCHAR2(20),INDATE DATE)。create table n dept(dept no n umber(4),d n ame varchar2(10), un ame varchar2(20),i n date date);create or replace trigger del empafter in sert on deptfor each rowbeg inin sert into n dept values(: new.dept no,: new.d name,user,sysdate); en d;in sert into dept values(60,MMMM,h

10、u nan);6、 创建触发器CHECK_SAL，禁示对职务为 CLERK的雇员的工资修改值超出1000至2000的范围，即CLERK职务员工的修改后工资值只能在10002000之间。要求测试该触发器。create or replacetrigger update_empafter update on empfor each rowbeg inif (: n ew.saln ot betwee n 1000 and 2000 and : old.job二CLERK ) the nrollback ;end if ;end ;7、 编写一个管理雇员信息的包emp_manapack。包中有过程或函

11、数如下:1) 通过员工编号计算出员工应交个人所得税款2) 通过员工编号插入员工3) 通过员工编号删除员工4) 按工资升序输出所有雇员的应交所得税清单create or replacepackage emp ma n isrecord2 emp%rowtype ;fun cti on pers ( v_noemp.emp no %type)returnnu mber ;procedure cou nts end emp_ma n ;createor replacepackage body emp ma n isn umber isfun cti onpers ( v_noemp.emp no %type ) retur nv salnu mber := 0;beg inend ;procedure cou nts iscursor cursor2 is select * from emp ;record3 emp%rowtype ;v sal2nu mber := 0;beg inope n cursor2 ;fetch cursor2 into recor