sjwc.prg

银河就餐系统辅助软件

set safe off
open database jctj
use jcgl
COPY TO \jctj\xls\temp. DELIMITED
close all
USE \jctj\jcgl1.dbf eXCLUSIVE
zap
APPEND FROM d:\jctj\xls\temp. DELIMITED
repl all 未就餐人数 with 实就餐人数-应就餐人数

 x=substr(dtoc(date()),1,4)+"年"+substr(dtoc(date()),6,2)+"月"+substr(dtoc(date()),9,2)+"日"
      cd \jctj\xls
        if directory("\&tx1\xls\&x") 
            cd &x
            dele file 就餐管理.dbf
            cd \jctj\xls
            COPY TO "\jctj\xls\&x\就餐管理.xls" TYPE XL5
        else
           md &x
           COPY TO "\jctj\xls\&x\就餐管理.xls" TYPE XL5
           use
        endif
MESSAGEBOX("数据备份完毕，备份格式为电子表格格式")
     set safe on