OO实现ALV TABLE 三：ALV的功能设计[转]

细心的读者肯定已经注意前面的两个例子少了点什么,少了ALV提供的标准功能,比如排序,过滤,汇总,等,以及用户可以在ALV的功能栏上加上自己自定义的功能按钮。

ALV的标准功能可以通过类CL_SALV_FUNCTIONS和CL_SALV_FUNCTION来设计,通过这两个类你可以对ALV提供的标准功能可见或不可见。也可以自己创建GUI STATUS设置自己的ALV功能，通过GUI STATUS来设置ALV的功能是通过类CL_SALV_TABLE的方法SET_SCREEN_STATUS来实现的。

1.首先我们要取得类CL_SALV_FUNCTIONS的实例，根据类CL_SALV_TABLE的方法get_functions可以取得功能实例。

lr_functions = gr_table->get_functions( ).

lr_functions->set_all( 'X' ).

2根据类CL_SALV_TABLE的方法设置功能栏。

gr_table->set_screen_status(

pfstatus = 'SALV_STANDARD'

report = sy-repid

set_functions = gr_table->c_functions_all ).

3.自定义功能的实现。ALV的自定义功能的实现动作要通过类的事件来处理。

Ø 首先定义事件的操作类

CLASS lcl_handle_events DEFINITION.

PUBLIC SECTION.

CLASS-METHODS: on_user_command FOR EVENT added_function OF cl_salv_events

IMPORTING e_salv_function.

ENDCLASS. "lcl_handle_events DEFINITION

Ø 实现事件的操作类

CLASS lcl_handle_events IMPLEMENTATION.

METHOD on_user_command.

DATA l_string TYPE string.

CONCATENATE 'Function is ' e_salv_function

INTO l_string

SEPARATED BY space.

MESSAGE i000(0k) WITH l_string.

ENDMETHOD. "on_user_command

ENDCLASS. "lcl_handle_events IMPLEMENTATION

Ø 注册事件

SET HANDLER lcl_handle_events=>on_user_command FOR lr_events.

下面是效果图

下面是程序的所有代码:

REPORT y_xin_002.

*变量定义

TYPES ty_spfli TYPE spfli OCCURS 0.

DATA: gr_table TYPE REF TO cl_salv_table.

*----------------------------------------------------------------------*

* CLASS lcl_handle_events DEFINITION

*----------------------------------------------------------------------*

* 事件处理类（定义）

*----------------------------------------------------------------------*

CLASS lcl_handle_events DEFINITION.

PUBLIC SECTION.

CLASS-METHODS: on_user_command FOR EVENT added_function OF cl_salv_events

IMPORTING e_salv_function.

ENDCLASS. "lcl_handle_events DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_handle_events IMPLEMENTATION

*----------------------------------------------------------------------*

* 事件处理类（实现）

*----------------------------------------------------------------------*

CLASS lcl_handle_events IMPLEMENTATION.

METHOD on_user_command.

DATA l_string TYPE string.

CONCATENATE 'Function is ' e_salv_function

INTO l_string

SEPARATED BY space.

MESSAGE i000(0k) WITH l_string.

ENDMETHOD. "on_user_command

ENDCLASS. "lcl_handle_events IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS lcl_alv DEFINITION

*----------------------------------------------------------------------*

* ALV操作类（定义）

*----------------------------------------------------------------------*

CLASS lcl_alv DEFINITION.

PUBLIC SECTION.

METHODS: getdata "取得要显示的数据

RETURNING value(lt_tab) TYPE ty_spfli,

alv_full "全屏Grid列表处理方法

IMPORTING value(lt_tab) TYPE ty_spfli,

main. "主方法

ENDCLASS. "lcl_alv DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_alv IMPLEMENTATION

*----------------------------------------------------------------------*

* ALV操作类（实现）

*----------------------------------------------------------------------*

CLASS lcl_alv IMPLEMENTATION.

*取得要显示的数据

METHOD getdata.

SELECT * INTO TABLE lt_tab FROM spfli.

ENDMETHOD. "getdata

*输出全屏网格列表的方法

METHOD alv_full.

DATA: lr_functions TYPE REF TO cl_salv_functions,

lr_events TYPE REF TO cl_salv_events.

"创建实例

TRY.

cl_salv_table=>factory(

IMPORTING

r_salv_table = gr_table

CHANGING

t_table = lt_tab

).

CATCH cx_salv_msg.

ENDTRY.

lr_events = gr_table->get_event( ).

"设置ALV功能

gr_table->set_screen_status(

pfstatus = 'SALV_STANDARD'

report = sy-repid

set_functions = gr_table->c_functions_all ).

"注册事件

SET HANDLER lcl_handle_events=>on_user_command FOR lr_events.

"显示列表

gr_table->display( ).

ENDMETHOD. "alv_full

*主方法，整合数据

METHOD main.

DATA: lt_tab TYPE TABLE OF spfli.

"取得要显示的数据

lt_tab = me->getdata( ).

me->alv_full( lt_tab ).

ENDMETHOD. "main

ENDCLASS. "lcl_alv IMPLEMENTATION

*报表执行

START-OF-SELECTION.

DATA lr_alv TYPE REF TO lcl_alv.

CREATE OBJECT lr_alv.

lr_alv->main( ).