oracle模拟院校招生系统招生录取的过程（packages）

本文链接：https://blog.youkuaiyun.com/wzumath/article/details/4578726

基本需求分析

高考招生和录取工作，一般是由招生部门和院校合作完成的。招生部门和院校是该应用程序的使用者。该应用程序为考生只提供一些简单的查询功能。

1．院校

院校应提供招生的要求，如招生的人数、最低录取分数线以及对考生的其他条件的限制。

院校需要在录取结束后查询院校的录取名单。

2．招生部门

招生部门要收集和整理考生信息，建立考生信息库和院校信息库。考生信息库用于存取考生的基本信息，包括考生的高考成绩和报考志愿；院校信息库用于存取院校的基本信息和招生信息。

n招生部门需要在录取结束后统计所有院校的招生情况。

3.考生

考生在录取过程中需要查询其高考分数和录取状态。

相关表

学院信息表college

字段名称	类型	宽度	约束条件	简要说明
学院编号collegeid	number	5	主键	学院的编号
学院名称name	varchar2	50	不允许为空	学院的名称
录取分数线grade	number	3	>-1 and <701	院校最低录取分数线
计划招生人数plan_total	number	3	不允许为空	计划招生人数
录取人数actual_total	number	3	默认初值为0	已经录取的人数
联系人connector	varchar2	50	默认为空	联系人
联系电话tel	varchar2	20	默认为空	联系电话
地址address	varchar2	50	默认为空	学校地址

学生基本信息表student

字段名称	类型	宽度	约束条件	简要说明
考生考号stuid	number	5	主键	考生考号
考生姓名name	varchar2	50	不允许为空	考生姓名
年龄age	number	3	>-1,<151	年龄
性别sex	number	1	0-男,1-女	性别编号
家庭地址address	varchar2	50	默认为空	家庭地址
联系电话tel	varchar2	20	默认为空	联系电话

学生成绩表score

字段名称	类型	宽度	约束条件	简要说明
stuid	number	5	1.主键 2.外键,参照student表的stuid	考生考号
chinese	number	3	>-1,< 151	语文成绩
math	number	3	>-1,< 151	数学成绩
english	number	3	>-1,< 151	数学成绩
complex	number	3	>-1,< 251	综合成绩

学生录取情况表mat

字段名称	类型	宽度	约束条件	简单说明
编号stuid	number	5	1.主键 2.外键,参照student表的stuid	考生的编号
一志愿first_will	nubmer	5	外键,参照college的id	一志愿的院校编号, college的collegeid
二志愿second_will	number	5	外键,参照college的id	二志愿的院校编号, college的collegeid
是否同意调剂rel_flag	number	1	默认为0	是否同意调剂, 0-不同意,1-同意
录取状态mat_flag	number	1	默认为0 0-未录取,1-录取	状态,0-未录取,1-录取
录取院校mat_collegeid	number	5	外键,参照college的id	录取院校的院校编号,即college的collegeid
录取志愿mat_will_flag	number	1	默认为空 1代表一志愿,2代表二志愿,3代表调剂	表示考生被哪个志愿录取,1代表一志愿,2代表二志愿,3代表调剂
录取日期mat_date	date		默认为空	录取的日期
操作人operator	varchar2	50	默认为空	对考生投档的账户

package pag_zs 包头

create or replace package pag_zs is

-- Author  : ADMINISTRATOR
  -- Created : 2009-9-22 9:06:57
  -- Purpose : 
  
  --一志愿投档
/*  过程名和参数：proc1(p_collageid)
参数p_collageid: 要进行一志愿投挡的院校编号。
功能：完成该院校的一志愿投档录取的过程。
投档过程是：对一志愿报考该院校的、分数在最低录取分数线上的学生，按分数进行排序，根据招生人数取前几名录取。
本次录取的考生要回填状态和录取院校等信息，将考生信息表中录取状态改为录取，并将院校编号和录取志愿号(为1)填入考生表。同时将院校信息表中对应的录取人数做相应的修改，将实际录取的人数回填院校表的录取人数字段。*/
  procedure proc1(p_collegeid in number);
  
  --二志愿投档
