autoproc.sql

一个挺好的招生管理系统

--自动投档程序AUTOPROC
CREATE OR REPLACE PROCEDURE AUTOPROC(P_LQZY NUMBER)
		AS
 		CURSOR COLLEGE_CURSOR IS SELECT 院校编号 FROM COLLEGE;
		BEGIN
 		 FOR COLLEGE_REC IN COLLEGE_CURSOR 	LOOP
   		IF (P_LQZY=1) THEN
     		PROC1(COLLEGE_REC.院校编号);
            UPDATE NOTE SET TIMES =1;
ELSIF (P_LQZY=2) THEN
   	 	PROC2(COLLEGE_REC.院校编号);
UPDATE NOTE SET TIMES =2;
ELSIF (P_LQZY=3) THEN
   	 	PROC3(COLLEGE_REC.院校编号);
   	 	PROC4(COLLEGE_REC.院校编号);
UPDATE NOTE SET TIMES =3;
   		END IF;    
  		END LOOP;
		END;
/