student_list.sql

一个挺好的招生管理系统

--显示院校录取名册存储过程STUDENT_LIST
CREATE OR REPLACE PROCEDURE STUDENT_LIST(P_YXBH NUMBER)
		AS
		 V_SNAME VARCHAR2(10);
		 V_MAX NUMBER(3);
 		V_MIN NUMBER(3);
COL_REC COLLEGE%ROWTYPE;
 		CURSOR STU_CURSOR IS SELECT * FROM STUDENT WHERE 录取院校=P_YXBH ORDER BY 总分 DESC;
		BEGIN
 		 SELECT * INTO COL_REC FROM COLLEGE WHERE 院校编号=P_YXBH;
		DBMS_OUTPUT.PUT_LINE(GET_COLLEGE_NAME(P_YXBH)||'院校录取统计表');
  		DBMS_OUTPUT.PUT_LINE(' 招生人数：'||COL_REC.招生人数 ||'  录取人数：'||COL_REC.录取人数 ||'  录取分数线：'||COL_REC.录取分数线 );
  		DBMS_OUTPUT.PUT_LINE('----------------------------------------------------------------------');
		DBMS_OUTPUT.PUT_LINE('序号    考生编号  姓名    性别   总分   录取志愿  录取日期');
 		 FOR STU_REC IN STU_CURSOR LOOP
   		 IF STU_REC.性别=1 THEN 	        
 	DBMS_OUTPUT.PUT_LINE(RPAD(STU_CURSOR%ROWCOUNT,8,' ')||RPAD(STU_REC.编号,9,' ')||RPAD(STU_REC.姓名,9,' ')||'男'||RPAD(STU_REC.总分,9,' ')||RPAD(STU_REC.录取志愿,9,' ')||RPAD(STU_REC.录取日期,9,' '));
		ELSE
		DBMS_OUTPUT.PUT_LINE(RPAD(STU_CURSOR%ROWCOUNT,8,' ')||RPAD(STU_REC.编号,9,' ')||RPAD(STU_REC.姓名,9,' ')||'女 '||RPAD(STU_REC.总分,9,' ')||RPAD(STU_REC.录取志愿,9,' ')||RPAD(STU_REC.录取日期,9,' '));
   		 END IF;
 		 END LOOP;
		DBMS_OUTPUT.PUT_LINE('--------------------------------------------------------------------');
  		SELECT MAX(总分),MIN(总分) INTO V_MAX,V_MIN FROM STUDENT WHERE 录取院校=P_YXBH;
 		 DBMS_OUTPUT.PUT_LINE( '最高分'||V_MAX||' 最低分：'||V_MIN);
		END;