?? backupunit.~pas
字號:
unit BackUpUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;
type
TBackUpForm = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Bevel1: TBevel;
BakBtn: TSpeedButton;
BakCancelBtn: TSpeedButton;
Label2: TLabel;
Bevel2: TBevel;
ResBtn: TSpeedButton;
ResCancelBtn: TSpeedButton;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
Edit1: TEdit;
Edit2: TEdit;
ResBrowseBtn: TSpeedButton;
BakBrowseBtn: TSpeedButton;
procedure ResCancelBtnClick(Sender: TObject);
procedure BakCancelBtnClick(Sender: TObject);
procedure BakBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BakBrowseBtnClick(Sender: TObject);
procedure ResBrowseBtnClick(Sender: TObject);
procedure ResBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BackUpForm: TBackUpForm;
implementation
uses DataUnit;
{$R *.dfm}
procedure TBackUpForm.ResCancelBtnClick(Sender: TObject);
begin
Close;
End;
procedure TBackUpForm.BakCancelBtnClick(Sender: TObject);
begin
close;
end;
procedure TBackUpForm.BakBtnClick(Sender: TObject);
Var
FilName,BackName:Pchar;
begin
If Edit1.Text = '' Then
Begin
ShowMessage('請輸入或選擇備份文件的路徑和文檔名稱!');
Edit1.SetFocus;
Exit;
End;
FilName := Pchar(ExtractFilePath(Application.ExeName)+ 'Data.mdb');
BackName := Pchar(Trim(Edit1.text));
try
copyfile(FilName,BackName,True);
except
showmessage('數(shù)據(jù)備份——文件操作失敗。');
Exit;
end;
showmessage('數(shù)據(jù)備份成功,存放在:' + BackName + '。');
close;
end;
procedure TBackUpForm.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
DataForm.FriendsConnection.Connected := False;
end;
procedure TBackUpForm.BakBrowseBtnClick(Sender: TObject);
begin
if SaveDialog1.Execute then
Edit1.Text := SaveDialog1.FileName;
end;
procedure TBackUpForm.ResBrowseBtnClick(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit2.Text := OpenDialog1.FileName;
end;
procedure TBackUpForm.ResBtnClick(Sender: TObject);
Var
ReNewName,FilName:Pchar;
begin
If Edit2.Text = '' Then
Begin
ShowMessage('請輸入或選擇恢復(fù)文件的路徑和文檔名稱!');
Edit2.SetFocus;
Exit;
End;
FilName := Pchar(Trim(Edit2.text));
ReNewName := Pchar(ExtractFilePath(Application.ExeName)+ 'Data.mdb');
try
DataForm.FriendsConnection.Connected := False;
DeleteFile(ReNewName);
copyfile(FilName,ReNewName,True);
except
showmessage('數(shù)據(jù)恢復(fù)——文件操作失敗。');
Exit;
end;
showmessage('數(shù)據(jù)恢復(fù)成功,文件來自:' + FilName + '。');
close;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -