usedbfcompany.prg

来自「我自己用VFP编写的查看指定数据库中的相关数据的程序供大家参考」· PRG 代码 · 共 31 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: USEDBFCOMPANY.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


  USEDBF('COMPANY', ,'\VFP\COMPANY.DBF','C:\VFP\COMPANY.DBF','\STOCK\COMPANY.DBF','C:\STOCK\COMPANY.DBF','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))')
 SET FILTER TO
 GO TOP
 LLE = EOF()
 LOCATE FOR ID = 0
 IF  .NOT. FOUND() .OR. LLE
    APPEND BLANK
    LCNAME = '单位名称'
    LCADDR = ''
     USEDBF('本店地址.dbf', ,'\VFP\本店地址.dbf','C:\VFP\本店地址.dbf', , ,'CREA CURS  CURSTEMPBDDM(I I)')
    IF RIGHT(DBF(),4) = '.DBF'
       LCNAME = 店名
       LCADDR = 地址
    ENDIF 
    USE 
     USEDBF('本店店名.dbf', ,'\VFP\本店店名.dbf','C:\VFP\本店店名.dbf', , ,'CREA CURS  CURSTEMPBDDM(I I)')
    IF RIGHT(DBF(),4) = '.DBF'
       LCNAME = 店名
       LCADDR = 地址
    ENDIF 
    USE 
    SELECT COMPANY
    REPLACE NAME WITH LCNAME , FULLNAME WITH LCNAME , ADDR WITH LCADDR
 ENDIF 
*