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 觸發器編寫示范Declareflag varchar2(80):=null;cou number:=1;n number;BeginLooplogon(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' thenset_alert_property('a_1',alert_message_text,'登錄失敗,請返回重試');n:=show_alert('a_1');raise form_trigger_failure; --中斷 FORMEnd if;End;---對基表執行查詢(只對基表)Set_Block_Property('Block_Name',Default_Where,'where ......');Go_Block('Block_Name');Execute_Query;***************************************************變量:局部變量;全局變量--------------1.:block.item2.:parameter.v_name3.:global.V_name***************************************************---同步發生顯示synchronize;---實施'TRIGGER'觸發EXECUTE_TRIGGER(TRIGGER_NAME);---清除模塊clear_block(NO_VALIDATE); 'NO_VALIDATE'不生效--建立警告欄并由警告欄選擇Declaren number;BeginSet_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屬性ENABLEDSet_Item_Property('Block_name.Item_name',ENABLED,PROPERTY_TRUEFALSE);--設置ITEM屬性NAVIGABLESet_Item_Property('Block_name.Item_name',NAVIGABLE,PROPERTY_TRUEFALSE);--設置ITEM屬性VISUAL_ATTRIBUTESet_Item_Property('Block_name.Item_name',visual_attribute,'vname');--'vname'由導航器中(VISUAL_ATTRIBUTES)定義--設置ITEM屬性DISPLAYEDSet_Item_Property('Block_name.Item_name',displayed,TRUEFALSE);--設置ITEM屬性POSITIONSet_Item_Property('Block_name.Item_name',position,x,y); --設置ITEM_SIZESet_Item_Property('Block_name.Item_name',item_size,x,y);--設置ITEM屬性LABLESet_Item_Property('Block_name.Item_name',LABEL,'MESSAGE')---設置LIST ITEM示范Declaren number;Beginclear_list('b1.fkfs');m:=populate_group('fkfs');populate_list('b1.fkfs','fkfs');/*其中FKFS 為 record group ;*/End;---增加'LIST ITEM'