show_result.sql

一个挺好的招生管理系统

--查询考生录取状态过程SHOW_RESULT
CREATE OR REPLACE PROCEDURE SHOW_RESULT(P_BH NUMBER)
AS
 		 V_LQYXMC VARCHAR2 (20);
 		 V_XM VARCHAR2(10);
		BEGIN
 		 V_XM:= GET_STUDENT_NAME(P_BH);
 		 IF V_XM = '无' THEN 
		   DBMS_OUTPUT.PUT_LINE('考生编号错误！'); 
 		 ELSE
		   SELECT 录取院校名称 INTO V_LQYXMC 		FROM RESULT WHERE 编号=P_BH;
DBMS_OUTPUT.PUT_LINE('考生'||V_XM||'被'||V_LQYXMC||'录取！');
 		 END IF; 
		EXCEPTION 
  		WHEN OTHERS THEN 
  		DBMS_OUTPUT.PUT_LINE('考生'|| V_XM ||'未被录取！');
		END;