【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-Frestore.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit Frestore;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Fbase, StdCtrls, Buttons, ComCtrls, ExtCtrls;
    
    type
      TF_restore = class(TF_base)
        Animate1: TAnimate;
        Label1: TLabel;
        Edit1: TEdit;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        OpenDialog1: TOpenDialog;
        Bevel1: TBevel;
        Label2: TLabel;
        Label3: TLabel;
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      F_restore: TF_restore;
    
    implementation
    
    uses Fdm;
    
    {$R *.dfm}
    
    procedure TF_restore.BitBtn1Click(Sender: TObject);
    begin
      inherited;
      Opendialog1.Title:='请选择数据恢复文件';
      if Opendialog1.Execute then
        Edit1.Text:=Opendialog1.FileName;
    end;
    
    procedure TF_restore.BitBtn2Click(Sender: TObject);
    begin
      inherited;
      if Application.MessageBox('恢复前请先备份，是否开始恢复？','提示',mb_yesno)=id_no then
        Exit;
      if Trim(Edit1.Text)='' then Exit;
      try
        try
          Animate1.Visible:=True;
          F_dm.back.CommandText:='use master restore database db_ems from disk='+''''+Trim(Edit1.Text)+''''+'with replace';
          Animate1.Active:=True;
          F_dm.back.Execute;
          Animate1.Active:=False;
          Application.MessageBox('恢复数据成功','提示',mb_ok);
        finally
          F_dm.back.CommandText:='use db_ems';
          F_dm.back.Execute;
        end;
      except
        Application.MessageBox('恢复数据失败','提示',mb_ok);
      end;
      Animate1.Visible:=False;
    end;
    
    end.