设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[Tree] 使用oo实现简单的Tree control实例

Twilight发表于 2014-01-22 16:29Twilight 最后回复于 2014-01-22 16:29 [复制链接] 3622 0

Tree control 是最常用的windows控件之一，在其他语言中，称之为“Tree View”等，abap中tree control能完成相似的功能。

效果如下，本例将实现以下功能：
（1）、建立一个以国家、城市、城区三次的tree control对象（固定数据）；
（2）、当双击某个节点时，在文本框显示节点的key值和节点文本值。
tree_control.jpg


实现步骤如下（前两部为基本功能，不在详述）：
（1）、建立一个abap程序。
（2）、使用屏幕制作器，建立screen。
         添加“定制控制”对象；
         添加两个文本框，存放节点key值和节点文本值。
（3）、建立程序。
         处理窗口调用，退出等基本功能；
         创建窗口定制对象，tree control 对象，测试运行时能看到tree区域；
         实现tree节点的创建，测试运行，能看到tree的所有节点；
         定义对象，建立双击方法，并将双击方法分配tree对象，实现双击事件。

建立好的屏幕和对象界面如下图所示。
ELEMENT_LIST_TREE_CONTROL.jpg


主程序：
  1. REPORT  ZDEMON_009.
  2. *功能码返回值
  3. DATA: OK_CODE TYPE SY-UCOMM,
  4.       SAVE_OK LIKE OK_CODE.
  5. DATA:WA_CONTAINER TYPE SCRFNAME VALUE 'TREE1',
  6.      WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
  7.      WA_TREE TYPE REF TO CL_GUI_SIMPLE_TREE.
  8. *-----------------------------------------------------------
  9. *NODE节点表
  10. DATA:NODE_TABLE LIKE TABLE OF MTREESNODE,
  11. *节点结构
  12.      NODE1 TYPE MTREESNODE.

  14. DATA WA_SPFLI TYPE TABLE OF SPFLI."WITH HEADER LINE.
  15. *当双击时取得节点的key值与节点文本值变量
  16. DATA:NODEKEY(200) VALUE 'NONE',NODETEXT(200) VALUE 'NODE'.
  17. *-----------------------------------------------------------
  18. CLASS LCL_APPLICATION DEFINITION DEFERRED.
  19. CLASS LCL_APPLICATION DEFINITION.
  20.     PUBLIC SECTION.
  21. *自定义双击方法，参数为节点关键字
  22.     METHODS HANDLE_NODE_DOUBLE_CLICK
  23.             FOR EVENT NODE_DOUBLE_CLICK
  24.        OF CL_GUI_SIMPLE_TREE
  25.        IMPORTING NODE_KEY.
  26. ENDCLASS.
  27. *-----------------------------------------------------------
  28. CLASS LCL_APPLICATION IMPLEMENTATION.
  29.     METHOD HANDLE_NODE_DOUBLE_CLICK.
  30. *当双击时弹出信息窗口，调试用
  31. *    MESSAGE I208(00) WITH 'DOUBLE'.
  32. *取得key值，在窗口显示
  33.     NODEKEY = NODE_KEY.
  34. *从节点内表中按关键字读取单个节点
  35.     READ TABLE NODE_TABLE  WITH KEY NODE_KEY = NODE_KEY
  36.       INTO NODE1.
  37. *将节点文本显示在窗口显示
  38.       NODETEXT = NODE1-TEXT.
  39.    ENDMETHOD.
  40. ENDCLASS.
  41. *-----------------------------------------------------------
  42. DATA:G_APPLICATION TYPE REF TO LCL_APPLICATION.
  43. START-OF-SELECTION.
  44. *创建自定义class对象
  45.   CREATE OBJECT G_APPLICATION.
  46. *直接调用窗口 ，在pbo里分配双击对象
  47.   SET SCREEN 100.
  48. *------------------------------------------------------------
  49. MODULE STATUS_0100 OUTPUT.
  50. *若果窗口还没创建tree对象则创建它
  51. IF WA_CUSTOM_CONTAINER IS INITIAL.
  52.    PERFORM CREATE_TREE.
  53. ENDIF.
  54. ENDMODULE.
  55. *------------------------------------------------------------
  56. FORM CREATE_TREE.
  57. *事件内表及单个事件对象
  58. DATA:EVENTS TYPE CNTL_SIMPLE_EVENTS,
  59.      EVENT1 TYPE CNTL_SIMPLE_EVENT.
  60. *建立定制控制对象
  61. CREATE OBJECT WA_CUSTOM_CONTAINER
  62.      EXPORTING CONTAINER_NAME = WA_CONTAINER.
  63. *------------------------------------------------------------
  64. *建立树对象
  65. CREATE OBJECT WA_TREE
  66.    EXPORTING
  67.    PARENT = WA_CUSTOM_CONTAINER
  68.    NODE_SELECTION_MODE =
  69.    CL_GUI_SIMPLE_TREE=>NODE_SEL_MODE_SINGLE
  70.    .
  71. *------------------------------------------------------------
  72. IF SY-SUBRC <> 0.
  73. ENDIF.
  74. *建立以国家->城市->城区 三层的树
  75. CLEAR NODE1.
  76. *节点关键字
  77. NODE1-NODE_KEY = '国家'.
  78. *第一层
  79. CLEAR NODE1-RELATKEY.
  80. CLEAR NODE1-RELATSHIP.
  81. *是文件夹
  82. NODE1-HIDDEN = ''.
  83. NODE1-DISABLED = ''.
  84. NODE1-ISFOLDER = 'X'.
  85. *不带icon
  86. CLEAR NODE1-N_IMAGE.
  87. CLEAR NODE1-EXP_IMAGE.
  88. CLEAR NODE1-EXPANDER.
  89. *节点文本
  90. NODE1-TEXT = '中国'.
  91. *添加到节点表
  92. APPEND NODE1 TO NODE_TABLE.
  93. *-------------------------------------------------------------
  94. *二层节点
  95. CLEAR NODE1.
  96. NODE1-NODE_KEY = '城市北京'.
  97. *上层关系
  98. NODE1-RELATKEY = '国家'.
  99. NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  100. NODE1-HIDDEN = ''.
  101. NODE1-DISABLED = ''.
  102. NODE1-ISFOLDER = 'X'.
  103. CLEAR NODE1-N_IMAGE.
  104. CLEAR NODE1-EXP_IMAGE.
  105. CLEAR NODE1-EXPANDER.
  106. NODE1-TEXT = '北京'.
  107. APPEND NODE1 TO NODE_TABLE.
  108. *--------------------------------------------------------------
  109. CLEAR NODE1.
  110. NODE1-NODE_KEY = '城市上海'.
  111. NODE1-RELATKEY = '国家'.
  112. NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  113. NODE1-HIDDEN = ''.
  114. NODE1-DISABLED = ''.
  115. NODE1-ISFOLDER = 'X'.
  116. CLEAR NODE1-N_IMAGE.
  117. CLEAR NODE1-EXP_IMAGE.
  118. CLEAR NODE1-EXPANDER.
  119. NODE1-TEXT = '上海'.
  120. APPEND NODE1 TO NODE_TABLE.
  121. *--------------------------------------------------------------
  122. CLEAR NODE1.
  123. NODE1-NODE_KEY = 'KEYCHONGWEN'.
  124. NODE1-RELATKEY = '城市北京'.
  125. NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  126. NODE1-HIDDEN = ''.
  127. NODE1-DISABLED = ''.
  128. NODE1-ISFOLDER = ''.
  129. *图标，可运行showicon查阅
  130. NODE1-N_IMAGE = '@9Y@'.
  131. NODE1-EXP_IMAGE = '@9Y@'.
  132. CLEAR NODE1-EXPANDER.
  133. NODE1-TEXT = '崇文区'.
  134. APPEND NODE1 TO NODE_TABLE.
  135. *---------------------------------------------------------------
  136. CLEAR NODE1.
  137. NODE1-NODE_KEY = 'KEYXICHENG'.
  138. NODE1-RELATKEY = '城市北京'.
  139. NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  140. NODE1-HIDDEN = ''.
  141. NODE1-DISABLED = ''.
  142. NODE1-ISFOLDER = ''.
  143. NODE1-N_IMAGE = '@DF@'.
  144. NODE1-EXP_IMAGE = '@DF@'.
  145. CLEAR NODE1-EXPANDER.
  146. NODE1-TEXT = '西城区'.
  147. APPEND NODE1 TO NODE_TABLE.
  148. *------------------------------------------------------------------
  149. CLEAR NODE1.
  150. NODE1-NODE_KEY = 'KEYMINHANG'.
  151. NODE1-RELATKEY = '城市上海'.
  152. NODE1-RELATSHIP = CL_GUI_SIMPLE_TREE=>RELAT_LAST_CHILD.
  153. NODE1-HIDDEN = ''.
  154. NODE1-DISABLED = ''.
  155. NODE1-ISFOLDER = ''.
  156. NODE1-N_IMAGE = '@NL@'.
  157. NODE1-EXP_IMAGE = '@NL@'.
  158. CLEAR NODE1-EXPANDER.
  159. NODE1-TEXT = '闵行区'.
  160. APPEND NODE1 TO NODE_TABLE.
  161. *------------------------------------------------------------------
  162. CALL METHOD WA_TREE->ADD_NODES
  163.      EXPORTING
  164.       TABLE_STRUCTURE_NAME = 'MTREESNODE'
  165.       NODE_TABLE = NODE_TABLE.
  166. IF SY-SUBRC <> 0.
  167. ENDIF.
  168. *------------------------------------------------------------------
  169. *定义双击事件
  170. EVENT1-EVENTID = CL_GUI_SIMPLE_TREE=>EVENTID_NODE_DOUBLE_CLICK.
  171. EVENT1-APPL_EVENT = 'X'.
  172. APPEND EVENT1 TO EVENTS.
  173. *------------------------------------------------------------------
  174. *添加事件内表
  175. CALL METHOD WA_TREE->SET_REGISTERED_EVENTS
  176.      EXPORTING
  177.      EVENTS = EVENTS.
  178. IF SY-SUBRC <> 0.
  179. ENDIF.
  180. *将已定义的双击事件分配到树对象
  181. SET HANDLER G_APPLICATION->HANDLE_NODE_DOUBLE_CLICK FOR WA_TREE.
  182. ENDFORM.
  183. *&---------------------------------------------------------------------*
  184. *&      Module  USER_COMMAND_0100  INPUT
  185. *&---------------------------------------------------------------------*
  186. *       text
  187. *----------------------------------------------------------------------*
  188. MODULE USER_COMMAND_0100 INPUT.
  189. SAVE_OK = OK_CODE.
  190. CLEAR OK_CODE.
  191. CASE SAVE_OK.
  192.   WHEN 'EXIT'.
  193.     LEAVE PROGRAM.
  194. ENDCASE.
  195. ENDMODULE.                 " USER_COMMAND_0100  INPUT
复制代码




tree control

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 965 帖子
  3. 10811 积分
收听TA 发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-5-6 06:05 , Processed in 0.044821 second(s), 10 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.4

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表