关于数据库的备份与恢复的问题

Question

我用BDE中的 paradox7建的数据表，请问如何通过一些控件去将这些表备份到硬盘的某一路径下，以及又如何实现恢复到数据库中去呢？
高手们，请你们给的代码详细点，谢谢！！！，因为我问过我很多同学，他们都不会，现在我很需要这些的代码！！                                           万分感激！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 1

我以前是这么写的procedure TFrmMain.N28Click(Sender: TObject);
var
    mydir : string;
    str : String;
begin
    mydir :=  ExtractFilePath(Application.EXEName) + 'db_back\';
    if (Not DirectoryExists(mydir)) then
    begin
        CreateDir(mydir);
    end;
    mydir := mydir + FormatDateTime('yyyymmddhhmmss', now()) + '.his';
    if (CopyFileTo( ExtractFilePath(Application.EXEName)+'mydb.mdb', mydir)) then
    begin
        str := '成功备份历史记录。路径为' + mydir;
        MessageDlg('成功备份历史记录。' + chr(13) + '路径为' + mydir, mtInformation, [mbOk], 0);
        SendMessage(Handle, WM_ShowInfo1, 2, Integer(PChar(str)));
    end else
    begin
        str := '备份历史记录数据库文件失败！';
        MessageDlg('备份历史记录失败！', mtError, [mbOK], 0 );
        SendMessage(Handle, WM_ShowInfo1, 3, Integer(PChar(str)));
    end;
end;