數據庫人員手冊之ORACLE應用源碼
2024-08-29 13:49:59
供稿:網友
JAN-1(January) FEB-2(February) MAR-3(March)
APR-4(April) MAY-5(May) JUN-6(June) JUL-7(July) AUG-8(August) SEP-9(September) OCT-10(October) NOV-11(November) DEC-12(December) ******************************************************************** ****************************常用設置******************************** ---on-log 觸發器編寫示范 Declare flag varchar2(80):=null; cou number:=1; n number; Begin Loop logon(USERNAME,PASSWord'@'CONNECT,PROPERTY_FALSE....); flag:=Get_application_Property(DATASOURCE); Exit when cou>8 or flag='Oracle'; cou:=cou+1; End Loop; If flag<>'ORACLE' then set_alert_property('a_1',alert_message_text, '登錄失敗,請返回重試'); n:=show_alert('a_1'); raise form_trigger_failure; --中斷 FORM End if; End; ---對基表執行查詢(只對基表) Set_Block_Property('Block_Name',Default_Where,'where ......'); Go_Block('Block_Name'); Execute_Query; *************************************************** 變量: 局部變量; 全局變量--------------1.:block.item 2.:parameter.v_name 3.:global.V_name *************************************************** ---同步發生顯示 synchronize; ---實施'TRIGGER'觸發 EXECUTE_TRIGGER(TRIGGER_NAME); ---清除模塊 clear_block(NO_VALIDATE); 'NO_VALIDATE'不生效 --建立警告欄并由警告欄選擇 Declare n number; Begin Set_Alert_Property('Alert_Name',Alert_Message_Text,'message'); n:=Show_Alert('Alert_Name'); If n=Alert_Button1 then ...; ElsIf n=Alert_Button2 then ...; End if; End; ---WINDOW設置 --運行時最大化,最小化 Set_Window_Property(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZEMINIMIZE); --WINDOW標題 Set_Window_Property(FORMS_MDI_WINDOW, title,'TEXT'); --退出是否為真 Set_Window_Property(FORMS_MDI_WINDOW, REMOVE_ON_EXIT,PROPERTY_FALSETRUE); ---設置系統提示信息等級 :System.Message_Level:= '5101520'; ---設置ITEM屬性 --設置ITEM屬性ENABLED Set_Item_Property('Block_name.Item_name',ENABLED,PROPERTY_TRUEFALSE); --設置ITEM屬性NAVIGABLE Set_Item_Property('Block_name.Item_name',NAVIGABLE,PROPERTY_TRUEFALSE); --設置ITEM屬性VISUAL_ATTRIBUTE Set_Item_Property('Block_name.Item_name',visual_attribute,'vname'); --'vname'由導航器中(VISUAL_ATTRIBUTES)定義 --設置ITEM屬性DISPLAYED Set_Item_Property('Block_name.Item_name',displayed,TRUEFALSE); --設置ITEM屬性POSITION Set_Item_Property('Block_name.Item_name',position,x,y);
--設置ITEM_SIZE Set_Item_Property('Block_name.Item_name',item_size,x,y); --設置ITEM屬性LABLE Set_Item_Property('Block_name.Item_name',LABEL,'MESSAGE') ---設置LIST ITEM示范 Declare n number; Begin clear_list('b1.fkfs'); m:=populate_group('fkfs'); populate_list('b1.fkfs','fkfs'); /* 其中FKFS 為 record group ; */ End; ---增加'LIST ITEM'