Alter proc procInsertIntoXiaoQu
       @XiaoQuName varchar(20),
       @QuYu varchar(50),
       @Adder varchar(50),
       @Text varchar(8000),
       @OldXiaoQuName varchar(20), 
       @Way varchar(10),--Way=添加，刪除，修改
       @BackWord varchar(12) Output
       --功能：對小區的添加，刪除，修改
As

Declare @CountNum  int,@CountNumOne int
select @Backword='wrong'
       
        
if rtrim(@Way)='添加'  --對小區的新數據的添加
   Begin
        --查找有沒有相同名稱的小區存在
        select @CountNum=count(*) from XiaoQu where 小區名稱=@XiaoQuName
               if @CountNum=0  --沒有相同的名稱存在，可以加入
                      begin
                      insert into XiaoQu(小區名稱,區域,地址,簡介) values(@XiaoQuName,@QuYu,@Adder,@Text)
                      Select @BackWord='添加成功'   
                      end
                if @CountNum<>0  --有相同的名稱
                      Select @BackWord='小區已存在'
   End

if rtrim(@Way)='刪除'  --對小區的刪除
   Begin
        select @CountNum=count(*) from XiaoQu where 小區名稱=@XiaoQuName
               if @CountNum=0  --沒有這個小區
                     Begin
                     Select @BackWord='小區不存在'
                     End    
               if @CountNum<>0 --有小區
                     Begin
                     begin tran
                     delete from XiaoQu where 小區名稱=@XiaoQuName
                     --同時也刪除本小區的別的表中的數據

  
                     delete from TuDiShiYong where  小區名稱=@XiaoQuName
                     delete from FangXing where  小區名稱=@XiaoQuName
                     delete from DongHao where  小區名稱=@XiaoQuName
                     delete from ShiHao where  小區名稱=@XiaoQuName
                     delete from CarRoom where  小區名稱=@XiaoQuName

                     commit tran
                     Select @BackWord='刪除成功'
                     End 
   End     

if rtrim(@Way)='修改' --對小區的修改
   Begin
          

           Select @CountNum=count(*) from XiaoQu where 小區名稱=@OldXiaoQuName
               if @CountNum=0  --沒有這個小區
                     Begin
                     Select @BackWord='小區不存在'
                     End
               if @CountNum<>0 --有小區
                     Begin
                                  if @OldXiaoQuName<>@XiaoQuName       --修改了小區名稱 
                                              Begin
                                                 Select @CountNumOne=count(*) from XiaoQu where 小區名稱=@XiaoQuName
                                                 if @CountNumOne=1 
                                                 Select @BackWord='小區已有'                                             
                                                 if @countNumOne=0          
                                                            Begin   
                                                            
                                                            begin tran
                                                            Update XiaoQu set 小區名稱=@XiaoQuName,區域=@QuYu,地址=@Adder,簡介=@Text where 小區名稱=@OldXiaoQuName
                                                            Update TuDiShiYong set 小區名稱=@XiaoQuName where 小區名稱=@OldXiaoQuName
                                                            Update FangXing set 小區名稱=@XiaoQuName where 小區名稱=@OldXiaoQuName
                                                            Update DongHao set 小區名稱=@XiaoQuName where 小區名稱=@OldXiaoQuName
                                                            Update ShiHao set 小區名稱=@XiaoQuName where 小區名稱=@OldXiaoQuName
                                                            Update CarRoom set 小區名稱=@XiaoQuName where 小區名稱=@OldXiaoQuName

                                                            Select @BackWord='修改成功'
                                                            commit tran

                                                            End  
                                              End


                                  if @OldXiaoQuName=@XiaoQuName       --修改了小區名稱 
                                              Begin 
                                                            update XiaoQu set 小區名稱=@XiaoQuName,區域=@QuYu,地址=@Adder,簡介=@Text where 小區名稱=@OldXiaoQuName
                                                            Select @BackWord='修改成功'
                                                   
                                              End
                      End
   End
--修改了小區名稱后，相對的別的表中的小區名稱,也要同時修改
Go