存储过程,无限级分类

最新推荐文章于 2019-01-05 14:41:49 发布
最新推荐文章于 2019-01-05 14:41:49 发布
阅读量706 收藏 1
点赞数
分类专栏： SQL SERVER 文章标签： 存储 path null table go user

 创建表

if   exists  ( select   *   from  dbo.sysobjects  where  id  =   object_id (N ' [dbo].[Tb_Column] ' )  and   OBJECTPROPERTY (id, N ' IsUserTable ' )  =   1 )
 drop   table   [ dbo ] . [ Tb_Column ]
GO

Create   TABLE   [ dbo ] . [ Tb_Column ]  (
     [ Column_ID ]   [ int ]   NOT   NULL  ,
     [ Column_Name ]   [ nvarchar ]  ( 50 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ Parent_ID ]   [ int ]   NULL  ,
     [ Column_Path ]   [ nvarchar ]  ( 1000 ) COLLATE Chinese_PRC_CI_AS  NULL  ,
     [ Column_Depth ]   [ int ]   NULL  ,
     [ Column_Order ]   [ int ]   NULL  ,
     [ Column_Intro ]   [ nvarchar ]  ( 1000 ) COLLATE Chinese_PRC_CI_AS  NULL  
)  ON   [ PRIMARY ]
GO

Alter   TABLE   [ dbo ] . [ Tb_Column ]   ADD  
     CONSTRAINT   [ DF_Tb_Column_Parent_ID ]   DEFAULT  ( 0 )  FOR   [ Parent_ID ] ,
     CONSTRAINT   [ DF_Tb_Column_Column_Depth ]   DEFAULT  ( 0 )  FOR   [ Column_Depth ] ,
     CONSTRAINT   [ DF_Tb_Column_Column_Order ]   DEFAULT  ( 0 )  FOR   [ Column_Order ] ,
     CONSTRAINT   [ PK_Tb_Column ]   PRIMARY   KEY    CLUSTERED  
    (
         [ Column_ID ]
    )   ON   [ PRIMARY ]  
 GO


exec  sp_addextendedproperty N ' MS_Description ' , N ' 分类深度(默认值0） ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_Depth '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' int 主键（注：非标识） ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_ID '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' 分类说明 ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_Intro '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' 分类名称 ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_Name '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' 排序(默认值0) ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_Order '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' 分类路径 ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Column_Path '
GO
exec  sp_addextendedproperty N ' MS_Description ' , N ' 父分类ID（默认值0） ' , N ' user ' , N ' dbo ' , N ' table ' , N ' Tb_Column ' , N ' column ' , N ' Parent_ID '


GO

 

插入分类

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_Column  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

 

