abap面向对象中的继承使用教程

使用继承创建一般化/特殊化关系：一个子类可以继承父类的所有主要特征。子类还可以添加新组件（属性、方法等），并用继承方法替换父类的实施。

练习5  使用继承
1、将类lcl_airplane里的私有区域，改为保护的区域，便于子类访问
2、建立包含程序ZBC10_EX_MAIN_AIRPLANE_B，定义子类lcl_passenger_plane，子类中要定义三个东西  
私有实例属性：max_seats  类型  sflight-seatsmax
构造函数：要为所有的属性赋值
重新定义display_arrtibutes，wirte语句输出所有的属性
3、建立子类 lcl_cargo_plane 包含以下属性和方法
（1）私有实例属性：max_cargo  类型 saplane-cargomax
（2）重写的构造函数
（3）重新定义display_attributes方法
4、到主程序中，建立这两个字类的实例，并在每次建立之前调用display_n_o_aieplanes静态方法
调用display_attributes

程序执行效果：

主程序代码：

1. REPORT  ZBC10_EX_5.  "构造函数  主要用来在创建对象时初始化对象 即为对象成员变量赋初始值  重载
   
2. INCLUDE ZBC10_EX_A_5.
   
3. INCLUDE ZBC10_EX_B_5.
   
4. INCLUDE ZBC10_EX_C_5.
   
5. 
   
6. DATA:R_AIRPLANE TYPE REF TO LCL_AIRPLANE, "相当于结构
   
7.      RT_AIRPLANE TYPE TABLE OF REF TO LCL_AIRPLANE. "相当于内表
   
8. 
   
9. START-OF-SELECTION. "面向对象必须写，面向过程可以不写
   
10.   CALL METHOD LCL_AIRPLANE=>DISPLAY_N_O_AIRPLANES( ).  "静态方法DISPLAY_N_O_AIRPLANES
    
11.   CREATE OBJECT R_AIRPLANE EXPORTING IM_NAME = '001'
    
12.                                      IM_PLANETYPE = '747-400'.
    
13. *  R_AIRPLANE->SET_ATTRIBUTES( IM_NAME = '001' IM_PLANETYPE = '747-400' ). "对象的方法SET_ATTRIBUTES( )
    
14.   APPEND R_AIRPLANE TO RT_AIRPLANE.
    
15. 
    
16.   CALL METHOD LCL_AIRPLANE=>DISPLAY_N_O_AIRPLANES( ).
    
17.   CREATE OBJECT R_AIRPLANE EXPORTING IM_NAME = '002'
    
18.                                      IM_PLANETYPE = '747-500'.
    
19. *  R_AIRPLANE->SET_ATTRIBUTES( IM_NAME = '002' IM_PLANETYPE = '747-500' ).
    
20.   APPEND R_AIRPLANE TO RT_AIRPLANE.
    
21. 
    
22.   LOOP AT RT_AIRPLANE INTO R_AIRPLANE.
    
23.     R_AIRPLANE->DISPLAY_ATTRIBUTES( ).
    
24.   ENDLOOP.
    
25. 
    
26. *--------------------------------------------------------------------*
    
27. *  子类实施
    
28. *--------------------------------------------------------------------*
    
29. DATA: R_PASSENGER_PLANE TYPE REF TO LCL_PASSENGER_PLANE.
    
30. DATA: R_CARGO_PLANE TYPE REF TO LCL_CARGO_PLANE.
    
31. 
    
32. CREATE OBJECT R_PASSENGER_PLANE EXPORTING IM_NAME = '003'
    
33.                                           IM_PLANETYPE = '747-400'
    
34.                                           IM_MAXSEATS = '200'.
    
35. R_PASSENGER_PLANE->DISPLAY_ATTRIBUTES( ).
    
36. 
    
37. CREATE OBJECT R_CARGO_PLANE EXPORTING IM_NAME = '004'
    
38.                                       IM_PLANETYPE = '747-400'
    
39.                                       IM_MAXCARGO = '300'.
    
40. R_CARGO_PLANE->DISPLAY_ATTRIBUTES( ).

复制代码

INCLUDE ZBC10_EX_A_5.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZBC10_EX_A
   
3. *&---------------------------------------------------------------------*
   
4. CLASS LCL_AIRPLANE DEFINITION.
   
5.   PUBLIC SECTION.
   
6.     METHODS:CONSTRUCTOR IMPORTING IM_NAME TYPE  STRING
   
7.                                   IM_PLANETYPE TYPE SAPLANE-PLANETYPE.
   
8.     CLASS-METHODS:DISPLAY_N_O_AIRPLANES.
   
9.     METHODS:DISPLAY_ATTRIBUTES.
   
10.   PROTECTED SECTION.
    
11.     DATA:NAME TYPE  STRING,
    
12.          PLANETYPE TYPE SAPLANE-PLANETYPE.
    
13.     CLASS-DATA:N_0_ARIPLANES TYPE I.
    
14.     METHODS:GET_TECHNICAL_ATTRIBUTES IMPORTING IM_TYPE TYPE SAPLANE-PLANETYPE
    
15.                                      EXPORTING EX_WEIGHT  TYPE S_PLAN_WEI
    
16.                                                EX_TANKCAP TYPE   S_CAPACITY.
    
17. ENDCLASS.                    "LCL_AIRPLANE DEFINITION
    
18. 
    
19. *----------------------------------------------------------------------*
    
20. *       CLASS LCL_AIRPLANE IMPLEMENTATION
    
21. *----------------------------------------------------------------------*
    
22. *
    
23. *----------------------------------------------------------------------*
    
24. CLASS LCL_AIRPLANE IMPLEMENTATION.
    
