dmwf.prg

来自「包括了6个VFP程序设计实例」· PRG 代码 · 共 31 行

PUBLIC MDM
MDM=""
CLOSE DATA
DO FORM XZDMK
IF MDM==""
   RETURN
ENDIF
AMDM="..\DATA\"+MDM
IF USED("DMWF")
   SELE DMWF
   ELSE
     SELE 0
     USE DMWF ALIAS DMWF
ENDIF
ZAP
APPE FROM &AMDM
USE
DO FORM DMWF
IF USED(MDM)
   SELE &MDM
   ELSE
     SELE 0
     USE &AMDM ALIAS MDM
ENDIF
ZAP
APPE FROM DMWF
PACK
USE
RETURN