Oracle 创建存储过程包实现功能

/**
  通过存储过程
  自动计算出 ：每位学生的总成绩和平均成绩 
  同时,如果学生在课外课程中获得的评价为 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;