显示分类

 

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
zjwtnt
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
帖子回复解决方案—说—无限级分类
从未停止过
11-04 1713
空间，贴吧回复三种解决方案介绍
SQL2005动态表无限级分类存储过程
03-04
本文将深入探讨如何使用存储过程来处理这种无限级分类。 首先，`sp_Column_Update.sql` 是一个更新操作的存储过程。在无限级分类中，可能需要修改节点的位置，比如移动子类别到不同的父类别下。存储过程会处理这种...
存储过程无限分类
weixin_34088583的博客
12-03 68
2019独角兽企业重金招聘Python工程师标准>>> ...
存储过程实现无限级分类（3）
兴百放的博客
05-23 1016
存储过程实现无限级分类（3）最后一步显示分类（只是一条select语句） CREATE PROCEDURE sp_Column_List  ASSELECT Column_ID, Column_Name, Parent_ID, Column_Path, Column_Depth,       Column_Order, Column_IntroFROM Tb_ColumnORDER B
无限级分类原理
fwkjdaghappy1的专栏
06-08 4474
很多人在做一些多级别分类的时候，表结构的基本字段设计如下： id  分类id parent_id 父类id  。。。。。 实现无限级分类主要是靠id和parent_id两个字段，parent_id为0表示是顶级分类 相信应该很容易看的懂。 但是这样设计的表结构，有一个硬伤，那就是如果我要取某个节点下面的所有子节点，就必须通过递归来实现了，这样的效率是非常差的 下面提供一种更优
无限级分类的非递归实现(存储过程版）
johncools的博客
06-09 1256
无限级分类的非递归实现(存储过程版） 或多或少都做过树状目录、产品分类之类的二级或三级菜单，如果遇到更多级的分类，就一般使用递归了。在程序中使用递归或多或少会增加一些性能上的开销。之前我用ASP.net在程序中实现过非递归的无限级分类目录，但考虑到移植性不强，就改成了存储过程，发出来大家共同研究一下，到目前为止，测试过程中还没发现问题，另外，代码方面没经过什么优化。通常情况下，我们更多
Sql存储过程版无限级分类
03-06
Sql存储过程版无限级分类 开发说明： 使用的数据库：SQLServer2000(存储过程) js框架：Jquery/ajax 说明： 基于AJAX树状目录显示 支持灵活的 目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 支持 栏目选择...
ASP 无限级分类实现
10-30
在ASP（Active Server Pages）环境中，处理无限级分类的问题是一项常见的挑战。无限级分类通常用于构建如网站导航、文章分类或者产品目录等，允许用户灵活地创建多层级的结构。在本例中，我们将深入探讨如何在ASP中...
sqlserver另类非递归的无限级分类(存储过程版)
09-11
这种非递归的无限级分类方法在操作时需要更多的存储空间，但能有效避免递归查询带来的性能问题，特别是在需要频繁查询和更新分类关系时。同时，通过存储过程封装操作逻辑，使得添加、编辑和删除分类更加规范和安全，...
mysql 无限级分类实现思路
09-11
MySQL中的无限级分类实现是数据库设计中常见的挑战，特别是在需要构建层级结构的数据模型时，例如网站的导航菜单、组织架构或商品分类等。通常有多种方法可以实现无限级分类，这里我们将探讨三种常见的策略。 首先...
无限级分类，不用循环方式，数据库必须维护path逗号分隔
09-11 546
//获取树结构数据  //生成数据 public function tree($type = 1){ /*function _function_private_remove_arr_key($data){ foreach($data as &amp;$v){ if(isset($v['child'])){ $v['child'] = _function_pri...
Oracle SqlServer Mysql 无限级次数 递归 遍历树 Oracle 层次查询 start with...connect by prior， with as 递归 ，存储过程递归
许恒的博客
01-05 954
  http://blog.sina.com.cn/s/blog_b93c537d0102w8nn.html Liam的博客 oracle、SqlServer、Mysql递归实现 转载2016-02-23 15:43:07 标签：数据库递归 首先，递归都是在一张表里的关系（以下来源均参考自网上资料） 一、Oracle Oracle中的select语句可以用start with.....
Asp.net 无限级分类
生活要快乐 - 魏言
07-03 1999
Asp.net 无限级分类近期做的一个网站需要一个无限级下拉列表的无限级分级功能，于是就有了下面的小作品。 开始以为无限级下拉列表功能应该很简单，无非就是用一个递归算法就好啦，但是在做起来的时候却会遇到一些比较模糊的东西。在网上找了很久也没有找到例子，没办法了，想偷懒也偷不成了，还是自己老老实实的写一个吧。不多废话，下面请看我做的详细方法。 1。无限级分类肯定要数据库支持啦，用户可
存储过程实现无限级分类（1）
网络乞丐
10-05 575
在做考题的的时候，涉及到分类，虽然不是无限级的，但是，为了以后扩展用，想做成无限级，在网上找找了，一个用存储过程作的，虽然添加，编辑，移动，用的是存储过程，可是在读出来的时候只用了一条Select 语句，感觉挺爽的，下面我把存储过程列出来，我只用到了添加，编辑，没有用到移动。1，表结构===================================================
利用.net TreeView控件实现无限级分类
最新发布
05-25
TreeView控件是一个常用的用于展示树形结构数据的控件，利用它可以方便地实现无限级分类。下面是利用.net TreeView控件实现无限级分类的步骤： 1. 在窗体中添加一个TreeView控件，并设置其Dock属性为Fill，使其充满...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值