数据库人员手册之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 触发器编写示范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'