ORACLE应用经验(1)
程序员文章站
2022-06-05 22:30:00
正在看的oracle教程是:oracle应用经验(1)。jan-1(january) feb-2(february) mar...
正在看的oracle教程是:oracle应用经验(1)。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 触发器编写示范
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
&nbs 正在看的oracle教程是:oracle应用经验(1)。p; 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正在看的oracle教程是:oracle应用经验(1)。'的余数常用判断'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
.....
  正在看的oracle教程是:oracle应用经验(1)。; 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:lllogin.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 >
 正在看的oracle教程是:oracle应用经验(1)。; (select min(f.rowid) from emp f
4 where f.empno=e.empno);
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 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
&nbs 正在看的oracle教程是:oracle应用经验(1)。p; 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正在看的oracle教程是:oracle应用经验(1)。'的余数常用判断'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
.....
  正在看的oracle教程是:oracle应用经验(1)。; 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:lllogin.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 >
 正在看的oracle教程是:oracle应用经验(1)。; (select min(f.rowid) from emp f
4 where f.empno=e.empno);