How to build Hierarchical Tree View in radTreeView? - Progress Community

Loading

Skip to Main Content

How to build Hierarchical Tree View in radTreeView?

How to programmatically build a hierarchical view of data in a radTreeView using the ABL to directly manipulate the nodes in the treeview.

May 14, 2021
Knowledge

Title

How to build Hierarchical Tree View in radTreeView?

URL Name

how-to-build-hierarchical-tree-view-in-radtreeview

Article Number

000202598

Environment

Product: OpenEdge Version: 10.2x, 11.x, 12.x OS: Windows Other: Telerik radTreeView

Question/Problem Description

The code below demonstrates using the ABL to build a hierarchical view of your data in a collapsible Treeview format.

Steps to Reproduce

Clarifying Information

Error Message

Defect Number

Enhancement Number

Cause

Resolution

/*------------------------------------------------------------------------
    File        : radtree
    Purpose     : 
    Syntax      : 
    Description : 
    Author(s)   : kmcintos
    Created     : Thu May 13 13:46:08 EDT 2021
    Notes       : 
  ----------------------------------------------------------------------*/

USING Progress.Lang.*.
USING Progress.Windows.Form.
USING Telerik.WinControls.UI.RadTreeNode.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS radtree INHERITS Form: 
    
    DEFINE PRIVATE VARIABLE bindingSource1 AS Progress.Data.BindingSource NO-UNDO.
    DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
    DEFINE PRIVATE VARIABLE radTreeView1 AS Telerik.WinControls.UI.RadTreeView NO-UNDO.

    DEFINE TEMP-TABLE ttCustomer NO-UNDO LIKE Customer.
    DEFINE TEMP-TABLE ttOrder    NO-UNDO LIKE Order.
    
    DEFINE DATASET dsCustOrd FOR ttCustomer, ttOrder
        DATA-RELATION relCustOrd FOR ttCustomer, ttOrder
            RELATION-FIELDS (CustNum, CustNum).
            
    CONSTRUCTOR PUBLIC radtree (  ):
        
        InitializeComponent().
        FOR EACH Customer NO-LOCK:
            CREATE ttCustomer.
            BUFFER-COPY Customer TO ttCustomer.
            FOR EACH Order WHERE Order.CustNum EQ Customer.CustNum NO-LOCK:
                CREATE ttOrder.
                BUFFER-COPY Order TO ttOrder. 
            END.
        END.
        
        THIS-OBJECT:ComponentsCollection:Add(THIS-OBJECT:components).
        bindingSource1:HANDLE = DATASET dsCustOrd:HANDLE.
        loadTree().
        
        CATCH e AS Progress.Lang.Error:
            UNDO, THROW e.
        END CATCH.

    END CONSTRUCTOR.

    METHOD PRIVATE VOID InitializeComponent(  ):
        
        /* NOTE: The following method is automatically generated.
        
        We strongly suggest that the contents of this method only be modified using the
        Visual Designer to avoid any incompatible modifications.
        
        Modifying the contents of this method using a code editor will invalidate any support for this file. */
        THIS-OBJECT:components = NEW System.ComponentModel.Container().
        @VisualDesigner.FormMember (NeedsInitialize="true").
        DEFINE VARIABLE tableDesc3 AS Progress.Data.TableDesc NO-UNDO.
        tableDesc3 = NEW Progress.Data.TableDesc("ttCustomer").
        @VisualDesigner.FormMember (NeedsInitialize="true").
        DEFINE VARIABLE tableDesc4 AS Progress.Data.TableDesc NO-UNDO.
        tableDesc4 = NEW Progress.Data.TableDesc("ttOrder").
        THIS-OBJECT:bindingSource1 = NEW Progress.Data.BindingSource(THIS-OBJECT:components).
        THIS-OBJECT:radTreeView1 = NEW Telerik.WinControls.UI.RadTreeView().
        CAST(THIS-OBJECT:bindingSource1, System.ComponentModel.ISupportInitialize):BeginInit().
        CAST(THIS-OBJECT:radTreeView1, System.ComponentModel.ISupportInitialize):BeginInit().
        THIS-OBJECT:SuspendLayout().
        /*  */
        /* bindingSource1 */
        /*  */
        THIS-OBJECT:bindingSource1:MaxDataGuess = 0.
        THIS-OBJECT:bindingSource1:NoLOBs = FALSE.
        THIS-OBJECT:bindingSource1:Position = 0.
        @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true").
        DEFINE VARIABLE arrayvar0 AS "Progress.Data.TableDesc[]" NO-UNDO.
        arrayvar0 = NEW "Progress.Data.TableDesc[]"(0).
        tableDesc4:ChildTables = arrayvar0.
        @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true").
        DEFINE VARIABLE arrayvar1 AS Progress.Data.ColumnPropDesc EXTENT 15 NO-UNDO.
        arrayvar1[1] = NEW Progress.Data.ColumnPropDesc("BillToID", "Bill To ID", Progress.Data.DataType:INTEGER).
        arrayvar1[2] = NEW Progress.Data.ColumnPropDesc("Carrier", "Carrier", Progress.Data.DataType:CHARACTER).
        arrayvar1[3] = NEW Progress.Data.ColumnPropDesc("Creditcard", "Credit Card", Progress.Data.DataType:CHARACTER).
        arrayvar1[4] = NEW Progress.Data.ColumnPropDesc("CustNum", "Cust Num", Progress.Data.DataType:INTEGER).
        arrayvar1[5] = NEW Progress.Data.ColumnPropDesc("Instructions", "Instructions", Progress.Data.DataType:CHARACTER).
        arrayvar1[6] = NEW Progress.Data.ColumnPropDesc("OrderDate", "Ordered", Progress.Data.DataType:DATE).
        arrayvar1[7] = NEW Progress.Data.ColumnPropDesc("Ordernum", "Order Num", Progress.Data.DataType:INTEGER).
        arrayvar1[8] = NEW Progress.Data.ColumnPropDesc("OrderStatus", "Order Status", Progress.Data.DataType:CHARACTER).
        arrayvar1[9] = NEW Progress.Data.ColumnPropDesc("PO", "PO", Progress.Data.DataType:CHARACTER).
        arrayvar1[10] = NEW Progress.Data.ColumnPropDesc("PromiseDate", "Promised", Progress.Data.DataType:DATE).
        arrayvar1[11] = NEW Progress.Data.ColumnPropDesc("SalesRep", "Sales Rep", Progress.Data.DataType:CHARACTER).
        arrayvar1[12] = NEW Progress.Data.ColumnPropDesc("ShipDate", "Shipped", Progress.Data.DataType:DATE).
        arrayvar1[13] = NEW Progress.Data.ColumnPropDesc("ShipToID", "Ship To ID", Progress.Data.DataType:INTEGER).
        arrayvar1[14] = NEW Progress.Data.ColumnPropDesc("Terms", "Terms", Progress.Data.DataType:CHARACTER).
        arrayvar1[15] = NEW Progress.Data.ColumnPropDesc("WarehouseNum", "Warehouse Num", Progress.Data.DataType:INTEGER).
        tableDesc4:Columns = arrayvar1.
        @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true").
        DEFINE VARIABLE arrayvar2 AS Progress.Data.TableDesc EXTENT 1 NO-UNDO.
        arrayvar2[1] = tableDesc4.
        tableDesc3:ChildTables = arrayvar2.
        @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true").
        DEFINE VARIABLE arrayvar3 AS Progress.Data.ColumnPropDesc EXTENT 18 NO-UNDO.
        arrayvar3[1] = NEW Progress.Data.ColumnPropDesc("Address", "Address", Progress.Data.DataType:CHARACTER).
        arrayvar3[2] = NEW Progress.Data.ColumnPropDesc("Address2", "Address2", Progress.Data.DataType:CHARACTER).
        arrayvar3[3] = NEW Progress.Data.ColumnPropDesc("Balance", "Balance", Progress.Data.DataType:DECIMAL).
        arrayvar3[4] = NEW Progress.Data.ColumnPropDesc("City", "City", Progress.Data.DataType:CHARACTER).
        arrayvar3[5] = NEW Progress.Data.ColumnPropDesc("Comments", "Comments", Progress.Data.DataType:CHARACTER).
        arrayvar3[6] = NEW Progress.Data.ColumnPropDesc("Contact", "Contact", Progress.Data.DataType:CHARACTER).
        arrayvar3[7] = NEW Progress.Data.ColumnPropDesc("Country", "Country", Progress.Data.DataType:CHARACTER).
        arrayvar3[8] = NEW Progress.Data.ColumnPropDesc("CreditLimit", "Credit Limit", Progress.Data.DataType:DECIMAL).
        arrayvar3[9] = NEW Progress.Data.ColumnPropDesc("CustNum", "Cust Num", Progress.Data.DataType:INTEGER).
        arrayvar3[10] = NEW Progress.Data.ColumnPropDesc("Discount", "Discount", Progress.Data.DataType:INTEGER).
        arrayvar3[11] = NEW Progress.Data.ColumnPropDesc("EmailAddress", "Email", Progress.Data.DataType:CHARACTER).
        arrayvar3[12] = NEW Progress.Data.ColumnPropDesc("Fax", "Fax", Progress.Data.DataType:CHARACTER).
        arrayvar3[13] = NEW Progress.Data.ColumnPropDesc("Name", "Name", Progress.Data.DataType:CHARACTER).
        arrayvar3[14] = NEW Progress.Data.ColumnPropDesc("Phone", "Phone", Progress.Data.DataType:CHARACTER).
        arrayvar3[15] = NEW Progress.Data.ColumnPropDesc("PostalCode", "Postal Code", Progress.Data.DataType:CHARACTER).
        arrayvar3[16] = NEW Progress.Data.ColumnPropDesc("SalesRep", "Sales Rep", Progress.Data.DataType:CHARACTER).
        arrayvar3[17] = NEW Progress.Data.ColumnPropDesc("State", "State", Progress.Data.DataType:CHARACTER).
        arrayvar3[18] = NEW Progress.Data.ColumnPropDesc("Terms", "Terms", Progress.Data.DataType:CHARACTER).
        tableDesc3:Columns = arrayvar3.
        THIS-OBJECT:bindingSource1:TableSchema = tableDesc3.
        /*  */
        /* radTreeView1 */
        /*  */
        THIS-OBJECT:radTreeView1:BackColor = System.Drawing.SystemColors:Control.
        THIS-OBJECT:radTreeView1:Cursor = System.Windows.Forms.Cursors:Default.
        THIS-OBJECT:radTreeView1:DataMember = ?.
        THIS-OBJECT:radTreeView1:DisplayMember = ?.
        THIS-OBJECT:radTreeView1:Dock = System.Windows.Forms.DockStyle:Fill.
        THIS-OBJECT:radTreeView1:Font = NEW System.Drawing.Font("Segoe UI", Progress.Util.CastUtil:ToSingle(8.25)).
        THIS-OBJECT:radTreeView1:ForeColor = System.Drawing.Color:Black.
        THIS-OBJECT:radTreeView1:Location = NEW System.Drawing.Point(0, 0).
        THIS-OBJECT:radTreeView1:Name = "radTreeView1".
        THIS-OBJECT:radTreeView1:RightToLeft = System.Windows.Forms.RightToLeft:No.
        THIS-OBJECT:radTreeView1:Size = NEW System.Drawing.Size(1053, 591).
        THIS-OBJECT:radTreeView1:SpacingBetweenNodes = -1.
        THIS-OBJECT:radTreeView1:TabIndex = 0.
        /*  */
        /* radtree */
        /*  */
        THIS-OBJECT:ClientSize = NEW System.Drawing.Size(1053, 591).
        THIS-OBJECT:Controls:Add(THIS-OBJECT:radTreeView1).
        THIS-OBJECT:Name = "radtree".
        THIS-OBJECT:Text = "radtree".
        CAST(THIS-OBJECT:bindingSource1, System.ComponentModel.ISupportInitialize):EndInit().
        CAST(THIS-OBJECT:radTreeView1, System.ComponentModel.ISupportInitialize):EndInit().
        THIS-OBJECT:ResumeLayout(FALSE).
        CATCH e AS Progress.Lang.Error:
            UNDO, THROW e.
        END CATCH.
    END METHOD.

    METHOD PUBLIC VOID loadTree(  ):
        DEFINE VARIABLE oOrdNodes  AS RadTreeNode NO-UNDO EXTENT.
        DEFINE VARIABLE oCustNode  AS RadTreeNode NO-UNDO.
        
        DEFINE VARIABLE cCustText  AS CHARACTER   NO-UNDO
            INITIAL "Customer &1 (CustNum &2)".
        DEFINE VARIABLE cOrdText   AS CHARACTER   NO-UNDO
            INITIAL "Order# &1 Status: &2 Order Date: &3".
        
        DEFINE VARIABLE iNumNodes  AS INTEGER NO-UNDO.
        
        FOR EACH ttCustomer:
            oCustNode = radTreeView1:Nodes:Add(SUBSTITUTE(cCustText,ttCustomer.Name,STRING(ttCustomer.CustNum))).
            
            iNumNodes = 0.
            FOR EACH ttOrder WHERE ttOrder.CustNum EQ ttCustomer.CustNum:
                iNumNodes  = iNumNodes + 1.
            END.
            
            EXTENT(oOrdNodes) = iNumNodes.
            FOR EACH ttOrder WHERE ttOrder.CustNum EQ ttCustomer.CustNum:
                oOrdNodes = oCustNode:Nodes:Add(SUBSTITUTE(cOrdText,
                                                           STRING(ttOrder.OrderNum),
                                                           ttOrder.OrderStatus),
                                                           STRING(ttOrder.OrderDate,"9999/99/99")).
            END.
            ASSIGN oOrdNodes = ?
                   oCustNode = ?.
        END.               
        radTreeView1:ExpandAll().
        RETURN.

    END METHOD.

    DESTRUCTOR PUBLIC radtree ( ):

    END DESTRUCTOR.

END CLASS.

The .cls .resx files are attached to this case.

Workaround

Notes

Keyword Phrase

Last Modified Date

5/14/2021 10:38 PM

OpenEdge General DiscussionsOpenEdge DeploymentOpenEdge DevelopmentOpenEdge RDBMSOpenEdge ArchitectureOpenEdge Pro2

Drop Files

Upload FilesOr drop files

radtree
radtree
May 14, 2021
4KB
zip

Disclaimer

The origins of the information on this site may be internal or external to Progress Software Corporation (“Progress”). Progress Software Corporation makes all reasonable efforts to verify this information. However, the information provided is for your information only. Progress Software Corporation makes no explicit or implied claims to the validity of this information.

Any sample code provided on this site is not supported under any Progress support program or service. The sample code is provided on an "AS IS" basis. Progress makes no warranties, express or implied, and disclaims all implied warranties including, without limitation, the implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the sample code is borne by the user. In no event shall Progress, its employees, or anyone else involved in the creation, production, or delivery of the code be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the sample code, even if Progress has been advised of the possibility of such damages.

Loading

How to build Hierarchical Tree View in radTreeView? - Progress Community