ABAP面向对象设计模式--单例模式（Singleton Design Pattern）

单例模式：基本概念是一个类只生成一个实例。

Singleton应用场景还是很多的，举个例子：一个公司中一个员工只能创建一个对象，薪资、基本资料等只能在一个对象中。

实现代码：

CLASS lcl_employee DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS:get_employee_instance RETURNING VALUE(ro_employee) TYPE REF TO lcl_employee.
METHODS:set_name IMPORTING iv_name TYPE char20,
get_name RETURNING VALUE(rv_name) TYPE char20.
PRIVATE SECTION.
CLASS-DATA:lo_employee TYPE REF TO lcl_employee.
DATA:v_name TYPE char20.
ENDCLASS.
CLASS lcl_employee IMPLEMENTATION.
METHOD: get_employee_instance.
IF lo_employee IS INITIAL.
CREATE OBJECT lo_employee.
ENDIF.
ro_employee = lo_employee.
ENDMETHOD.
METHOD set_name.
me->v_name = iv_name.
ENDMETHOD.
METHOD get_name.
rv_name = me->v_name.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lo_emp TYPE REF TO lcl_employee.
DATA: lv_result TYPE char20.
WRITE:/ 'first employee'.
lo_emp = lcl_employee=>get_employee_instance( ).
lo_emp->set_name('Twilight.Liu').
lv_result = lo_emp->get_name( ).
WRITE:/ lv_result.
CLEAR lv_result.
SKIP 2.
WRITE:/ 'seconds employee'.
DATA: lo_emp_seconds TYPE REF TO lcl_employee.
lo_emp_seconds = lcl_employee=>get_employee_instance( ).
lv_result = lo_emp_seconds->get_name( ).
WRITE:/ lv_result.

复制代码

执行结果：

CREATE PRIVATE 表示：只能在类本身方法或其友元的方法中实例化。这尤其意味着它不能作为子类的继承组件实例化。

新人，还没学到类

私有属性和保护不能被继承，但是这还是没有体现出这和题目以及文章有任何关系。就是先Set，再Get，当然只能找到一条。你又没有存储。或者说多个用户的时候，如何保证整个Sap会共享这个功能。

z3765295 发表于 2018-4-18 11:43
私有属性和保护不能被继承，但是这还是没有体现出这和题目以及文章有任何关系。就是先Set，再Get，当然只能 ...

虽然定义了两个参考应用lo_emp、lo_emp_seconds，但都是指向同一个对象，没有生成多个对象

Twilight 发表于 2018-4-18 21:48
虽然定义了两个参考应用lo_emp、lo_emp_seconds，但都是指向同一个对象，没有生成多个对象
...

你要用一个工作区去解决这个东西，比你这还快呢，而且还是一个工作区。而且也是单例，不能被继承。哈哈

[面向对象] ABAP面向对象设计模式--单例模式（Singleton Design Pattern）