xscp_delete.sql

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

USE cpxs
GO
IF EXISTS(SELECT name FROM sysobjects 
WHERE xtype= 'P' AND name ='xscp_delete')
DROP PROCEDURE xscp_delete
GO
CREATE PROCEDURE xscp_delete
(@xsbh0 char(6),@cpbh0 char(6),@flag int output)
AS
BEGIN
   SET @flag=1
 IF EXISTS(SELECT * FROM xscp
    WHERE xsbh=@xsbh0 and cpbh=@cpbh0)
 DELETE xscp 
    WHERE xsbh=@xsbh0 and cpbh=@cpbh0
 ELSE
   SET @flag=0
END
RETURN