第二节:boss类的实现
*&---------------------------------------------------------------------*
*& Include ZBOBO_OO_BOSS_CLASS
*&---------------------------------------------------------------------*
*定义boss类,该类从employee中继承
CLASS BOSS DEFINITION INHERITING FROM EMPLOYEE.
PUBLIC SECTION.
METHODS:
*定义构造函数,初始化对象
CONSTRUCTOR IMPORTING BOSS_A TYPE STRING
BOSS_B TYPE STRING
S TYPE F,
*定义boss类的方法(setter方法)
SETWEEKLYSALARY IMPORTING WS TYPE F,
*实现基类中的抽象方法,因为boss类有自己的工资结构
*所以在此部分实现
EARNINGS REDEFINITION,
PRINT REDEFINITION.
PRIVATE SECTION.
DATA:
WEEKLYSALARY TYPE F.
ENDCLASS.
CLASS BOSS IMPLEMENTATION.
METHOD CONSTRUCTOR.
*调用父类的构造函数
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING A = BOSS_A
B = BOSS_B.
*根据新的传入变量,设置boss类私有实例变量
WEEKLYSALARY = S.
ENDMETHOD.
*setter方法的实现
METHOD SETWEEKLYSALARY.
WEEKLYSALARY = WS.
ENDMETHOD.
*定义工资以及输出的实现
METHOD EARNINGS.
EARN = WEEKLYSALARY.
ENDMETHOD.
METHOD PRINT.
DATA: FIRST TYPE STRING,
LAST TYPE STRING.
FIRST = GETFIRSTNAME( ).
LAST = ME->GETLASTNAME( ).
WRITE: / 'Boss name is:',LAST,FIRST.
ENDMETHOD.
ENDCLASS.
*& Include ZBOBO_OO_BOSS_CLASS
*&---------------------------------------------------------------------*
*定义boss类,该类从employee中继承
CLASS BOSS DEFINITION INHERITING FROM EMPLOYEE.
PUBLIC SECTION.
METHODS:
*定义构造函数,初始化对象
CONSTRUCTOR IMPORTING BOSS_A TYPE STRING
BOSS_B TYPE STRING
S TYPE F,
*定义boss类的方法(setter方法)
SETWEEKLYSALARY IMPORTING WS TYPE F,
*实现基类中的抽象方法,因为boss类有自己的工资结构
*所以在此部分实现
EARNINGS REDEFINITION,
PRINT REDEFINITION.
PRIVATE SECTION.
DATA:
WEEKLYSALARY TYPE F.
ENDCLASS.
CLASS BOSS IMPLEMENTATION.
METHOD CONSTRUCTOR.
*调用父类的构造函数
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING A = BOSS_A
B = BOSS_B.
*根据新的传入变量,设置boss类私有实例变量
WEEKLYSALARY = S.
ENDMETHOD.
*setter方法的实现
METHOD SETWEEKLYSALARY.
WEEKLYSALARY = WS.
ENDMETHOD.
*定义工资以及输出的实现
METHOD EARNINGS.
EARN = WEEKLYSALARY.
ENDMETHOD.
METHOD PRINT.
DATA: FIRST TYPE STRING,
LAST TYPE STRING.
FIRST = GETFIRSTNAME( ).
LAST = ME->GETLASTNAME( ).
WRITE: / 'Boss name is:',LAST,FIRST.
ENDMETHOD.
ENDCLASS.
