procinsertmoney.sql

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

Alter proc procInsertMoney
            @XiaoQuName varchar(20),--对楼层基价表的处理
            @JiJia float,
            @LeiChen int,
            @AddDelete varchar(4),
            @ChenChiCha float,
            @JiaGe float,

            @GetMoneyProjectName varchar(20),--对收费项目的设置表的处理
            @GetMoneyBiaoJun float,
            @GetMoneyDanWei varchar(20),

            @ComputerMoneyProjectName varchar(20),--对计算项目表的设置
            @ComputerMoneyGongShi varchar(2000),

            @Way varchar(4),
            @Biao varchar(20),
            @OldLeiChen int,
            @OldKey varchar(20),  
            @Ellect varchar(20) output
As
Declare @a int
          select @Ellect='OK'
if @Biao='LeiJia'           --对楼层基价表的处理
        Begin
               if @Way='添加'
                            Begin
                                        --查找是否有相同的记录
                                        Select @a=count(*) from LeiJia where 小区名称=@XiaoQuName and 楼层=@LeiChen
                                        if @a=0 --表明没有
                                             Begin
                                             Insert into LeiJia(小区名称,基价,楼层,增减,层次差,价格)values(@XiaoQuName,@JiJia,@LeiChen,@AddDelete,@ChenChiCha,@JiaGe)
                                             Select @Ellect='添加成功'
                                             End   
                                        if @a<>0 --表明有了
                                             Select @Ellect='当前小区楼层已设置！'
                            End
               if @Way='修改'
                            Begin
                                    --是否修改了楼层
                                       Update LeiJia set 基价=@JiJia,楼层=@LeiChen,增减=@AddDelete,层次差=@ChenChiCha,价格=@JiaGe where 小区名称=@XiaoQuName and 楼层=@OldLeiChen
                                       Select @Ellect='修改成功'
                            End
               if @Way='删除'
                            Begin
                            Delete from LeiJia where 小区名称=@XiaoQuName and 楼层=@LeiChen
                            Select @Ellect='删除成功' 
                            End


        End



if @Biao='GetMoneyProject'  --对收费项目的设置表的处理
        Begin

               if @Way='添加'
                            Begin
                                        --查找是否有相同的记录
                                        Select @a=count(*) from GetMoneyProject where 小区名称=@XiaoQuName and 项目名称=@GetMoneyProjectName
                                        if @a=0 --表明没有
                                             Begin
                                             Insert into GetMoneyProject(小区名称,项目名称,收费标准,单位)values(@XiaoQuName,@GetMoneyProjectName,@GetMoneyBiaoJun,@GetMoneyDanWei)
                                             Select @Ellect='添加成功'
                                             End   
                                        if @a<>0 --表明有了
                                             Select @Ellect='当前项目已有！'
                            End
               if @Way='修改'
                            Begin
                                    --是否修改了项目
                                       Update GetMoneyProject set 项目名称=@GetMoneyProjectName,收费标准=@GetMoneyBiaoJun,单位=@GetMoneyDanWei where 小区名称=@XiaoQuName and 项目名称=@OldKey
                                       Select @Ellect='修改成功'
                            End
               if @Way='删除'
                            Begin
                            Delete from GetMoneyProject where 小区名称=@XiaoQuName and 项目名称=@GetMoneyProjectName
                            Select @Ellect='删除成功' 
                            End


        End


if @Biao='ComputerProject'  --对计算项目表的设置
        Begin


               if @Way='添加'
                            Begin
                                        --查找是否有相同的记录
                                        Select @a=count(*) from ComputerProject where 小区名称=@XiaoQuName and 计算项目=@ComputerMoneyProjectName
                                        if @a=0 --表明没有
                                             Begin
                                             Insert into ComputerProject(小区名称,计算项目,计算表达式)values(@XiaoQuName,@ComputerMoneyProjectName,@ComputerMoneyGongShi)
                                             Select @Ellect='添加成功'
                                             End   
                                        if @a<>0 --表明有了
                                             Select @Ellect='当前项目已有！'
                            End
               if @Way='修改'
                            Begin
                                    --是否修改了项目
                                       Update ComputerProject set 计算项目=@ComputerMoneyProjectName,计算表达式=@ComputerMoneyGongShi where 小区名称=@XiaoQuName and 计算项目=@ComputerMoneyProjectName
                                       Select @Ellect='修改成功'
                            End
               if @Way='删除'
                            Begin
                            Delete from ComputerProject where 小区名称=@XiaoQuName and 计算项目=@ComputerMoneyProjectName
                            Select @Ellect='删除成功' 
                            End

        End
Go