ABAP面向对象设计模式--MVC（Model View Controller）

MVC是一种软件设计模式，已经被Java、PHP等语言大量使用。MVC设计模式含义：Model模型，指取数处理逻辑；View视图，指数据输出；Controller控制器，用来将Model和View连接起来。其优势明显：将View前端设计和Model后端逻辑处理设计分开，在团队开发时，可以同时开发提高效率，其次 Model提高了代码复用率。
在大而复杂的应用程序开发可以采用这种模式，小应用就浪费时间了。

举例说明：数据库取出数据，通过ALV、SmartForm、Fiori输出，这里取数处理的逻辑都是一样的，可以共用一个Model，三个View，然后用Controller将他们连接控制起来。
1、Model类
GET_DATA方法Importing参数IR_ERDAT TYPE TPMY_R_DATE

1.   METHOD get_data.
   
2. 
   
3.     SELECT *
   
4.     FROM vbak
   
5.     INTO  TABLE t_vbak
   
6.     WHERE erdat IN ir_erdat.
   
7. 
   
8.   ENDMETHOD.

复制代码

2、Controller类
GET_OBJECT方法Importing参数IF_NAME TYPE CHAR30

1.   METHOD get_object.
   
2. 
   
3.     DATA: lo_object TYPE REF TO object.
   
4. 
   
5.     CREATE OBJECT lo_object TYPE (if_name).
   
6.     IF sy-subrc = 0.
   
7. *   Downcasting to assign generic object to O_MODEL
   
8.       o_model ?= lo_object.
   
9.     ENDIF.
   
10. 
    
11.   ENDMETHOD.

复制代码

3、ALV输出调用代码：

1. REPORT y001.
   
2. 
   
3. START-OF-SELECTION.
   
4. *--------------------------------------------------------------------*
   
5. * Controller
   
6. *--------------------------------------------------------------------*
   
7.   DATA: lo_control TYPE REF TO zcl_control.
   
8. 
   
9. * Iniiate controller
   
10.   CREATE OBJECT lo_control.
    
11. 
    
12. * Get the object from Control
    
13.   CALL METHOD lo_control->get_object
    
14.     EXPORTING
    
15.       if_name = 'ZCL_MODEL'.
    
16. 
    
17. *--------------------------------------------------------------------*
    
18. * Model - Business Logic
    
19. *--------------------------------------------------------------------*
    
20. * Date Range
    
21.   DATA: r_erdat  TYPE RANGE OF vbak-erdat,
    
22.         la_erdat LIKE LINE OF r_erdat.
    
23. 
    
24.   la_erdat-sign = 'I'.
    
25.   la_erdat-option = 'BT'.
    
26.   la_erdat-low = sy-datum - 10.
    
27.   la_erdat-high = sy-datum.
    
28.   APPEND la_erdat TO r_erdat.
    
29. 
    
30. * Get data method
    
31.   CALL METHOD lo_control->o_model->get_data
    
32.     EXPORTING
    
33.       ir_erdat = r_erdat.
    
34. *
    
35. *--------------------------------------------------------------------*
    
36. * View - ALV output
    
37. *--------------------------------------------------------------------*
    
38.   DATA: lo_alv TYPE REF TO cl_salv_table.
    
39. 
    
40.   DATA: lx_msg TYPE REF TO cx_salv_msg.
    
41.   TRY.
    
42.       cl_salv_table=>factory(
    
43.         IMPORTING
    
44.           r_salv_table = lo_alv
    
45.         CHANGING
    
46.           t_table      = lo_control->o_model->t_vbak ).
    
47.     CATCH cx_salv_msg INTO lx_msg.
    
48.   ENDTRY.
    
49. 
    
50. * Displaying the ALV
    
51.   lo_alv->display( ).

复制代码

4、SmartForm输出调用代码：

1. REPORT y002.
   
2. 
   
3. START-OF-SELECTION.
   
4. *--------------------------------------------------------------------*
   
5. * Controller
   
6. *--------------------------------------------------------------------*
   
7.   DATA: lo_control TYPE REF TO zcl_control.
   
8. 
   
9. * Iniiate controller
   
10.   CREATE OBJECT lo_control.
    
11. *
    
12. * Get the object from Control
    
13.   CALL METHOD lo_control->get_object
    
14.     EXPORTING
    
15.       if_name = 'ZCL_MODEL'.
    
16. 
    
17. *--------------------------------------------------------------------*
    
18. * Model - Business Logic
    
19. *--------------------------------------------------------------------*
    
20. * Date Range
    
21.   DATA: r_erdat  TYPE RANGE OF vbak-erdat,
    
22.         la_erdat LIKE LINE OF r_erdat.
    
23. 
    
24.   la_erdat-sign = 'I'.
    
25.   la_erdat-option = 'BT'.
    
26.   la_erdat-low = sy-datum - 10.
    
27.   la_erdat-high = sy-datum.
    
28.   APPEND la_erdat TO r_erdat.
    
29. 
    
30. * Get data method
    
31.   CALL METHOD lo_control->o_model->get_data
    
32.     EXPORTING
    
33.       ir_erdat = r_erdat.
    
34. *
    
35. *--------------------------------------------------------------------*
    
36. * View - Smartform Output
    
37. *--------------------------------------------------------------------*
    
38. * Smartform FM
    
39.   DATA: l_form TYPE tdsfname VALUE 'ZTEST_MVC',
    
40.         l_fm   TYPE rs38l_fnam.
    
41. 
    
42.   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    
43.     EXPORTING
    
44.       formname           = l_form
    
45.     IMPORTING
    
46.       fm_name            = l_fm
    
47.     EXCEPTIONS
    
48.       no_form            = 1
    
49.       no_function_module = 2
    
50.       OTHERS             = 3.
    
51. 
    
52. * calling Smartform FM
    
53.   DATA: ls_control  TYPE ssfctrlop.  " Controlling info
    
54.   DATA: ls_composer TYPE ssfcompop.  " Output info
    
55. *
    
56.   CALL FUNCTION l_fm
    
57.     EXPORTING
    
58.       control_parameters = ls_control
    
59.       output_options     = ls_composer
    
60.       user_settings      = ' '
    
61.       t_vbak             = lo_control->o_model->t_vbak
    
62.     EXCEPTIONS
    
63.       formatting_error   = 1
    
64.       internal_error     = 2
    
65.       send_error         = 3
    
66.       user_canceled      = 4
    
67.       OTHERS             = 5.
    
68.   IF sy-subrc <> 0.
    
69.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
70.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
71.   ENDIF.

复制代码

感觉用mvc最好的就是Asp.Net MVC了，因为我只用过这个。

Kd330 发表于 2018-1-18 11:27
感觉用mvc最好的就是Asp.Net MVC了，因为我只用过这个。

你说的是MVC框架吧，这里是设计模式

楼主用过Fiori？用Fiori 做地图导航，是否可以？MVC架构