[CLOSED] Handling TreePanel Server Side

  1. #1

    [CLOSED] Handling TreePanel Server Side

    Hi, I want to write a page which is going to handle a treepanel completely on server side. For this I have written the following code:

    <%@ Page Title="" Language="VB" MasterPageFile="~/site_no_ajax.master" AutoEventWireup="false" CodeFile="utmxmenu2.aspx.vb" Inherits="utmxmen2" %>
    
    
    
    <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">
    
    
    
       <extnet:ResourceManager ID="ResourceManager1" runat="server" />
        <extnet:Viewport ID="Viewport1" runat="server" Layout="BorderLayout">
            <Items>
                <extnet:TreePanel ID="treeMenu" runat="server" Width="400" Icon="BookOpen" Title="Menu del Sistema"
                    AutoScroll="true" Split="true" Collapsible="false" Region="West"
                    RootVisible="false">
                    <Fields>
                        <extnet:ModelField Name="id" />
                        <extnet:ModelField Name="desc_text" />
                        <extnet:ModelField Name="run_text" />
                        <extnet:ModelField Name="param_text" />
                    </Fields>
                    <ColumnModel>
                        <Columns>
                            <extnet:TreeColumn runat="server" DataIndex="desc_text" Flex="1" Text="Descripcion"></extnet:TreeColumn>
                            <extnet:Column runat="server" DataIndex="run_text" Flex="1" Text="Comando"></extnet:Column>
                            <extnet:Column runat="server" DataIndex="param_text" Flex="1" Text="Parametros"></extnet:Column>
                        </Columns>
                    </ColumnModel>
                    <SelectionSubmitConfig Encode="True" />
                    <BottomBar>
                        <extnet:StatusBar ID="StatusBar1" runat="server" AutoClear="1500" />
                    </BottomBar>
                   <DirectEvents>
                        <ItemClick OnEvent="ItemSelected">
                            <ExtraParams>
                                <extnet:Parameter Name="id" Value="record.data.id" Mode="Raw" />
                                <extnet:Parameter Name="index" Value="index" Mode="Raw" />
                            </ExtraParams>
                        </ItemClick>
                        <ItemMove OnEvent="ItemMove">
                            <ExtraParams>
                                <extnet:Parameter Name="item" Value="item.data.id" Mode="Raw" Encode="True" />
                                <extnet:Parameter Name="oldparent" Value="oldParent.data.id" Mode="Raw" Encode="True" />
                                <extnet:Parameter Name="newparent" Value="newParent.data.id" Mode="Raw" Encode="True" />
                                <extnet:Parameter Name="index" Value="index" Mode="Raw" />
                            </ExtraParams>
                        </ItemMove>
                    </DirectEvents>
                    <Root>
                        <extnet:Node Text="Home" Icon="House" NodeID="Home">
                            <Children>
                            </Children>
                            <CustomAttributes>
                                <extnet:ConfigItem Name="id" Value="-1"></extnet:ConfigItem>
                            </CustomAttributes>
                        </extnet:Node>
                    </Root>
                    <View>
                        <extnet:TreeView>
                            <Plugins>
                                <extnet:TreeViewDragDrop runat="server" ContainerScroll="false" AllowLeafDrop="True" AllowContainerDrops="True" />
                            </Plugins>
                        </extnet:TreeView>
                    </View>
                    <Plugins>
                        <extnet:CellEditing runat="server" />
                    </Plugins>
                    <Buttons>
                        <extnet:Button ID="Button2" runat="server" Text="Colapsar Menu" Icon="MagifierZoomOut">
                            <Listeners>
                                <Click Handler="#{treeMenu}.collapseAll();" />
                            </Listeners>
                        </extnet:Button>
                        <extnet:Button ID="Button1" runat="server" Text="Expandir Menu" Icon="MagnifierZoomIn">
                            <Listeners>
                                <Click Handler="#{treeMenu}.expandAll();" />
                            </Listeners>
                        </extnet:Button>
                        <extnet:Button ID="Button4" runat="server" Text="Refrescar" Icon="TableRefresh">
                            <DirectEvents>
                                <Click OnEvent="MenuRefresh">
                                </Click>
                            </DirectEvents>
                         </extnet:Button>
                     </Buttons>
    
                </extnet:TreePanel>
                <extnet:FormPanel runat="server"
                    ID="ItemFormPanel"
                    Region="Center"
                    Title="Informacion del Item del Menu" DefaultAnchor="100%"
                    BodyPadding="5">
                    <FieldDefaults LabelWidth="150" />
                    <Items>
                        <extnet:TextField runat="server" ID="findex" FieldLabel="Indice"  ReadOnly="true" />
                        <extnet:TextField runat="server" ID="fid" FieldLabel="Identificador" ReadOnly="true" />
                        <extnet:TextField runat="server" ID="fdesc_text" FieldLabel="Descripcion" />
                        <extnet:TextField runat="server" ID="frun_text" FieldLabel="Comando" />
                        <extnet:TextField runat="server" ID="fparam_text" FieldLabel="Parametros" />
                    </Items>
                    <Buttons>
                        <extnet:Button ID="newbtn" runat="server" Text="Nuevo" Icon="New">
                            <DirectEvents>
                                <Click OnEvent="ItemNew">
                                </Click>
                            </DirectEvents>
                        </extnet:Button>
                        <extnet:Button ID="updatebtn" runat="server" Text="Modificar" Icon="TableSave">
                            <DirectEvents>
                                <Click OnEvent="ItemUpdate">
                                </Click>
                            </DirectEvents>
                        </extnet:Button>
                        <extnet:Button ID="Button3" runat="server" Text="Borrar" Icon="TableDelete">
                            <DirectEvents>
                                <Click OnEvent="ItemDelete">
                                </Click>
                            </DirectEvents>
                        </extnet:Button>
                    </Buttons>
    
                </extnet:FormPanel>
            </Items>
        </extnet:Viewport>
    </asp:Content>
    Imports System.Collections.Generic
    Imports System.Web
    Imports System.Web.UI
    Imports System.Web.UI.WebControls
    Imports System.Data
    
    Imports Psa.Data
    Imports Psa.Session
    Imports Psa.Files
    Imports Psa.Application
    Imports Psa.Convert
    Imports Psa.Configuration
    Imports Psa.Errors
    Imports Psa.AMath
    
    Imports Ext.Net.Utilities
    Imports Ext.Net
    
    Partial Class utmxmen2
        Inherits System.Web.UI.Page
    
        Private menu As Ext.Net.TreePanel
        Private RootMenuItem As Ext.Net.Node
        Private RootItem As Ext.Net.Node
    
        Private Function ProfileId() As String
            Return "0"
        End Function
    
        Protected Overloads Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
            menu = treeMenu
            RootMenuItem = menu.Root.Item(0)
            If Not IsPostBack Then
                buildMenu()
            End If
        End Sub
    
        Private Sub buildMenu()
            PsaData.CreateConnection(PsaSession.ConnectionString())
            Dim sql As String
            Dim dr As DataRow = Nothing
            sql = "select ParentId,Id,Desc_Text,run_text,param_text from menus where profileid = %1"
            sql = sql.Replace("%1", ProfileId)
            Dim ds As DataSet = PsaData.CreateDataSet(sql)
    
            Dim dbRow As System.Data.DataRow
            For Each dbRow In ds.Tables(0).Rows
                If dbRow("ParentId").ToString = "0" Then
                    dbRow("ParentId") = System.DBNull.Value
                End If
            Next
            ds.Relations.Add("NodeRelation", ds.Tables(0).Columns("Id"), ds.Tables(0).Columns("ParentId"))
    
            For Each dbRow In ds.Tables(0).Rows
                If (dbRow.IsNull("ParentId")) Then
                    RootItem = CreateItem(dbRow)
                    RootMenuItem.Children.Add(RootItem)
                    PopulateSubMenu(dbRow, RootItem)
                    RootItem.Icon = Icon.Folder
                    If RootItem.Children.Count = 0 Then
                        RootItem.Leaf = True
                        RootItem.Icon = Icon.Application
                    End If
                End If
            Next dbRow
            '        menu.CollapseAll()
            RootMenuItem.Expanded = True
        End Sub
    
        Private Sub PopulateSubMenu(ByVal dbRow As System.Data.DataRow, ByVal item As Ext.Net.Node)
            Dim childRow As System.Data.DataRow
            For Each childRow In dbRow.GetChildRows("NodeRelation")
                Dim childItem As Ext.Net.Node = CreateItem(childRow)
                item.Children.Add(childItem)
                PopulateSubMenu(childRow, childItem)
                If childItem.Children.Count = 0 Then
                    childItem.Leaf = True
                    childItem.Icon = Icon.Application
                End If
            Next childRow
        End Sub
    
        Private Function CreateItem(ByVal dbRow As System.Data.DataRow) As Ext.Net.Node
            Dim item As New Ext.Net.Node()
            item.Text = PsaConvert.ObjToString(dbRow("desc_text"))
            item.CustomAttributes.Add(New Ext.Net.ConfigItem() With {.Name = "id", .Value = dbRow("id").ToString()})
            item.CustomAttributes.Add(New Ext.Net.ConfigItem() With {.Name = "desc_text", .Value = dbRow("desc_text").ToString()})
            item.CustomAttributes.Add(New Ext.Net.ConfigItem() With {.Name = "run_text", .Value = dbRow("run_text").ToString()})
            item.CustomAttributes.Add(New Ext.Net.ConfigItem() With {.Name = "param_text", .Value = dbRow("param_text").ToString()})
            Return item
        End Function
    
        Protected Sub MenuRefresh(sender As Object, e As DirectEventArgs)
            Try
                menu.Root.Clear()
                buildMenu()
                menu.Refresh()
                Notification.Show(New NotificationConfig With {.Title = "Item", .Html = "Menu refrescado"})
            Catch ex As Exception
                e.ErrorMessage = ex.Message
                e.Success = False
            End Try
        End Sub
    
        Protected Sub ItemSelected(sender As Object, e As DirectEventArgs)
            '        Notification.Show(New NotificationConfig With {.Title = "Item", .Html = e.ExtraParams("id") + "</br>" + e.ExtraParams("index")})
            'Exit Sub
            Try
                Dim sql As String = "select * from menus where profileId = %1 and Id = %2"
                sql = sql.Replace("%1", ProfileId)
                sql = sql.Replace("%2", e.ExtraParams("id"))
                Dim dr As DataRow = PsaData.CreateDataRow(sql)
                findex.Text = e.ExtraParams("index")
                fid.Text = e.ExtraParams("id")
                fdesc_text.Text = ""
                frun_text.Text = ""
                fparam_text.Text = ""
                If dr IsNot Nothing Then
                    fdesc_text.Text = PsaConvert.ObjToString(dr("desc_text"))
                    frun_text.Text = PsaConvert.ObjToString(dr("run_text"))
                    fparam_text.Text = PsaConvert.ObjToString(dr("param_text"))
                End If
            Catch ex As Exception
                e.ErrorMessage = ex.Message
                e.Success = False
            End Try
        End Sub
    
        Protected Sub ItemMove(sender As Object, e As DirectEventArgs)
            Dim i As Integer = 1
        End Sub
    
        Protected Sub ItemUpdate(sender As Object, e As DirectEventArgs)
            Try
                If fdesc_text.Text = "" Then
                    Throw New Exception("Descripcion es requerida")
                End If
                Dim sql As String
                Dim dr As DataRow
                sql = "select * from menus where profileId = %1 and Id = %2"
                sql = sql.Replace("%1", ProfileId)
                sql = sql.Replace("%2", fid.Text)
                dr = PsaData.CreateDataRow(sql)
                dr("desc_text") = fdesc_text.Text
                dr("run_text") = frun_text.Text
                dr("param_text") = fparam_text.Text
                PsaData.UpdateTable(dr.Table, "select * from menus where 1=0")
                Dim node As Ext.Net.Node = treeMenu.Root.Item(findex.Text)
                If node IsNot Nothing Then
                    node.Text = fdesc_text.Text
                End If
                Notification.Show(New NotificationConfig With {.Title = "Item", .Html = "Item actualizado"})
            Catch ex As Exception
                e.ErrorMessage = ex.Message
                e.Success = False
            End Try
        End Sub
    
        Protected Sub ItemDelete(sender As Object, e As DirectEventArgs)
            Try
                Dim sql As String
                sql = "delete from menus where profileId = %1 and Id = %2"
                sql = sql.Replace("%1", ProfileId)
                sql = sql.Replace("%2", fid.Text)
                PsaData.ExecuteNonQuery(sql)
                fdesc_text.Text = "Eliminado"
                Dim node As Ext.Net.Node = treeMenu.Root.Item(fid.Text)
                If node IsNot Nothing Then
                    node.Text = fdesc_text.Text
                End If
                Notification.Show(New NotificationConfig With {.Title = "Item", .Html = "Item eliminado"})
            Catch ex As Exception
                e.ErrorMessage = ex.Message
                e.Success = False
            End Try
        End Sub
    
    
        Protected Sub ItemNew(sender As Object, e As DirectEventArgs)
            Try
                If fdesc_text.Text = "" Then
                    Throw New Exception("Descripcion es requerida")
                End If
                Dim sql As String
                Dim dr As DataRow
                sql = "select * from menus where 1=0"
                Dim dt As DataTable = PsaData.CreateDataTable(sql)
                dr = dt.NewRow
                dt.Rows.Add(dr)
                sql = "select max(id) from menus where profileId = %1"
                sql = sql.Replace("%1", ProfileId)
                Dim id As Integer = PsaConvert.ObjToInt(PsaData.ExecuteScalar(sql)) + 1
                dr("profileId") = ProfileId()
                dr("id") = id
                dr("desc_text") = fdesc_text.Text
                dr("run_text") = frun_text.Text
                dr("param_text") = fparam_text.Text
                PsaData.UpdateTable(dr.Table, "select * from menus where 1=0")
                If fid.Text = "" Then
                Else
                End If
                RootItem = CreateItem(dr)
                RootMenuItem.Children.Add(RootItem)
                Notification.Show(New NotificationConfig With {.Title = "Item", .Html = "Item creado"})
            Catch ex As Exception
                e.ErrorMessage = ex.Message
                e.Success = False
            End Try
        End Sub
    
    End Class
    Here on ItemNew i create a new item, added to database an tried to hung it to root menu. Of course I see nothing back at client side.
    How can I manage to add,delete and update a node back to treeMenu on client side?
    Last edited by Daniil; Dec 24, 2013 at 8:30 AM. Reason: [CLOSED]
  2. #2
    Hi @jstifel,

    What about the following approach?
    http://examples2.ext.net/#/TreePanel...d/Remote_Mode/
  3. #3
    Yes, I checked it but still want to do it all on server side. Is it there a way? If not, I will go try to do it using remote mode.
  4. #4
    Hope this helps.

    Get a node by id
    NodeProxy node = this.treeMenu.GetNodeById("node id");
    Update
    node.SetText("new text");

    Append a child

    node.AppendChild(new Node { Text = "new node" };
    Remove
    node.Remove();

Similar Threads

  1. Replies: 0
    Last Post: Mar 04, 2013, 4:32 PM
  2. [CLOSED] TreePanel selected node (Server Side)
    By cwolcott in forum 2.x Premium Help
    Replies: 1
    Last Post: Dec 07, 2012, 11:23 PM
  3. [CLOSED] Refresh TreePanel Server Side
    By Antonio09 in forum 2.x Premium Help
    Replies: 2
    Last Post: Oct 17, 2012, 5:00 PM
  4. How can i refresh the Treepanel in server side
    By NishaLijo in forum 1.x Help
    Replies: 7
    Last Post: Jan 18, 2012, 10:00 PM
  5. TreePanel server side
    By swarnock in forum 1.x Help
    Replies: 7
    Last Post: Jan 30, 2009, 5:27 AM

Tags for this Thread

Posting Permissions