delkcall.prg

来自「一个简单的零售系统,功能不是太强大,一般适合便利店自用还可以,本人没有实际应用测」· PRG 代码 · 共 3 行

DELETE FROM kc WHERE ALLTRIM(kc.条码)==ALLTRIM(cc条码)
SUM cc.商品名称 TO n
MESSAGEBOX("已删除"+str(n)+"条商品",0,"友情提示")