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.