usedbfkeeplist.prg

我自己编写的用VFP的简单进销存程序供大家参考

USEDBF('KEEPLIST',,,,,,'CREA DBF KEEPLIST(ID I,CODE C(16),CLASS C(16),CLASSDET C(16),MODEL C(16),PARA C(16),KEEPNUM I,WARN I,NAME C(20),UNIT C(4),PKEEP Y,PKEEPSUM Y,PIN Y,PAVERAGE Y,POUT Y,TAX I,KEEPAREA C (10),TAG T,NID I,UPID I,SUN C(1))')
SET DELE ON
SET FILT TO
GO TOP
LOCA FOR ID=0
IF !FOUN()
APPE BLAN
REPL ID WITH 0,NAME WITH '货品',TAG WITH DATETIME(),SUN WITH 'S'
ENDI