无限极操作

if exists (select 1
            from  sysobjects
           where  id = object_id('tb_Menu')
            and   type = 'U')
   drop table tb_Menu
go

/*==============================================================*/
/* Table: tb_Menu                                               */
/*==============================================================*/
create table tb_Menu (
   Id                   int                  identity,
   name                 varchar(50)          null,
   twoname              varchar(50)          null,
   pId                  int                  null,
   level                int                  null,
   state                int                  null,
   sort                 int                  null,
   dt                   datetime             null,
   url                  varchar(100)         null,
   des                  varchar(1)           null,
   cNum                 int                  null,
   constraint PK_TB_MENU primary key (Id)
)
go

declare @id1 int 
exec proc_menu_add '节点1',0,@id1 out
declare @id2 int 
exec proc_menu_add '节点1-1',1,@id2 out
declare @id3 int 
exec proc_menu_add '节点1-1-1',2,@id3 out
declare @id4 int 
exec proc_menu_add '节点1-1-2',2,@id4 out
declare @id5 int 
exec proc_menu_add '节点1-2',1,@id5 out
declare @id6 int 
exec proc_menu_add '节点1-2-1',5,@id6 out
declare @id7 int 
exec proc_menu_add '节点1-2-2',5,@id7 out
--exec proc_menu_delete 2@id int,@newpId int,@sibId int,@dir int
--exec proc_menu_updateSort 1,2,4,-1
select * from tb_menu;

------------------------------------递归删除菜单----------------------------------------
if exists (select * from sysobjects where name='proc_menu_P_delete')
drop proc proc_menu_P_delete
go
create proc proc_menu_P_delete(@id int)
as 
declare @count int,@tmpid int,@err int
select @count=count(1) from tb_menu where pId=@id--通过父Id获得子集数据
if(@count>0)--判断是否存在子集数据
begin 
    --根据父Id获得子集并将子集数据Id保存到游标中
    declare ar_cursor cursor local for select id from tb_menu where pid=@id
    open ar_cursor--打开游标
    fetch next from ar_cursor into @tmpid  --取值
    while @@FETCH_STATUS=0--是MSSQL的一个全局变量(0 FETCH 语句成功,-1 FETCH 语句失败或此行不在结果集中,-2 被提取的行不存在,@@fetch_status值的改变是通过fetch next from实现的,“FETCH NEXT FROM Cursor”)
    begin 
        exec proc_menu_P_delete @tmpid--将游标中的子集Id作为参数调用存储过程（递归）
        --递归出来以后将游标中的下一个Id赋值给变量
        fetch next from ar_cursor into @tmpid
    end
        close ar_cursor
        deallocate ar_cursor
end 
delete tb_menu where Id=@id
go

------------------------------------删除菜单----------------------------------------
if exists (select * from sysobjects where name='proc_menu_delete')
drop proc proc_menu_delete
go
create proc proc_menu_delete(@id int)
as
begin
    declare @cNum int,@pId int
    begin try
        begin tran
        select @cNum=-(CNum+1),@pId=pId from tb_Menu where Id=@id
        exec proc_menu_updatecNum @pId,@cNum--修改父节点的子节点个数
        exec proc_menu_P_delete @id--删除自身及其子节点
        commit tran
    end try
    begin catch
        rollback tran
    end catch
end
go


------------------------------------end-------------------------------------------

------------------------------------修改父节点的子节点数量-----------------------------
if exists (select * from sysobjects where name='proc_menu_updatecNum')
drop proc proc_menu_updatecNum
go
create proc proc_menu_updatecNum(@pId int,@cNum int)
as
declare @tmpId int,@_pId int
    select @_pId=pId from tb_menu where id=@pId
if(@_pId<>0)
begin
    declare cor_CNum cursor local for select pId from tb_menu where id=@pId
    open cor_CNum
    fetch next from cor_CNum into @tmpId
    while @@FETCH_STATUS=0
    begin
        exec proc_menu_updatecNum @tmpId,@cNum
        fetch next from cor_CNum into @tmpId
    end
    close cor_CNum
    deallocate cor_CNum
end    
update tb_Menu set cNum=cNum+@cNum where id=@pId
go

-------------------------------------end---------------------------------------------

------------------------------------修改子节点的深度----------------------------------

if exists (select * from sysobjects where name='proc_menu_updateLevel')
drop proc proc_menu_updateLevel
go
create proc proc_menu_updateLevel(@id int,@level int)
as
begin
    declare @tmpid int,@count int
    select @count=COUNT(1) from tb_Menu where pId=@id
    if(@count<>0)
        begin
            declare cur_level cursor local for select id from tb_menu where pId=@id
            open cur_level
            fetch next from cur_level into @tmpid
            while(@@FETCH_STATUS=0)
                begin
                    exec proc_menu_updateLevel @tmpid
                    fetch next from cur_level into @tmpid
                end
            close cur_level
            deallocate cur_level
        end
    update tb_Menu set level=level+@level where Id=@id
