ABAP 树型菜单程序
教你如何使用Java8实现菜单树形数据
教你如何使⽤Java8实现菜单树形数据Java8实现菜单树形数据当我们打开京东商城时，左侧的菜单依次分为三级展⽰，这是如何实现的呢？本篇暂不讲述前端，只讲述如何使⽤java8 的lamada表达式实现树形数据的拼装1.创建菜单表CREATE TABLE `pms_category` (`cat_id` bigint(20) NOT NULL AUTO_INCREMENT COMMENT '分类id',`name` char(50) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL COMMENT '分类名称',`parent_cid` bigint(20) NULL DEFAULT NULL COMMENT '⽗分类id',`cat_level` int(11) NULL DEFAULT NULL COMMENT '层级',`show_status` tinyint(4) NULL DEFAULT NULL COMMENT '是否显⽰[0-不显⽰，1显⽰]',`sort` int(11) NULL DEFAULT NULL COMMENT '排序',`icon` char(255) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL COMMENT '图标地址',`product_unit` char(50) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL COMMENT '计量单位',`product_count` int(11) NULL DEFAULT NULL COMMENT '商品数量',PRIMARY KEY (`cat_id`) USING BTREE) ENGINE = InnoDB AUTO_INCREMENT = 1433 CHARACTER SET = utf8 COLLATE = utf8_general_ci COMMENT = '商品三级分类' ROW_FORMAT = Dynamic;2.创建实体类其中children⽤来存放⼦类@Data@TableName("pms_category")public class CategoryEntity implements Serializable {private static final long serialVersionUID = 1L;/*** 分类id*/@TableIdprivate Long catId;/*** 分类名称*/private String name;/*** ⽗分类id*/private Long parentCid;/*** 层级*/private Integer catLevel;/*** 是否显⽰[0-不显⽰，1显⽰]*/private Integer showStatus;/*** 排序*/private Integer sort;/*** 图标地址*/private String icon;/*** 计量单位*/private String productUnit;/*** 商品数量*/private Integer productCount;/*** ⼦分类*/@TableField(exist = false)private List<CategoryEntity> children;}3.实现⼀级分类3.1）⾸先要查询出所有的分类信息entities3.2）然后对entities过滤查找⼀级分类，其中⼀级分的parentId == 03.3）设置当前⼀级分类的⼦分类3.4）对⼀级分类进⾏排序代码如下：public List<CategoryEntity> listWithTree() {//1.查询所有分类List<CategoryEntity> entities = baseMapper.selectList(null);//2.组装//2.1) 所到所有的⼀级类别 ,parentId = 0List<CategoryEntity> levelOneMenus = entities.stream().filter(item -> item.getParentCid() == 0).map(item -> {item.setChildren(this.getChildrens(item, entities));return item;}).sorted((item1, item2) -> {return (item1.getSort() == null ? 0 : item1.getSort()) - (item2.getSort() == null ? 0 : item2.getSort());}).collect(Collectors.toList());return levelOneMenus;}4.使⽤递归对⼦分类再进⾏树形组装4.1）⾸先判断当前的id是否有等于集合中的元素的parentId4.2）再对当前⼦分类使⽤递归设置⼦分类4.3）对当前⼦分类排序4.4）返回⼦分类集合详细代码实现如下：private List<CategoryEntity> getChildrens(CategoryEntity root, List<CategoryEntity> all){List<CategoryEntity> treeMenus = all.stream()//如果菜单中的⽗菜单Id == 当前菜单的id，则说明是⼦菜单.filter(item -> Objects.equals(item.getParentCid(), root.getCatId())).map(item -> {//递归添加⼦菜单List<CategoryEntity> childrens = getChildrens(item, all);item.setChildren(childrens);return item;})//排序.sorted((item1, item2) -> {return (item1.getSort() == null ? 0 : item1.getSort()) - (item2.getSort() == null ? 0 : item2.getSort());}).collect(Collectors.toList());return treeMenus;}到此这篇关于教你如何使⽤Java8实现菜单树形数据的⽂章就介绍到这了,更多相关Java8实现菜单树形数据内容请搜索以前的⽂章或继续浏览下⾯的相关⽂章希望⼤家以后多多⽀持！。
树形菜单-递归实现逻辑
树形菜单-递归实现逻辑全文共四篇示例，供读者参考第一篇示例：树形菜单是一种常见的界面设计元素，通过树形结构展示信息，使用户能够轻松浏览和选择。
在Web开发中，树形菜单通常用于显示网站的导航菜单、项目结构、文件夹结构等。
实现树形菜单的方法有多种，其中递归是一种常用且有效的实现逻辑。
在本文中，我们将介绍树形菜单的递归实现逻辑，并通过示例代码演示如何使用递归来构建一个动态的树形菜单。
一、什么是递归？在程序设计中，递归是一种解决问题的方法，通过将问题分解成规模较小的子问题来解决整体问题。
递归函数会反复调用自身，直到满足某个终止条件才停止递归。
递归在数据结构和算法中有着广泛的应用，如树形结构的遍历、图的搜索等。
二、树形菜单的数据结构在实现树形菜单之前，首先要明确树形结构的数据表示方法。
通常树形菜单的数据结构可以用对象或数组来表示，每个节点包含一些基本信息和子节点信息。
一个简单的树形菜单数据结构如下所示：```javascript{id: 1,name: 'Root',children: [{ id: 2, name: 'Node 1', children: [] },{ id: 3, name: 'Node 2', children: [{ id: 4, name: 'Node 2-1', children: [] },{ id: 5, name: 'Node 2-2', children: [] }] },{ id: 6, name: 'Node 3', children: [] },]}```在上面的示例中，树形菜单包含了一个根节点和三个子节点，每个节点都包含了id、name和children属性，其中children是一个数组，用于存储子节点信息。
三、递归构建树形菜单接下来，我们将演示如何使用递归来构建一个树形菜单。
移动端实现树级菜单的方法
移动端实现树级菜单的方法全文共四篇示例，供读者参考第一篇示例：在移动端开发中，实现树级菜单是一项常见且重要的任务。
在移动设备上，由于屏幕空间有限，设计和实现树级菜单需要考虑到用户体验和界面布局的限制。
本文将介绍一些常见的方法和技巧来实现移动端的树级菜单。
一、使用折叠菜单折叠菜单是一种常见的树级菜单设计模式，适用于移动设备上的界面。
在折叠菜单中，每个父级菜单项下面可以展开或折叠多个子级菜单项，用户可以点击父级菜单项来展开或折叠子级菜单项。
这种设计模式节省了屏幕空间，并且用户可以方便地浏览和操作树状结构的数据。
在实现折叠菜单时，可以使用HTML、CSS和JavaScript来构建。
可以使用HTML的ul和li标签来表示菜单的层级结构，使用CSS样式来控制菜单的外观和布局，使用JavaScript来添加交互效果和实现菜单的展开和折叠功能。
通过合理的布局和样式设计，可以在移动设备上呈现出清晰、易用的树级菜单。
二、利用滑动菜单在实现滑动菜单时，可以利用现有的移动端UI框架或库来快速实现。
一些流行的移动端UI框架，如jQuery Mobile、Ionic等，提供了丰富的界面组件和交互效果，可以帮助开发人员快速构建滑动菜单。
通过合理的布局和交互设计，可以让滑动菜单在移动设备上呈现出流畅、直观的用户体验。
三、响应式设计在设计移动端树级菜单时，需要考虑到不同设备屏幕大小和分辨率的差异。
为了适应不同尺寸的移动设备，可以使用响应式设计的技术来实现自适应的界面布局。
通过使用CSS媒体查询和弹性布局等技术，可以让树级菜单在不同尺寸的屏幕上自动调整布局和样式，确保用户在任何设备上都能够方便地访问和操作菜单。
在移动端实现树级菜单时，需要综合考虑用户体验、界面设计和技术实现等多方面因素。
通过选择合适的设计模式、利用现有的UI框架和工具、采用响应式设计等方法，可以实现一个优秀的移动端树级菜单，为用户提供更好的导航和操作体验。
希望本文介绍的方法和技巧能够帮助开发人员更好地实现移动端树级菜单。
abap递归算法
abap递归算法ABAP递归算法是一种在ABAP编程中常用的算法，它通过在程序中调用自身来解决问题。
本文将介绍ABAP递归算法的基本概念、应用场景和实现步骤。
一、基本概念递归算法是一种将问题分解为更小的同类问题来解决的方法。
在ABAP中，递归算法通常用于处理树形结构或者需要多次迭代的情况。
二、应用场景ABAP递归算法可以应用于许多实际问题的解决，例如树的遍历、查找和排序等。
下面将以树的遍历为例，介绍ABAP递归算法的实现步骤。
三、实现步骤1. 定义递归函数在ABAP中，我们可以使用FUNCTION模块或者方法来定义递归函数。
递归函数应该具有停止条件和递归调用两个关键部分。
停止条件是递归的终止条件，当满足停止条件时，递归将停止。
递归调用是指在函数中调用自身来解决更小的同类问题。
2. 处理递归函数参数递归函数通常需要传入参数来控制递归的过程。
这些参数可以是需要处理的数据结构或者其他控制信息。
在递归调用时，需要将参数传递给下一次递归。
3. 处理递归函数返回值递归函数可以有返回值，用于将递归结果传递给上一级调用。
在递归调用结束后，需要将返回值返回给上一级。
4. 调用递归函数在主程序中调用递归函数，并处理返回值。
可以使用循环来处理多次递归调用的结果。
四、总结ABAP递归算法是一种常用的算法，可以应用于树的遍历、查找和排序等问题的解决。
在实现递归算法时，需要定义递归函数、处理参数和返回值，并在主程序中调用递归函数。
通过合理地应用递归算法，可以提高程序的效率和可读性。
以上就是关于ABAP递归算法的基本概念、应用场景和实现步骤的介绍。
希望对读者理解和运用ABAP递归算法有所帮助。
abap 主要知识点
abap 主要知识点ABAP（Advanced Business Application Programming）是一种用于开发企业级业务应用程序的编程语言，主要应用于SAP业务软件系统中。
ABAP主要用于实现和定制SAP ERP、SAP S/4HANA等企业资源规划系统。
以下是ABAP主要知识点：1.基本语法：ABAP的基本语法包括数据类型、变量、常量、运算符、流程控制、函数、过程、模块等。
2.数据结构：ABAP中常用的数据结构有数组、表格、链表、树形结构等。
3.界面设计：ABAP可用于设计用户界面，包括对话框、菜单、报表等。
4.数据库操作：ABAP支持对数据库的CRUD（创建、读取、更新、删除）操作，主要包括SQL语句、数据定义、数据存取等。
5.报表设计：ABAP具有强大的报表设计功能，可以创建各种复杂程度的报表，如分组报表、多级报表、交叉报表等。
6.常用ABAP组件：ABAP中有一些常用的组件，如逻辑块（ALV）、数据字典（DDIC）、报表框架（BDC）、界面事件（BEL）、用户自定义函数（FC）等。
7.企业对象组件（EPC）：EPC是ABAP的一种企业级组件，用于实现业务过程的自动化。
8.工作流：ABAP支持工作流编程，可以实现业务流程的建模、调度和监控。
9.对象化编程：ABAP支持面向对象的编程，可以实现代码的复用和模块化。
10.接口技术：ABAP接口用于实现与其他系统（如HR、CRM等）的集成。
主要包括BAPI、BDC、IDoc等。
11.性能优化：ABAP程序的性能优化是开发者关注的重要议题，包括SQL优化、代码优化、内存管理等。
12.ABAP开发工具：常用的ABAP开发工具包括ABAP Workbench、SE80/SE81、SAP NetWeaver Developer Studio 等。
13.脚本语言：ABAP脚本语言（Scripting）用于实现与ABAP程序的交互和自动化。
基于Web标准的UI组件—树状菜单（1）...
基于Web标准的UI组件—树状菜单（1）...基于Web标准的UI组件—树状菜单(1)UI Components Based on Web Standards - TreeView (1) 树状菜单（Tree View）在普通的Web设计中不常用到，但是在一些B/S结构的系统（如OA系统）中是不可缺少的一种UI组件。
树状结构不仅是一种有效的信息组织方式，它同时建立了一种索引方式，帮助人类更快地在查找机器中的信息。
现代操作系统基本上都使用树状结构来管理磁盘文件，所以大多数人对树状菜单的逻辑模型和操作方式都非常熟悉，对于UI设计师来说就成了一种很好的选择。
基本的XHTML结构先来看看只有一层的树状菜单，你会选什么标签？ul！没错，还有比ul更合适的吗？<ul><li>树枝1号</li><li>树枝2号</li></ul>再把它们都加到一个“树根”上：<ul><li>树根<ul><li>树枝1号</li><li>树枝2号</li></ul></li></ul>请注意观察一下两个ul之间的嵌套关系。
查看效果（例1）再加一些“叶子”上去：<ul><li>树根<li>树枝1号<ul><li>叶子11号</li><li>叶子12号</li></ul></li><li>树枝2号<ul><li>叶子21号</li><li>叶子22号</li><li>叶子23号</li></ul></li></ul></li></ul>查看效果（例2）“一棵树”可以拥有任意多个“树根”、“树枝”和“树叶”。
用ABAP实现下拉菜单
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST
EXCEPTIONS
REPORT Z_TESTYM01 .
CALL SCREEN 1000.
*&---------------------------------------------------------------------*
*& Module STATUS_1000 OUTPUT
*& Report Z_TESTYM01 *
*& *
*&---------------------------------------------------------------------*
*& Module CANCEL INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE. " LSTBOX_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
移动端实现树级菜单的方法
移动端实现树级菜单的方法
在移动端实现树级菜单的方法有很多种，这里我会列举几种常见的方法：
1. 嵌套列表（Nested List）：这是最简单的方式，每个节点可以是一个列
表或者一个子菜单。
然而，这种方法可能会在移动设备上显得过于复杂和混乱，因为需要滚动和缩放才能查看所有的菜单项。
2. 展开/折叠菜单（Accordion Menu）：这是另一种常见的方法，每个节
点都有一个展开和折叠的按钮。
当用户点击一个节点时，该节点及其所有子节点会展开或折叠。
这种方法的好处是用户可以一次查看所有的菜单项，但是它可能会在层次很深的菜单上显得很混乱。
3. 侧边抽屉菜单（Side Drawer Menu）：这是一种常见的移动端导航模式，用户可以从屏幕的一侧滑动打开一个包含所有菜单项的列表。
这种方法的优点是用户可以快速访问任何菜单项，但是如果菜单项太多，用户可能需要多次滑动才能找到他们想要的。
4. 面包屑菜单（Breadcrumb Menu）：这种菜单通过显示当前节点的父节点来提供一种导航的方式。
虽然它不适合所有的应用，但是对于那些需要用户知道他们当前位置的应用来说，这是一个很好的选择。
5. 卡片式菜单（Card Menu）：在这种方法中，每个节点都显示为一个卡片，用户可以点击卡片来打开或关闭它。
这种方法的优点是用户可以清楚地看到哪些节点是开放的，但是它可能会在层次很深的菜单上显得很混乱。
以上就是一些常见的实现树级菜单的方法，具体使用哪种方法取决于你的应用的需求和用户的习惯。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ABAP 树型菜单程序Jerry 项目中树型菜单很少用到，但是学会了，也是一种好事。
最近，客户方就有一个要求，能够实现特殊的文档管理，包括动态的树型菜单。
此文档中，我就介绍如何用ABAP创建一个简单的树型菜单！下面几个步骤只讲创建树型菜单几个重要的地方，最后面是详细的实现代码。
建议学者粗略看看步骤，重点看最后的代码，然后自己学着按下面的DEMO写测试程序，直到成功为止，如有不懂的地方，可以到群内留言。
或者文档有写得不好的地方，也可以提出来，我们一起加以改善！一. 创建一个DIALOG屏幕(0900)，创建一个定制控制: TREE_CONTAINER,作为一个容器来存放程序创建的树型菜单，如下图所示:二. 在屏幕PBO事件中,创建一个MOUDLE: m_init_tree，然后创建一个Subroutine: frm_init_tree。
在Subroutine中创建一个Object: g_application，g_application指向自己创建的一个Class：lcl_application。
这个Class主要定义了一些事件，比如单击，双击，展开，链接单击等事件，用来注册及捕获树型菜单的父节点，子节点单击，双击，展开，链接单击等事件，然后在自己Class ：lcl_application中相应自定义的Method中写相应的Code，实现特殊的操作。
三. 用程序创建一个容器类cl_gui_custom_container的实例g_custom_container，代码如下CREATE OBJECT g_custom_containerEXPORTINGcontainer_name = 'TREE_CONTAINER'EXCEPTIONScntl_error = 1cntl_system_error = 2create_error = 3lifetime_error = 4lifetime_dynpro_dynpro_link = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.从上面的代码可以看出，程序创建了一个指向步骤一创建的定制控制: TREE_CONTAINER一个自定义容器类.四. 设置树型菜单名称,宽度，菜单列数，并创建树型菜单Class:cl_gui_column_tree实例:g_tree，并和屏幕容器相关联hierarchy_header-heading = '资源管理'. "树型菜单名称hierarchy_header-width = 50. "宽度CREATE OBJECT g_treeEXPORTINGparent = g_custom_container "将创建的树型菜单和屏幕容器相关联 node_selection_mode = cl_gui_column_tree=>node_sel_mode_single "模式 item_selection = 'X'hierarchy_column_name = c_column-column1 "列数hierarchy_header = hierarchy_headerEXCEPTIONScntl_system_error = 1create_error = 2failed = 3illegal_node_selection_mode = 4illegal_column_name = 5lifetime_error = 6.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.五. 定义树型菜单的一些事件,比如单击，双击等" node double click根节点双击event-eventid = cl_gui_column_tree=>eventid_node_double_click.event-appl_event = 'X'. " process PAI if event occursAPPEND event TO events." item double click子节点双击event-eventid = cl_gui_column_tree=>eventid_item_double_click.event-appl_event = 'X'.APPEND event TO events." expand no children展开文件event-eventid = cl_gui_column_tree=>eventid_expand_no_children.event-appl_event = 'X'.APPEND event TO events." link click链接单击，我认为是最后的子节点单击event-eventid = cl_gui_column_tree=>eventid_link_click.event-appl_event = 'X'.APPEND event TO events." button clickevent-eventid = cl_gui_column_tree=>eventid_button_click.event-appl_event = 'X'.APPEND event TO events." checkbox changeevent-eventid = cl_gui_column_tree=>eventid_checkbox_change.event-appl_event = 'X'.APPEND event TO events." header clickevent-eventid = cl_gui_column_tree=>eventid_header_click.event-appl_event = 'X'.APPEND event TO events.设置类实例g_tree的相关事件,因为类g_tree的属性event默认为空，所以在这里要调用set_registered_events设置事件CALL METHOD g_tree->set_registered_eventsEXPORTINGevents = eventsEXCEPTIONScntl_error = 1cntl_system_error = 2illegal_event_combination = 3.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.六. 注册树型菜单事件到第二步中创建的类lcl_application的实例g_application,然后我们就可以在g_application中相关的方法中捕获树型菜单的相关事件，写自己的程序作特殊的处理。
比如SET HANDLER g_application->handle_node_double_click FOR g_tree.注册树型菜单双击事件句柄七. 添加树型菜单子节点主要用到树型菜单的g_tree的treev_ntab属性treev_ntab的四个属性非常重要，一个是node_key，就是为此节点起命名，树型菜单中的每一个节点都必须有一个命名，并且必须唯一。
第二个属性是relatkey，就是指定本节点从属于那一个节点之下，也就是指定它的上级节点，如果是根节点，就无需指定。
第三个属性isfolder，就是说指定节点是否允许有子节点。
第四个expander就是节点是否可以展开。
节点的属性设置好后，就可以调用g_tree的method: add_nodes_and_items来添加树型菜单节点，以下的DEMO就刚开始就添加了”业扩工程”,“在建工程”,”改造工程”三个根节点。
八. 展示根节点，调用g_tree的expand_node方法将第七步的三个根节点进行展示.启动程序，将会看到屏幕上就有了一个简单的树型菜单，至于怎么在这三个根节点下再加子节点，读者就自己看OK_CODE:ADD事件里的代码，道理是一样的。
完整的程序代码*&---------------------------------------------------------------------**& Report YTEST2*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT y_tree_test.TYPES: item_table_type LIKE STANDARD TABLE OF mtreeitmWITH DEFAULT KEY.DATA: it_pic_data TYPE TABLE OF /sc1/pic_data,it_data_output TYPE TABLE OF /sc1/pic_data,wa_pic_data TYPE /sc1/pic_data,it_data_collect TYPE TABLE OF /sc1/pic_data,wa_data_collect TYPE /sc1/pic_data.DATA: it_data TYPE TABLE OF bapiconten WITH HEADER LINE.DATA: v_url(255) TYPE c,v_index TYPE i.DATA: g_event(30),g_node_key TYPE tv_nodekey,g_item_name TYPE tv_itmname,g_header_name TYPE tv_hdrname.DATA: o_container TYPE REF TO cl_gui_custom_container,o_container1 TYPE REF TO cl_gui_custom_container,o_container2 TYPE REF TO cl_gui_custom_container,o_container3 TYPE REF TO cl_gui_custom_container,o_container4 TYPE REF TO cl_gui_custom_container,o_container5 TYPE REF TO cl_gui_custom_container,o_container6 TYPE REF TO cl_gui_custom_container,o_picture TYPE REF TO cl_gui_picture,o_picture1 TYPE REF TO cl_gui_picture,o_picture2 TYPE REF TO cl_gui_picture,o_picture3 TYPE REF TO cl_gui_picture,o_picture4 TYPE REF TO cl_gui_picture,o_picture5 TYPE REF TO cl_gui_picture,o_picture6 TYPE REF TO cl_gui_picture.DATA: total_page(255) TYPE c VALUE '第3页/共5页'.DATA: g_tc_pic_upload_lines LIKE sy-loopc.DATA p_comp_code LIKE t001-bukrs.DATA p_prctr TYPE /dsd/sl_bso.DATA p_kunnr TYPE kna1-kunnr.DATA pic_name(30) TYPE c..DATA p_pic_type TYPE /sc1/e_pic_type.DATA pic_name1 TYPE name1.DATA pic_num TYPE /sc1/pic_num.DATA g_1st_time TYPE xflag.DATA: node_table TYPE treev_ntab,node TYPE treev_node,item_table TYPE item_table_type,item TYPE mtreeitm,lv_nodekey TYPE tv_nodekey.DATA: ok_code TYPE sy-ucomm.CONSTANTS:BEGIN OF c_nodekey,root TYPE tv_nodekey VALUE 'root',root2 TYPE tv_nodekey VALUE 'root2',root3 TYPE tv_nodekey VALUE 'root3', "#EC NOTEXT child1 TYPE tv_nodekey VALUE 'Child1', "#EC NOTEXT child2 TYPE tv_nodekey VALUE 'Child2', "#EC NOTEXT new1 TYPE tv_nodekey VALUE 'New1', "#EC NOTEXT new2 TYPE tv_nodekey VALUE 'New2', "#EC NOTEXT * new3 type tv_nodekey value 'New3', "#EC NOTEXT * new4 type tv_nodekey value 'New4', "#EC NOTEXT END OF c_nodekey,BEGIN OF c_column,column1 TYPE tv_itmname VALUE 'column1', "#EC NOTEXT column2 TYPE tv_itmname VALUE 'column2', "#EC NOTEXTcolumn3 TYPE tv_itmname VALUE 'column3', "#EC NOTEXT column4 TYPE tv_itmname VALUE 'column4',column5 TYPE tv_itmname VALUE 'column5',column6 TYPE tv_itmname VALUE 'column6',column7 TYPE tv_itmname VALUE 'column7',column8 TYPE tv_itmname VALUE 'column8',END OF c_column.*----------------------------------------------------------------------* * CLASS lcl_application DEFINITION*----------------------------------------------------------------------* **----------------------------------------------------------------------* CLASS lcl_application DEFINITION.PUBLIC SECTION.METHODS:handle_node_double_clickFOR EVENT node_double_clickOF cl_gui_column_treeIMPORTING node_key,handle_header_clickFOR EVENT header_clickOF cl_gui_column_treeIMPORTING header_name,handle_expand_no_childrenFOR EVENT expand_no_childrenOF cl_gui_column_treeIMPORTING node_key,handle_item_double_clickFOR EVENT item_double_clickOF cl_gui_column_treeIMPORTING node_key item_name,handle_button_clickFOR EVENT button_clickOF cl_gui_column_treeIMPORTING node_key item_name,handle_link_clickFOR EVENT link_clickOF cl_gui_column_treeIMPORTING node_key item_name,handle_checkbox_changeFOR EVENT checkbox_changeOF cl_gui_column_treeIMPORTING node_key item_name checked.ENDCLASS. "LCL_APPLICATION DEFINITION*----------------------------------------------------------------------* * CLASS LCL_APPLICATION IMPLEMENTATION*----------------------------------------------------------------------* **----------------------------------------------------------------------* CLASS lcl_application IMPLEMENTATION.METHOD handle_node_double_click." this method handles the node double click event of the tree" control instance" show the key of the double clicked node in a dynpro field* g_event = 'NODE_DOUBLE_CLICK'.* g_node_key = node_key.CLEAR wa_pic_data.CLEAR it_data[].ENDMETHOD. "HANDLE_NODE_DOUBLE_CLICKMETHOD handle_header_click." this method handles header click event of the tree" control instance" show the name of the clicked header in a dynpro fieldg_event = 'HEADER_CLICK'.g_header_name = header_name.CLEAR: g_node_key, g_item_name.ENDMETHOD. "HANDLE_HEADER_CLICKMETHOD handle_item_double_click." this method handles the item double click event of the tree" control instanceDATA lwa_bds TYPE bds_conn00.DATA: bdcdata_wa TYPE bdcdata,bdcdata_tab TYPE TABLE OF bdcdata.DATA opt TYPE ctu_params.opt-dismode = 'E'.opt-defsize = 'X'." show the key of the node and the name of the item" of the double clicked item in a dynpro fieldg_event = 'ITEM_DOUBLE_CLICK'.g_node_key = node_key.g_item_name = item_name.CLEAR wa_pic_data.CLEAR it_data[].SELECT SINGLE * INTO CORRESPONDING FIELDS OF wa_pic_data FROM /sc1/pic_data WHERE /sc1/pic_data~pic_num = g_node_key.IF sy-subrc EQ 0.IF o_picture1 IS INITIAL.CREATE OBJECT: o_container1 EXPORTING container_name = 'PIC_CONTAINER1', o_picture1 EXPORTING parent = o_container1.CLEAR v_url.* READ TABLE it_pic_data INTO wa_pic_data INDEX v_index.* pic_name = wa_pic_data-pic_nam.CALL FUNCTION '/SC1/TIN_BD_GET_TO_TAB'EXPORTINGdoc_id = wa_pic_data-loio_idTABLESet_file_content = it_data.CALL FUNCTION 'DP_CREATE_URL'EXPORTINGtype = 'IMAGE'subtype = 'X-UNKNOWN'TABLESdata = it_dataCHANGINGurl = v_url.CALL METHOD o_picture1->load_picture_from_urlEXPORTINGurl = v_url.CALL METHOD o_picture1->set_display_modeEXPORTINGdisplay_mode = o_picture1->display_mode.ELSE.CLEAR v_url.* READ TABLE it_pic_data INTO wa_pic_data INDEX v_index.* pic_name = wa_pic_data-pic_nam.CALL FUNCTION '/SC1/TIN_BD_GET_TO_TAB'EXPORTINGdoc_id = wa_pic_data-loio_idTABLESet_file_content = it_data.CALL FUNCTION 'DP_CREATE_URL'EXPORTINGtype = 'IMAGE'subtype = 'X-UNKNOWN'TABLESdata = it_dataCHANGINGurl = v_url.CALL METHOD o_picture1->clear_picture.CALL METHOD o_picture1->load_picture_from_urlEXPORTINGurl = v_url.CALL METHOD cl_gui_cfw=>flush.IF sy-subrc EQ 0.CALL METHOD o_picture1->set_display_modeEXPORTINGdisplay_mode = o_picture1->display_mode.ENDIF.ENDIF.pic_name1 = wa_pic_data-pic_nam.pic_num = wa_pic_data-pic_num.ENDIF.ENDMETHOD. "HANDLE_ITEM_DOUBLE_CLICKMETHOD handle_link_click." this method handles the link click event of the tree " control instance" show the key of the node and the name of the item" of the clicked link in a dynpro fieldg_event = 'LINK_CLICK'.g_node_key = node_key.g_item_name = item_name.CLEAR g_header_name.ENDMETHOD. "HANDLE_LINK_CLICKMETHOD handle_button_click." this method handles the button click event of the tree" control instance" show the key of the node and the name of the item" of the clicked button in a dynpro fieldg_event = 'BUTTON_CLICK'.g_node_key = node_key.g_item_name = item_name.CLEAR g_header_name.ENDMETHOD. "HANDLE_BUTTON_CLICKMETHOD handle_checkbox_change ." this method handles the checkbox_change event of the tree " control instance* DATA checked TYPE as4flag." show the key of the node and the name of the item" of the clicked checkbox in a dynpro fieldg_event = 'CHECKBOX_CHANGE'.g_node_key = node_key.g_item_name = item_name.CLEAR g_header_name.CASE node-relatkey .WHEN 'root'.WHEN 'root3'.ENDCASE.ENDMETHOD. "HANDLE_CHECKBOX_CHANGEMETHOD handle_expand_no_children.ENDMETHOD. "HANDLE_EXPAND_NO_CHILDREN ENDCLASS. "LCL_APPLICATION IMPLEMENTATIONDATA: g_application TYPE REF TO lcl_application,g_custom_container TYPE REF TO cl_gui_custom_container,g_tree TYPE REF TO cl_gui_column_tree,g_ok_code TYPE sy-ucomm.START-OF-SELECTION.CALL SCREEN 0900.*&---------------------------------------------------------------------* *& Module STATUS_0900 OUTPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* MODULE status_0900 OUTPUT.SET PF-STATUS 'STATUS_0900'.* SET TITLEBAR 'xxx'.ENDMODULE. " STATUS_0900 OUTPUT*&---------------------------------------------------------------------* *& Module M_INIT_TREE OUTPUT*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* MODULE m_init_tree OUTPUT.PERFORM frm_init_tree.ENDMODULE. " M_INIT_TREE OUTPUT*&---------------------------------------------------------------------* *& Form FRM_INIT_TREE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * --> p1 text* <-- p2 text*----------------------------------------------------------------------* FORM frm_init_tree .DATA: node_table TYPE treev_ntab,item_table TYPE item_table_type,event TYPE cntl_simple_event,events TYPE cntl_simple_events,hierarchy_header TYPE treev_hhdr.IF g_tree IS INITIAL.CREATE OBJECT g_application.* create a container for the tree controlCREATE OBJECT g_custom_containerEXPORTING " the container is linked to the custom control with the " name 'TREE_CONTAINER' on the dynprocontainer_name = 'TREE_CONTAINER'EXCEPTIONScntl_error = 1cntl_system_error = 2create_error = 3lifetime_error = 4lifetime_dynpro_dynpro_link = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.* setup the hierarchy headerhierarchy_header-heading = '资源管理'." headinghierarchy_header-width = 50. " width: 30 charactersCREATE OBJECT g_treeEXPORTINGparent = g_custom_containernode_selection_mode = cl_gui_column_tree=>node_sel_mode_single item_selection = 'X'hierarchy_column_name = c_column-column1hierarchy_header = hierarchy_headerEXCEPTIONScntl_system_error = 1create_error = 2failed = 3illegal_node_selection_mode = 4illegal_column_name = 5lifetime_error = 6.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.* define the events which will be passed to the backend" node double clickevent-eventid = cl_gui_column_tree=>eventid_node_double_click. event-appl_event = 'X'. " process PAI if event occursAPPEND event TO events." item double clickevent-eventid = cl_gui_column_tree=>eventid_item_double_click. event-appl_event = 'X'.APPEND event TO events." expand no childrenevent-eventid = cl_gui_column_tree=>eventid_expand_no_children. event-appl_event = 'X'.APPEND event TO events." link clickevent-eventid = cl_gui_column_tree=>eventid_link_click.event-appl_event = 'X'.APPEND event TO events." button clickevent-eventid = cl_gui_column_tree=>eventid_button_click.event-appl_event = 'X'.APPEND event TO events." checkbox changeevent-eventid = cl_gui_column_tree=>eventid_checkbox_change.event-appl_event = 'X'.APPEND event TO events." header clickevent-eventid = cl_gui_column_tree=>eventid_header_click.event-appl_event = 'X'.APPEND event TO events.CALL METHOD g_tree->set_registered_eventsEXPORTINGevents = eventsEXCEPTIONScntl_error = 1cntl_system_error = 2illegal_event_combination = 3.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.* assign event handlers in the application class to each desired event SET HANDLER g_application->handle_node_double_click FOR g_tree.SET HANDLER g_application->handle_item_double_click FOR g_tree.SET HANDLER g_application->handle_expand_no_children FOR g_tree.SET HANDLER g_application->handle_link_click FOR g_tree.SET HANDLER g_application->handle_button_click FOR g_tree.SET HANDLER g_application->handle_checkbox_change FOR g_tree.SET HANDLER g_application->handle_header_click FOR g_tree.PERFORM build_node_and_item_table USING node_table item_table.CALL METHOD g_tree->add_nodes_and_itemsEXPORTINGnode_table = node_tableitem_table = item_tableitem_table_structure_name = 'MTREEITM'EXCEPTIONSfailed = 1cntl_system_error = 3error_in_tables = 4dp_error = 5table_structure_name_not_found = 6.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.* expand the node with key 'Root'CALL METHOD g_tree->expand_nodeEXPORTINGnode_key = c_nodekey-rootEXCEPTIONSfailed = 1illegal_level_count = 2cntl_system_error = 3node_not_found = 4cannot_expand_leaf = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.ENDIF.ENDFORM. " FRM_INIT_TREE*&---------------------------------------------------------------------* *& Form BUILD_NODE_AND_ITEM_TABLE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->P_NODE_TABLE text* -->P_ITEM_TABLE text*----------------------------------------------------------------------* FORM build_node_and_item_table USING node_table TYPE treev_ntabitem_table TYPE item_table_type. DATA: node TYPE treev_node,item TYPE mtreeitm.* Build the node table.* Caution: The nodes are inserted into the tree according to the order * in which they occur in the table. In consequence, a node must not* must not occur in the node table before its parent node.* Node with key 'Root'node-node_key = c_nodekey-root." Key of the nodeCLEAR node-relatkey. " Special case: A root node has no parent CLEAR node-relatship. " node.CLEAR node-n_image. " Folder-/ Leaf-Symbol in state "closed": " use default.CLEAR node-exp_image. " Folder-/ Leaf-Symbol in state "open":" use defaultCLEAR node-expander. " see below.* node-relatship = cl_gui_column_tree=>relat_last_child.node-hidden = ' '. " The node is visible,node-disabled = ' '. " selectable,node-isfolder = 'X'. " a folder.node-expander = 'X'.APPEND node TO node_table.node-node_key = c_nodekey-root2." Key of the nodeCLEAR node-relatkey. " Special case: A root node has no parent CLEAR node-relatship. " node.CLEAR node-n_image. " Folder-/ Leaf-Symbol in state "closed": " use default.CLEAR node-exp_image. " Folder-/ Leaf-Symbol in state "open":" use defaultCLEAR node-expander. " see below.* node-relatship = cl_gui_column_tree=>relat_last_child.node-hidden = ' '. " The node is visible,node-disabled = ' '. " selectable,node-isfolder = 'X'. " a folder.node-expander = 'X'.APPEND node TO node_table.node-node_key = c_nodekey-root3." Key of the nodeCLEAR node-relatkey. " Special case: A root node has no parent CLEAR node-relatship. " node.CLEAR node-n_image. " Folder-/ Leaf-Symbol in state "closed": " use default.CLEAR node-exp_image. " Folder-/ Leaf-Symbol in state "open": " use defaultCLEAR node-expander. " see below.* node-relatship = cl_gui_column_tree=>relat_last_child.node-hidden = ' '. " The node is visible,node-disabled = ' '. " selectable,node-isfolder = 'X'. " a folder.node-expander = 'X'.APPEND node TO node_table.* Node with key 'Root'CLEAR item.item-node_key = c_nodekey-root.item-item_name = c_column-column1. " Item of Column 'Column1' item-class = cl_gui_column_tree=>item_class_text. " Text Itemitem-text = '业扩工程'.APPEND item TO item_table.CLEAR item.item-node_key = c_nodekey-root3.item-item_name = c_column-column1. " Item of Column 'Column1' item-class = cl_gui_column_tree=>item_class_text. " Text Itemitem-text = '在建工程'.APPEND item TO item_table.*CLEAR item.item-node_key = c_nodekey-root2.item-item_name = c_column-column1. " Item of Column 'Column1'item-class = cl_gui_column_tree=>item_class_text. " Text Itemitem-text = '改造工程'.APPEND item TO item_table.ENDFORM. " BUILD_NODE_AND_ITEM_TABLE*&---------------------------------------------------------------------**& Module CANCEL_9000 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------* MODULE cancel_9000 INPUT.CASE ok_code .WHEN 'BACK' OR 'EXIT'.LEAVE PROGRAM.WHEN 'CANCY'.LEAVE PROGRAM.ENDCASE.ENDMODULE. " CANCEL_9000 INPUT*&---------------------------------------------------------------------**& Module USER_COMMAND_0900 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------* MODULE user_command_0900 INPUT.DATA: node_delete TYPE treev_upno.DATA lv_vbeln TYPE vbeln_vl.DATA: it_delete_nodes TYPE treev_nks.DATA: wa_delete_nodes TYPE tv_nodekey.CLEAR: it_data_collect[].CASE ok_code.WHEN 'ADD'.CLEAR: it_data_collect[].CALL METHOD g_tree->delete_all_nodes.CLEAR: node_table[], item_table[].PERFORM build_node_and_item_table USING node_table item_table.* 业扩工程下面添加一个节点分城镇和居民PERFORM frm_node_item_create USING 'COMP1' c_nodekey-root '城镇居民' ''. PERFORM frm_node_item_create USING 'PRCTR1' 'COMP1' 'AAAA' ''.PERFORM frm_node_item_create USING 'COMP2' c_nodekey-root '农村居民' ''. PERFORM frm_node_item_create USING 'PRCTR2' 'COMP2' 'BBBB' ''.CALL METHOD g_tree->add_nodes_and_itemsEXPORTINGnode_table = node_table item_table = item_table item_table_structure_name = 'MTREEITM' EXCEPTIONSfailed = 1cntl_system_error = 3error_in_tables = 4dp_error = 5table_structure_name_not_found = 6.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.* expand the node with key 'Root'CALL METHOD g_tree->expand_nodeEXPORTINGnode_key = c_nodekey-rootEXCEPTIONSfailed = 1illegal_level_count = 2cntl_system_error = 3node_not_found = 4cannot_expand_leaf = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.CALL METHOD g_tree->expand_nodeEXPORTINGnode_key = c_nodekey-root2EXCEPTIONSfailed = 1illegal_level_count = 2cntl_system_error = 3node_not_found = 4cannot_expand_leaf = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.CALL METHOD g_tree->expand_nodeEXPORTINGnode_key = c_nodekey-root3EXCEPTIONSfailed = 1illegal_level_count = 2cntl_system_error = 3node_not_found = 4cannot_expand_leaf = 5.IF sy-subrc <> 0.* MESSAGE a000.ENDIF.IF p_kunnr IS NOT INITIAL.CALL METHOD g_tree->expand_root_nodesEXPORTINGlevel_count = 4.ENDIF.ENDCASE.ENDMODULE. " USER_COMMAND_0900 INPUT*&---------------------------------------------------------------------* *& Form FRM_NODE_ITEM_CREATE*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->P_1221 text* -->P_C_NODEKEY_ROOT text* -->P_1223 text* -->P_1224 text*----------------------------------------------------------------------* FORM frm_node_item_create USING p_p_nodekeyp_p_relatkeyp_p_item_textp_p_last_child.node-node_key = p_p_nodekey." Key of the node* CLEAR node.CLEAR node-relatkey. " Special case: A root node has no parent CLEAR node-relatship. " node.CLEAR node-n_image. " Folder-/ Leaf-Symbol in state "closed": " use default.CLEAR node-exp_image. " Folder-/ Leaf-Symbol in state "open":" use defaultCLEAR node-expander. " see below.IF p_p_last_child = 'X'.node-relatship = cl_gui_column_tree=>relat_last_child.node-isfolder = ''.node-expander = ''.node-last_hitem = p_p_nodekey.ELSE.node-isfolder = 'X'. " a folder.node-expander = 'X'.ENDIF.node-relatkey = p_p_relatkey.node-hidden = ' '. " The node is visible,node-disabled = ' '. " selectable,APPEND node TO node_table.CLEAR item.item-node_key = p_p_nodekey .item-item_name = c_column-column1. " Item of Column 'Column1' item-class = cl_gui_column_tree=>item_class_text. " Text Itemitem-text = p_p_item_text.APPEND item TO item_table.ENDFORM. " FRM_NODE_ITEM_CREATE。