?? restoredb.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -