FORMS进阶之——规范化触发器内容
来源:互联网 发布:网络剧排行榜2016 编辑:程序博客网 时间:2024/06/05 00:22
为各级触发器建立程序单元
一、命名规则:
1.FORM级触发器——表单名
把自己加的
2.块级触发器——块名
3.数据项级触发器——数据项名(不单独建程序单元,而作为块级包中的存储过程)
二、程序模板
1.FORMS级
包规范
PACKAGE CUXOMWKS11733 IS
PROCEDURE event_handle(event IN VARCHAR2);
END;
包体
PACKAGE BODY cuxomwks11733 IS
/*==================================================
名称: event_handle
功能描述: FORM级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE event_handle(event IN VARCHAR2) IS
l_menu1 varchar2(30);
BEGIN
IF (event = 'FORM级触发器1') THEN
触发器1进行的动作
ELSIF (event = 'FORM级触发器2') THEN
触发器2进行的动作
......
ELSIF (event = 'FORM级触发器n') THEN
触发器n进行的动作
ELSE
app_exception.invalid_argument('程序单元名.EVENT_HANDLE',
'EVENT',
event);
END IF;
END event_handle;
END;
2.块级
①数据块里没有项有触发器的
跟上面的FORM级一样
②数据块里有项有触发器的
a.为块级触发器建一个event_handle存储过程共用
b.为项级触发器各建一个存储过程(名字同数据项名)
包规范
PACKAGE CONTROL IS
PROCEDURE event_handle(event IN VARCHAR2);
PROCEDURE submit(event IN VARCHAR2); --提交按钮存储过程
END;
包体
PACKAGE BODY CONTROL IS
/*==================================================
名称: event_handle
功能描述: 块级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE event_handle(event IN VARCHAR2) IS
BEGIN
IF (event = 'PRE-FORM') THEN
NULL;
ELSE
app_exception.invalid_argument('CONTROL.EVENT_HANDLE',
'EVENT',
event);
END IF;
END event_handle;
/*==================================================
名称: submit
功能描述: ITEM级触发器
历史记录: 1.00 2016-08-12 Jim 创建
==================================================*/
PROCEDURE submit(event IN VARCHAR2) IS
x_return_status VARCHAR2(20);
x_msg_count NUMBER;
x_msg_data VARCHAR2(3000);
BEGIN
IF (event = 'WHEN-BUTTON-PRESSED') THEN
commit_changed;
go_block('HEADERS');
cux_om_order_11733_pub.submit_order(p_api_version => 1.0,
p_init_msg_list => hss_api.g_true,
p_commit => hss_api.g_true,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_om_header_id => :headers.header_id);
IF x_return_status <> hss_api.g_ret_sts_success THEN
hss_form_utl.display_errors;
RAISE form_trigger_failure;
END IF;
:parameter.g_query_find := 'TRUE';
:parameter.header_id := :headers.header_id;
app_find.find('HEADERS');
:parameter.g_query_find := 'FALSE';
ELSE
app_exception.invalid_argument('SUBMIT.EVENT_HANDLE',
'EVENT',
event);
END IF;
END submit;
END;
0 0
- FORMS进阶之——规范化触发器内容
- FORMS进阶之——头行结构
- FORMS进阶之——LOV式手电筒查询
- FORMS进阶之——配置文件控制单号生成规则
- FORMS进阶之——增加按钮并响应执行数据库包存储过程
- FORMS进阶之——新增菜单项实现相关功能
- Oracle Forms开发之触发器(trigger)
- html格式规范化—<option>内容空格问题
- Zookeeper 进阶之—
- [转载]Oracle EBS之Oracle Forms中的“WHEN-LEAVE-RECORD”触发器
- mysql进阶篇之存储过程和触发器
- 数据库设计之规范化
- 玩转Eclipse — 自动代码规范化
- 玩转Eclipse — 自动代码规范化
- MySQL优化之——触发器
- 存储过程之六—触发器
- 《BREW进阶与精通——3G移动增值业务的运营、定制与开发》连载之15---BREW精要之集中分布式应用管理和内容分发
- ArcGIS API for javascript开发笔记(四)——GP服务调用之GP模型的规范化制作详解
- java hashmap (how to generate hashcode
- Symfony系列-创建你的第一个页面
- FORMS进阶之——新增菜单项实现相关功能
- seo 几点学习经验
- oracle 自定义列转行函数
- FORMS进阶之——规范化触发器内容
- init
- Majority Element II
- HDU 5842 Lweb and String (水题)
- jsp到javabean数据传递
- hdu5833Zhu and 772002
- Json使用的困惑
- FORM开发入门1——利用单张表作源
- 测试人员应该具备哪些软技能