ABAP面向对象
1、类的定义与实现
类定义：
语法：Class <类名> definition.
Public section.
Methods:<方法名> Importing <参数名> type <参数类型>
Exporting <参数名> type <参数类型>.
Endclass.
类实现：
语法：Class <类名> implementation.
Public section.
Method <方法名>.
实现具体代码块.
Endmethod.
Endclass.
2、抽象类
抽象类定义，抽象方法定义，使用Abstract关键字。
示例：
"抽象类定义 "抽象类可以包含静态成员 class-data ,class-methods,class-events "抽象类可以包含非抽象方法 "抽象类可以不定义任何方法 "抽象类 不可以create object 创建实例,但是可以用create object type ref to 创建抽象类引用,并接受子类实例 CLASS base_class DEFINITION ABSTRACT. "抽象类 关键子abstract,基类 PUBLIC SECTION. METHODS:message ABSTRACT "抽象方法 IMPORTING msg TYPE String OPTIONAL. METHODS:sayHello FINAL. "非抽象方法,final方法 METHODS:sayBye. "非抽象方法 ENDCLASS. "抽象类实现，如果抽象类没有非抽象方法，可以没有实现部分 CLASS base_class IMPLEMENTATION. METHOD sayHello. WRITE:/ 'hello world base_class'. ENDMETHOD.
METHOD sayBye. WRITE:/ 'bye bye base_class'. ENDMETHOD. ENDCLASS.
3、类继承
使用super类继承base_class类。使用关键字Inheriting from。
示例：
"super类定义，继承基类 "final 方法： "final类中方法，自动识别为final方法，final类不可以定义abstract方法 "非final类中用 final声明final方法，非final类final方法可以被子类继承，但不能重定义 CLASS super_class DEFINITION INHERITING FROM base_class. "继承 inheriting from PUBLIC SECTION. METHODS: message REDEFINITION. "重定义 * METHODS: sayHello REDEFINITION. "final方法不能重定义,编译报错 METHODS: sayBye REDEFINITION. ENDCLASS. "super类实现 CLASS super_class IMPLEMENTATION. METHOD message. WRITE:/ 'super_class:',msg . ENDMETHOD. "final方法不能在子类中重定义，编译报错 * METHOD sayHello. * MESSAGE s000 WITH 'hello world super_class'. * ENDMETHOD. METHOD sayBye. WRITE:/ 'bye bye super_class'. ENDMETHOD. ENDCLASS.
4、Final关键字
使用Final关键字定义final方法，final类。
示例：
"final类定义 "final类：最终类，关键词fianl，不可以再被继承 "final类可以是抽象类，这种情况只能使用它的静态组件 CLASS final_class DEFINITION FINAL INHERITING FROM super_class. PUBLIC SECTION. METHODS:message REDEFINITION. METHODS:message1 IMPORTING msg TYPE String OPTIONAL. ENDCLASS. CLASS final_class IMPLEMENTATION. METHOD message. "调用父类实现方法 CALL METHOD super->message EXPORTING msg = msg. ENDMETHOD. METHOD message1. "通过me->调用当前类其他方法,相当于this，但不要用me->message1，在当前方法，调用他自身 CALl METHOD me->message EXPORTING msg = msg. ENDMETHOD. ENDCLASS.
5、类实例化与调用
类变量定义：
语法：Data:<变量名> type ref to <类名>.
类对象实例化：
语法：create object <变量名>.
这里的变量名相当于一个对应<类名>的实例化对象。
调用方法：
语法：<变量名>-><方法名>（参数1 = 值 [参数2 = 值]）.
语法：call method <变量名>-><方法名>(参数1 = 值 [参数2 = 值]).
语法：call method <变量名>-><方法名> exporting <参数> = 值
示例：
"程序开始，main函数 START-OF-SELECTION. DATA base_obj TYPE REF TO base_class. "创建基类引用 DATA final_obj TYPE REF TO final_class. "创建子类引用 "创建子类实例 CREATE OBJECT final_obj. "可以将子类直接付给父类或者基类 base_obj = final_obj. "调用方法 base_obj->message('hello base_obj'). base_obj->sayHello( ). "调用的是基类hello方法，因为hello为final方法，父类可以继承，但没有重写 base_obj->sayBye( ). "调用的是父类的bye方法 "也可这样写 CALL METHOD base_obj->message EXPORTING msg = 'hello base_obj 1'. "OO方法动态调用 DATA meth TYPE String. meth = 'MESSAGE1'. CALL METHOD final_obj->(meth) EXPORTING msg = 'hello final_obj message1'.
6、类的构造
ABAP中构造分类实例构造和静态构造。
示例：
"abap构造器 "abap有实例构造和静态构造， "实例构造：constructor: "方法名固定, "每一次创建对象时调用， "子类自定义constructor中，必须调用super->constructor,父类构造 "静态构造：class_constructor: "方法名固定， "只能被系统调用， "类加载时调用一次， "静态构造只能访问类的静态属性 "构造方法不能被继承，所以不能在子类对构造方法redefination "不能直接用call method 调用构造方法，除非是在子类constructor中，调用super->constructor. "实例构造只有输入importing参数没有exporting参数. "静态构造没有参数. "构造方法必须在public部分定义 "构造方法不能是abstract "静态方法不能被子类重写，除了静态构造。 "父类定义 CLASS super_class DEFINITION. PUBLIC SECTION. DATA msg TYPE String. CLASS-METHODS:class_constructor. "静态构造方法，没有参数 METHODS:constructor IMPORTING msg TYPE String OPTIONAL. "实例构造方法，不能有输出参数 ENDCLASS. "父类实现 CLASS super_class IMPLEMENTATION. METHOD class_constructor. WRITE:/ '父类静态构造方法'. ENDMETHOD. METHOD constructor. me->msg = msg. WRITE:/ msg. WRITE:/ '父类实例构造方法'. WRITE:/ '父类开始初始化'. ENDMETHOD. ENDCLASS. "子类定义 CLASS child_class DEFINITION INHERITING FROM super_class. PUBLIC SECTION. DATA msg1 TYPE String. "子类属性 "静态构造重定义 CLASS-METHODS:class_constructor. "除了静态构造可以重写，不可重写其他静态方法。 "实例构造，不能被重写，因为构造方法不能继承， METHODS:constructor IMPORTING msg TYPE String OPTIONAL msg1 TYPE String OPTIONAL. ENDCLASS. "子类实现 CLASS child_class IMPLEMENTATION. METHOD class_constructor. WRITE:/ '子类静态构造'. ENDMETHOD. METHOD constructor. WRITE:/ msg. WRITE:/ '子类实例构造'. "子类如果自定义实例构造，必须先调用父类constructor，将父类初始化 CALL METHOD super->constructor EXPORTING msg = '子类调用父类实例构造方法'. me->msg1 = msg1. WRITE:/ '子类初始化'. ENDMETHOD. ENDCLASS. START-OF-SELECTION. DATA child_obj TYPE REF TO child_class. "创建子类引用 CREATE OBJECT child_obj. "创建子类对象
7、接口定义与实现
使用Interface关键字字定义接口。
语法：Interface.
定义方法、变量.
endinterface.
示例：
"接口定义 INTERFACE inter. "接口没有可见性设定，所有方法，属性都是public METHODS: message IMPORTING msg TYPE String OPTIONAL. DATA:str TYPE String. "常量定义,接口属性不能用value给值，常量可以 CONSTANTS:cons TYPE String VALUE '常量'. ENDINTERFACE. "接口不能使用inheriting from继承， CLASS c1 DEFINITION. PUBLIC SECTION. METHODS:output. "直接在类定义 public中声明使用接口， "使用 ALIASES FOR 为接口中组件赋别名 INTERFACES:inter. ALIASES message0 FOR inter~message. ENDCLASS. CLASS c1 IMPLEMENTATION. METHOD:message0. WRITE:/ msg. ENDMETHOD. METHOD:output. WRITE:/ 'test'. ENDMETHOD. ENDCLASS. CLASS c2 DEFINITION. PUBLIC SECTION. INTERFACES:inter. ENDCLASS. CLASS c2 IMPLEMENTATION. METHOD inter~message. WRITE:/ msg. ENDMETHOD. ENDCLASS. START-OF-SELECTION. DATA inter_obj TYPE REF TO inter. "定义接口引用 DATA c1_obj TYPE REF TO c1. "定义c1类引用 DATA c2_obj TYPE REF TO c2. "定义c2类引用 CREATE OBJECT: c1_obj,c2_obj. "创建类实例 inter_obj = c1_obj. inter_obj->message('c1调用接口'). * inter_obj->output( ). "调用失败，因为c1新定义组件对接口是不可见的 inter_obj = c2_obj. inter_obj->message('c2调用接口'). "调用method写法 * CALL METHOD inter_obj->message('c2调用接口'). * CALL METHOD inter_obj->message * EXPORTING * msg = 'c2调用接口'. * "传入多个参数 * "inter_obj->message(p1 = '' p2 = '' …………).