以下代码是数据库的备份与恢复代码,备份没有问题,但是恢复怎么不行呀?
它可以执行,也不错误,但是它的数据库与原来的一样,并没有和用来恢复的数据库一样,不知道怎么回事?哪位知道的说下?谢谢!!!procedure TMain_Form.database_saveClick(Sender: TObject);
begin
  if   SaveDialog1.Execute   then
  begin
      copyfile(pchar('D:\yuucyf\GXCQ.mdb') , pchar(SaveDialog1.filename) , true )  ;
      showmessage('数据库备份操作成功!')    ;
  end
  else
      showmessage('备份数据库操作失败!') ;  end;procedure TMain_Form.database_backupClick(Sender: TObject);
begin
  if OpenDialog1.Execute  then
  begin
    copyfile(pchar(OpenDialog1.filename) , pchar('D:\yuucyf\GXCQ.mdb') , true) ;
    showmessage('恢复数据库操作成功!') ;
  end
  else
    showmessage('恢复数据库操作失败!') ;
end;