Oracle数据库-PL_SQL使用方法整理

文章作者 100test 发表时间 2007:10:15 12:56:21
来源 100Test.Com百考试题网

--获取系统记录行数
go_block(’T_WARITEMPRT’).
last_record.
row_count:=:system.trigger_record. --system.cursor_record
--execute_trigger(’POST-CHANGE’).
--设置鼠标状态
set_application_property(cursor_style,’BUSY’).
--raise form_trigger_failure.
--显示错误信息
exception when others then
display_note(sqlerrm||sqlcode,:global.logon_user).
--decode
decode(a.freightmode,’0’,’企业自付’,’1’,’供应商付费’,’2’,’企业代付’,’3’,’供应商代付’,null)
decode(qtyonhand - qtyinit,invtranqty,invtranqty,null)
--导出路径
0select * from t_parameter where f_name=’LeanERPTempDir’.
0select f_c_value from t_parameter where f_name =’WebServer1’.
--合同附件
0select f_c_value from t_parameter where f_name=’purorderaccesspath’.
0select f_c_value from t_parameter where f_name=’purorderaccessurl’.
--设置值列表
SET_ITEM_PROPERTY(’top.ORIGINALNO’,LOV_NAME,’LOV_MSO’).
LIST_VALUES.
--下拉列表
n:=populate_group(’rec_lb’).
populate_list(’BLK_BUT.APPTYPE’,’rec_lb’).
:bLK_BUT.APPTYPE:=’0’.
--调用另一模块
DECLARE
pl_id ParamList.
v_string varchar2(1000).
v_itemname varchar2(1000).
BEGIN
pl_id := Get_Parameter_List(’calendar’).
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List(pl_id).
END IF.
pl_id := Create_Parameter_List(’calendar’).
v_itemname:=:system.current_block||’.’||:system.current_item.
v_string:=name_in(v_itemname).
Add_Parameter(pl_id, ’p_str’,TEXT_PARAMETER,v_string).
Call_Form(’input_str’,no_hide,no_replace,no_query_only,pl_id).
copy(:global.str,v_itemname). Erase(:global.str).
END.
--批量处理
set_application_property(cursor_style,’BUSY’).
SYNCHRONIZE.
first_record.
loop
null.
exit when :system.last_record = ’TRUE’.
next_record.
end loop.
set_application_property(cursor_style,’DEFAULT’).
bell.
display_note(’SRMP035’,:global.logon_user).
-- 采购计划关闭完毕!
--对话框
IF display_stop(’INV081’, :GLOBAL.logon_user) <> alert_button1 THEN
RETURN.
END IF.
--取得货币名称
begin
0select currencydesc
into v_currencydesc
from t_currency
where currencycode = c1.splymoneyflag.
exception when others then v_currencydesc := ’人民币（元）’.
end.
--询问对话框-1
declare
return_value number.