搜索
《数据库技术及应用》实验报告1实验报告课程名称数据库技术及应用实验项目名称实验4PL/SQL及游标操作实验时间（日期及节次）周一10-12节专业软件工程学生所在学院软件学院年级学号姓名指导教师实验室名称4号楼138实验成绩预习情况操作技术实验报告附加：综合创新能力实验综合成绩教师签字黑龙江大学教务处《数据库技术及应用》实验报告2黑龙江大学计算机科学与技术专业、软件工程专业《数据库技术及应用》课程实验报告学号姓名班级实验时间周一10-12节实验名称实验4PL/SQL及游标操作一、实验目的PL/SQL及游标操作二、实验环境WindowsXP，Oracle数据库三、主要内容一、PL/SQL1.实现1！+2！+。。。。。。。。+N!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(10,2)).其中职工号和日期为关键字使用游标在以上的数据库上完成如下操作：1.给定一个职工号,查询职工信息及部门名称2.给定部门号（键盘输入），输出该部门每个员工的基本信息以及5月工资信息3.显示最高工资的职工所在的部门名称和工资，并输出该部门中职工的信息《数据库技术及应用》实验报告3四、实验总结1.DECLAREiBINARY_INTEGER:=1;kBINARY_INTEGER:=1;sumBINARY_INTEGER:=0;BEGINWHILEi=NLOOPk:=i*k;sum:=k+sum;i:=i+1;ENDLOOP;DBMS_OUTPUT.PUT_LINE('1！+2！+。。。。。。。。+N!'||sum);END;2.DECLAREiBINARY_INTEGER:=100;jBINARY_INTEGER:=2;sumBINARY_INTEGER:=1;BEGINWHILEi=200LOOPWHILEj=iLOOPFLAG:=0;sum:=i%j;IFsum=0THENFLAG=0;EXIT;ELSEj:=j+1;ENDIF;ENDLOOP;IF(FLAG=1)dbms_output.put_line(i);《数据库技术及应用》实验报告4FLAG=0;ENDIF;i:=i+1;ENDLOOP;END;1)createtableworker(职工号number(4),姓名char(8),性别char(2),出生日期date,党员否number,参加工作时间date,部门号number(4))2)createtabledepartment(部门号number(4),部门名称varchar(20))3)createtablesalary(职工号number(4),姓名char(8),性别char(2),出生日期date,党员否number,参加工作时间date,部门号number(4))1.CREATEVIEW1emp_info_view(deptno,avgsal,empcount)ASSELECTdeptno,avg(sal),count(*)FROMempGROUPBYdeptno;2.CREATEVIEW2emp_sal_viewASSELECT*FROMempWHEREsal2000WITHCHECKOPTION;3.CREATEVIEW3emp_dept_viewASSELECTempno,ename,dnameFROMemp,deptWHEREemp.deptno=dept.deptnoDECLAREv_deptnoemp.deptno%TYPE;CURSORc_empISSELECT*FROMempWHEREdeptno=v_deptno;v_empc_emp%ROWTYPE;BEGIN《数据库技术及应用》实验报告5v_deptno:=&x;OPENc_emp;LOOPFETCHc_empINTOv_emp;EXITWHENc_emp%NOTFOUND;DBMS_OUTPUT.PUT_LINE(v_emp.empno||''||v_emp.ename||''||v_emp.sal||''||v_deptno);ENDLOOP;CLOSEc_emp;END;DECLARECURSORc_dept_statISSELECTdeptno,avg(sal)avgsalFROMempGROUPBYdeptno;v_deptc_dept_stat%ROWTYPE;BEGINOPENc_dept_stat;LOOPFETCHc_dept_statINTOv_dept;EXITWHENc_dept_stat%NOTFOUND;DBMS_OUTPUT.PUT_LINE(v_dept.deptno||''||v_dept.avgsal);ENDLOOP;CLOSEc_dept_stat;END;《数据库技术及应用》实验报告6