25.   METHOD CONSTRUCTOR.
    
26.     NAME = IM_NAME.
    
27.     PLANETYPE = IM_PLANETYPE.
    
28.     N_0_ARIPLANES = N_0_ARIPLANES + 1.
    
29.   ENDMETHOD.                    "SET_ATTRIBUTES
    
30.   METHOD DISPLAY_N_O_AIRPLANES.
    
31.     WRITE: / 'Number of airplanes:',N_0_ARIPLANES.
    
32.   ENDMETHOD.                    "DISPLAY_N_O_AIRPLANES
    
33.   METHOD DISPLAY_ATTRIBUTES.
    
34.     DATA:WEIGHT  TYPE S_PLAN_WEI,
    
35.          TANKCAP TYPE   S_CAPACITY.
    
36.     ME->GET_TECHNICAL_ATTRIBUTES( EXPORTING IM_TYPE = PLANETYPE    "在类里引用自身的方法用ME  这里的EXPORTING相当于IMPORTING 相反的
    
37.                                   IMPORTING EX_WEIGHT = WEIGHT
    
38.                                             EX_TANKCAP = TANKCAP ).
    
39.     WRITE: / 'name',NAME,'planetype',PLANETYPE,'weight',WEIGHT,'tankcap',TANKCAP.
    
40.   ENDMETHOD.                    "display_attributes
    
41.   METHOD GET_TECHNICAL_ATTRIBUTES.
    
42.     SELECT SINGLE WEIGHT TANKCAP
    
43.       INTO (EX_WEIGHT,EX_TANKCAP)
    
44.       FROM SAPLANE
    
45.       WHERE PLANETYPE = IM_TYPE.
    
46.     IF SY-SUBRC NE 0.
    
47.       EX_WEIGHT = 0.
    
48.       EX_TANKCAP = 0.
    
49.     ENDIF.
    
50.   ENDMETHOD.                    "GET_TECHNICAL_ATTRIBUTES
    
51. ENDCLASS.                    "LCL_AIRPLANE IMPLEMENTATION

复制代码

INCLUDE ZBC10_EX_B_5.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZBC10_EX_B_5
   
3. *&---------------------------------------------------------------------*
   
4. CLASS LCL_PASSENGER_PLANE DEFINITION INHERITING FROM LCL_AIRPLANE.
   
5.   PUBLIC SECTION.
   
6.     METHODS:CONSTRUCTOR IMPORTING IM_NAME TYPE  STRING
   
7.                                   IM_PLANETYPE TYPE SAPLANE-PLANETYPE
   
8.                                   IM_MAXSEATS TYPE  SAPLANE-SEATSMAX.
   
9.     METHODS DISPLAY_ATTRIBUTES REDEFINITION.
   
10.   PRIVATE SECTION.
    
11.     DATA:  MAXSEATS TYPE SAPLANE-SEATSMAX.
    
12. 
    
13. ENDCLASS.                    "lcl_passenger_plane DEFINITION
    
14. CLASS LCL_PASSENGER_PLANE IMPLEMENTATION.
    
15.   METHOD CONSTRUCTOR.
    
16.     SUPER->CONSTRUCTOR( IM_NAME = IM_NAME IM_PLANETYPE = IM_PLANETYPE ).
    
17.     MAXSEATS = IM_MAXSEATS.
    
18.   ENDMETHOD.
    
19.   METHOD DISPLAY_ATTRIBUTES.
    
20.    SUPER->DISPLAY_ATTRIBUTES( ).
    
21.    WRITE: 'MAXSEAT',MAXSEATS.
    
22.   ENDMETHOD.
    
23. ENDCLASS.

复制代码

INCLUDE ZBC10_EX_C_5.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZBC10_EX_C_5
   
3. *&---------------------------------------------------------------------*
   
4. CLASS LCL_CARGO_PLANE DEFINITION INHERITING FROM LCL_AIRPLANE.
   
5.   PUBLIC SECTION.
   
6.     METHODS:CONSTRUCTOR IMPORTING IM_NAME TYPE  STRING
   
7.                                   IM_PLANETYPE TYPE SAPLANE-PLANETYPE
   
8.                                   IM_MAXCARGO TYPE  SAPLANE-CAP_UNIT.
   
9.     METHODS DISPLAY_ATTRIBUTES REDEFINITION.
   
10.   PRIVATE SECTION.
    
11.     DATA:MAX_CARGO TYPE SAPLANE-CAP_UNIT.
    
12. 
    
13. ENDCLASS.                    "lcl_cargo_plane DEFINITION
    
14. *----------------------------------------------------------------------*
    
15. *       CLASS LCL_CARGO_PLANE IMPLEMENTATION
    
16. *----------------------------------------------------------------------*
    
17. *
    
18. *----------------------------------------------------------------------*
    
19. CLASS LCL_CARGO_PLANE IMPLEMENTATION.
    
20.   METHOD CONSTRUCTOR.
    
21.     SUPER->CONSTRUCTOR( IM_NAME = IM_NAME IM_PLANETYPE = IM_PLANETYPE ).
    
22.     MAX_CARGO = IM_MAXCARGO.
    
23.   ENDMETHOD.                    "CONSTRUCTOR
    
24.   METHOD DISPLAY_ATTRIBUTES.
    
25.     SUPER->DISPLAY_ATTRIBUTES( ).
    
26.     WRITE: 'MAXCARGO',MAX_CARGO.
    
27.   ENDMETHOD.                    "DISPLAY_ATTRIBUTES
    
28. ENDCLASS.                    "LCL_CARGO_PLANE IMPLEMENTATION

复制代码