CLOSE DATA ALL
CLOSE TABLE ALL
SET TALK OFF
SET SAFE OFF
SET DATE TO ANSI
SET CENT ON
SET HOUR TO 24
IF !FILE('RAR.EXE')
  =MESSAGEBOX('缺少可執行文件 RAR.EXE ，本功能暫不可用。    '+CHR(13)+'請與電腦程序設計維護人員聯系。',64,'信息')
  RETURN
ENDIF

LNMSGRESULT=MESSAGEBOX('此項程序僅在數據受損壞，需要用已備份的數據來恢復時方可使用！',3+48,'數據恢復')
IF LNMSGRESULT<>6
 RETURN
ENDIF
LNMSGRESULT=MESSAGEBOX('是否要恢復數據？',3+48,'數據恢復')
IF LNMSGRESULT<>6
 RETURN
ENDIF
IF !FILE('TMP.RAR')
  WAIT WINDOW '保存現有數據，請稍候......' NOWAIT
  RUN RAR.EXE U -PAdmin9 TMP.RAR *.DBF *.CDX *.FPT -R -M5 -RR -V1200K
  WAIT WINDOW '現有數據已保存！' NOWAIT
ENDIF

LDDATE=DATE()
LLFILE=.F.
LLFILEEXT=.F.
FOR LNDATENUM=0 TO 6
LCFILENAME=DTOC(LDDATE-LNDATENUM)
LCFILENAME=LEFT(LCFILENAME,4)+SUBS(LCFILENAME,6,2)+RIGHT(LCFILENAME,2)
LCFILENAME=LCFILENAME+'.RAR'
IF FILE(LCFILENAME)
LLFILE=.T.
LCFILEDATE=DTOC(FDATE(LCFILENAME))
LCFILETIME=LEFT(FTIME(LCFILENAME),5)
LNMSGRESULT=MESSAGEBOX('是否恢復到 '+LCFILEDATE+' ';
    +LCFILETIME+' 時的狀態？',3+32+512,'數據恢復')
DO CASE
    CASE LNMSGRESULT=6
    WAIT WINDOW '數據恢復......' NOWAIT
    LCEXT='RUN RAR.EXE X -PAdmin9 -O+ '+LCFILENAME
    &LCEXT
    LLFILEEXT=.T.
    EXIT

    CASE LNMSGRESULT=7
    LOOP

    CASE LNMSGRESULT=2
    RETURN

ENDCASE

ENDIF

ENDFOR
IF LLFILEEXT
  WAIT WINDOW '數據已恢復！' NOWAIT TIMEOUT 3
  =MESSAGEBOX('數據已恢復到 '+LCFILEDATE+' '+LCFILETIME+' ',64,'數據恢復')
ENDIF
IF !LLFILE
  =MESSAGEBOX('無近期的備份數據！',48,'數據恢復')
ENDIF