今天晚上,受一同事之托,为其朋友制作一个简单的VFP小项目,其中,有一需求是这样的：
针对数据库表里面某数据表进行备份和恢复！
俺想想,小问题不可大动干戈,简单的问题莫复杂化,要不,做得太专业,同事的朋友的程序弄好了,他们的老师反而不相信其能力(估计俺的同事的朋友是个在校大学生,此君可能不学无术,这么简单的小项目都搞不定,还委托俺的同事找俺帮忙,要是俺是他的指导教师,非猛劈他不可;或者,此君乃一大美女,女生嘛,对于技术类型的方面,实在是步履维艰,俺乐意帮忙,俺经常有这嗜好！！！),因此,想出了个简单的法子来应付,此法可满足一般的数据量较小的数据表的备份与恢复,现将其拿出来,与大家共享;
如下图,有四个数据表！
上图中,带有_backup字样的为备份的数据表,其他的为数据源表,下面,俺将代码贴出来,与大家分析一下！
仅以course.dbf源表的备份与恢复做说明,其他的都一样,就不再帖出来了！
①：备份代码：
if messagebox("确定要对student表进行备份吗？",4+32,"系统提示")=6
Use student
Copy to student_backup
use
messagebox("已将student表备份至student_backup",0+64,"系统提示")
Use student_backup
browse
close all
endif
代码说明,备份的原理很简单,无非就是使用Copy to student_backup 命令将已打开的student表整个的复制成为student_backup;
②：恢复代码
if messagebox("确定要对student表进行恢复吗？",4+32,"系统提示")=6
close all
select 1
use student
zap
close all
select 1
use student_backup
Copy to array cou_array
select 2
use student
Append from array cou_array
close all
messagebox("已将student_backup数据表恢复至student表",0+64,"系统提示")
Use student
browse
close all
endif
代码说明：
先打开源表use student,然后对其进行所有数据的zap物理删除;
之后,再打开use student_backup备份表,通过Copy to array cou_array命令将里面的所有数据存储到临时数组cou_array里面;
最后,通过Append from array cou_array命令将数组里面的所有数据追加到源表student里面！