系统升级后数据迁移.prg

爱师软件工作室的教材管理系统源码

****用在系统升级后的数据迁移v1.0-->v2.01
=setpath()
if !directory('bak')
   =messagebox(' “bak” 文件夹不存在，无法迁移数据！... ... ，                          '+chr(13)+chr(13);
   +'请准备好原系统的备份数据，即原系统执行[备份]后获得的“bak” 子文件夹，   '+chr(13)+chr(13);
   +'并请确保已拷贝“bak” 文件夹至新系统的安装目录下... ...                  ',0+48,'无法迁移原系统数据')
   return .f.
endif
wait window "  正在升级--恢复数据，请耐心等待...            " nowait
close all
set talk off
set safety off
   use .\data\js excl
   zap
   use in js
   use .\data\js
   select js
   append from .\bak\jsbak
   use in js
   
   use .\data\cs excl
   zap
   use in cs
   use .\data\cs
   select cs
   append from .\bak\csbak
   use in cs
   
   use .\data\fs excl
   zap
   use in fs
   use .\data\fs
   select fs
   append from .\bak\fsbak
   use in fs
   
   use .\data\bjfsmx excl
   zap
   use in bjfsmx
   use .\data\bjfsmx
   select bjfsmx
   append from .\bak\bjfsmxbak
   use in bjfsmx
   
wait window "  数据迁移完成...                       " timeout 2
set talk on
set safety on
close all
FUNCTION SETPATH()
		   public lcSys16, lcProgram
		   lcSys16 = SYS(16)
		   lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
	CD LEFT(lcProgram, RAT("\", lcProgram))
ENDFUNC