您现在正在浏览：站长之家 >> 数据库 >> 详细内容

ORACLE应用经验（1）

时间:2007-11-09 来源:不详作者:迈克DB

---删除'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_idEditor;
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_idLOV;
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)=1floor(-1.3)=-2
---返回大于或等于数的最小整数
CEIL(VALUE) cell (1.3)=2cell (-1.3)=-1

---取字符串长度
substr(string,start,number)number为string长度,start为string起点

---DECODE函数,多重(if,then,else)
decode(value,if1,then1,if2,then2,.....,else)
---判断'VALUE'是否为空(空值替换)