bf.prg

来自「爱师软件工作室的教材管理系统源码」· PRG 代码 · 共 25 行

wait window "  正在备份，请耐心等待...            " nowait
close all
set talk off
set safety off

use .\data\js
copy to .\bak\jsbak
use

use .\data\cs
copy to .\bak\csbak
use

use .\data\fs again
copy to .\bak\fsbak
use

use .\data\bjfsmx
copy to .\bak\bjfsmxbak
use

wait window "  备份完成...                       " nowait
set talk on
set safety on
close all