ORACLE应用经验(1)
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 flagoracle 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
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);