delphi增删改查使用存储过程小模块

USE [hx] GO /****** Object: StoredProcedure [dbo].[usp_db_gsgl] Script Date: 12/11/2012 13:14:41 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE proc [dbo].[usp_db_gsgl] @gsdh varchar(18), --公司代号 @xmdm varchar(20), --项目代码 @xmmc varchar(80) = '', --项目名称 @xmzj numeric(28,8) =0, --项目总价 @kgrq smalldatetime = '', --开工日期 @ydwcrq smalldatetime = '', --预定完工日期 @wgrq smalldatetime = '', --完工结案日期 @wcl numeric(28,8) = 0, --完工率 @xmcbcl numeric(28,8) = 0, --项目成本材料 @xmcbrg numeric(28,8) = 0, --项目成本人工 @xmcbfy numeric(28,8) = 0, --项目成本费用 @isja bit = 0 , --是否结案 @oldgsdh varchar(18)='', --旧公司代号 @oldxmdm varchar(20)='' , --旧项目代码 @lb int = 0 --类别,判断增删改查 as --集98054 2012-12-11 12:43:44 4.0标准版 201212 升级发布 /********** [版本号]4.0.0.0.0 [创建时间]2012.12.10 [作者]hxf [版权] Copyright ? 2004-2012上海金仕达-卫宁软件股份有限公司 [描述]Delphi增删改查小模块 [功能说明] 实现公司管理系统的增删改查 [参数说明] @gsdh, --公司代号 @xmdm, --项目代码 @xmmc, --项目名称 @xmzj, --项目总价 @kgrq , --开工日期 @ydwcrq, --预定完工日期 @wgrq , --完工结案日期 @wcl, --完工率 @xmcbcl, --项目成本材料 @xmcbrg, --项目成本人工 @xmcbfy, --项目成本费用 @isja, --是否结案 @oldgsdh --旧公司代号, @oldxmdm --旧项目代码, @lb int, --类别,判断增删改查 [返回值] [结果集、排序] [调用的sp] [调用实例] exec usp_db_gsgl [修改纪录] **********/ set nocount on if @lb = 0 begin insert into proj(公司代号, 项目代码, 项目名称, 项目总价, 开工日期, 预定完工日期, 完工结案日期, 完工率, 项目成本材料, 项目成本人工, 项目成本费用, 是否结案) values (@gsdh,@xmdm,@xmmc,@xmzj,@kgrq ,@ydwcrq ,@wgrq,@wcl,@xmcbcl,@xmcbrg,@xmcbfy ,@isja) end else if @lb = 1 begin delete proj where 项目代码 = @xmdm if @@ERROR <>0 begin select 'F' ,'更新失败！' return end select 'T' end else if @lb = 2 begin update proj set 公司代号 = @gsdh, 项目代码 = @xmdm, 项目名称 = @xmmc, 项目总价 = @xmzj, 开工日期 = @kgrq, 预定完工日期 = @ydwcrq, 完工结案日期 = @wgrq, 完工率 = @wcl, 项目成本材料 = @xmcbcl, 项目成本人工 = @xmcbrg,项目成本费用 = @xmcbfy, 是否结案 = @isja where 公司代号 = @oldgsdh and 项目代码 = @oldxmdm if @@ERROR <>0 begin select 'F' ,'更新失败！' return end select 'T' end else if @lb = 3 begin if @xmdm = '' select * from proj else select * from proj where 项目代码 = @xmdm end return