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

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

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

3、10,2).其中职工号和日期为关键字使用游标在以上的数据库上完成如下操作：1 .给定一个职工号，查询职工信息及部门名称2 .给定部门号（键盘输入），输出该部门每个员工的基本信息以及 5月工资信息3 .显示最高工资的职工所在的部门名称和工资，并输出该部门中职工的信息四、实验总结1. DECLARE1 BINARY_INTEGER :=1;k BINARY_INTEGER :=1;sum BINARY_INTEGER :=0;BEGINWHILE i<= N LOOPk: = i * k;sum:= k + sum;i:= i+1;END LOOP;('1 ! +2! +000000

4、00 +N!' | sum);END;2. DECLARE1 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 jk j+1;END IF;END LOOP;IF(FLAG=1)(i)；FLAG=0;END IF;i:=i+1;END LOOP;END;1)create table worker (职工号 numb

5、er(4),姓名 char(8), 性别 char(2),出生 日期date, 党员否number,参加工作时间date , 部门号number(4)2)create table department部门号 number(4),部门名称 varchar(20)3)create table salary ( 职工号 number(4),姓名 char(8), 性另char(2), 出 生日期date, 党员否number,参加工作时间date , 部门号number(4) VIEW1 emp_info_view(deptno,avgsal,empcount)ASSELECT deptno,avg

6、(sal),count(*) FROM empGROUP BY deptno;VIEW2 emp_sal_view ASSELECT * FROM emp WHERE sal>2000WITH CHECK OPTION;VIEW3 emp_dept_viewASSELECT empno,ename,dname FROM emp,deptWHERE =DECLAREv_deptno %TYPE;CURSOR c_emp IS SELECT * FROM emp WHERE deptno=v_deptno;v_emp c_emp%ROWTYPE;BEGINv_deptno:=&x;O

7、PEN c_emp;LOOPFETCH c_emp INTO v_emp;EXIT WHEN c_emp%NOTFOUND;Il' 'llIl' 'llII' 'llv_deptno);END LOOP;CLOSE c_emp;END;DECLARECURSOR c_dept_stat IS SELECT deptno,avg(sal) avgsal FROM emp GROUP BY deptno;v_dept c_dept_stat%ROWTYPE;BEGINOPEN c_dept_stat;LOOPFETCH c_dept_stat INTO v_dept;EXIT WHEN c_dept_stat%NOTFOUND;Il'll；END LOOP;CLOSE c_dept_stat;END;tL> crrdtr tafaHr barkernu1",性,占一"(孙性别部,出生日题 Mr r党员否? mi唯m>q善加工作时同仁”.即H号 则由叩己创心ItQL> crwaitv totals dufpnl1111“郃口号郃.宅梆 vj