/**
通过存储过程
自动计算出 :每位学生的总成绩和平均成绩
同时,如果学生在课外课程中获得的评价为 A ,就在总成绩上加 20 分。
最终将算出的总成绩和平均成绩更新到学生成绩表中
作业要求:作业连10.216.60.47,train实例下的apps用户,
表名,包,存储过程都已自己名字开头
1 必须使用包,存储过程,函数
2 要使用自定义类型,自定义数组
3 使用游标,异常处理
4 添加详细注释
提示:可将学生课外成绩作为自定义类型
**/
--自定义的数组类型 ( 自定义数据类型时 , 建议通过创建 Package 的方式实现 ,以便于管理 )
CREATE OR REPLACE PACKAGE TEST_I_MYPACKAGE IS
----统计学生的总成绩
PROCEDURE CHENS_STUDENTSCORE_CALCULATE;
----计算学生的平均分数
FUNCTION CHENS_GETSCOREBY_A(i_total in number,
i_stdid in varchar2)RETURN number;
end TEST_I_MYPACKAGE;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
***********************************************************************************************************************************************************************************
----实现
create or replace package body TEST_I_MYPACKAGE is
PROCEDURE CHENS_STUDENTSCORE_CALCULATE is
v_update_exp exception; --更新异常
--定义数组(存储student信息)
vt_student dbms_sql.Varchar2_Table;
cursor c_student is --定义游标记录当前行数据
select t.stdid,
(t.math + t.sprache + t.music + t.sport) as tatol,
(t.math + t.sprache + t.music + t.sport) / 4 as avage
from CHENSHUAI_STUDENT t;
BEGIN
begin
for v_student in c_student loop
vt_student(1) := v_student.stdid;
vt_student(2) := v_student.tatol;
vt_student(3) := round(v_student.avage, 1);
update CHENSHUAI_STUDENT tt--如果学生在课外课程中获得的评价为 A ,就在总成绩上加 20 分
set tt.total = CHENS_GETSCOREBY_A(vt_student(2), vt_student(1)),
tt.average = vt_student(3)
where tt.stdid = vt_student(1);
end loop;
commit;
exception
when others then
raise v_update_exp;
end;
Exception
when v_update_exp then
dbms_output.put_line('更新数据失败');
rollback;
END CHENS_STUDENTSCORE_CALCULATE;----过程end
--根据评价判断是否加分 FUNCTION CHENS_GETSCOREBY_A(i_total in number, i_stdid in varchar2) return number is Result number; --课外成绩自定义类型 TYPE OUT_SCHOOL_REC is RECORD( s_id CHENSHUAI_OUT_SCHOOL.STDID%TYPE, s_eva CHENSHUAI_OUT_SCHOOL.EVALUATE%TYPE); OUT_SCHOOL_TAB OUT_SCHOOL_REC; begin select t.evaluate into OUT_SCHOOL_TAB.s_eva from CHENSHUAI_OUT_SCHOOL t where t.stdid = i_stdid; --当评价为A时,加20分 if OUT_SCHOOL_TAB.s_eva = 'A' then Result := i_total + 20; else Result := i_total; end if; return(Result); end CHENS_GETSCOREBY_A; end TEST_I_MYPACKAGE;