wjcs.prg

来自「银河就餐系统辅助软件」· PRG 代码 · 共 28 行

 messagebox("此功能需要在备份当天执行，否则结果会出错！",0+64,"结果告知")
 close all

       yn= messagebox("当前数据是否已经备份？ 点击“是”进文件传输，点击“否”开始备份数据",4+64,"提示")
      if yn=7
      do \jctj\progs\sjwc
      endif
        x9=substr(dtoc(date()),1,4)+"年"+substr(dtoc(date()),6,2)+"月"+substr(dtoc(date()),9,2)+"日" 
       
     messagebox("请选择U盘所在盘符进行文件传输",0+64,"提示")
     tx1= getdir()
    
     if directory("&tx1\xls") 
    * cd &tx1\xls
 
    * cd &tx1\xls&x9
      *dele file &tx1\xls\就餐管理.xls
        copy file d:\jctj\xls\&x9\就餐管理.xls to &tx1\xls\就餐管理&x9..xls type xl5
          else
         cd &tx1  
         x9=substr(dtoc(date()),1,4)+"年"+substr(dtoc(date()),6,2)+"月"+substr(dtoc(date()),9,2)+"日" 
          md xls
           *cd xls
         * md &x9
          copy file d:\jctj\xls\&x9\就餐管理.xls to &tx1\xls\就餐管理&x9..xls type xl5
          cd d:\
          endif
      messagebox("传输成功！",0+64,"结果告知")