用Delphi6怎么实现数据库备份及恢复？

怎么这么长时间还没有人回答呢？

数据库？脑海中无数个影子闪过，不如是哪位大侠啊！

procedure tform1.Button6Click(sender:tobject);
begin
    if edit1.Text='' then
       ShowMessage('请选择需要恢复的数据库');
    if CopyFile(pchar(edit1.text),pchar('..\newfiledan.mdb'),false) then  //把数据库恢复(覆盖)到上层目录，文件名为newfiledan.mdb
    if Application.MessageBox('数据库恢复成功，请重新运行本程序！','恭喜',MB_YESNO)=6 then
       begin
       Application.Terminate;
       Exit;
       end
    else
       Close;
    if opendialog1.Execute then
       edit1.Text:=opendialog1.FileName;
    if CopyFile(pchar('newfiledan.mdb'),pchar('DB Backup\'+formatDateTime('yyyy-mm-dd_hh-mm',Now)+'.mdb'),false) then   //以当前的日期_时间命名备份的数据库
       Application.MessageBox('数据库备份成功,已以当前时间命名存至DB Backup文件夹中！','恭喜');
end;
end.




可以用用，我这是delphi7.0的代码。