实验二PLSQL编程实验报告.doc

《实验二PLSQL编程实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途课程名称：ORＡCLE数据库系统及应用　　　　　　　成绩评定：　　　　湖南第一师范学院信息科学与工程系实验报告实验项目名称:实验二：PL/SQL编程　　　　指导教师：　学生姓名：　　学号:　　　　　　　　专业班级:　实验项目类型：　设计　　实验地点:　　　　实验时间：　　年月日一、实验目的与要求:1、掌握　PL/SQL程序设计的基本知识；　2、掌握PＬ／SQL　中SELECＴ语句和　ＤML　语句的正确使用方法;３、掌握存储过程、函数、游标、触发器与包的创建与使用。二、实验环境:（硬件环境、软件环境)1.硬件环境:奔ⅣP

2、Ｃ。２.软件环境：Winｄows２0０0操作系统，Orａｃle９i。三、实验内容：（原理、操作步骤、程序代码等）任务：1、编写存储过程，根据用户输入的部门编号实现在PＬ/SQL　中逐行显示eｍp　表中该部门员工的工资级别。工资级别是:当工资为空时,为空，工资在１000元以下的为‘低’,在1000和3000之间的为‘中’，高于3000元的为‘高’。要有异常处理（该部门编号不存在）。createor　repｌacｅprｏcedure　review_ep(ｖ_dｅptnｏindｅpｔ.depｔno%tyｐｅ)ｉscuｒsorc１issｅｌeｃｔ　*

3、　ｆrom　emｐ　whｅｒeemp．dｅptno=v＿depｔｎo;ｒecoｒd1emｐ%ｒoｗtyｐe;deptnｏ_not_ｆｏundｅｘcｅptiｏn;ｂegiｎｏｐen　ｃ1;fetchc1inｔｏrecoｒｄ1;if(nｏｔ　c1％fｏund)tｈenraisｅ　dｅｐｔno_ｎot_fouｎｄ;ｅnｄ　iｆ;whilｅc1％found　ｌoopｉfnvl(rｅcord1.saｌ,0)<1000　thendbｍｓ_ｏutpuｔ．ｐut_linｅ(record1.enaｍe

4、

5、'工资低＇）；ｅlsiｆnｖｌ(record1.sal，

6、0）<３0０0thendbｍs＿ｏｕtput．ｐｕt_ｌine（recｏrd1.ename

7、

8、＇工资中等＇）;ｅlsｅdbｍs_outpｕt.puｔ_ｌine(record1.ename

9、｜'工资高＇)；ｅnｄｉf;fｅｔch　c1iｎtｏ　record1;个人收集整理勿做商业用途ｅｎdloop;ｃloｓｅｃ1;ｅxceｐtiｏｎｗｈeｎdepｔno_ｎot＿foｕnd　ｔhenｄｂms_outｐut.ｐｕｔ_lｉne('dｅpｔｎｏ　notfound＇）；enｄ；2.有这么一张表tｅmp1，他只有一个　numbeｒ(8)的字段ｎo，由于在创

10、建表时忘记设置主键约束，导致表中有很多重复的记录。请你编写一个存储过程，将表中重复的记录保留一个，删除其余的。createorreｐｌａceprｏcｅｄｕremypro1iscursｏｒv_cｕｒsｏriｓｓｅlect　distｉnｃt*　fｒｏmtemp1；f_notｅmｐ1．no％type；beｇin　　　ｏpｅnv＿cuｒsoｒ；　　　fｅtchv_curｓoｒ　iｎｔof_nｏ;　deｌetefｒom　teｍp１;whiｌｅv_curｓor%fouｎｄ　ｌooｐ　　　insertinｔotemp1ｖaluｅs(f_nｏ）；　　　　　f

11、eｔｃh　ｖ_cursorintof_no；　　　endloop；　　ｃlosｅv＿cursor;ｅnd;３.编写一个存储函数,用于判断DEPT 表中某一编号的部门是否存在,若存在此部门编号，则返回　ＴＲUE,否则返回FＡLＳE。Ｃreaｔe　ｏｒreplacefｕnctｉｏnjudge＿ｄｅpｔ（v_ｄeptnｏdｅpt.deｐｔｎo%type）ｒetｕrn　ｂoｏleaｎisv_dｅpｔnｏ2dｅpｔ.ｄｅptno%tyｐe：=－１;beginselｅctdｅptnｏinto　ｖ＿deptｎo２ｆromｄept　wｈeｒedeptno=v

12、_ｄeｐtno;if(v_deｐtno２<＞－1）ｔhenｒeturnｔｒue;eｌsereturｎ　false;end　ｉｆ;end;4、编写一过程，调用第3题的函数判断某一编号的部门是否存在，存在则输出该部门员工的姓名、工作，否则提示不存在此部门或此部门无员工。　createorrepｌａceｐrｏｃeｄurednｏ(ｖ＿deptnodｅpt.ｄeｐtnｏ％ｔypｅ)iscｕrsorｃ1iｓ　select*fromemｐwherｅ　deｐtno=v_dｅptno;ｒｅcord2ｅmp%ｒoｗtype；v_judgeboolean:＝ｆal

13、se;bｅｇinｖ_jｕdgｅ：＝ｊudｇｅ＿deｐt(v_deｐｔno)；if(v_ｊudge）theｎ个人收集整理勿做商业用途oｐenc1；fｅｔｃh　c1in