error2.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 26 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: ERROR2.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 IF MESSAGEBOX('数据文件' + ALLTRIM(DATAFILE) + '或索引损坏，是否修复？',36,'系统检测到文件错误') =  ;
6
    IF FILE(DXPATH + 'backup\' + ALLTRIM(DATAFILE))
       COPY File (DXPATH + 'backup\' + ALLTRIM(DATAFILE)) TO  ;
            (DXPATH + 'data\' + ALLTRIM(DATAFILE))
       FCDX = STRTRAN(DATAFILE,'.DBF','.CDX')
       IF FILE(DXPATH + 'backup\' + ALLTRIM(FCDX))
          COPY File (DXPATH + 'backup\' + ALLTRIM(FCDX)) TO (DXPATH + 'data\' + ALLTRIM(FCDX))
       ENDIF 
       FFPT = STRTRAN(UPPER(DATAFILE),'.DBF','.FPT')
       IF FILE(DXPATH + 'backup\' + ALLTRIM(FFPT))
          COPY File (DXPATH + 'backup\' + ALLTRIM(FFPT)) TO (DXPATH + 'data\' + ALLTRIM(FFPT))
       ENDIF 
    ELSE 
        MESSAGEBOX(DXPATH + 'backup\' + ALLTRIM(DATAFILE) +  ;
      '文件找不到，错误没有修复，请与软件供应单位联系。',16,'系统提示')
    ENDIF 
    RETRY  
 ENDIF 
*