Alter Proc procInsertIntoDongHao
            @XiaoQuName varchar(20),
            @DongHao varchar(10),
            @LeiAllNum varchar(10),
            @LeiUpNum varchar(10),
            @LeiDownNum varchar(20),
            @UserNumEveryLei varchar(10),
            @GongEllect varchar(10),
            @YuAllow varchar(20),
            @YuAllowCode varchar(20),
            @JiaoFangDate datetime,

             
            @OldXiaoQuName varchar(20),
            @OldDongHao varchar(10),
            
            @Way varchar(4),
            @Ellect varchar(20) output
As

     Declare @a int
     Declare @b int
     Declare @c int
if @Way='添加'
     Begin
              --查找是否有相同的記錄
              Select @a=count(*) from DongHao where 小區(qū)名稱=@XiaoQuName and 幢號(hào)=@DongHao
                     if @a=0   --沒有存在當(dāng)前要加入的數(shù)據(jù)
                            Begin
                               --加入新的數(shù)據(jù)
                                                      select @b=count(*) from XiaoQu where 小區(qū)名稱=@XiaoQuName
                                                      if @b=0 --沒有這個(gè)小區(qū)
                                                      Select @Ellect='不存在你輸入的小區(qū)！'
                                                      if @b<>0 --存在小區(qū)                         
                                                      Begin  
                                                                 --查找是否有土地編號(hào)存在
                                                                 Select @c=count(*) from TuDiShiYong where 土地編號(hào)=@LeiDownNum
                                                                          if @c=0  --沒有存在當(dāng)前的土地編號(hào)
                                                                          Select @Ellect='不存在的土地編號(hào)！'
                                                                          if @c<>0
                                                                          Begin 
                                                                              Insert into DongHao(小區(qū)名稱,幢號(hào),樓層數(shù),地上層數(shù),土地編號(hào),每層戶數(shù),完工狀態(tài),預(yù)售批準(zhǔn)機(jī)關(guān),預(yù)售許可證,交房日期)values(@XiaoQuName,@DongHao,@LeiAllNum,@LeiUpNum,@LeiDownNum,@UserNumEveryLei,@GongEllect,@YuAllow,@YuAllowCode,@JiaoFangDate)
                                                                              Select @Ellect='添加成功'
                                                                          End
                                                      End
                            End


    
                     if @a<>0  --存在當(dāng)前要加入的數(shù)據(jù)
                           Select @Ellect='本小區(qū)的幢號(hào)已有'      
     End


if @Way='刪除'
     Begin
             Select @a=count(*) from DongHao where 小區(qū)名稱=@XiaoQuName and 幢號(hào)=@DongHao
                     if @a=0  --沒有當(dāng)前的幢號(hào)存在
                         Select @Ellect='不存在當(dāng)前幢號(hào)'
                     if @a<>0 --存在當(dāng)前記錄

                         Begin
                         begin tran 
                         Delete From DongHao where 小區(qū)名稱=@XiaoQuName and 幢號(hào)=@DongHao
                         Delete from ShiHao where 小區(qū)名稱=@XiaoQuName and 幢號(hào)=@DongHao
                         Select @Ellect='刪除成功' 
                         commit tran
                         End

     End


if @Way='修改'
     Begin
                          
                     if @XiaoQuName<>@OldXiaoQuName or @DongHao<>@OldDongHao         --修改了 小區(qū)名稱 或是幢號(hào)
                               Begin     
                               --查找是否有相同記錄
                               Select @a=count(*) from DongHao where 小區(qū)名稱=@XiaoQuName and 幢號(hào)=@DongHao                               
                                           if @a=0  --沒有相同記錄 修改
                                            Begin
                                                     select @b=count(*) from XiaoQu where 小區(qū)名稱=@XiaoQuName
                                                      if @b=0 --沒有這個(gè)小區(qū)
                                                      Select @Ellect='不存在你輸入的小區(qū)！'
                                                      if @b<>0 --存在小區(qū)                         
                                                      Begin  
                                                                          Select @c=count(*) from TuDiShiYong where 土地編號(hào)=@LeiDownNum
                                                                          if @c=0  --沒有存在當(dāng)前的土地編號(hào)
                                                                          Select @Ellect='不存在的土地編號(hào)！'
                                                                          if @c<>0
                                                                          Begin 
                                                                                begin tran
                                                                                Update DongHao set 小區(qū)名稱=@XiaoQuName,幢號(hào)=@DongHao,樓層數(shù)=@LeiAllNum,地上層數(shù)=@LeiUpNum,土地編號(hào)=@LeiDownNum,每層戶數(shù)=@UserNumEveryLei,完工狀態(tài)=@GongEllect,預(yù)售批準(zhǔn)機(jī)關(guān)=@YuAllow,預(yù)售許可證=@YuAllowCode,交房日期=@JiaoFangDate where 小區(qū)名稱=@OldXiaoQuName and 幢號(hào)=@OldDongHao
                                                                                Update ShiHao set 小區(qū)名稱=@XiaoQuName,幢號(hào)=@DongHao where 小區(qū)名稱=@OldXiaoQuName and 幢號(hào)=@OldDongHao
                                                                                Select @Ellect='修改成功' 
                                                                                Commit tran
                                                                          End
                                                      End
                                            End
                                          if @a<>0 --有相同記錄
                                            Select @Ellect='幢號(hào)已有'
                               End  

                      if @XiaoQuName=@OldXiaoQuName and @DongHao=@OldDongHao       --沒有修改 小區(qū)名稱 或是幢號(hào)
                                            Begin
                                                      select @b=count(*) from XiaoQu where 小區(qū)名稱=@XiaoQuName
                                                      if @b=0 --沒有這個(gè)小區(qū)
                                                      Select @Ellect='不存在你輸入的小區(qū)！'
                                                      if @b<>0 --存在小區(qū)                         
                                                      Begin  
                                                                          Select @c=count(*) from TuDiShiYong where 土地編號(hào)=@LeiDownNum
                                                                          if @c=0  --沒有存在當(dāng)前的土地編號(hào)
                                                                          Select @Ellect='不存在的土地編號(hào)！'
                                                                          if @c<>0
                                                                          Begin 
                                                                                  Update DongHao set 小區(qū)名稱=@XiaoQuName,幢號(hào)=@DongHao,樓層數(shù)=@LeiAllNum,地上層數(shù)=@LeiUpNum,土地編號(hào)=@LeiDownNum,每層戶數(shù)=@UserNumEveryLei,完工狀態(tài)=@GongEllect,預(yù)售批準(zhǔn)機(jī)關(guān)=@YuAllow,預(yù)售許可證=@YuAllowCode,交房日期=@JiaoFangDate where 小區(qū)名稱=@OldXiaoQuName and 幢號(hào)=@OldDongHao
                                                                                  Select @Ellect='修改成功' 
                                                                          End
                                                      End
                                            End
     End

Go