《数据库技术及应用》实验报告4

1、数据库技术及应用实验报告实验报数据库技术及应用课程名称实验 4PL/SQL 及游标操作实验项目名称实验时间周一 10-12 节（日期及节次）软件工程软件学院专业学生所在学院年级学号姓名指导教师4 号楼 138实验室名称预习情况操作技术附加：综合实验 综合成实验报告绩实验成绩创新能力教师签字黑龙江大学教务处1数据库技术及应用实验报告黑龙江大学计算机科学与技术专业、软件工程专业数据库技术及应用课程实验报告学号姓名班级实验时间周一 10-12 节实验名称实验 4 PL/SQL 及游标操作一、实验目的PL/SQL 及游标操作二、实验环境Windows XP Oracle数据库2数据库技术及应用实验报告

2、三、主要内容一、 PL/SQL1. 实现 1 ！ +2！ +0 ooooooo +N!2. 输出 100 到 200 中的素数！二、游标已知一个已经建好的数据库factory, 现在该数据库上存在三个表1.职工表worker, 其结构为( 职工号 numnber , 姓名 char(8), 性别 char ， 出生日期 date, 党员否 char, 参加工作时间 date , 部门号 number ), 其中职工号为主键2. 部门表 department 结构为 ( 部门号 number , 部门名称 varchar(20), 其中 部门号为主键 .通常的部门信息有人事部 ,市场部 ,财务处

3、等等3.职工工资表 salary 其结构为 ( 职工号 number , 姓名 char(10),日期date , 工资 number(10,2).其中职工号和日期为关键子使用游标在以上的数据库上完成如下操作：1. 给定一个职工号 ，查询职工信息及部门名称2.给定部门号 ( 键盘输入 ) ，输出该部门母个员工的基本信息以及5 月工资信息3. 显示最高工资的职工所在的部门名称和工资，并输出该部门中职工的信息四、实验总结1. DECLAREi BINARY_INTEGER :=1;k BINARY_INTEGER :=1;sum BINARY_INTEGER :=0;BEGINWHILE i<

4、;= N LOOPk: = i * k; sum:= k + sum; i:= i+1;END LOOP;3数据库技术及应用实验报告DBMS_OUTPUT.PUT_LIN日('1+2 ! + 。 +N!' | sum);END;2. DECLAREi BINARY_INTEGER :=100;j BINARY_INTEGER :=2; sum BINARY_INTEGER :=1;BEGINWHILE i<= 200 LOOPWHILE j <= i LOOPFLAG:=0;sum:=i%j;IF sum=0 THEN FLAG = 0 ; EXIT;ELSE j:

5、= j+1;END IF;END LOOP;IF(FLAG=1)dbms_output.put_li ne(i);FLAG=O;END IF;i:=i+1;END LOOP;END;1) create table worker (职工号 number(4), 姓名 char(8), 性别 char(2), 出生 日期 date,党员否 number, 参加工作时间 date , 部门号 number(4)2) create table department(部门号 number(4), 部门名称 varchar(20)3) create table salary ( 职工号 number(4)

6、, 姓名 char(8), 性别 char(2), 出生日期 date, 党员否 number, 参加工作时间 date , 部门号 number(4)1. CREATE VIEW1 emp_i nfo_view(dept no,avgsal,empcou nt)4数据库技术及应用实验报告ASSELECT dept no,avg(sal),cou nt(*) FROM empGROUP BY dept no;2. CREATE VIEW2 emp_sal_viewASSELECT * FROM emp WHERE sal>2000WITH CHECK OPTION;3. CREATE V

7、IEW3 emp_dept_viewASSELECT emp no,en ame,d name FROM emp,deptWHERE emp.dept no=dept.dept noDECLAREv_dept no emp.dept no%TYPE;CURSOR c_emp IS SELECT * FROM emp WHERE dept no=v_dept no; v_emp c_emp%ROWTYPE;BEGINv_dept no:=&x;OPEN c_emp;LOOPFETCH c_emp INTO v_emp;EXIT WHEN c_emp%NOTFOUND;DBMS_OUTPU

8、T.PUT_LINE(v_emp.emp no|' '|v_emp.e name|' '| v_emp.sal |' '| v_dept no);END LOOP;CLOSE c_emp;END;DECLARE5数据库技术及应用实验报告CURSOR c_dept_stat IS SELECT dept no,avg(sal) avgsal FROM emp GROUP BY dept no;v_dept c_dept_stat%ROWTYPE;BEGINOPEN c_dept_stat;LOOPFETCH c_dept_stat INTO v_d

9、ept;EXIT WHEN c_dept_stat%NOTFOUND;DBMS_OUTPUT.PUT_LINE(v_dept.dept no|''|v_dept.avgsal);END LOOP;CLOSE c_dept_stat;END;Er-ake table unrkETfl| T°iiuirrfdr It , 性刊 cliar2 i 岂苛否1善才 D 工伟吋柯 *at? ?都门号 Biii*ir(i);WMl*pQL>create itaUle departmentf门号 " 期 1> 时 1 町 * 韜门容祢 varctut-ffO);S(L&