oracle实验5

实验五存储过程与触发器一、实验目的（1）掌握Oracle数据库编程语言PL/SQL的基础知识。

（2）掌握游标、存储过程和触发器的创建，使用方法。

（3）了解使用高级语言连接数据库的技术、基本方法，了解ODBC、ADO和JDBC 的技术。

二、实验内容在实验一、实验二创建的表中用PL/SQL语言完成以下内容：1．创建存储过程，根据调用时提供的学生姓名查询该学生所修课程的课程信息，将课程号和课程名输出到输出窗口，并给出函数调用语句块。

create or replace procedure p1(v_sname in student.sname%type,v_cno out o%type,v_cname out ame%type)iscursor c1 isselect o,cnamefrom student,c,scwhere student.sno = sc.sno ando = o and student.sname = v_sname;beginopen c1;loopfetch c1into v_cno,v_cname;exit when c1%notfound;dbms_output.put_line(v_cno||','||v_cname);end loop;close c1;end p1;declarea student.sname%type := '王迪';b varchar2(20);c varchar2(50);beginp1(a,b,c);end;2．创建存储过程，统计指定学生修课的平均成绩和选课门数，将统计结果用输出参数传递给主程序，在PL/SQL主程序中调用存储过程，输出过程的返回结果。

create or replace procedure p2(v_sname in student.sname%type,v_avg out number,v_count out number)isbeginselect avg(grade),count(sc.sno)into v_avg,v_countfrom student,scwhere student.sno = sc.sno and sname = v_sname;end p2;declarea student.sname%type := '王迪';b number(8,2);c number;beginp2(a,b,c);dbms_output.put_line(b||','||c);end;3．创建存储过程，在学生表Student中插入一条完整的元组。

create or replace procedure p3(v_sno in student.sno%type,v_sname in student.sname%type ,v_sex in student.sex%type ,v_nation in student.nation%type,v_political in student.political%type,v_birth in student.birth%type,v_college in student.college%type,v_major in student.major%type )isbegininsertinto student(sno,sname,sex,nation,political,birth,college,major) values(v_sno,v_sname,v_sex,v_nation,v_political,v_birth,v_college,v_m ajor);commit;end p3;beginp3('123456', 'test','男','汉族','共青团员', to_date('1993/3/3','yyyy/mm/dd'),'信息工程学院','计算机科学与技术');end;4．创建存储过程，将指定零件的重量增加指定的值。

create or replace procedure p4(v_pno in p.pno%type,v_weight in p.weight%type)isbeginupdate pset weight = v_weight + weightwhere pno = v_pno;commit;end p4;beginp4('P6',20);end;5．创建存储过程，根据指定范围查询供应量在指定范围内的零件名称和供应商名，将结果输出到输出窗口，并给出函数调用语句块。

create or replace procedure p5(v_down in spj.qty%type,v_up in spj.qty%type,v_pname out p.pname%type,v_sname out s.sname%type)iscursor c5 isselect pname,snamefrom p,s,spjwhere p.pno = spj.pno and s.sno = spj.snoand qty between v_down and v_up;beginopen c5;loopfetch c5 into v_pname,v_sname;exit when c5%notfound;dbms_output.put_line(v_pname||','||v_sname); end loop;close c5;end p5;declarea varchar2(50);b varchar2(50);beginp5(100,200,a,b);end;6．（1）删除SPJ关系中所有数据。

deletefrom spj;commit;（2）在插入和修改SPJ表中QTY属性列的值时用触发器实现约束：如果是北京的供应商，供应任何零件的数量不能少于300，如果少于则自动改为300。

create or replace trigger t1before insert or update on spjfor each rowbeginif(:new.qty < 300) and (:new.sno = 'S2' or :new.sno = 'S3')then:new.qty := 300;end if;end t1;（3）在SPJ表中录入值进行验证。

insertinto spjvalues('S1','P1','J1',200);commit;insertinto spjvalues('S2','P2','J2',150);commit;insertinto spjvalues('S3','P2','J3',150);commit;update spjset qty = 200where sno = 'S3';commit;7．（1）删除SC关系中的所有数据。

deletefrom sc;commit;（2）在SC关系中增加新属性列Status，用来记录课程成绩的等级。

alter table scadd Status varchar2(30);（3）用触发器实现自动记录成绩等级，当插入和修改grade列的值时，如果grade在0－59分，status自动填写为“不合格”；grade在60－69分，status 自动填写为“合格”；grade在70－89分，status自动填写为“良好”；grade 在90以上status自动填写为“优秀”。

create or replace trigger t2before insert or update on scfor each rowbeginif(:new.grade between 0 and 59)then:new.status := '不合格';end if;if(:new.grade between 60 and 69)then:new.status := '合格';end if;if(:new.grade between 70 and 89)then:new.status := '良好';end if;if(:new.grade >= 90)then:new.status := '优秀';end if;end t2;（4）在SC表中录入值进行验证。

insertinto sc(sno,cno,grade)values('101310','101',50); commit;insertinto sc(sno,cno,grade)values('101311','102',65); commit;insertinto sc(sno,cno,grade)values('101312','103',75); commit;insertinto sc(sno,cno,grade)values('101313','104',93); commit;update scset grade = 95where sno = '101310';commit;update scset grade = 76where sno = '101311';commit;update scset grade = 62where sno = '101312';commit;update scset grade = 30where sno = '101313';commit;8．创建触发器，实现在转专业记录表change_major中自动登记转专业信息，即当修改学生表中属性列major的值时，系统自动在change_major中插入一条转专业的信息（注：change_major中的id属性列可设置为自动增长，具体参照课堂讲解的例题）。

create sequence change_major_idminvalue 1maxvalue 9999999start with 1increment by 1nocache;create or replace trigger t3after update on studentfor each rowbeginif (:new.major != :old.major)theninsertinto change_majorvalues(change_major_id.nextval,:new.sno,:new.sname,:old.major,:new.ma jor,sysdate);end if;end t3;update studentset major = '计算机科学与技术'where sname = '刘智豪';commit;update studentset major = '计算机科学与技术'where sname = '刘圣昊';commit;update studentset major = '计算机科学与技术'where sname = '张北辰';commit;要求：对所创建的存储过程和触发器进行相应的验证，并在实验报告中截图显示验证结果。