error2.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

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