restore.pas

pasa人力资源考勤管理系统

unit restore;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ToolEdit, ExtCtrls, ComCtrls;

type
  Tformrestore = class(TForm)
    Button2: TButton;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    pbar1: TProgressBar;
    OpenDialog1: TOpenDialog;
    FileEdit1: TEdit;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formrestore: Tformrestore;

implementation

uses datamol;

{$R *.DFM}

procedure Tformrestore.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tformrestore.Button1Click(Sender: TObject);
var
 f: textfile;
 comm,database,path,myfile,fline: string;
begin
 button1.enabled:=false;
 button2.enabled:=false;
 pbar1.max:=1;
 pbar1.position:=0;
 pbar1.step:=1;
 myfile:=extractfilepath(application.ExeName)+'data\login.ini';
 assignfile(f,myfile);
 reset(f);
 readln(f,fline);
 database:=copy(fline,pos('=',fline)+1,20);
 path:=fileedit1.text;
try
begin
 if RadioGroup1.ItemIndex=0 then
  comm:='RESTORE DATABASE '+database+' FROM  DISK = N'''+path+''' WITH  FILE = 1,  NOUNLOAD ,  STATS = 10,  RECOVERY  '
 else
  comm:='RESTORE LOG '+database+' FROM  DISK = N'''+path+''' WITH  FILE = 1,  NOUNLOAD ,  STATS = 10,  RECOVERY  ';
 with datamod.Query1 do
   begin
    sql.Text:='use master';
    Execsql;
    sql.Text:=comm;
    pbar1.stepit;
    Execsql;
    application.messagebox('资料恢复成功！','恢复成功',mb_ok+mb_iconinformation);
    close;
   end;
 end;
except
  application.messagebox('数据库正在使用中，不能进行还原操作！.','错误提示',mb_ok+mb_iconerror);
end;
button1.enabled:=true;
button2.enabled:=true;
end;
procedure Tformrestore.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   formrestore:=nil;
   action:=cafree;
end;

procedure Tformrestore.Button3Click(Sender: TObject);
begin
   if opendialog1.Execute then
      fileedit1.text:=opendialog1.filename;
end;

end.