ABAP面向对象中的事件

事件是除去属性，方法之外的第三类成员。这三种组件中，属性用于刻画类对象的状态，方法用于访问或修改对象状态，而事件则用于一个类对象发布其状态的改变, 因而其他对象可以捕获该方法并作出响应。
在ABAP Object 中， 事件的触发和处理是通过特定的方法进行的，一个方法作为触发者触发事件，而程序中的另一个方法则作为处理者捕获并处理该事件，处理方法在事件出现进被执行。

请勿混淆面向对象的编程中的事件和ABAP运行时系统中的事件（LOAD-OF-PROGRAM、START-OF-SELECTION等）。同时请勿将其与背景处理或工作流控制混淆。

看个实例
场景：一个产品当改变价格时，需要通知多个客户，价钱已更改，另外由日志类记录日志

1. CLASS lcl_product DEFINITION.
   
2.   PUBLIC SECTION.
   
3.     EVENTS: pricechanged.
   
4.     METHODS:raise_event.
   
5.   PRIVATE SECTION.
   
6.     DATA: price TYPE i.
   
7. ENDCLASS. "lcl_product DEFINITION
   
8. CLASS lcl_product IMPLEMENTATION.
   
9.   METHOD raise_event.
   
10.     WRITE: / '------------------------------------'.
    
11.     WRITE: / 'Before event trrigger'.
    
12.     RAISE EVENT pricechanged.
    
13.     WRITE: / 'After event trrigger'.
    
14.     WRITE: / '------------------------------------'.
    
15.   ENDMETHOD. "raise_event
    
16. ENDCLASS. "lcl_product IMPLEMENTATION
    
17. 
    
18. *----------------------------------------------------------------
    
19. * CLASS lcl_customer
    
20. *----------------------------------------------------------------
    
21. CLASS lcl_customer DEFINITION.
    
22.   PUBLIC SECTION.
    
23.     METHODS:
    
24.       handle_price_changed FOR EVENT pricechanged OF lcl_product
    
25.         IMPORTING sender.
    
26. ENDCLASS. "lcl_customer DEFINITION
    
27. CLASS lcl_customer IMPLEMENTATION.
    
28.   METHOD handle_price_changed.
    
29.     WRITE: / ' Customer handle changed price'.
    
30.   ENDMETHOD. "handle_price_changed
    
31. ENDCLASS. "lcl_customer IMPLEMENTATION
    
32. *----------------------------------------------------------------
    
33. * CLASS lcl_logger
    
34. *----------------------------------------------------------------
    
35. CLASS lcl_logger DEFINITION.
    
36.   PUBLIC SECTION.
    
37.     METHODS:
    
38.       handle_price_changed FOR EVENT pricechanged OF lcl_product
    
39.         IMPORTING sender.
    
40. ENDCLASS. "lcl_logger DEFINITION
    
41. CLASS lcl_logger IMPLEMENTATION.
    
42.   METHOD handle_price_changed.
    
43.     WRITE: / ' Logger log changed price'.
    
44.   ENDMETHOD. "handle_price_changed
    
45. ENDCLASS. "lcl_logger IMPLEMENTATION
    
46. 
    
47. DATA:grf_product TYPE REF TO lcl_product.
    
48. DATA:grf_customer TYPE REF TO lcl_customer.
    
49. DATA:grf_logger TYPE REF TO lcl_logger.
    
50. 
    
51. START-OF-SELECTION.
    
52. * Create object instances
    
53.   CREATE OBJECT grf_product.
    
54.   CREATE OBJECT grf_customer.
    
55.   CREATE OBJECT grf_logger.
    
56. * Register event
    
57.   SET HANDLER grf_customer->handle_price_changed FOR grf_product.
    
58.   SET HANDLER grf_logger->handle_price_changed FOR grf_product.
    
59. * Trigger event
    
60.   grf_product->raise_event( ).

复制代码

执行结果：

很美妙的事情，我们并不需要直接发送消息给客户，日志类,就可以让他们知道价格已更改，从而使代码松耦合。