/*  过程名和参数：proc2(p_collageid)
参数p_collageid:要进行二志愿投档的院校编号
功能：该过程完成按照院校的要求对某院校进行二志愿投档和录取的过程。投档时要指定学院编号作为参数。
过程是：对二志愿报考该学院且还没有录取的(去掉一志愿录取的考生)、分数在最低录取分数线上的学生，按分数进行排序，根据缺额(招生人数去掉录取人数)取前几名录取。
本次录取的考生要回填状态和录取学院等信息，将考生信息表中录取状态改为录取，并将院校编号、录取志愿号(为2)填入考生表。同时将院校信息表中对应的录取人数做相应的修改，将实际录取的人数回填院校表的录取人数字段。*/
  procedure proc2(p_collegeid in number);

--自动投档程序
/*  过程名和参数：autoproc(will_number)
参数:will_number代表要进行录取的志愿，只能是1或2，1代表一志愿，2代表二志愿。
功能：该过程根据选定志愿，循环对所有院校进行投档，即对所有院校循环调用PROC1或PROC2。一次完成所有院校的一志愿或二志愿投档。
*/
  procedure autoproc(will_number in number);
  
  --查询考生分数过程
/*  过程名和参数：
SHOW_SCORE(p_stuid)
其中，p_stuid代表考生编号。
功能：给出考生的考号，查出考生的姓名,总分, 各科成绩,所报院校编号,所报院校名称.(第一志愿的和二志愿的都需要显示出来)*/
  procedure show_score(p_stuid in number);
  
  --查询考生录取状态过程
/*  过程名和参数：SHOW_RUSULT(p_stuid)
其中，p_stuid代表考生编号。
   查询某学生的总分, 各科成绩, 录取情况(已录取,或未录取), 录取院校名称,第几志愿.*/
  procedure show_result(p_stuid in number);
  
  --get_students
/*      过程名和参数：get_students (stuid )
    注:stuid 为小明的准考证号.
    假设小明已被某院校录取,找出该院校所录取的 学生中,总分比小明高的学生的相关信息:
    总分,各科成绩,第几志愿录取等信息.
    说明:要用到子查询
*/
  procedure get_students(p_stuid in number);
  
  --显示院校录取名单 
/*  过程名和参数：
STUDENT_LIST(P_collegeid)
其中，P_collegeid表示院校编号。
功能：指定院校编号，按总分排序, 显示该院校所招学生的总分,平均分,各科成绩,录取的志愿等相关信息.
*/
  procedure student_list(p_collegeid in number);
  
  --院校招生情况统计 
/*  过程名和参数：COLLEGE_TOTAL
功能：按照院校的平均录取分数排序所有院校，统计各院校的最高分数、最低分数，招生人数、录取人数、男生人数、女生人数等信息。*/
  procedure college_total;
  
  --投档初始化过程
/*  过程名和参数：
  clear_status
功能：该过程用于在每次开始模拟录取前对考生录取情 况表和学院招生表进行状态初始化。
具体功能包括：
 清空par_collage表的录取人数；
 设置stu_mat学生录取情况表所有考生的录取状态为0(未录
取)，录取院校为空，录取志愿为空，录取日期为空，操作人为空。
*/
  procedure clear_status;
end pag_zs;

包体

create or replace package body pag_zs is

--一志愿投档
procedure proc1(p_collegeid in number) as

v_collegerow college%rowtype;
cursor v_stulist(v_grade_tmp number,v_plantotal_tmp number,p_collegeid_tmp number) is
      select mat.stuid as stuid,first_will 
      from score,mat
      where score.stuid=mat.stuid and chinese+math+english+complex>=v_grade_tmp and rownum<=v_plantotal_tmp and mat_flag=0 and rel_flag=0 and first_will=p_collegeid_tmp
      order by chinese+math+english+complex desc;
begin

select * into v_collegerow
from college
where collegeid=p_collegeid;
dbms_output.put_line(v_collegerow.grade);