end
go


-------------------------------------修改节点顺序：针对Jquery的zTree控件的拖动节点排序功能-------------------------------------
if exists (select * from sysobjects where name='proc_menu_updateSort')
drop proc proc_menu_updateSort
go
create proc proc_menu_updateSort(@id int,@newpId int,@sibId int,@dir int)
as
 begin
    /**
    @id：被移动的节点，@newpId：新父节点，@sibId：新父节点下的兄弟节点，@dir：方向，移动目标前面：1，移到后面：-1
    假设：原节点父节点为1，兄弟节点值以及顺序为：5,4,3,2,1，目标父节点为2，兄弟节点值以及顺序为：3,2,1
          a：现将原节点4，移动到父节点为2的子节点2的“前”面  改变后的值为：
            原：5,4,3,2,1  =>(移走3并且将大于3的减1)=> 4,3,2,1
            新：3,2,1 =>(将大于2的节点加1)=>4,2,1 =>(新插入的排序为：目标节点排序值+1)=>4,3(插入值),2,1
          b：现将原节点4，移动到父节点为2的子节点2的“后”面  改变后的值为：
            原：5,4,3,2,1  =>(移走3并且将大于3的减1)=> 4,3,2,1
            新：3,2,1 =>(将大于等于2的节点加1)=>4,3,1 =>(新插入的排序为：目标节点排序值+1)=>4,3,2(插入值),1
    **/
    begin try
        begin tran
            --修改原兄弟节点的顺序,大于被移走的节点全部-1
            declare @oldsort int,@oldpId int,@cNum int
            select @oldsort=sort,@oldpId=pId,@cNum=CNum from tb_Menu where Id=@id
            update tb_Menu set sort=sort-1 where sort>@oldsort and pId=@oldpId
            if(@sibId<>0)--是否指定了兄弟节点
                begin
                --修改新兄弟节点的顺序、修改移动后自己节点顺序
                declare @newsort int,@sibIdsort int
                select @sibIdsort=sort,@newpId=pId from tb_Menu where Id=@sibId--获得目标节点的排序，并将目标节点的父节点重新付给传进来的@newpId(防止参数@newpId传错)
                if(@dir=1)--移动到目标节点的前面
                begin
                    update tb_Menu set sort=sort+1 where pId=@newpId and sort>@sibIdsort
                    update tb_Menu set sort=@sibIdsort+1 where id=@id
                end
                else if(@dir=-1)
                begin
                    update tb_Menu set sort=sort+1 where pId=@newpId and sort>=@sibIdsort
                    update tb_Menu set sort=@sibIdsort where Id=@id
                end
            end
            else if(@newpId<>0 and @sibId=0)--直接移动某个父节点最下面，即没有选中目标兄弟节点
                begin
                update tb_Menu set sort=sort+1 where pId=@newpId
                update tb_Menu set sort=1 where Id=@id
            end
            
            if(@newpId<>@oldpId)--判断是否改变了父节点
                begin
                declare @newpLevel int
                set @cNum=@cNum+1
                select @newpLevel=level from tb_Menu where id=@newpId
                update tb_Menu set pId=@newpId,level=@newpLevel+1 where Id=@id
                exec proc_menu_updatecNum @newpId,@cNum
                set @cNum=-(@cNum)
                exec proc_menu_updatecNum @oldpId,@cNum
            end
            print @@error
        commit tran
    end try
    
    begin catch
        print @@error
        rollback tran
    end catch
 end
go


-------------------------------------新增节点----------------------------------------------
if exists (select * from sysobjects where name='proc_menu_add')
drop proc proc_menu_add
go
create proc proc_menu_add(@name varchar(50),@pId int,@id int output)
as
begin
    begin try
        begin tran
            declare @pLevel int
            if(@pId<>0)
            begin
                select @pLevel=level+1 from tb_Menu where Id=@pId
            end
            else
            begin
                set @pLevel=1
            end
            insert into tb_Menu(name,twoname,pId,level,cNum,state,sort,dt,url,des)
            values(@name,'',@pId,@pLevel,0,1,0,getdate(),'','')
            set @id=@@IDENTITY
            select @id
            update tb_Menu set sort=sort+1 where pId=@pId--兄弟元素排序加1
            exec proc_menu_updatecNum @pId,1--修改父节点的子节点数量
        commit tran
    end try
    begin catch
        set @id=0
        rollback tran
    end catch
end
go
select * from tb_menu;
  exec proc_menu_updateSort 5,6,0,1
select * from tb_menu;