procinsertintotudishiyong.sql

扬州升瑞售楼系统2000扬州升瑞售楼系统2000扬州升瑞售楼系统2000扬州升瑞售楼系统2000扬州升瑞售楼系统2000

Alter Proc ProcInsertIntoTuDiShiYong
            @XiaoQuName varchar(20),
            @TuDiBianHao varchar(20),
            @GetWay varchar(10),
            @AllowFileCode varchar(20),
            @FileCode varchar(20),
            @ForUse varchar(10),
            @NowName varchar(20),
            @MianJi float,
            @ObjectAllowCode varchar(20),
            @MakeCode varchar(20),
            @BeginYear datetime,
            @EndYear datetime,

            @OldTuDiBianHao varchar(20),    --老的土地编号,修改土地编号时用到这一项
            @Way varchar(4),       --添加，删除，修改
            @Ellect varchar(20) output
As
         Declare @a int
         Declare @b int
if @Way='添加'
         Begin    
         --查找是否有当前成员存在
         Select @a=count(*) from TuDiShiYong where 土地编号=@TuDiBianHao          
                if @a=0    --不存在当有成员，加入
                             Begin
                             --查找是否有这个小区
                             select @b=count(*) from XiaoQu where 小区名称=@XiaoQuName
                                          if @b=0 --没有这个小区
                                               Select @Ellect='不存在你输入的小区！'
                                          if @b<>0 --存在小区
                                                Begin
                                                insert into TuDiShiYong(小区名称,土地编号,取得方式,批准文件名,文件号,规化用途,现或暂定名,土地面积,工程规化许可证号,施工许可证号,起始年限,终止年限)values(@XiaoQuName,@TuDiBianHao,@GetWay,@AllowFileCode,@FileCode,@ForUse,@NowName,@MianJi,@ObjectAllowCode,@MakeCode, @BeginYear,@EndYear)
                                                Select @Ellect='添加成功'
                                                End
                             End
                if @a<>0   --存在当前成员
                             Select @Ellect='土地编号已有'
         End


if @Way='修改'
         Begin    
         
                             
                                             
                                  if rtrim(@TuDiBianHao)<>rtrim(@OldTuDiBianHao)       --修改了土地编号                           
                                  Begin
                                  --查找是否有当前成员存在
                                  Select @a=count(*) from TuDiShiYong where 土地编号=@TuDiBianHao          

                                                  if @a=0    --不存在当有成员，加入

                                                  Begin
                                                                 select @b=count(*) from XiaoQu where 小区名称=@XiaoQuName
                                                                        if @b=0 --没有这个小区
                                                                        Select @Ellect='不存在你输入的小区！'
                                                                        if @b<>0 --存在小区                         
                                                                                Begin  
                                                                                Begin tran
                                                                                update TuDiShiYong set 小区名称=@XiaoQuName,土地编号=@TuDiBianHao,取得方式=@GetWay,批准文件名=@AllowFileCode,文件号=@FileCode,规化用途=@ForUse,现或暂定名=@NowName,土地面积=@MianJi,工程规化许可证号=@ObjectAllowCode,施工许可证号=@MakeCode,起始年限=@BeginYear,终止年限=@EndYear where 土地编号=@OldTuDiBianHao
                                                                                --修改相对表中的数据
                                                                                Update DongHao set 土地编号=@TuDiBianHao where 土地编号=@OldTuDiBianHao
                                                                                Select @Ellect='修改成功'
                                                                                Commit tran 
                                                                                End
                                                  End

                                                  if @a<>0   --存在当前成员
                                                  Select @Ellect='土地编号已有'
                                 End


                                  if rtrim(@TuDiBianHao)=rtrim(@OldTuDiBianHao)       --没有修改了土地编号                           
                                  Begin
                                                           select @b=count(*) from XiaoQu where 小区名称=@XiaoQuName
                                                                        if @b=0 --没有这个小区
                                                                        Select @Ellect='不存在你输入的小区！'
                                                                        if @b<>0 --存在小区                         
                                                                                Begin    
                                                                                update TuDiShiYong set 小区名称=@XiaoQuName,土地编号=@TuDiBianHao,取得方式=@GetWay,批准文件名=@AllowFileCode,文件号=@FileCode,规化用途=@ForUse,现或暂定名=@NowName,土地面积=@MianJi,工程规化许可证号=@ObjectAllowCode,施工许可证号=@MakeCode,起始年限=@BeginYear,终止年限=@EndYear where 土地编号=@OldTuDiBianHao
                                                                                Select @Ellect='修改成功'
                                                                         End
                                  End


          End
              
if @Way='删除'
         Begin    
         --查找是否有当前成员存在
         Select @a=count(*) from TuDiShiYong where 土地编号=@TuDiBianHao          
                if @a=0    --不存在当有成员，加入
                             Select @Ellect='不存在'
                            
                if @a<>0   --存在当前成员
                             Begin
                                              Select @b=count(*) from DongHao where 土地编号=@TuDiBianHao
                                                           if @b=0  --表明没有在使用中,可以删除
                                                                   Begin
                                                                         delete from TuDiShiYong where 土地编号=@TuDiBianHao
                                                                         Select @Ellect='删除成功'
                                                                   end   
                                                            if @b<>0  --在使用中，不可以删除
                                                                         Select @Ellect='使用中，不可删除！'
                             End
         End
Go