Unit RestoreDB;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, FileCtrl, AAFont, AACtrls, LbButton;

Type
   tRestoreDBForm = Class(TForm)
      StaticText2: TStaticText;
      StaticText4: TStaticText;
      FileListBox1: TFileListBox;
      LbButton3: TLbButton;
      LbButton4: TLbButton;
      LbButton1: TLbButton;
      LbButton2: TLbButton;
      AALabel1: TAALabel;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure FormCreate(Sender: TObject);
      Procedure Button6Click(Sender: TObject);
      Procedure Button5Click(Sender: TObject);
      Procedure Button4Click(Sender: TObject);
      Procedure Button7Click(Sender: TObject);
   Private
        { Private declarations }
   Public
        { Public declarations }
   End;

Var
   RestoreDBForm    : tRestoreDBForm;
   Rpaths           : String;
   currdir1         : String;
Const
   DBNAME           : String = 'X.MDB';
Implementation
Uses DM, MainUnit, CompactMDB;
{$R *.dfm}

Procedure tRestoreDBForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin

   Action := cafree;
   RestoreDBForm := Nil;
End;

Procedure tRestoreDBForm.FormCreate(Sender: TObject);
Begin
   LbButton2.Visible := true;
   LbButton1.Enabled := false;

   currdir1 := ExtractFilePath(Application.ExeName);
   ChDir(currdir1);
   StaticText4.Caption :=
      '可選擇恢復存放文件夾后再開始，默認為當前目錄下的BACKUP文件夾中。';
   If DirectoryExists(currdir1 + '\backup') Then
      FileListBox1.Directory := currdir1 + '\backup';

End;

Procedure tRestoreDBForm.Button6Click(Sender: TObject);
Var
   BOL              : Boolean;
Begin
//   BOL := SelectDirectory('選擇備份存放路徑', DM.CURRDIR, Rpaths);
   BOL := SelectDirectory(Rpaths, [sdAllowCreate, sdPerformCreate], 0);
   If BOL Then StaticText4.Caption := '源文件夾：' + Rpaths;
   FileListBox1.Directory := Rpaths;
   RestoreDBForm.Show;

End;

Procedure tRestoreDBForm.Button5Click(Sender: TObject);
Begin
   If FileListBox1.FileName = '' Then Begin
      Application.MessageBox('未選擇你要恢復的備份文件！請先在下面列表中選擇！',
         '提示信息', mb_OK + MB_ICONERROR);
      Exit;
   End;
   LbButton2.Visible := false;
   StaticText2.Caption := '正在準備恢復數據庫';
   Application.ProcessMessages;
   If Not FileExists(FileListBox1.FileName) Then Begin
      Application.MessageBox('數據庫恢復失敗！沒有備份的數據庫可用于恢復！',
         '提示信息', mb_OK + MB_ICONERROR);
      Button7Click(self);
      Exit;
   End;
   ChDir(currdir1);
   If FileExists(DBNAME) Then DeleteFile(DBNAME);
   DM.DataModule2.ADOConnection1.Close;
   StaticText2.Caption := '正在恢復數據庫....';
   CopyFile(pchar(FileListBox1.FileName), pchar(DBNAME), false);

   DM.DataModule2.ADOConnection1.open;

   StaticText2.Caption := '成功恢復數據庫！';
   LbButton1.Enabled := true;
   LbButton4.Visible := false;
End;

Procedure tRestoreDBForm.Button4Click(Sender: TObject);
Begin
   ChDir(currdir1);
   Close;
End;

Procedure tRestoreDBForm.Button7Click(Sender: TObject);
Begin
   ChDir(currdir1);
   Close;
End;

End.