--查询上线学生信息,执行录取操作
for v_record in v_stulist(v_collegerow.grade,(v_collegerow.plan_total-v_collegerow.actual_total),p_collegeid) loop
   dbms_output.put_line(v_record.stuid);
   --更新学生录取情况表
   update mat
   set mat_flag=1,
       mat_collegeid=p_collegeid,
       mat_will_flag=1,
       mat_date=sysdate,
       operator='小陈'
   where stuid=v_record.stuid;
   
   --更新学院信息表
   update college
   set actual_total=actual_total+1
   where collegeid=p_collegeid;
end loop;

commit;
  exception 
       when others then 
            --v_grade:=0;
            rollback;
            dbms_output.put_line('error');
end proc1;

--二志愿投档
  procedure proc2(p_collegeid in number) as

v_collegerow college%rowtype;
cursor v_stulist(v_grade_tmp number,v_plantotal_tmp number,p_collegeid_tmp number) is
      select mat.stuid as stuid,second_will 
      from score,mat
      where score.stuid=mat.stuid and chinese+math+english+complex>=v_grade_tmp and rownum<=v_plantotal_tmp and mat_flag=0 and rel_flag=0 and second_will=p_collegeid_tmp
      order by chinese+math+english+complex desc;
begin

select * into v_collegerow
from college
where collegeid=p_collegeid;
dbms_output.put_line(v_collegerow.grade);

--查询上线学生信息,执行录取操作
for v_record in v_stulist(v_collegerow.grade,(v_collegerow.plan_total-v_collegerow.actual_total),p_collegeid) loop
   dbms_output.put_line(v_record.stuid);
   --更新学生录取情况表
   update mat
   set mat_flag=1,
       mat_collegeid=p_collegeid,
       mat_will_flag=2,
       mat_date=sysdate,
       operator='小陈'
   where stuid=v_record.stuid;
   
   --更新学院信息表
   update college
   set actual_total=actual_total+1
   where collegeid=p_collegeid;
end loop;

commit;
  exception 
       when others then 
            --v_grade:=0;
            rollback;
            dbms_output.put_line('error');
end proc2;

--自动投档程序
procedure autoproc(will_number in number) as
cursor v_college is
       select *
       from college;
begin
if(will_number=1) then
   for v_record in v_college loop
       --一志愿自动投档
        proc1(v_record.collegeid);
   end loop;
elsif (will_number=2) then
--dbms_output.put_line('2');
  for v_record in v_college loop
       --二志愿自动投档
        proc2(v_record.collegeid);
   end loop;
end if;

commit;

exception
    when others then
         rollback;
  
end autoproc;

--查询考生分数过程
procedure show_score(p_stuid in number) as
--student_info type_student;
v_stu view_studentinfo%rowtype;
begin
  select stuid,name,totalscore,
         chinese,math,english,complex,
         first_will,first_will_name,
         second_will,second_will_name
         
  into v_stu
  from view_studentinfo
  where stuid=p_stuid;
  
  dbms_output.put_line(v_stu.stuid);
  dbms_output.put_line(v_stu.name);
  dbms_output.put_line(v_stu.totalscore);
  dbms_output.put_line(v_stu.chinese);
  dbms_output.put_line(v_stu.math);
  dbms_output.put_line(v_stu.english);
  dbms_output.put_line(v_stu.complex);
  dbms_output.put_line(v_stu.first_will);
  dbms_output.put_line(v_stu.first_will_name);
  dbms_output.put_line(v_stu.second_will);
  dbms_output.put_line(v_stu.second_will_name);
  
  
  exception
        when others then
             dbms_output.put_line('error');
  
  
end show_score;

--查询考生录取状态过程
procedure show_result(p_stuid in number) as

