오라클 폼즈(Forms) - 2

해당 블럭으로 이동하기
GO_BLOCK('NHR_TA_BAROMETER') ;

Loop문 돌며 블럭에 입력하기
 -> for loop 이용

    BEGIN

         FOR IG IN (SELECT BAROMETER_ID, BAROMETER_NAME, SEQ_NO

              FROM  NHR_TA_BAROMETER

              WHERE  APPRAISAL_YEAR = TO_CHAR(TO_NUMBER(:CONTROL.APPRAISAL_YEAR) - 1) AND

                  SCHOOL_TYPE = :CONTROL.SCHOOL_TYPE AND

                  BAROMETER_GROUP_ID = :NHR_TA_BAROMETER_GROUP.BAROMETER_GROUP_ID

              ORDER BY SEQ_NO)

         LOOP
          --go_block('NHR_TA_BAROMETER_GROUP');
          
          --Create_Record;

--해당블럭에 입력

          :NHR_TA_BAROMETER.APPRAISAL_YEAR  :=  :CONTROL.APPRAISAL_YEAR ;
           :NHR_TA_BAROMETER.SCHOOL_TYPE     :=  :CONTROL.SCHOOL_TYPE    ;
           :NHR_TA_BAROMETER.BAROMETER_GROUP_ID     :=  :NHR_TA_BAROMETER_GROUP.BAROMETER_GROUP_ID    ;
           :NHR_TA_BAROMETER.BAROMETER_ID     :=  IG.BAROMETER_ID    ;
           :NHR_TA_BAROMETER.BAROMETER_NAME     :=  IG.BAROMETER_NAME    ;
           :NHR_TA_BAROMETER.SEQ_NO     :=  IG.SEQ_NO    ;
           NEXT_RECORD;                                             -- 다음 레코드로 이동
         END LOOP;
        END;


 -> loop문 이용
       GO_BLOCK('NHR_TA_BAROMETER');
       FIRST_RECORD;
       LOOP       
        :NHR_TA_BAROMETER.BAROMETER_GROUP_ID := :NHR_TA_BAROMETER_GROUP.BAROMETER_GROUP_ID;
        EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';         --loop문 탈출 조건 입력
               NEXT_RECORD;
       END LOOP;