Application of tree structure in development

zhaozj2021-02-16  56

First, we establish a table TBTree in SQL Server 2000, the structure design of the table is as follows:

Column name

type of data

description

length

Primary key

Id

Int

Node number

4

Yes

Context

Nvarchar

The node content we have to display

50

ParentID

Int

Parent node number

4

DEPTH

Int

depth

4

Regarding the DEPTH field, it is mainly the number of layers of the node, that is, which layer of this node is in the tree. With a Depth field, we will be more convenient when we program, and only one WHERE condition can be queried in the SQL query. All nodes of the current depth layer can be queried. If we don't design a Depth field, you can also do a similar query, which requires loop processing in the SQL query in the background. Alternatively, you can do these processes on the front desk without processing in the background database server. Below we will introduce these ways:

Construction tables in SQL Server 2000:

Create Table [DBO]. [TBTree] (

[ID] [INT] Identity (1, 1) Not NULL,

[Context] [nvarchar] (50) collate chinese_prc_ci_as null,

[Parentid] [int] NULL

) On [primary]

Add the following records in the table:

Set Identity_Insert Tbtree On

INSERT TBTREE (ID, Context, Parentid) Values ​​(1, 'China ", 0)

INSERT TBTREE (ID, Context, Parentid Values ​​(2, 'Beijing ", 11)

INSERT TBTREE (ID, Context, Parentid) Values ​​(3, 'Tianjin ", 1)

INSERT TBTREE (ID, Context, Parentid) Values ​​(4, 'Hebei Province ", 1)

INSERT TBTREE (ID, Context, Parentid) Values ​​(5, 'Guangdong ", 1)

INSERT TBTREE (ID, Context, Parentid Values ​​(6, 'Guangzhou ", 5)

INSERT TBTREE (ID, Context, Parentid) Values ​​(7, 'Sichuan ", 1)

INSERT TBTREE (ID, Context, Parentid) Values ​​(8, 'Chengdu', 7)

INSERT TBTREE (ID, Context, Parentid) Values ​​(9, 'Shenzhen', 5)

INSERT TBTREE (ID, Context, Parentid) VALUES (10, 'Shijiazhuang', 4)

INSERT TBTREE (ID, Context, Parentid) Values ​​(11, 'Liaoning Province ", 1)

INSERT TBTREE (ID, Context, Parentid) Values ​​(12, 'Dalian', 11)

INSERT TBTREE (ID, Context, Parentid) Values ​​(13, 'Shanghai ", 1)

INSERT TBTREE (ID, Context, Parentid) Values ​​(14, 'Tianhe Software Park ", 6)

INSERT TBTREE (ID, Context, Parentid) Values ​​(15, 'Shantou ", 5)

Set Identity_INSERT TBTREE OFF The implementation in VB6 when there is a DEPTH field:

Let's take a look, add a new node to the TreeView to TreeView, the syntax is as follows:

Nodes.add (Relative, [RELATIONSHIP] [, Key] [, Text] [, Image] [, SELECTEDIMAGE])

From the above grammar, you can see that adding a node, just know the key number of the parent node number, you can add a child node through this Key.

If the result is queried in the database, you can first add the first layer of nodes, add the node of the second layer to the node. So, I wrote an AddTree function below, the parameter is the number of layers (depth), and the RS is open smaller than or equal to this number of records, and sorts them by layers. Therefore, one layer is added, and a tree can be completed by a circular record set. Simple enough!

DIM CN as adodb.connection 'Defines the connection of the database

DIM RS as adodb.recordset

'Project ---> Quote ---> Microsoft ActiveX Data Object 2.x (version number)

Private sub flow_load ()

Set cn = new adodb.connection

'Connect to the database

Cn.connectionstring = "provider = sqloledb; data source = pmserver; initial catalog = Benchmark; user ID = sa; password = sa;"

Cn.open

Call Addtree (3)

End Sub

Private sub addtree (byval intDepth as integer)

'Open the record set, get all the nodes that are less than some depth, and sort by depth

SET RS = New Adodb.Recordset

Rs.open "SELECT * from TBTree WHERE Depth <= '" & INTDEPTH & "' Order By Depth", CN, AdoPENDYNAMIC, ADLOCKREADOONLY

DIM XNOD As Node

Do While Not Rs.eof

IF = 0 THEN

'Join root nodes

Set XNOD = TreeView1.nodes.add (, "Key" & rs.fields ("ID"), RS.Fields ("Context"))

Else

'Join child node

Set XNOD = TreeView1.nodes.add ("Key" & rs.fields ("ParentID"), TVWChild, "Key" & rs.fields ("id"), rs.fields ("context")))

END IF

Xnod.ensurevisible

Rs.movenext

Loop

Rs.close

End Sub

The program operation results are shown below:

Realization when there is no defth (depth)

The above program is completely relying on the column of Depth. If there is no depth of this column to sort, you can see that the above code will be wrong! From the design of the TBTree table, it can be seen that if there is no defth, you can query all nodes under a node as long as you have the ID field and the ParentID field, the answer is yes! See the stored procedure below, the role is that you can find all the nodes below! And these nodes are sorted by hierarchy!

Establish a stored procedure:

Create Procedure Spgettree

@ID int)

AS

Set nocount on

Declare @TMP Table (ID INT, Context Varchar (50), ParentId Int, Depth Int

Insert @tmp select * from tbtree where id = @ id

While exists (SELECT 1 from TBTree A, @ Tmp B Where a.parentId = B.ID and A.ID Not in (Select ID from @TMP))

INSERT @TMP SELECT A. * from TBTree a, @ Tmp B Where a.parentId = B.ID and A.ID Not in (Select ID from @TMP)

Select * from @TMP

Set nocount off

Go

Analysis: The above stored procedure, the While statement is a layer of gently will insert the node of the tree into the target table @TMP. Interested readers can track themselves.

We use the above stored procedure to easily write code to add a tree structure with VB6, because the data obtained by this stored procedure is in order to be sequentially arranged, and we can add nodes in the order of recurring records.

Private Sub AddTreeex (Byval InTid As Integer)

SET RS = New Adodb.Recordset

Rs.Open "Spgettree" & intid, CN, AdoPENDYNAMIC, ADLOCKREADONLY

DIM XNOD As Node

Do While Not Rs.eof

IF = 0 THEN

Set XNOD = TreeView1.nodes.add (, "Key" & rs.fields ("ID"), RS.Fields ("Context"))

Else

Set XNOD = TreeView1.nodes.add ("Key" & rs.fields ("ParentID"), TVWChild, "Key" & rs.fields ("id"), rs.fields ("context")))

END IF

Xnod.ensurevisible

Rs.movenext

Loop

Rs.close

End Sub

Implementation in VB.NET

In .NET, because the usage of the TreeView control and the usage in VB6 are different! The previous VB6 programmer is worried because there is no key attribute of the node! In .NET, the TreeView tree node is a collection, and each Treenode can contain a collection of other TREENODE objects. To determine where you are in the tree structure, you have to use the fullpath property. We know that the addition node can only be added to this node after finding a node. Now VB.NET has a key attribute, which is a big inconvenience to the operation. Microsoft MSDN has an article with inheritance and overloading, extending the TreeView control, adds a Key property to the node. Interested readers can look at How to: Create a Key Property for a TreeView Node In Visual Basic .NET This article. But the universal is: This article is just a NodeKey property for Treenode, but does not provide a good Key value search function. Although all this can be extended with code, the code is lengthy.

Therefore, the tree structure of many layers of layer is added can only be recursive. Moreover, the code below us is very refined, and only one ParentId is transmitted to the recursive process, and all nodes under this number are loaded into the tree structure!

Fully reflected: Simple is good idea.

Design ideas: Query from the database to all nodes, add to DataView

Using DataView

The.rowfilter property gets all the records under a parent node number ParentID, and recursively recursively loops.

Implementation in VB.NET:

Private DS as new dataset ()

The 'AddTree recursive function uses a table in the data set each time, so defined as a private

Private Sub Form1_Load (Byval E AS System.Object, Byval E AS System.Eventargs) Handles MyBase.Load

'' Define Database Connections

DIM CN As New SqlConnection ()

Try

'Initializing the connection string

Cn.connectionstring = "Data Source = PMServer; Initial Catalog = Benchmark; Persist Security Info = FALSE; User ID = SA; Password = sa;"

Cn.open ()

'Add command, get data from the database

DIM SQLCMD As New SqlCommand ()

Sqlcmd.connection = CN

Sqlcmd.commandtext = "SELECT * from TBTree"

Sqlcmd.commandtype = commandType.text

DIM ADP As SqldataAdapter = New SqldataAdapter (SQLCMD)

ADP.FILL (DS)

Catch exception

MSGBOX (ex.Message)

Finally

'Close connection

Cn.close ()

END TRY

'Call the recursive function, complete the generation of the tree structure

AddTree (0, Nothing)

End Sub

'? Recursively add a tree node

Private Sub Addtree (byval Parentid As Integer, Byval Pnode As Treenode)

Dim Node as Treenode

DIM DVTREE As New DataView () DVTree = New DataView (DS.TABLES (0))

'Filter ParentID to get all current child nodes

Dvtree.rowfilter = "ParentId =" ParentId.tostring

DIM ROW AS DATAROWVIEW

For Each Row in Dvtree

If pnode is nothing then 'judgments if the root node

'? Add root node

Node = TreeView1.nodes.Add (Row ("Context"). Tostring ())

'? Recurns again

AddTree (INT32.PARSE (Row ("ID"). Tostring ()), NODE

Else

'Add a child node of the current node

Node = pnode.nodes.add (Row ("Context"). TOSTRING ())

'? Recurns again

AddTree (INT32.PARSE (Row ("ID"). Tostring ()), NODE

END IF

Node.ensurevisible ()

NEXT

End Sub

The program operation results are shown below:

Implementation in C #:

With the code implemented in VB.NET, we can change to C #'s grammar:

DataSet DS = New Dataset ();

Private Void Form1_Load (Object Sender, System.EventArgs E)

{

/ / Define database connections

SqlConnection CN = New SQLCONNECTION ();

Try

{

// Initialize the connection string

Cn.connectionstring = "data source = pmserver; initial catalog = Benchmark; Persist security info = false; user ID = sa; password = sa;";

Cn.open ();

// Add command to get data from the database

Sqlcommand sqlcmd = new SQLCOMMAND ();

Sqlcmd.connection = cn;

Sqlcmd.commandtext = "SELECT * from TBTree";

Sqlcmd.commandtype = commandtype.text;

SqlDataAdapter ADP = New SqlDataAdapter (SQLCMD);

ADP.FILL (DS);

}

Catch (Exception EX)

{

Throw (ex);

}

Finally

{

Cn.close ();

}

// Call the recursive function and complete the generation of the tree structure

AddTree (0, (Treenode) NULL;

}

// Regenerate the node of the tree

Public void addtree (int parentid, treenode pnode)

{

DataView DVTree = New DataView (ds.tables [0]);

// Filter ParentID to get all the current child nodes

Dvtree.rowfilter = "[parentid] =" ParentID;

Foreach (DataRowView Row In Dvtree)

{

IF (pnode == null)

{// '? Add root node

Treenode Node = TreeView1.nodes.add (Row ["Context"]. TOSTRING ()); addtree (INT32.PARS (Row ["Id"]. Tostring ()), Node); // Regeneration again

}

Else

{// Add the child node of the current node

Treenode node = pnode.nodes.add (row ["context"]. TOSTRING ());

AddTree (Int32.Parse (ROW ["ID"]. TOSTRING ()), Node); // Regeneration again

}

}

}

Postscript: Please read the reader to modify the connection string settings in the program.

Attachment: Related Microsoft MSDN documents, including build a tree structure from XML in VB6 and .NET

http://support.microsoft.com/default.aspx?kbid=311318

http://support.microsoft.com/default.aspx?kbid=308063

Http://support.microsoft.com/default.aspx?kbid=317597

Http://support.microsoft.com/default.aspx?kbid=244954

转载请注明原文地址:https://www.9cbs.com/read-16976.html

New Post(0)