ABAP面向对象中类的层次结构

在一个面向对象数据库模式中，会出现许多个相似但又有所不同的类。

例如，教员职工和学生两个类都有身份证号，姓名，年龄，性别，住址等属性，也有些相同的方法。当然，教职工和学生对象中有一些特殊的属性和方法。教职员工和学生的公共属性和方法部分可以统一定义，各自的特殊属性和方法部分可以分别定义。为此，面向对象数据结构给出了类层次结构！

下面给出一个案例：

1. REPORT yleon_002.
   
2. TYPE-POOLS icon.
   
3. 
   
4. INCLUDE yleon_002_a.
   
5. 
   
6. DATA: r_plane     TYPE REF TO lcl_airplane,
   
7.       r_cargo     TYPE REF TO lcl_cargo_plane,
   
8.       r_passenger TYPE REF TO lcl_passenger_plane,
   
9.       plane_list  TYPE TABLE OF REF TO lcl_airplane.
   
10. 
    
11. START-OF-SELECTION.
    
12. 
    
13.   lcl_airplane=>display_n_o_airplanes( ).
    
14.   CREATE OBJECT r_passenger
    
15.     EXPORTING
    
16.       im_name      = 'LH BERLIN'
    
17.       im_planetype = '747-400'
    
18.       im_seats     = 345.
    
19.   CREATE OBJECT r_cargo
    
20.     EXPORTING
    
21.       im_name      = 'US Hercules'
    
22.       im_planetype = '747-500'
    
23.       im_cargo     = 533.
    
24.   r_cargo->display_attributes( ).
    
25.   r_passenger->display_attributes( ).
    
26.   lcl_airplane=>display_n_o_airplanes( ).

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包含                YLEON_002_A
   
3. *&---------------------------------------------------------------------*
   
4. CLASS lcl_airplane DEFINITION.
   
5.   PUBLIC SECTION.
   
6.     CONSTANTS: pos_1 TYPE i VALUE 30.
   
7.     METHODS: constructor IMPORTING im_name      TYPE string
   
8.                                    im_planetype TYPE saplane-planetype,
   
9.       display_attributes.
   
10.     CLASS-METHODS: display_n_o_airplanes.
    
11. 
    
12.   PRIVATE SECTION.
    
13.     METHODS: get_technical_attributes
    
14.       IMPORTING im_type    TYPE saplane-planetype
    
15.       EXPORTING ex_weight  TYPE s_plan_wei
    
16.                 ex_tankcap TYPE s_capacity.
    
17.     DATA: name      TYPE string,
    
18.           planetype TYPE saplane-planetype.
    
19.     CLASS-DATA: n_o_airplanes TYPE i.
    
20. ENDCLASS. "lcl_airplane DEFINITION
    
21. 
    
22. CLASS lcl_airplane IMPLEMENTATION.
    
23.   METHOD constructor.
    
24.     name = im_name.
    
25.     planetype = im_planetype.
    
26.     n_o_airplanes = n_o_airplanes + 1.
    
27.   ENDMETHOD. "constructor
    
28.   METHOD display_attributes.
    
29.     DATA: weight TYPE saplane-weight,
    
30.           cap    TYPE saplane-tankcap.
    
31.     WRITE: / icon_ws_plane AS ICON,
    
32.     / 'Name of airplane'(001), AT pos_1 name,
    
33.     / 'Airplane type: '(002), AT pos_1 planetype.
    
34.     get_technical_attributes( EXPORTING im_type = planetype
    
35.                               IMPORTING ex_weight = weight
    
36.                               ex_tankcap = cap ).
    
37.     WRITE: / 'Weight:'(003), weight,
    
38.     'Tank capacity:'(004), cap.
    
39.   ENDMETHOD. "display_attributes
    
40.   METHOD display_n_o_airplanes.
    
41.     WRITE: /, / 'Number of airplanes: '(ca1),
    
42.     AT pos_1 n_o_airplanes LEFT-JUSTIFIED, /.
    
43.   ENDMETHOD. "display_n_o_airplanes
    
44.   METHOD get_technical_attributes.
    
45.     SELECT SINGLE weight tankcap FROM saplane
    
46.     INTO (ex_weight, ex_tankcap)
    
47.     WHERE planetype = im_type.
    
48.     IF sy-subrc <> 0.
    
49.       ex_weight = 100000.
    
50.       ex_tankcap = 10000.
    
51.     ENDIF.
    
52.   ENDMETHOD. "get_technical_attributes
    
53. ENDCLASS. "lcl_airplane IMPLEMENTATION
    
54. 
    
55. CLASS lcl_cargo_plane DEFINITION INHERITING FROM lcl_airplane.
    
56.   PUBLIC SECTION.
    
57.     METHODS: constructor IMPORTING im_name      TYPE string
    
58.                                    im_planetype TYPE saplane-planetype
    
59.                                    im_cargo     TYPE scplane-cargomax.
    
60.     METHODS: display_attributes REDEFINITION.
    
61.     METHODS: get_cargo RETURNING VALUE(re_cargo) TYPE scplane-cargomax.
    
62.   PRIVATE SECTION.
    
63.     DATA: max_cargo TYPE scplane-cargomax.
    
64. ENDCLASS. "lcl_cargo_plane DEFINITION
    
65. CLASS lcl_cargo_plane IMPLEMENTATION.
    
66.   METHOD constructor.
    
67.     CALL METHOD super->constructor( im_name = im_name im_planetype = im_planetype ).
    
68.     max_cargo = im_cargo.
    
69.   ENDMETHOD. "constructor
    
70.   METHOD display_attributes.
    
71.     super->display_attributes( ).
    
72.     WRITE: / 'Max Cargo = ', max_cargo.
    
73.     ULINE.
    
74.   ENDMETHOD. "display_attributes
    
75.   METHOD get_cargo.
    
76.     re_cargo = max_cargo.
    
77.   ENDMETHOD. "get_cargo
    
78. ENDCLASS. "lcl_cargo_plane IMPLEMENTATION
    
79. CLASS lcl_passenger_plane DEFINITION INHERITING FROM lcl_airplane..
    
80.   PUBLIC SECTION.
    
81.     METHODS: constructor IMPORTING im_name      TYPE string
    
82.                                    im_planetype TYPE saplane-planetype
    
83.                                    im_seats     TYPE sflight-seatsmax.
    
84.     METHODS: display_attributes REDEFINITION.
    
85.   PRIVATE SECTION.
    
86.     DATA: max_seats TYPE sflight-seatsmax.
    
87. ENDCLASS. "lcl_passenger_plane DEFINITION
    
88. 
    
89. CLASS lcl_passenger_plane IMPLEMENTATION.
    
90.   METHOD constructor.
    
91.     CALL METHOD super->constructor(
    
92.       EXPORTING
    
93.         im_name      = im_name
    
94.         im_planetype = im_planetype ).
    
95.     max_seats = im_seats.
    
96.   ENDMETHOD. "constructor
    
97.   METHOD display_attributes.
    
98.     super->display_attributes( ).
    
99.     WRITE: / 'Max Seats = ', max_seats.
    
100.     ULINE.
     
101.   ENDMETHOD. "display_attributes
     
102. ENDCLASS. "lcl_passenger_plane IMPLEMENTATION

复制代码

测试结果：