usedbfcompany.prg

来自「我自己编写的用VFP的简单进销存程序供大家参考」· PRG 代码 · 共 15 行

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