存储过程实现无限级分类(2)

原创 2007年10月05日 18:45:00
di。删除的存储过程
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
4.编辑的存储过程(没有用到,我自己写了一个简单的只是编辑名称,没有涉及到移动)
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 = @Paren

 
t_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
 

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(2)插入记录

-- ======================================== -- Author:   -- Description:  -- Return     : 成功返回0,重...

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(4)显示记录

显示记录,其实再简单不过了,一条sql语句即可 Select * From T_Class order By F_RootID,F_Orders 下面给出一个ASPX(C#版)的示例 Datab...

无限极存储过程分类treeview源

  • 2016年01月04日 17:56
  • 587KB
  • 下载

mysql存储过程实现无限分类

DROP TABLE IF EXISTS `pcms_channel`; CREATE TABLE IF NOT EXISTS `pcms_channel` (   `cid` tinyint(3...

PHP实现无限级分类的2种方法——父值与左右值2

一、绪论 产品分类,多级的树状结构的论坛,邮件列表等许多地方我们都会遇到这样的问题:如何存储多级结构的数据?在PHP的应用中,提供后台数据存储的通常是关系型数据库,它能够保存大量的数据,提供高效的数据...

oracle存储过程详解--游标 实现增、删、改、查的(2)

带参数的游标         与存储过程和函数相似,可以将参数传递给游标并在查询中使用。这对于处理在某种条件下打开游标的情况非常有用。它的语法如下:       CURSOR   c...

存储过程在SQLServer2008 R2中的实现

昨天只是对T-SQL语句的熟悉,通过新建查询->查询分析编辑器中输入T-SQL语句实现各表间的操作,比较随性,有点草莽,你通过新建存储过程可以将这一过程封装,进行多次调用,比较像是正规军,不多说,上图...

如何实现在Oracle中应用存储过程调用MatLab函数(2)

今天讲解讲解如何在oracle中 即实现 PLSQL 中调用java 方法。 当这个方式实现了,就可以结合(1)中讲的方法,将matlab实现的算法写到 oracle 数据库中,利用触发器和存储过程...

db2存储过程

  • 2013年11月19日 09:42
  • 23KB
  • 下载

DB2存储过程精简教程

  • 2014年07月25日 14:34
  • 972KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:存储过程实现无限级分类(2)
举报原因:
原因补充:

(最多只允许输入30个字)