t_fzxtwj.prg

vfp的进销存系统

set talk off
set safety off
clear
close table all

*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
  CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
  IF CXZF='\'
    CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'')
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO &CXLJ

use xtwj

scan
  fn=file
  if file(fn)
    ?fn
    copy file &fn to &cxlj.\exe\&fn.
    if del
      select 0
      use &cxlj.\exe\&fn.
      zap
      use
      select xtwj
    endif
   else
    dhxx=fn+'文件不存在！'
    do form dhk
  endif
endscan

cancel