abap编程的一些例子 事件的触发及处理
来源:互联网 发布:mysql 无需密码登录 编辑:程序博客网 时间:2024/05/01 05:46
CLASS vehicle DEFINITION INHERITING FROM object.
PUBLIC SECTION.
EVENTS: too_fast.
METHODS: accelerate,
show_speed.
PROTECTED SECTION.
DATA speed TYPE i.
ENDCLASS. "vehicle DEFINITION
CLASS vehicle IMPLEMENTATION.
METHOD accelerate.
speed = speed + 1.
IF speed > 5.
RAISE EVENT too_fast.
speed = 5.
ENDIF.
ENDMETHOD. "accelerate
METHOD show_speed.
WRITE: / 'Speed:', speed.
ENDMETHOD. "show_speed
ENDCLASS. "vehicle IMPLEMENTATION
CLASS handler DEFINITION.
PUBLIC SECTION.
METHODS handle_excess FOR EVENT too_fast OF vehicle.
ENDCLASS. "handler DEFINITION
CLASS handler IMPLEMENTATION.
METHOD handle_excess.
WRITE: / 'Speed can not be too fast.'.
* speed = 10.
ENDMETHOD. "handle_excess
ENDCLASS. "handler IMPLEMENTATION
DATA: o_vehicle TYPE REF TO vehicle,
o_handle TYPE REF TO handler.
START-OF-SELECTION.
CREATE OBJECT: o_vehicle, o_handle.
SET HANDLER o_handle->handle_excess FOR ALL INSTANCES.
DO 11 TIMES.
CALL METHOD o_vehicle->accelerate.
CALL METHOD o_vehicle->show_speed.
ENDDO.
- abap编程的一些例子 事件的触发及处理
- abap编程的一些例子 查询
- abap编程的一些例子 接口的实现
- abap编程的一些例子 将数据选择至内表(多行)
- abap-文件处理的例子
- 一些常用ABAP program 的例子(转)
- 一些常用ABAP program 的例子
- 一些常用ABAP program 的例子
- 一些常用ABAP program 的例子
- ABAP--如何使选择屏幕的初始化事件再次触发
- ABAP--如何使选择屏幕的初始化事件再次触发
- ABAP触发BW处理链的两种方法
- ABAP触发BW处理链的两种方法
- 组件一些常用的触发事件
- DOM对象触发事件的一些解
- 一些系统事件的手动触发方法
- ABAP--处理'REUSE_ALV_GRID_DISPLAY'的双击事件
- ABAP--处理'REUSE_ALV_GRID_DISPLAY'的双击事件
- 玩转 Log4Net 五步走
- 根据窗口大小自动调整元素大小
- 关于C# winform treeview 的两个问题(点击空白处的时间响应和复选框选择问题)
- oracle自增长字段
- 监听到了CTabItem的关闭事件后,如何不关闭它
- abap编程的一些例子 事件的触发及处理
- 读取硬盘序列号
- install oracle on linux
- 品味prototype1.6 新加入方法
- RSA算法
- log4j介绍和使用方法
- 典型的色彩空间
- JSF内容概述
- 看看 类的序列化及反序列化的耗时