****************************常用设置********************************
---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;
---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, MAXIMIZE|MINIMIZE); --WINDOW标题 Set_Window_Property(FORMS_MDI_WINDOW, title,'TEXT'); --退出是否为真 Set_Window_Property(FORMS_MDI_WINDOW, REMOVE_ON_EXIT,PROPERTY_FALSE|TRUE);
---设置系统提示信息等级 :System.Message_Level:= '5|10|15|20';
---设置ITEM属性 --设置ITEM属性ENABLED Set_Item_Property('Block_name.Item_name',ENABLED,PROPERTY_TRUE|FALSE); --设置ITEM属性NAVIGABLE Set_Item_Property('Block_name.Item_name',NAVIGABLE,PROPERTY_TRUE|FALSE); --设置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,TRUE|FALSE); --设置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' Add_List_Element(list_name, list_index, list_label, list_value); Add_List_Element(list_id, list_index, list_label, list_value); ---删除'LIST ITEM'项 Delete_List_Element(list_name, list_index); Delete_List_Element(list_id, list_index); 例: BEGIN Delete_List_Element('years',1); Add_List_Element('years', 1, '1994', '1994'); END;
---获得'LIST ITEM'项的组成 1.获得'LIST ITEM'的总和 GET_LIST_ELEMENT_COUNT(list_id); GET_LIST_ELEMENT_COUNT(list_name);
2.获得'LIST ITEM'的标签 GET_LIST_ELEMENT_LABEL(list_id, list_name, list_index); GET_LIST_ELEMENT_LABEL(list_name, list_index);
3.获得'LIST ITEM'的值 GET_LIST_ELEMENT_VALUE(list_id, list_index); GET_LIST_ELEMENT_VALUE(list_name, list_index);
---设置'时间' DECLARE timer_id Timer; one_minute NUMBER(5) := 60000; BEGIN timer_id := CREATE_TIMER('emp_timer', one_minute, REPEAT|NO_REPEAT); END;
---产生一个'EDITER'框 DECLARE ed_id Editor; status BOOLEAN; BEGIN ed_id:=Find_Editor('edit_name'); ---由'edit_name'导航器定义
IF NOT Id_Null(ed_id) THEN Show_Editor(ed_id, NULL, :block_name.item_name, status); ELSE Message('Editor "Happy_Edit_Window" not found'); RAISE Form_Trigger_Failure; END IF; END;
----产生一个'LOV'框 DECLARE lv_id LOV; status BOOLEAN; BEGIN lv_id := Find_LOV('lov_name'); ---'lov_name' 由导航器定义 -- IF Id_Null(lv_id) THEN -- lv_id := Find_LOV('lov_name1'); ---'lov_name1' 由导航器定义 -- END IF; status := Show_LOV(lv_id,10,20); END;
---定义一个'EXCEPTION'例外 Declare err_1 exception; Begin If ... then Raise err-1; End if; Exception When err_1 then .... END;
---设置应用特性(光标类型) SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'CROSSHAIR'|'BUSY'|'HELP'|'DEFAULT'|'INSERTION');
*********************************************************************** **********************************函数*********************************
---把字符串的字符变成全大写(UPPER)全小写(LOWER)第一个字母大写(INITCAP) UPPER|LOWER|INITCAP(STRING)
---在文件的左('LPAD')右('RPAD')粘贴字符 LPAD|RPAD(STRING,LENGTH,'SET') "LENGTH"为总字符长"SET"为粘贴字符
---在文件的左('LTRIM')右('RTRIM')删除字符 LTRIM|RTRIM(SRTING,'SET') "SET"为待删除字符
---找出'字符集'在字符串中的位置 INSTR('STRING','SET',N,M) 从'STRING'中找出'SET'从'N'位起第'M'个
---数的绝对值 ABS(VALUE)
---'MOD'模 MOD(VALUE,除数) 返回'除数'除'VALUE'的余数常用判断'VALUE'是否为整数
---把'VALUE'从'N'位四舍五入'ROUND' 或从'N'位截断'TRUNC' ROUND|TRUNC(VALUE,N)
---返回'VALUE'的符号 SIGN(VALUE)
---列表的最大值 GREATEST(N1,N1...); 列表的最小值 LEAST(N1,N1...); ---返回小于或等于数的最大整数 FLOOR(VALUE) floor(1.3)=1 floor(-1.3)=-2 ---返回大于或等于数的最小整数 CEIL(VALUE) cell (1.3)=2 cell (-1.3)=-1
---取字符串长度 substr(string,start,number) number为string长度,start为string起点
---DECODE函数,多重(if,then,else) decode(value,if1,then1,if2,then2,.....,else)
---判断'VALUE'是否为空(空值替换) NVL(UALUE,'WKFHZ') 'WKFHZ'是为空返回值,不为空则为原值
---字段长度 length(:block_name.item_id)
---返回字符串的第一(最左)个字符的ascII值 ascII(string)
---多行'VALUE'的 (作用于多'行') AVG(VALUE)平均值 COUNT(VALUE)行数 MAX(VALUE)最大值 MIN(VALUE)最小值 SUM(VALUE)和
---字符转换 TRANSLATE(STRING,'待转字符','转换字符'); 如 TEANSLATE('AAABBB','AB','BA') 返回'BBBAAA'
---比较单行中多个列的值获得最大('GREATEST'最小('LEAST') GREATEST|LEAST(列名,列名,...)
---按表达式或位置排序 ORDER BY '表达式'OR'位置' ASC|DESC ASC'升',DESC'降' 默认'ASC' *********************************************************************** *********************************************************************** ---游标的属性 (1) %ISOPEN 打开属性 布尔型 打开为TRUE 判断'光标'是否打开如未打开则打开'光标' IF NOT(CORSOR_NAME%ISOPEN) THEN OPEN CORSOR_NAME; END IF; FETCH CORSOR_NAME INTO ... (2) %NOTFOUND 布尔型 最近一次'FETCH'返回无结果 则为TRUE OPEN CORSOR_NAME; LOOP FETCH CORSOR_NAME INTO ... EXIT WHEN CORSOR_NAEM%NOTFOUND; END LOOP; (3) %FOUND 布尔型 最近一次'FETCH'返回无结果 则为FALSE OPEN CORSOR_NAME;
WHILE CORSOR_NAME%FOUND LOOP ...... FETCH CORSOR_NAME INTO ... END LOOP; CLOSE CORSOR_NAME; (4) %ROWCOUNT NUMVER型 为游标取出的行数 OPEN CORSOR_NAME; LOOP FETCH CORSOR_NAME INTO ... EXIT WHEN CORSOR_NAME%ROWCOUNT>5; ...... END LOOP; CLOSE CORSOR_NAME;
---循环语句 (1)基本循环 LOOP ..... EXIT WHILE; 如(EXIT WHEN X>100) END LOOP; (2)WHILE循环 WHILE 如( WHEN X>100) LOOP ..... END LOOP; (3)数值型FOR循环 'X'为计数器 FOR X IN (第减值) Y..Z LOOP ..... END LOOP; (4)游标FOR循环
---Exception(例外)在最近的'BEGIN'和'END'之间 Exception 语法1 当'没有数据找到'时 when no_data_found then 语法2 当'发生任何错误'时 when others then 语法3 当'发现多行'时 WHEN TOO_MANY_ROWS THEN 语法4 当'字符向数字转换失败'时 WHEN INVALID_NUMBER THEN 语法5 当'被零除'时 WHEN ZERO_DIVIDE THEN 语法6 当'向唯一索引中插入重复数据'时 WHEN DUP_VAL_ON_INDEX THEN 语法7 当'非法游标操作'时 WHEN INVALID_CURSOR THEN 语法8 当'数字的,数据转换,截字符串或强制性的错误'时 WHEN VALUE_ERROR THEN ************************************************************************** ************************************************************************** --常用TEXT_IO Delcare out_file text_io.file_type; Begin out_file:=text_io.fopen('prn','w'); text_io.new_line(out_file,' '); text_io.put_line(out_file,' ') text_io.fclose(out_file); End;
---文本输入输出 TEXT_IO TEXT_IO PACKAGE TEXT_IO FCLOSE TEXT_IO.FILE_TYPE TEXT_IO.FOPEN TEXT_IO.IS_OPEN TEXT_IO.GET_LINE TEXT_IO.NEW_LINE TEXT_IO.PUT TEXT_IO.PUTF TEXT_IO.PUT_LINE USING TEXT_IO CONSTRUCTS ---------------------------- Declare Out_file Text_io.file_type; L Varchar2(100); L1 Varchar2(100); L2 Varchar2(100); Begin Out_file :=text_io.fopen('c:\ll\login.txt','r'); If text_io.is_open(Out_file) then text_io.get_line(Out_file,L); text_io.get_line(Out_file,L1); text_io.get_line(Out_file,L2); Else Null; End if; End;
---清除全局变量 erase('global.var_name');
---隐藏'WINDOW','VIEW','MENU' HIDE_WINDOW|VIEW|MENU(WINDOW|VIEW|MENU_name);
--- 增加参数add_parameter Declare pl_id ParamList; BEGIN pl_id:=Get_Parameter_List('tempdata'); IF NOT Id_Null(pl_id) THEN Destroy_Parameter_List(pl_id); END IF; pl_id:=Create_Parameter_List('tempdata'); Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS'); Run_Product(REPORTS,'empreport',SYNCHRONOUS,RUNTIME, FILESYSTEM,pl_id,NULL); END;
--- DECLARE lArgs OLE2.LIST_TYPE; BEGIN word.hApp:=OLE2.CREATE_OBJ('Word.Basic'); lArgs:=OLE2.CREATE_ARGLIST; OLE2.ADD_ARG(lArgs,:ole.word_doc); OLE2.INVOKE(Word.hApp,'fileopen',lArgs); OLE2.DESTROY_ARGLIST(lArgs); END; ***********************删除重复记录************** Delete from emp e where e.rowid > (select min(f.rowid) from emp f 4 where f.empno=e.empno);
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24399951/viewspace-670511/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24399951/viewspace-670511/