--student_info type_student;
v_stu view_studentinfo_result%rowtype;
begin
  select stuid,totalscore,
         chinese,math,english,complex,
         matflag,collegename,mat_will_flag
  into v_stu
  from view_studentinfo_result
  where stuid=p_stuid;
  
  dbms_output.put_line(v_stu.stuid);
  dbms_output.put_line(v_stu.totalscore);
  dbms_output.put_line(v_stu.chinese);
  dbms_output.put_line(v_stu.math);
  dbms_output.put_line(v_stu.english);
  dbms_output.put_line(v_stu.complex);
  dbms_output.put_line(v_stu.matflag);
  dbms_output.put_line('录取院校:'||v_stu.collegename);
  dbms_output.put_line('录取志愿:'||v_stu.mat_will_flag);
  
  exception
        when others then
             dbms_output.put_line('error');
  
  
end show_result;

--get_students
procedure get_students(p_stuid in number) is
cursor v_stu is

select *
from view_studentinfo_all
where mat_flag=1
      and mat_collegeid=(
                    select mat_collegeid
                    from mat
                    where stuid=p_stuid
                    )
      and totalscore>(
                    select chinese+math+english+complex as totalscore
                    from score
                    where stuid=p_stuid
                    );
begin

for v_record in v_stu loop
    dbms_output.put_line(v_record.stuid);
end loop;
    
end get_students;
  
  --显示院校录取名单 
  procedure STUDENT_LIST(p_collegeid in number) as
cursor v_stu is
select stuid,name,totalscore,totalscore/4 as avgscore,
       chinese,math,english,complex,
       first_will,first_will_name,second_will,second_will_name,
       mat_flag,mat_collegeid,mat_will_flag
from view_studentinfo_all
where mat_collegeid=p_collegeid
order by totalscore desc;

score float:=0;
i integer:=0;

begin

for v_record in v_stu loop
dbms_output.put_line('报名序号:'||v_record.stuid||'姓名:'||v_record.name||'分数:'||v_record.totalscore||'志愿:'||v_record.mat_will_flag);
score:=score+v_record.totalscore;
i:=i+1;
end loop;

dbms_output.put_line('总分:'||score);
dbms_output.put_line('平均分:'||score/i);
  
end STUDENT_LIST;

--院校招生情况统计 
  procedure COLLEGE_TOTAL as
cursor v_cur is
select mat_collegeid,avg(totalscore) as avgscore
from view_studentinfo_all
where mat_flag=1
group by mat_collegeid
order by avgscore desc;

max_min_score view_count_max_min%rowtype;
collegeinfo college%rowtype;

cursor v_num(p_collegeid_tmp number) is
select count(*) as num
from mat,student
  where mat_flag=1 and mat.stuid=student.stuid
  and mat.mat_collegeid=p_collegeid_tmp
  and student.sex=0
union
select count(*) as num
from mat,student
  where mat_flag=1 and mat.stuid=student.stuid
  and mat.mat_collegeid=p_collegeid_tmp
  and student.sex=1;

begin
  for v_record in v_cur loop
  --统计各院校的最高分数、最低分数
  select mat_collegeid,maxscore,minscore into max_min_score
  from view_count_max_min
  where mat_collegeid=v_record.mat_collegeid;
  dbms_output.put_line(max_min_score.mat_collegeid);
  dbms_output.put_line('最高分:'||max_min_score.maxscore||'最低分:'||max_min_score.minscore);
  
  --招生人数、录取人数
  select * into collegeinfo
  from college
  where collegeid=v_record.mat_collegeid;
  dbms_output.put_line('计划招生数:'||collegeinfo.plan_total);
  dbms_output.put_line('实际录取数:'||collegeinfo.actual_total);
  
  --男生人数、女生人数
  for v_record_2 in v_num(v_record.mat_collegeid) loop
      dbms_output.put_line(v_record_2.num);
  end loop;
  end loop;
end COLLEGE_TOTAL;

--投档初始化过程
procedure clear_status as
begin
  
  update college
  set actual_total=0;

update mat
  set mat_flag=0,
      mat_collegeid=null,
      mat_will_flag=null,
      mat_date=null,
      operator=null;

commit;
  exception
      when others then
           rollback;

end clear_status;

end pag_zs;