xss_update.sql

vbsql做的销售管理课程设计样本不完全仅为范例

USE cpxs
GO
IF EXISTS(SELECT name FROM sysobjects 
WHERE xtype= 'P' AND name ='xss_update')
DROP PROCEDURE xss_update
GO
CREATE PROCEDURE xss_update
(@xsbh0 char(6),@xsmc0 char(30),@dq0 char(10),@fzr0 char(12),@dh0 char(12),@mz0 char(50),@flag int output)
AS
BEGIN
   SET @flag=1
 IF EXISTS(SELECT * FROM xss
          WHERE xsbh=@xsbh0)
  UPDATE xss 
   SET xsmc=@xsmc0,dq=@dq0,fzr=@fzr0,dh=@dh0,bz=@mz0
  WHERE xsbh=@xsbh0
 ELSE
   SET @flag=0
END
RETURN