usedbfcompany.prg

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

USEDBF('COMPANY',,,,,,'CREA DBF COMPANY(ID I,NAME C(10),FULLNAME C(50),ADDR C(100),ZIP C(10),TEL C(20),MAN C(10),NOTE C(200))')
LCSETDELE=SET('DELE')
SET DELE ON
SET FILT TO
GO TOP
LLE=EOF()
LOCA FOR ID=0
IF !FOUN() OR LLE
APPE BLAN
LCNAME='单位名称'
LCADDR=''
REPL NAME WITH LCNAME,FULLNAME WITH LCNAME,ADDR WITH LCADDR
ENDI
SET DELE &LCSETDELE
RETU