MYSQL数据库存储过程入库单据删除商品

一个入库单据客户想 删除其中一条
如何没有保存 就在表格直接删除
如果已经保存 就下面存储过程来删除
CREATE DEFINER=root@localhost FUNCTION rkdjmxchuanchu(yewubianma int ,
sprukm int – 商品入库码
) RETURNS varchar(50) CHARSET utf8mb4
DETERMINISTIC
label:BEGIN – 用LEAVE label; 跳转结束 少用条件else 让程序好读一些
DECLARE crrq varchar(20) ;
DECLARE pdskr varchar(20) ;
select 收费人,日期 INTO pdskr,crrq from ckjlbmb where 业务编码=yewubianma;
if pdskr is not null THEN –
RETURN concat(‘数据已经上账不能删除!’, yewubianma,‘*’,crrq);
LEAVE label;
END IF;

delete from sjjlb where 入库编码=sprukm and 业务编码=yewubianma;
RETURN concat(‘数据删除成功!’, yewubianma,‘*’,sprukm );

– if exists(select 入库编码 from sjjlb where 入库编码=sprukm and 业务编码=yewubianma) THEN
– END IF;
END
vb6调用存档过程

Private Sub 删除单据里面商品()
'On Error Resume Next
Dim i As Integer
Dim sql, FHZ As String
With MSHFlexGrid2

If Text3 <> “” Then
MsgBox "已经上账 不能再编辑！ ", vbOKOnly + 64, “温馨提示”
GoTo l
End If

If MsgBox(" 是要删除这一条吗！ 请仔细操作 " & “删除商品名称:” & .TextMatrix(.Row, 2), vbYesNo + 64, “温馨提示！”) = vbNo Then GoTo l
If Val(Textdjh) > 0 Then '判断是否有业务编码 有代码保存过 调用存储过程来删除 送两个参数 业务编码 商品入库编码
sql = “SELECT rkdjmxchuanchu(” & Val(Textdjh) & “,” & Val(.TextMatrix(.Row, 18)) & “) AS AnnualSalary;”
Set RST = CNN.Execute(sql)
FHZ = RST!AnnualSalary
RST.Close
MsgBox FHZ, vbOKOnly + 64, “温馨提示”
Else
GoTo LLl '没有保存过得直接在表格删除
End If

LLl:
If .Rows = 2 Then
For i = 0 To .Cols - 1
.TextMatrix(.Row, i) = “”
Next i
Else
.RemoveItem (.Row)
End If

计算金额

End With
l:

End Sub

没有高深代码 实际工作记录 。