xscp_insert.sql

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

USE cpxs
GO
IF EXISTS(SELECT name FROM sysobjects 
WHERE xtype= 'P' AND name ='xscp_insert')
DROP PROCEDURE xscp_insert
GO
CREATE PROCEDURE xscp_insert
(@xsbh0 char(6),@cpbh0 char(6),@xssj0 datetime,@sl0 float,@je0 float,@flag int output)
AS
BEGIN
SET @flag=1
IF  NOT EXISTS(SELECT * FROM xscp WHERE xsbh=@xsbh0 AND cpbh=@cpbh0 AND xssj=@xssj0  )
INSERT INTO xscp VALUES(@cpbh0,@xsbh0,@xssj0,@sl0,@je0)
ELSE 
 SET @flag=0
END
RETURN