zoukankan      html  css  js  c++  java
  • ASP.NET无限级分类的非递归实现(存储过程版)

    或多或少都做过树状目录、产品分类之类的二级或三级菜单,如果遇到更多级的分类,就一般使用递归了。在程序中使用递归或多或少会增加一些性能上的开销。

    之前我用Asp.Net在程序中实现过非递归的无限级分类目录,但考虑到移植性不强,就改成了存储过程,发出来大家共同研究一下,到目前为止,测试过程中还没发现问题,另外,代码方面没经过什么优化。

    通常情况下,我们更多的操作是读取目录,所以,在下面的实现中,读取我们只需要一Select语句就够了,不使用递归,理论上无限级~!
    ===================================================
    表结构:
    表名:Tb_Column
    表结构(所有字段非空):
    Column_ID     int 主键(注:非标识)
    Column_Name   nvarchar(50)分类名称
    Parent_ID     int 父分类ID(默认值0)
    Column_Path   nvarchar(1000) 分类路径
    Column_Depth  int分类深度(默认值0)
    Column_Order  int排序(默认值0)
    Column_Intro  nvarchar(1000)分类说明

    ================================================
    存储过程一:新建分类

    CREATE PROCEDURE sp_Column_Insert
    (
    @Parent_ID int,
    @Column_Name nvarchar(50),
    @Column_Intro nvarchar(1000)
    )
    AS
    Declare @Err As int
    Set @Err=0

    Begin Tran
    --通过现有记录获取栏目ID
    Declare @Column_ID As int
    Declare @Column_Depth As int
    Select @Column_ID = Max(Column_ID) From Tb_Column
    IF @Column_ID Is Not Null
    Set @Column_ID = @Column_ID+1
    Else
    Set @Column_ID = 1

    --判断是否是顶级栏目,设置其Column_Path和Column_Order
    Declare @Column_Path As nvarchar(1000)
    Declare @Column_Order As int
    IF @Parent_ID = 0
    Begin
    Set @Column_Path =Ltrim(Str(@Column_ID))
    Select @Column_Order = Max(Column_Order) From Tb_Column
    IF @Column_Order Is Not Null
    Set @Column_Order = @Column_Order + 1
    Else --如果没有查询到记录,说明这是第一条记录
    Set @Column_Order = 1

    --深度
    Set @Column_Depth = 1
    End
    Else
    Begin
    --获取父节点的路径和深度
    Select @Column_Path = Column_Path ,@Column_Depth = Column_Depth From Tb_Column Where

    Column_ID=@Parent_ID
    IF @Column_Path Is Null
    Begin
    Set @Err = 1
    Goto theEnd
    End

    --获取同父节点下的最大序号


    Select @Column_Order = Max(Column_Order) From Tb_PicColumn Where Column_Path like

    ''+@Column_Path+'%'  Or Column_ID = @Parent_ID
    IF @Column_Order Is Not Null --如果序号存在,那么将该序号后的所有序号都加1
    Begin
    --更新当前要插入节点后所有节点的序号
    Update Tb_Column Set Column_Order = Column_Order +1 Where Column_Order

    >@Column_Order
    --同父节点下的最大序号加上1,构成自己的序号
    Set @Column_Order = @Column_Order + 1
    End
    Else
    Begin
    Set @Err=1
    Goto theEnd
    End

    --父节点的路径加上自己的ID号,构成自己的路径
    Set @Column_Path = @Column_Path + '' + Ltrim(Str(@Column_ID))

    --深度
    Set @Column_Depth = @Column_Depth+1

    End

    Insert Into Tb_Column(Column_ID,Column_Name,Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Intro)

    Values(@Column_ID,@Column_Name,@Parent_ID,@Column_Path,@Column_Depth,@Column_Order,@Column_Intro)

    IF @@Error<>0

    Begin
    Set @Err=1
    Goto theEnd
    End

    --更新当前记录之后的记录的ORDER
    --Update Tb_Column Set Column_Order = Column_Order+1 Where Column_Order  > @Column_Order

    theEnd:
    IF @Err=0
    Begin
    Commit Tran
    Return @Column_ID
    End
    Else
    Begin
        Rollback Tran
    Return 0
    End
    GO

    ===================================================
    存储过程二:删除分类
    CREATE PROCEDURE sp_Column_Delete
    (
    @Column_ID int
    )
    AS
    Declare @Err As int
    Set @Err = 0
    Begin Tran
    --首先查询该节点下是否有子节点
    Select Column_ID From Tb_Column Where Parent_ID = @Column_ID
    IF @@RowCount<>0
        Begin
        Set @Err = 1
        Goto theEnd
        End

    --获取该节点的Column_Order,为了删除后整理其他记录的顺序
    Declare @Column_Order As int
    Select @Column_Order = Column_Order From Tb_Column Where Column_ID = @Column_ID
    IF @Column_Order Is NUll
        Begin
          Set @Err =2
          Goto theEnd
        End

    --更新其他记录的Column_Order
    Update Tb_Column Set Column_Order = Column_Order -1 Where Column_Order >@Column_Order
    IF @@Error<>0
        Begin
          Set @Err =3
          Goto theEnd
        End

    --删除操作
    Delete From Tb_Column Where Column_ID=@Column_ID
    IF @@Error<>0
        Begin
          Set @Err =4
          Goto theEnd
      End

    --更新其他记录的Column_ID
    --Update Tb_Column Set Column_ID= Column_ID - 1 Where Column_ID >@Column_ID
    --IF @@Error<>0
    --    Begin
    --      Set @Err =5
    --      Goto theEnd
    --    End

    theEnd:
    IF @Err = 0
        Begin
          Commit Tran
          Return 0 --删除成功
        End
    Else
        Begin
          IF @Err=1
      Begin
          Rollback Tran
          Return 1 --有子节点
    End
          Else
    Begin
          Rollback Tran
          Return 2--未知错误
    End
        End
    GO
    =============================================
    存储过程三:编辑分类
    CREATE PROCEDURE sp_Column_Update
    (
    @Column_ID int,
    @Parent_ID int,
    @Column_Name nvarchar(50),
    @Column_Intro nvarchar(1000)
    )
    AS
    Declare @Err As int
    Set @Err=0

    Begin Tran

    --获取修改前的:Parent_ID,Column_Depth,Column_Order


    Declare @oParent_ID As int
    Declare @oColumn_Depth As int
    Declare @oColumn_Order As int
    Declare @oColumn_Path As nvarchar(1000)

    Select @oParent_ID = Parent_ID, @oColumn_Depth = Column_Depth,@oColumn_Order = Column_Order, @oColumn_Path = Column_Path  From Tb_Column Where Column_ID = @Column_ID
    IF @oParent_ID Is Null
        Begin
        Set @Err = 1
        Goto theEnd
        End

    --如果父ID没有改变,则直接修改栏目名和栏目简介
    IF @oParent_ID = @Parent_ID
        Begin
        Update Tb_Column Set Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
        IF @@Error <> 0
        Set @Err = 2
        Goto theEnd
        End


    Declare @nColumn_Path As nvarchar(1000)
    Declare @nColumn_Depth As int
    Declare @nColumn_Order As int

    --获取当前节点作为父节点所包含的节点数[包括自身] 注:如果返回 “1” 说明是单节点
    Declare @theCount As int
    Select @theCount = Count(Column_ID) From Tb_Column Where Column_ID=@Column_ID Or Column_Path like ''+@oColumn_Path+'%'
    IF @theCount Is Null
    Begin
        Set @Err = 3
        Goto theEnd
    End

    IF @Parent_ID=0 --如果是设置为顶级节点,将节点设置为最后一个顶级节点
    Begin
    --Print '设置为顶级栏目'
    Set @nColumn_Path = Ltrim(Str(@Column_ID))
    Set @nColumn_Depth =1

    Select @nColumn_Order = Max(Column_Order) From Tb_Column
    IF @nColumn_Order Is NULL
                      Begin
         Set @Err = 4
         Goto theEnd
         End

    Set @nColumn_Order = @nColumn_Order - @theCount + 1

    --更新三部分 1 节点本身 2 所有子节点 2 本树更改之前的后面记录的顺序

    --Print '更新本栏目之前位置后面的所有栏目[不包括本栏目下的子栏目]的:Column_Order'
    Update Tb_Column Set Column_Order = Column_Order-@theCount Where (Column_Order >@oColumn_Order) And (Column_Path Not like ''+@oColumn_Path+'%')
    IF @@Error <> 0
        Begin
        Set @Err = 7
        Goto theEnd
        End

    --Print '更新本栏目的:Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
    Print 'Order : '+Ltrim(Str(@nColumn_Order))
    Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
    IF @@Error <> 0
        Begin
        Set @Err = 5

        Goto theEnd
        End

    --Print '更新本栏目下的所有子栏目的:Column_Path,Column_Depth,Column_Order'
                 Update Tb_Column Set Column_Path = Replace(Column_Path,@oColumn_Path,@nColumn_Path),Column_Depth = Column_Depth + (@nColumn_Depth-@oColumn_Depth),Column_Order = Column_Order+( @nColumn_Order-@oColumn_Order) Where Column_Path like ''+@oColumn_Path+'%'
    IF @@Error <> 0
        Begin
        Set @Err = 6
        Goto theEnd
        End


    End
    Else
    Begin
    --获取未来父节点的相关信息,并设置本节点的相关值
    Select @nColumn_Depth = Column_Depth,@nColumn_Path = Column_Path From Tb_Column Where Column_ID = @Parent_ID
    IF @nColumn_Depth Is  NULL Or @nColumn_Path Is Null
          Begin
          Set @Err = 8
          Goto theEnd
          End


    Set @nColumn_Depth = @nColumn_Depth +1
    Select @nColumn_Order =Max(Column_Order) From Tb_Column Where Column_ID = @Parent_ID Or  Column_Path like ''+@nColumn_Path+'%'
    IF @nColumn_Order Is  NULL
          Begin
          Set @Err = 9
          Goto theEnd
          End

    Set @nColumn_Path = @nColumn_Path +''+ Ltrim(Str(@Column_ID))

    IF @nColumn_Order = @oColumn_Order+1 --如果新的父节点是原来位置上端最近一个兄弟,则所有节点的顺序都不改变
                        Begin
    Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
    IF @@Error <> 0
        Begin
        Set @Err = 10
        Goto theEnd
        End
           End

    Set  @nColumn_Order = @nColumn_Order + 1

    --更新三部分 1 本树更改之前的后面(或前面)记录的顺序 1 节点本身  3 所有子节点
    --分为向上移或象下移
    --Print '更新本栏目之前位置后面的所有栏目[或者本栏目之后位置]  [不包括本栏目下的子栏目]的:Column_Order'
    IF @nColumn_Order < @oColumn_Order
    Begin
    Update Tb_Column Set Column_Order = Column_Order+@theCount Where Column_Order<@oColumn_Order  And Column_Order >=@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'%') And Column_ID<>@Column_ID
    IF @@Error <> 0
            Begin
            Set @Err = 12

            Goto theEnd
            End
    End
    Else
    Begin
    Update Tb_Column Set Column_Order = Column_Order-@theCount Where Column_Order >@oColumn_Order And Column_Order<@nColumn_Order  And (Column_Path Not like ''+@oColumn_Path+'%') And Column_ID<>@Column_ID


    IF @@Error <> 0
            Begin
            Set @Err = 13
            Goto theEnd
            End
    End

    --Print '更新本栏目的:Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
    Print 'Order : '+Ltrim(Str(@nColumn_Order))
    IF @nColumn_Order > @oColumn_Order
    Set @nColumn_Order = @nColumn_Order - @theCount
    Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
    IF @@Error <> 0
        Begin
        Set @Err = 10
        Goto theEnd
        End

    --Print '更新本栏目下的所有子栏目的:Column_Paht,Column_Depth,Column_Order'
                 Update Tb_Column Set Column_Path = Replace(Column_Path,@oColumn_Path,@nColumn_Path),Column_Depth = Column_Depth + (@nColumn_Depth-@oColumn_Depth),Column_Order = Column_Order+(@nColumn_Order-@oColumn_Order) Where Column_Path like ''+@oColumn_Path+'%'
    IF @@Error <> 0
        Begin
        Set @Err = 11
        Goto theEnd
        End
    End

    theEnd:
    IF @Err<>0 --如果有错误则返回错误号
       Begin
       Rollback Tran
       Return @Err
       End
    Else     --如果没有错误就返回0
       Begin
       Commit Tran
       Return 0
       End
    GO
    =========================================
    存储过程四:显示分类(只是一条select语句)
    分类列表:
    CREATE PROCEDURE sp_Column_List


    AS
    SELECT Column_ID, Column_Name, Parent_ID, Column_Path, Column_Depth,
          Column_Order, Column_Intro
    FROM Tb_Column
    ORDER BY Column_Order
    GO

  • 相关阅读:
    day29
    day28
    day27
    查询区间内有多少个不同的数(线段树/树状数组)
    树状数组变形:带区间修改的树状数组
    特征提取:PCA主成分分析法和NMF非负矩阵分解法
    Trie树
    Logistic&Softmax回归
    高斯贝叶斯分类器(GNB实战)
    朴素贝叶斯分类器(伯努利贝叶斯+高斯贝叶斯+多项式贝叶斯)
  • 原文地址:https://www.cnblogs.com/sig556/p/1226312.html
Copyright © 2011-2022 走看看