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

				* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
				*  文件名: BF.PRG 				* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
				
				
				 CLOSE DATABASES ALL
				 CLOSE TABLE ALL
				 ON ERROR do d:\jxc\_error1
				 USE EXCLUSIVE (DXPATH + 'data\filename.dbf')
				 SELECT FILENAME
				 ZAP 
				 = ADIR(FILE_ARRAY,MLPATH + 'data\' + MYEAR + '\*.*')
				 APPEND FROM ARRAY FILE_ARRAY
				 IF EMPTY(CURDIR(DXPATH + 'BAK' + MYEAR))
				    MD (DXPATH + 'BAK' + MYEAR)
				 ENDIF 
				 BAKPATH = DXPATH + 'BAK' + MYEAR + '\'
				 SELECT FILENAME
				 SCAN 
				    COPY File (MLPATH + 'data\' + MYEAR + '\' + ALLTRIM(文件名)) TO  ;
				         (ALLTRIM(BAKPATH) + ALLTRIM(文件名))
				    WAIT WINDOW NOWAIT ('正在备份：' + ALLTRIM(BAKPATH) + ALLTRIM(文件名))
				 ENDSCAN 
				*