오라클 폼즈(Forms) - 4 (오라클 기본 SQL 질의)

--select when no data found BEGIN select appraisal_year into now_year_group from NHR_TA_BAROMETER_GROUP where appraisal_year = :control.appraisal_year and school_type = :control.school_type group by appraisal_year; exception when no_data_found then now_year_group := NULL ; END; --insert select INSERT INTO NHR_TA_BAROMETER_GROUP (appraisal_year, SCHOOL_TYPE, barometer_group_id, barometer_group_nm..
Programming/Oracle Forms 2009. 7. 27. 10:44
오라클 폼즈(Forms) - 3 (속성 변경 관련)

해당 아이탬 속성 변경 SET_ITEM_PROPERTY('CONTROL.B_INSERT_GROUP' , ENABLED , PROPERTY_FALSE); -- 비활성 SET_ITEM_PROPERTY('CONTROL.B_INSERT_GROUP' , ENABLED , PROPERTY_TRUE); -- 활성 해당 블럭 속성 변경 SET_BLOCK_PROPERTY('NHR_TA_BAROMETER_GROUP', INSERT_ALLOWED, PROPERTY_FALSE); --입력 비활성 SET_BLOCK_PROPERTY('NHR_TA_BAROMETER_GROUP', UPDATE_ALLOWED, PROPERTY_FALSE); -- 업데이트 비활성 SET_BLOCK_PROPERTY('NHR_TA_BAROMETER_GRO..
Programming/Oracle Forms 2009. 7. 27. 10:44
오라클 폼즈(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'); ..
Programming/Oracle Forms 2009. 7. 27. 10:37
오라클 폼즈(Forms) - 1(ETC Function)

알림창 사용 방법 Set_Alert_Property('ALERT_YN', alert_message_text,'전년도 복사를 하시면 현재 입력된 내용은 모두 지워집니다.'||CHR(10)||'계속하시겠습니까?' ); v_al_button := Show_Alert('ALERT_YN' );--Yes:88,No:89,Cancel(Exit):90 --ALERT_BUTTON1,ALERT_BUTTON2,ALERT_BUTTON3 --fnd_message.debug('v_al_button : '||v_al_button); if v_al_button ALERT_BUTTON1 then --88 then--ALERT_BUTTON1 return; end if; 폼즈 하단 메세지 출력 안나오게 하는 방법 --조회시 System ..
Programming/Oracle Forms 2009. 7. 27. 10:26
1