1725.html

著名的linux英雄站点的文档打包

                                <TR>
                                      <TD vAlign=top> 
<p><FONT class=normalfont><B><font color=blue>ORACLE应用经验(1)</font></B></FONT><BR><FONT class=smallfont color=#ff9900>2004-04-23 15:18 pm</FONT><BR><FONT class=normalfont>作者：作者<br>来自：Linux知识宝库<br>联系方式：无名<br><br>JAN-1(January)   FEB-2(February)   MAR-3(March)<br>
APR-4(April)     MAY-5(May)        JUN-6(June)<br>
JUL-7(July)      AUG-8(August)     SEP-9(September)<br>
OCT-10(October)  NOV-11(November)  DEC-12(December)<br>
<br>
********************************************************************<br>
****************************常用设置********************************<br>
---on-log 触发器编写示范<br>
Declare<br>
  flag      varchar2(80):=null;<br>
  cou       number:=1;<br>
  n         number;<br>
Begin<br>
  Loop<br>
       logon(USERNAME,PASSWORD||'@'||CONNECT,PROPERTY_FALSE....);<br>
       flag:=Get_Application_Property(DATASOURCE);<br>
       Exit when cou&gt;8 or flag='ORACLE';<br>
       cou:=cou+1;<br>
  End Loop;<br>
  If flag&lt;&gt;'ORACLE' then<br>
     set_alert_property('a_1',alert_message_text,<br>
                          '登录失败,请返回重试');<br>
     n:=show_alert('a_1');<br>
     raise form_trigger_failure;   --中断 FORM<br>
  End if;<br>
End;<br>
<br>
---对基表执行查询(只对基表)<br>
   Set_Block_Property('Block_Name',Default_Where,'where ......');<br>
   Go_Block('Block_Name');<br>
   Execute_Query;<br>
 ***************************************************<br>
  变量：<br>
       局部变量；<br>
       全局变量--------------1.:block.item<br>
			     2.:parameter.v_name<br>
			     3.:global.V_name<br>
        <br>
<br>
 ***************************************************<br>
---同步发生显示<br>
    synchronize; <br>
---实施'TRIGGER'触发<br>
   EXECUTE_TRIGGER(TRIGGER_NAME);<br>
---清除模块<br>
 clear_block(NO_VALIDATE);  'NO_VALIDATE'不生效 <br>
<br>
--建立警告栏并由警告栏选择<br>
<br>
Declare<br>
   n     number;<br>
Begin<br>
   Set_Alert_Property('Alert_Name',Alert_Message_Text,'message');<br>
   n:=Show_Alert('Alert_Name');<br>
   If n=Alert_Button1 then<br>
      ...;    <br>
   ElsIf n=Alert_Button2 then      <br>
   ...;<br>
   End if;<br>
End;<br>
<br>
---WINDOW设置<br>
  --运行时最大化,最小化<br>
  Set_Window_Property(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE|MINIMIZE);<br>
  --WINDOW标题<br>
  Set_Window_Property(FORMS_MDI_WINDOW, title,'TEXT');<br>
  --退出是否为真<br>
  Set_Window_Property(FORMS_MDI_WINDOW, REMOVE_ON_EXIT,PROPERTY_FALSE|TRUE);<br>
<br>
---设置系统提示信息等级<br>
  :System.Message_Level:= '5|10|15|20'; <br>
<br>
---设置ITEM属性<br>
  --设置ITEM属性ENABLED<br>
  Set_Item_Property('Block_name.Item_name',ENABLED,PROPERTY_TRUE|FALSE);<br>
  --设置ITEM属性NAVIGABLE<br>
  Set_Item_Property('Block_name.Item_name',NAVIGABLE,PROPERTY_TRUE|FALSE);<br>
  --设置ITEM属性VISUAL_ATTRIBUTE<br>
  Set_Item_Property('Block_name.Item_name',visual_attribute,'vname'); <br>
        --'vname'由导航器中(VISUAL_ATTRIBUTES)定义<br>
  --设置ITEM属性DISPLAYED<br>
  Set_Item_Property('Block_name.Item_name',displayed,TRUE|FALSE);<br>
  --设置ITEM属性POSITION<br>
  Set_Item_Property('Block_name.Item_name',position,x,y);<br>
  --设置ITEM_SIZE<br>
  Set_Item_Property('Block_name.Item_name',item_size,x,y);<br>
  --设置ITEM属性LABLE<br>
  Set_Item_Property('Block_name.Item_name',LABEL,'MESSAGE')<br>
<br>
---设置LIST ITEM示范<br>
Declare<br>
  n  number;<br>
Begin<br>
     clear_list('b1.fkfs');<br>
     m:=populate_group('fkfs');<br>
     populate_list('b1.fkfs','fkfs');<br>
/*<br>
   其中FKFS 为 record group ;<br>
<br>
*/<br>
<br>
End;<br>
<br>
---增加'LIST ITEM'<br>
       Add_List_Element(list_name, list_index, list_label, list_value);<br>
       Add_List_Element(list_id, list_index, list_label, list_value);<br>
