****用在系统升级后的数据迁移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
