backup.prg

我自己编写的用VFP的简单进销存程序供大家参考

SET TALK OFF
SET SAFE OFF
CLOSE DATA ALL
CLOSE TABLE ALL
IF !FILE('RAR.EXE')
  =MESSAGEBOX('缺少可执行文件 RAR.EXE ，本功能暂不可用。    '+CHR(13)+'请与电脑程序设计维护人员联系。      ',64,'信息')
  RETURN
ENDIF
LNMSGRESULT=MESSAGEBOX('是否要备份数据？    ',3+48,'数据备份')
IF LNMSGRESULT<>6
  RETURN
ENDIF
WAIT WINDOW '数据备份，请稍候......' NOWAIT
RUN RAR.EXE U -PAdmin9 BACKUP.RAR *.DBF *.CDX *.FPT -R -M5 -RR
STR_D=DTOC(DATE())
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE('BACKUP.RAR')
STR_C='COPY FILE BACKUP.RAR TO '+STR_D+'.RAR'
&STR_C
ENDI
STR_D=DTOC(DATE()-12)
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE(''+STR_D+'.RAR')
  STR_C='DELE FILE '+STR_D+'.RAR'
  &STR_C
ENDIF
STR_D=DTOC(DATE()-11)
STR_D=LEFT(STR_D,4)+SUBS(STR_D,6,2)+RIGHT(STR_D,2)
IF FILE(''+STR_D+'.RAR')
  STR_C='DELE FILE '+STR_D+'.RAR'
  &STR_C
ENDIF
IF FILE('TMP.RAR')
  IF FDATE('TMP.RAR')+1<DATE()
    DELE FILE TMP.RAR
    DELE FILE TMP.R0*
  ENDIF
ENDIF
CLOSE DATA ALL
CLOSE TABLE ALL
WAIT WINDOW '数据备份已完成！' NOWAIT TIMEOUT 3
=MESSAGEBOX(DTOC(DATE())+'数据备份工作完成！      ',64,'信息')
RETURN