SAP屏幕设计器专题：树控件的使用（九）

SAP梦心

发布于 2022-05-09 13:18:58

5760

发布于 2022-05-09 13:18:58

文章被收录于专栏：SAP梦心的SAP分享

在SAP的标准画面中，树控件都是随处可见，在一些特殊的应用中更有用处，显得专业。

在SE51设计界面里，并没有直观的树控件，只是一个容器，要实现树功能还得在程序中用面向对象的方法实现。

本文就简要介绍一下应用。

定义部分：

*内表部分

DATA:IT_TREE LIKE STANDARD TABLE OF ZOA_REG WITH HEADER LINE.
 DATA IT_TREE1 LIKE IT_TREE.
 FIELD-SYMBOLS <FS1>  LIKE LINE OF IT_TREE.

 *   ----->TREE

CLASS LCL_APPLICATION DEFINITION DEFERRED.
 CLASS CL_GUI_CFW DEFINITION LOAD.
 TYPES: NODE_TABLE_TYPE LIKE STANDARD TABLE OF MTREESNODE
 WITH DEFAULT KEY.
 DATA:NODE_TABLE TYPE NODE_TABLE_TYPE .
 * CAUTION: MTREESNODE IS THE NAME OF THE NODE STRUCTURE WHICH MUST
 * BE DEFINED BY THE PROGRAMMER. DO NOT USE MTREESNODE!
 DATA: G_APPLICATION TYPE REF TO LCL_APPLICATION,
       G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       G_TREE TYPE REF TO CL_GUI_SIMPLE_TREE.
 DATA: G_EVENT(30),
       G_NODE_KEY TYPE TV_NODEKEY.
 
 *文本控件
 DATA:USERNO(20),
      USERNAME(20),
      PASSWORD(20),
      BRANCH(20),
 UNIT(20),
      MAIL(20),
      TDATE(20),
      SEX(20),
      NOQUIT,
      QUIT.

2、状态及功能

*&---------------------------------------------------------------------*
 *&      MODULE  STATUS_0100  OUTPUT
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 MODULE STATUS_0100 OUTPUT.
 SET PF-STATUS 'PFSTATUS'.
 SET TITLEBAR 'TITLE'.
 
 ENDMODULE.                 " STATUS_0100  OUTPUT
 *&---------------------------------------------------------------------*
 *&      MODULE  USER_COMMAND_0100  INPUT
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 MODULE USER_COMMAND_0100 INPUT.
 CASE SY-UCOMM.
 WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
 LEAVE.
 ENDCASE.
 ENDMODULE.                 " USER_COMMAND_0100  INPUT
3、定义双击事件的定义和方法体：

 *----------------------------------------------------------------------*
 *       CLASS LCL_APPLICATION DEFINITION
 *----------------------------------------------------------------------*
 *
 *----------------------------------------------------------------------*
 CLASS LCL_APPLICATION DEFINITION.
 
 PUBLIC SECTION.
 METHODS:
     HANDLE_NODE_DOUBLE_CLICK
 FOR EVENT NODE_DOUBLE_CLICK
 OF CL_GUI_SIMPLE_TREE
 IMPORTING NODE_KEY.
 
 ENDCLASS.                    "LCL_APPLICATION DEFINITION
 
 *----------------------------------------------------------------------*
 *       CLASS LCL_APPLICATION IMPLEMENTATION
 *----------------------------------------------------------------------*
 *
 *----------------------------------------------------------------------*
 CLASS LCL_APPLICATION IMPLEMENTATION.
 
 METHOD  HANDLE_NODE_DOUBLE_CLICK.
 FIELD-SYMBOLS : <NODE> TYPE mtreesnode.
 
 " THIS METHOD HANDLES THE NODE DOUBLE CLICK EVENT OF THE TREE
 " CONTROL INSTANCE
 
 READ TABLE NODE_TABLE ASSIGNING <NODE>
 WITH KEY NODE_KEY =  NODE_KEY .
 
 IF NODE_KEY  CS 'ZOA_REG'.                  "點擊父節點不做處理
 MESSAGE <NODE>-TEXT TYPE 'I'.
 ENDIF.
 
 READ TABLE IT_TREE INTO IT_TREE1 WITH KEY USERNO = <NODE>-TEXT.
 IF SY-SUBRC = 0.
       USERNO =  IT_TREE1-USERNO.
 "USERNAME =  IT_TREE1-NAME.
       PASSWORD =  IT_TREE1-PASS.
       BRANCH = IT_TREE1-BRANCH.
 UNIT =  IT_TREE1-UNIT.
       MAIL =  IT_TREE1-MAIL.
       TDATE =  IT_TREE1-TDATE.
       SEX =  IT_TREE1-SEX.
 
 IF IT_TREE1-STATE  = '在职'.
         NOQUIT = 'X'.
         QUIT = ''.
 ELSE.
         NOQUIT = ''.
         QUIT = 'X'.
 ENDIF.
 ELSE.
 MESSAGE NODE_KEY TYPE 'I'.
 ENDIF.
 ENDMETHOD.                    "HANDLE_NODE_DOUBLE_CLICK
 ENDCLASS.                    "LCL_APPLICATION IMPLEMENTATION
