多种数据DELPHI备份方式（源码）

Access:
//数据备份（创建一个新的备份文件）。
procedure TMainForm.BitBtn1Click(Sender: TObject);
var
F:TShFileOpStruct;
DataBackupFileName:string;
begin
if MessageDlg('备份数据库将创建一个新的Access数据备份文件。'+#13+#10+
''+#13+#10+
'你确定要备份数据库吗？',mtConfirmation,
[mbyes,mbno], 0) = mrno then Exit;
F.wnd:=Handle;
F.wFunc:=Fo_COPY; //操作方式：拷贝数据
F.pFrom:=pAnsichar(ExtractFileDir(Application.ExeName)+'\Data\FB.mdb'+#0);
OpenDialog1.Filter:='Access文件(*.mdb) ¦*.mdb';
OpenDialog1.Title:='选择备份路径和文件名';
OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName)+'\Backup';
if OpenDialog1.Execute then
F.pTo:=pAnsichar(OpenDialog1.FileName+'[Access备份'+//构造备份文件名
FormatDateTime('yyyy-mm-dd',Now)+']'+'.mdb');//进行文件备份
F.fFlags:=FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;//操作选项
if ShFileOperation(F)=0 then
MessageDlg(#13+#10+' Access数据文件备份成功！',mtInformation,[mbYes],0)
else
MessageDlg(#13+#10+' Access数据文件备份失败！' ,mtWarning,[mbYes],0);
end;

//数据恢复（先删除原数据库文件，再把备份数据库文件写入）。
procedure TMainForm.BitBtn2Click(Sender: TObject);
var
F:TShFileOpStruct;
begin
if MessageDlg('数据还原将重写当前Access数据。'+#13+#10+
''+#13+#10+
'你确定要还原备份数据吗？',mtConfirmation,
[mbyes,mbno], 0) = mrno then Exit;
F.wnd:=Handle;
F.wFunc:=Fo_Delete;//操作方式：删除数据
F.pFrom:=pAnsichar(ExtractFileDir(Application.ExeName)+'\Data\FB.mdb'+#0);
F.fFlags:=FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;//设置操作选项
DM.Dataconn.Connected:=False;//断开连接
//将文件删除至回收站
//if ShFileOperation(F) <> 0 then
// MessageDlg('删除Access原始数据文件出错。数据库恢复失败！',mtError,[mbYes],0)
//else
begin
//设置文件选项
OpenDialog1.Filter:='Access文件(*.mdb) ¦*.mdb';
OpenDialog1.InitialDir:=ExtractFileDir(Application.ExeName)+'\Backup\';
OpenDialog1.Title:='请选择备份文件';
if OpenDialog1.Execute then//打开拷贝文件对话框
//拷贝文件
if CopyFile(PChar(OpenDialog1.FileName),
PChar(ExtractFileDir(Application.ExeName)+'\Data\FB.mdb'),False) then
MessageDlg('Access数据文件恢复完成。数据库恢复成功。',mtInformation,[mbYes],0);
DM.Dataconn.Connected:=True;//恢复连接
end;
end;

Paradox数据库备份
procedure TDataBackupForm.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('备份数据库将重写以前的数据备份。'+#13+#10+
''+#13+#10+
'你确定要备份数据库吗？',mtConfirmation,
[mbyes,mbno], 0) = mrno then Exit;
if Trim(Edit1.Text)='' then
begin
MessageDlg('请选择数据库备份路径！',mtInformation,[mbYes],0);
Edit1.setfocus;
Exit;
end;
Path:=False;
ProgressBar1.Visible:=True;
try
begin
dir:=dir+'\data\';//获取源数据库所在目录
createdir(pchar(Edit1.Text));//创建备份目录
//备份数据表（cl）
CopyFile(pchar(dir+'cl.DB'),pchar(Edit1.Text+'\'+'cl.DB'),False);
CopyFile(pchar(dir+'cl.FAM'),pchar(Edit1.Text+'\'+'cl.FAM'),False);
CopyFile(pchar(dir+'cl.PX'),pchar(Edit1.Text+'\'+'cl.PX'),False);
CopyFile(pchar(dir+'cl.TV'),pchar(Edit1.Text+'\'+'cl.TV'),False);
//备份数据表（clcl）
CopyFile(pchar(dir+'clcl.DB'),pchar(Edit1.Text+'\'+'\clcl.DB'),False);
CopyFile(pchar(dir+'clcl.FAM'),pchar(Edit1.Text+'\'+'\clcl.FAM'),False);
CopyFile(pchar(dir+'clcl.PX'),pchar(Edit1.Text+'\'+'\clcl.PX'),False);
CopyFile(pchar(dir+'clcl.TV'),pchar(Edit1.Text+'\'+'\clcl.TV'),False);
//备份数据表（pz）
CopyFile(pchar(dir+'pz.DB'),pchar(Edit1.Text+'\'+'\pz.DB'),False);
CopyFile(pchar(dir+'pz.FAM'),pchar(Edit1.Text+'\'+'\pz.FAM'),False);
CopyFile(pchar(dir+'pz.PX'),pchar(Edit1.Text+'\'+'\pz.PX'),False);
CopyFile(pchar(dir+'pz.TV'),pchar(Edit1.Text+'\'+'\pz.TV'),False);
//备份数据表（users）
CopyFile(pchar(dir+'users.DB'),pchar(Edit1.Text+'\'+'\users.DB'),False);
CopyFile(pchar(dir+'users.FAM'),pchar(Edit1.Text+'\'+'\users.FAM'),False);
CopyFile(pchar(dir+'users.PX'),pchar(Edit1.Text+'\'+'\users.PX'),False);
CopyFile(pchar(dir+'users.TV'),pchar(Edit1.Text+'\'+'\users.TV'),False);
//备份数据表（ylfb）
CopyFile(pchar(dir+'ylfb.DB'),pchar(Edit1.Text+'\'+'\ylfb.DB'),False);
CopyFile(pchar(dir+'ylfb.FAM'),pchar(Edit1.Text+'\'+'\ylfb.FAM'),False);
CopyFile(pchar(dir+'ylfb.PX'),pchar(Edit1.Text+'\'+'\ylfb.PX'),False);
CopyFile(pchar(dir+'ylfb.TV'),pchar(Edit1.Text+'\'+'\ylfb.TV'),False);
Thread.execute;//执行线程
//设置界面
ShellTreeView1.Visible:=False;
DataBackupForm.Height:=312;
MessageDlg(#13+#10+' 数据库备份成功！',mtInformation,[mbYes],0);
ProgressBar1.Visible:=False;
ProgressBar1.Position:=0;
end;
except
ShellTreeView1.Visible:=False;
DataBackupForm.Height:=312;
MessageDlg(#13+#10+'数据库备份失败！' ,mtWarning,[mbYes],0);
end;
Path:=True;
ShellTreeView1.Visible:=False;
DataBackupForm.Height:=312;
BitBtn3.Caption:='选择目录';
end;

SQL方式
//获取数据备份目的路径
procedure TDataBackForm.FormShow(Sender: TObject);
var
SourcePath: string;
begin
Animate1.Visible:=False;
SourcePath:=ExtractFileDir(Application.ExeName);
//获取应用程序路径
if (StrLen(PChar(SourcePath)) <> 3) then
begin
SourcePath:=SourcePath+'\';
//Edit1.Text:=SourcePath+'BackupData\Data'+
// formatdatetime('yyyymmdd',date)+'.back';
//设置路径名＋文件名
Edit1.Text:=SourcePath+'BackupData\'+'BackupData.back';
end;
end;

//改变恢复数据按钮的使能状态（随数据备份目的路径的选择而变化）
procedure TDataBackForm.Edit1Change(Sender: TObject);
begin
if trim(Edit1.Text) <> '' then
BackData.Enabled:=True
else
RecoverData.Enabled:=False;//当路径框中为空时候， 恢复数据不可用
end;

//浏览数据备份目的路径
procedure TDataBackForm.BitBtn4Click(Sender: TObject);
begin
//OpenDialog1.Filter:='备份文件(*.back) ¦*.back ¦所有文件(*.*) ¦*.*';//设置备份文件后缀
OpenDialog1.Filter:='所有文件(*.*) ¦*.* ¦备份文件(*.back) ¦*.back';//设置备份文件后缀
OpenDialog1.InitialDir:=ExtractFileDir(Application.ExeName)+'\backupdata';
//设置恢复路径
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
//if SaveDialog1.Execute then
//Edit1.Text:=OpenDialog1.FileName;
end;

//备份数据
procedure TDataBackForm.BackDataClick(Sender: TObject);
var
DataPath:string;
begin
if Trim(Edit1.Text)='' then
begin
MessageDlg(#13+#10+'请选择数据库备份路径！',mtInformation,[mbYes],0);
Edit1.setfocus;
Exit;
end;
Caption:='正在备份数据....';
Animate1.Visible:=True;
Animate1.Active:=True;//备份数据库命令语句
if ExtractFileExt(Edit1.Text)='.back' then
DataPath:=''
else
DataPath:='.back';
Edit1.Text:=Edit1.Text+DataPath;
DM.backcomm.CommandText:='backup database Data1 to disk='''+Edit1.Text+'''';
try
DM.backcomm.Execute;//执行备份
Animate1.Active:=False;
Animate1.Visible:=False;
MessageDlg(#13+#10+'数据库备份成功！',mtInformation,[mbYes],0);
except
Animate1.Active:=False;
Animate1.Visible:=False;
MessageDlg(#13+#10+'数据库备份失败！',mtWarning,[mbYes],0);
end;
Caption:='数据备份和恢复';