---删除'LIST ITEM'项<br>
      Delete_List_Element(list_name, list_index);<br>
      Delete_List_Element(list_id, list_index);<br>
   例:<br>
      BEGIN <br>
         Delete_List_Element('years',1); <br>
         Add_List_Element('years', 1, '1994', '1994'); <br>
      END; <br>
<br>
---获得'LIST ITEM'项的组成<br>
     1.获得'LIST ITEM'的总和   <br>
         GET_LIST_ELEMENT_COUNT(list_id);<br>
         GET_LIST_ELEMENT_COUNT(list_name); <br>
<br>
     2.获得'LIST ITEM'的标签<br>
         GET_LIST_ELEMENT_LABEL(list_id, list_name, list_index); <br>
         GET_LIST_ELEMENT_LABEL(list_name, list_index);<br>
     <br>
<br>
     3.获得'LIST ITEM'的值<br>
         GET_LIST_ELEMENT_VALUE(list_id, list_index); <br>
         GET_LIST_ELEMENT_VALUE(list_name, list_index);  <br>
<br>
---设置'时间'<br>
DECLARE <br>
    timer_id Timer; <br>
    one_minute NUMBER(5) := 60000; <br>
BEGIN <br>
    timer_id := CREATE_TIMER('emp_timer', one_minute, REPEAT|NO_REPEAT); <br>
END;<br>
<br>
---产生一个'EDITER'框<br>
DECLARE <br>
  ed_id  Editor; <br>
  status BOOLEAN; <br>
BEGIN <br>
  ed_id:=Find_Editor('edit_name'); ---由'edit_name'导航器定义<br>
 <br>
<br>
  IF NOT Id_Null(ed_id) THEN <br>
     Show_Editor(ed_id, NULL, :block_name.item_name, status);<br>
  ELSE <br>
     Message('Editor "Happy_Edit_Window" not found'); <br>
     RAISE Form_Trigger_Failure; <br>
  END IF; <br>
END; <br>
<br>
----产生一个'LOV'框<br>
DECLARE <br>
  lv_id  LOV; <br>
  status BOOLEAN; <br>
BEGIN <br>
      lv_id := Find_LOV('lov_name');   ---'lov_name' 由导航器定义  <br>
--  IF Id_Null(lv_id) THEN <br>
--     lv_id := Find_LOV('lov_name1'); ---'lov_name1' 由导航器定义 <br>
--  END IF; <br>
  status := Show_LOV(lv_id,10,20); <br>
END;   <br>
<br>
---定义一个'EXCEPTION'例外<br>
Declare<br>
  err_1    exception;<br>
Begin<br>
  If ...  then<br>
     Raise err-1;<br>
  End if;<br>
Exception<br>
    When err_1 then<br>
         ....<br>
END;<br>
<br>
---设置应用特性(光标类型)<br>
      SET_APPLICATION_PROPERTY(CURSOR_STYLE,<br>
        'CROSSHAIR'|'BUSY'|'HELP'|'DEFAULT'|'INSERTION');<br>
      <br>
<br>
***********************************************************************    <br>
**********************************函数*********************************<br>
<br>
---把字符串的字符变成全大写(UPPER)全小写(LOWER)第一个字母大写(INITCAP)<br>
     UPPER|LOWER|INITCAP(STRING)<br>
<br>
---在文件的左('LPAD')右('RPAD')粘贴字符<br>
      LPAD|RPAD(STRING,LENGTH,'SET')  "LENGTH"为总字符长"SET"为粘贴字符<br>
<br>
---在文件的左('LTRIM')右('RTRIM')删除字符<br>
      LTRIM|RTRIM(SRTING,'SET')    "SET"为待删除字符<br>
<br>
---找出'字符集'在字符串中的位置<br>
  INSTR('STRING','SET',N,M)  从'STRING'中找出'SET'从'N'位起第'M'个 <br>
<br>
---数的绝对值<br>
   ABS(VALUE)<br>
<br>
---'MOD'模<br>
    MOD(VALUE,除数) 返回'除数'除'VALUE'的余数常用判断'VALUE'是否为整数   <br>
<br>
---把'VALUE'从'N'位四舍五入'ROUND'  或从'N'位截断'TRUNC'<br>
     ROUND|TRUNC(VALUE,N)<br>
<br>
---返回'VALUE'的符号<br>
   SIGN(VALUE)<br>
   <br>
<br>
---列表的最大值<br>
    GREATEST(N1,N1...);<br>
   列表的最小值<br>
    LEAST(N1,N1...);<br>
---返回小于或等于数的最大整数<br>
   FLOOR(VALUE)   floor(1.3)=1  floor(-1.3)=-2<br>
---返回大于或等于数的最小整数<br>
   CEIL(VALUE)    cell (1.3)=2  cell (-1.3)=-1<br>
<br>
---取字符串长度<br>
   substr(string,start,number)  number为string长度,start为string起点<br>
        <br>
<br>