4、定义填充TREE控件的节点

 *&---------------------------------------------------------------------*
 *&      FORM  GET_PRO_ITEM
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 *  -->  P1        TEXT
 *  <--  P2        TEXT
 *----------------------------------------------------------------------*
 FORM GET_PRO_ITEM .
 PERFORM GET_DATA .
 IF G_TREE IS INITIAL.
 PERFORM CREATE_AND_INIT_TREE.
 ENDIF.
 ENDFORM.                    " GET_PRO_ITEM
 
 *&---------------------------------------------------------------------*
 *&      FORM  CREATE_AND_INIT_TREE
 *&---------------------------------------------------------------------*
 *       初始化树
 *----------------------------------------------------------------------*
 *  -->  P1        TEXT
 *  <--  P2        TEXT
 *----------------------------------------------------------------------*
 FORM CREATE_AND_INIT_TREE .
 
 DATA:  EVENTS TYPE CNTL_SIMPLE_EVENTS,
 EVENT TYPE CNTL_SIMPLE_EVENT.
 
 * CREATE A CONTAINER FOR THE TREE CONTROL
 CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING " THE CONTAINER IS LINKED TO THE CUSTOM CONTROL WITH THE
 " NAME 'TREE_CONTAINER' ON THE DYNPRO
     CONTAINER_NAME              = 'THE_TREE'          "填充到画面上的容器里
 EXCEPTIONS
     CNTL_ERROR                  = 1
     CNTL_SYSTEM_ERROR           = 2
     CREATE_ERROR                = 3
     LIFETIME_ERROR              = 4
     LIFETIME_DYNPRO_DYNPRO_LINK = 5.
 
 
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 
 * CREATE A TREE CONTROL
 CREATE OBJECT G_TREE
 EXPORTING
       PARENT                      = G_CUSTOM_CONTAINER
       NODE_SELECTION_MODE         = CL_GUI_SIMPLE_TREE=>NODE_SEL_MODE_SINGLE   "单选模式
 EXCEPTIONS
       LIFETIME_ERROR              = 1" SINGLE NODE SELECTIONIS USED
       CNTL_SYSTEM_ERROR           = 2
       CREATE_ERROR                = 3
       FAILED                      = 4
       ILLEGAL_NODE_SELECTION_MODE = 5.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 
 * DEFINE THE EVENTS WHICH WILL BE PASSED TO THE BACKEND
 " NODE DOUBLE CLICK
 EVENT-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_DOUBLE_CLICK.  "定义双击事件
 EVENT-APPL_EVENT = 'X'. " PROCESS PAI IF EVENT OCCURS
 APPEND EVENT TO EVENTS.
 
 CALL METHOD G_TREE->SET_REGISTERED_EVENTS
 EXPORTING
 EVENTS                    = EVENTS
 EXCEPTIONS
       CNTL_ERROR                = 1
       CNTL_SYSTEM_ERROR         = 2
       ILLEGAL_EVENT_COMBINATION = 3.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 
 * ASSIGN EVENT HANDLERS IN THE APPLICATION CLASS TO EACH DESIRED EVENT
 CREATE OBJECT G_APPLICATION.
 SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR G_TREE.   "实现双击
 
 PERFORM BUILD_NODE_TABLE USING NODE_TABLE.    "填充树的节点
 
 CALL METHOD G_TREE->ADD_NODES
 EXPORTING
       TABLE_STRUCTURE_NAME           = 'MTREESNODE'
       NODE_TABLE                     = NODE_TABLE
 EXCEPTIONS
       FAILED                         = 1
       ERROR_IN_NODE_TABLE            = 2
       DP_ERROR                       = 3
       TABLE_STRUCTURE_NAME_NOT_FOUND = 4
 OTHERS                         = 5.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 
 *設置TREE CONTROL中的節點默認為展開狀態
 CALL METHOD G_TREE->EXPAND_NODE
 EXPORTING
     NODE_KEY            = G_NODE_KEY
 *      LEVEL_COUNT         =
 *      EXPAND_SUBTREE      =
 EXCEPTIONS
     FAILED              = 1
     ILLEGAL_LEVEL_COUNT = 2
     CNTL_SYSTEM_ERROR   = 3
     NODE_NOT_FOUND      = 4
     CANNOT_EXPAND_LEAF  = 5
 OTHERS              = 6.
 IF SY-SUBRC <> 0."...
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 
 ENDFORM.                    " CREATE_AND_INIT_TREE
 *&---------------------------------------------------------------------*
 *&      FORM  BUILD_NODE_TABLE
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 *      -->P_NODE_TABLE  TEXT
 *----------------------------------------------------------------------*
 FORM BUILD_NODE_TABLE  USING   NODE_TABLE TYPE NODE_TABLE_TYPE.
 DATA:NODE TYPE MTREESNODE.
 DATA: L_INDEX LIKE SY-TABIX.
 
 **設置父節點屬性
   NODE-NODE_KEY = 'ZOA_REG'.
   G_NODE_KEY = NODE-NODE_KEY.
 CLEAR NODE-RELATKEY.      " SPECIAL CASE: A ROOT NODE HAS NO PARENT
 CLEAR NODE-RELATSHIP.
   NODE-HIDDEN = ''.         " THE NODE IS VISIBLE,
   NODE-DISABLED = ''.       " SELECTABLE,
   NODE-ISFOLDER = 'X'.      " A FOLDER.
 *  NODE-N_IMAGE = 'X'.
 *  NODE-EXP_IMAGE = 'X'.
   NODE-STYLE = CL_GUI_SIMPLE_TREE=>STYLE_DEFAULT.
 *  NODE-NO_BRANCH = 'X'.
 *  NODE-EXPANDER = 'X'.
 *  NODE-DRAGDROPID
   NODE-TEXT = '员工工号如下'.
 APPEND NODE TO NODE_TABLE.
 **設置子節點屬性
 SORT IT_TREE BY USERNO.
   L_INDEX = 0.
 LOOP AT IT_TREE ASSIGNING <FS1>.
 CLEAR: NODE-N_IMAGE.
     L_INDEX = L_INDEX + 1.
     NODE-NODE_KEY = L_INDEX  .
     NODE-RELATKEY = 'ZOA_REG'.
     NODE-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
     NODE-HIDDEN = ''.        " THE NODE IS VISIBLE,
     NODE-DISABLED = ''.
     NODE-ISFOLDER = ' '. " 'X' 表示可折叠；'':表示不可折叠
     NODE-TEXT = <FS1>-USERNO.
 APPEND NODE TO NODE_TABLE.
 ENDLOOP.
 ENDFORM.                    " BUILD_NODE_TABLE
 
 
 *&---------------------------------------------------------------------*
 *&      FORM  GET_DATA
 *&---------------------------------------------------------------------*
 *       TEXT
 *----------------------------------------------------------------------*
 *      -->P_R_DATE  TEXT
 *----------------------------------------------------------------------*
 FORM GET_DATA .
 CLEAR : IT_TREE[].
 SELECT * FROM ZOA_REG
 INTO CORRESPONDING FIELDS OF TABLE IT_TREE WHERE WERKS = '1201'.
 IF  IT_TREE[] IS NOT INITIAL.
 ELSE.
 MESSAGE 'ERROR' TYPE 'E'.
 ENDIF.
 ENDFORM.                    " GET_DATA

5、画面SE51中设置如下图：