Treeview绑定SQL数据库

Treeview绑定SQL数据库

一个表:purtree,一条存储bind_purtree(select * from purtree)

pur设计表



总的后台代码如下:我也没删除其它的了!

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI.WebControls
Imports data

Partial Class purindex
Inherits System.Web.UI.Page
Dim mysql As data = New data()
Dim a1 As ArrayList = New ArrayList()
Dim dts As DataSet

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
Public Function gettreetable() As DataTable
Dim ds As New DataSet
ds = mysql.binddata("bind_purtree", a1)
Dim dt As New DataTable()
dt = ds.Tables(0)
Return dt
End Function

Public Sub populatenodes(ByVal nodes As TreeNodeCollection, Optional ByVal intparentid As Int32 = 0)
Dim dt As New DataTable()
dt = gettreetable()
Dim strexpression As String
strexpression = "[parentid] = " & intparentid
Dim foundrows() As DataRow
foundrows = dt.Select(strexpression)
Dim i As Integer
For i = 0 To foundrows.GetUpperBound(0)
Dim tn As New TreeNode()
tn.Text = foundrows(i).Item("treename").ToString() & "(" & getcount(foundrows(i).Item("treeid").ToString()) & "家)"
tn.Value = foundrows(i).Item("treeid").ToString()
Dim dr() As DataRow
dr = dt.Select("[parentid] = " & tn.Value)
If dr.GetUpperBound(0) > -1 Then
tn.PopulateOnDemand = True
End If
nodes.Add(tn)
Next
End Sub
Protected Sub treeview1_treenodepopulate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs) Handles TreeView1.TreeNodePopulate
populatenodes(e.Node.ChildNodes, e.Node.Value)
End Sub

'树节点更换
Sub node_change(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim treeid As String = TreeView1.SelectedNode.Value
a1.Add(mysql.getparam("@treeid", SqlDbType.Int, treeid))
dts = New DataSet
dts = mysql.binddata("bind_pur_searchid", a1)
ViewState("dts") = dts
bindgridview()
End Sub


Sub bindgridview()
Dim dv As DataView = ViewState("dts").Tables(0).DefaultView
GridView1.DataSource = dv
dv.Sort = SortField
If Not SortAscending Then
dv.Sort += " DESC"
End If
GridView1.DataBind()
ShowStats()
End Sub


'绑定初始化数据
Sub binddata()
dts = New DataSet
dts = mysql.binddata("bind_pur", a1)
ViewState("dts") = dts
End Sub

'获取厂商数量
Public Function getcount(ByVal searchid As String) As Integer
Dim connectionstring As String = System.Configuration.ConfigurationManager.AppSettings("connectionstring")
Dim cn As SqlConnection = New SqlConnection(connectionstring)
cn.Open()
Dim cm As New SqlCommand
cm.CommandText = "select dbo.get_pur_count(@searchid)"
cm.Connection = cn
cm.Parameters.Add(New SqlParameter("@searchid", SqlDbType.VarChar, 50)).Value = searchid
Dim typecount As Integer = cm.ExecuteScalar
Return typecount
End Function

'添加树节点
Protected Sub addnodebt_click(ByVal sender As Object, ByVal e As System.EventArgs)
If TreeView1.SelectedValue = "" Then
Response.Write("<script>javascript:window.alert('请选择要添加子节点的父节点!!!');</script>")
Return
Else
Dim treeid As Integer = Int32.Parse(TreeView1.SelectedNode.Value)
Dim url As String = "purnode.aspx?treeid=" & treeid
Response.Write("<script>javascript:window.open( '" + url + "');</script>")
End If
End Sub

'删除树节点
Protected Sub delnodebt_click(ByVal sender As Object, ByVal e As System.EventArgs)
If TreeView1.SelectedValue = "" Then
Response.Write("<script>javascript:window.alert('请选择要删除的节点!!!');</script>")
Return
Else
a1 = New ArrayList
a1.Add(mysql.getparam("@treeid", SqlDbType.Int, Int32.Parse(TreeView1.SelectedNode.Value)))
mysql.executenon("purtree_delete", a1)
Response.Redirect("purindex.aspx")
End If
End Sub

End Class