数据库人员手册之ORACLE应用源码

　　 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'