第八章 使用PL SQL编写存储过程访问数据库.doc

暨南大学本科实验报告专用纸 课程名称 成绩评定 实验项目名称 指导教师 实验项目编号 实验项目类型 实验地点 学生姓名 学号 学院 系 专业 实验时间 年月日午 熟悉使用存储过程来进行数据库应用程序的设计。 实验内容 对学生-课程数据库，编写存储过程，完成下面功能： 统计离散数学的成绩分布情况，即按照各分数段统计人数； 统计任意一门课的平均成绩； 将学生选课成绩从百分制改为等级制（即A、B、C、D、E）。 要求：提交源程序并表示必要的注释。保证程序能正确编译和运行，认真填写实验报告。 实验步骤 实验之前，已经建立数据库，有student，course和sc三张基本表，登陆用户名为tiger,密码为‘tiger’。接下来的实验就是对该数据库编写存储过程。 （一）统计“离散数学”课程的成绩分布情况 创建存储过程 创建需要的表结构。 因为存储过程执行后在客户端并没有返回值，因此需要建立一个表来存放执行后的结果，并返回到客户端显示。 根据实验要求，要统计选修“离散数学”课程的学生的成绩分布，因此需要建立表Rank，其中第一列division显示成绩分数段划分，第二列number显示成绩在该分数段的学生人数。 create table rank（division char（20），number int）； 编写存储过程。 create or replace procedure statistic_mark(name char(50)) AS DECLARE less60 INT :=0; b60a70 INT :=0; b70a80 INT :=0; b80b90 INT :=0; more90 INT :=0; curcno CHAR(4); begin select cno INTO curcno from course where cname =name; IF NOT FOUNO THEN RAISE EXCEPTION END IF; SELECT count(*) INTO less60 FROM SC WHERE cno =curcno AND grade 60; SELECT count(*) INTO b60a70 FROM SC WHERE cno =curcno AND grade =60 AND grade70; SELECT count(*) INTO b70a80 FROM SC WHERE cno =curcno AND grade =70 AND grade80; SELECT count(*) INTO b80a90 FROM SC WHERE cno =curcno AND grade =80 AND grade90; SELECT count(*) INTO more90 FROM SC WHERE cno =curcno AND grade =90 ; INSERT INTO RANK VALUES([0,60),less60); INSERT INTO RANK VALUES([60,70),b60a70); INSERT INTO RANK VALUES([70,80),b70a80); INSERT INTO RANK VALUES([80,90),b80a90); INSERT INTO RANK VALUES([90,100),more90); END; 执行存储过程 编写好存储过程statistic_mark之后，在“查询分析器”中选择菜单中的“单事务执行”命令，这样系统就创建好了存储过程 然后使用PERFORM调用该过程，在表rank中查看执行的结果。 perform procedure statistic_mark(离散数学)； select* from rank； (二)统计任意一门课程的平均成绩 1.创建存储过程 （1）创建需要的表结构。 根据实验要求，要统计任意一门课程的平均成绩，因此需要建立表avggrade，其中第一列cname 显示被统计的课程名称，第二列avg显示选修了该课程的学生的平均成绩。 create table avggrade（ cname char(50), avg numeric(10,6)）； 编写存储过程 create or replace procedure collect_avg（） as declare //声明变量 curname char(50); curno char(4); curavgg char(10,6); cursor mycursor for