unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StdActns, ActnList;

type
  Tf_sjbf = class(TForm)
    Label1: TLabel;
    ActionList1: TActionList;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     function getSof():string;
     function getTaf():string;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    { Private declarations }


  public
    { Public declarations }
  end;

var
  f_sjbf: Tf_sjbf;
   mypath:string;
  taf,sof:string;

implementation

uses ubak, Unit5;



{$R *.dfm}
function tf_sjbf.getSof():string;
begin
result:= sof;
end;
function tf_sjbf.getTaf():string;
begin
result:= taf;
end;
 procedure Tf_sjbf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree;
end;
procedure Tf_sjbf.Button1Click(Sender: TObject);
begin
FileOpen1.Dialog.Title :='選擇備份文件路徑';
FileOpen1.Dialog.Filter :='備份文件(*.mdb)|*.mdb';
if FileOpen1.Dialog.Execute then edit1.Text :=FileOpen1.Dialog.FileName;
end;
procedure Tf_sjbf.FormCreate(Sender: TObject);
begin
MyPath:=ExtractFilePath(ParamStr(0));
end;

procedure Tf_sjbf.Button2Click(Sender: TObject);
var
 temptbak:tbak;
begin
if edit1.Text ='' then exit;
if  application.MessageBox('確認要備份嗎？','提示',mb_okcancel)=idok then begin
sof:=mypath+'data\rsda.mdb';
taf:=edit1.Text;
  if ExtractFileExt(taf)<>'.mdb' then
  taf:=taf+'.mdb';
  try
  temptbak:=tbak.Create(self);
  showmessage('數據備份成功，保管好您的備份');
  except
   showmessage('數據備份失敗，如果繼續發生該問題，請聯系我們');
   end;
  self.Close;
  end;
end;
procedure Tf_sjbf.Button3Click(Sender: TObject);
var
 temptbak:tbak;
begin
if edit1.Text ='' then exit;
sof:=edit1.Text;
if not FileExists(sof) then begin
showmessage('沒有正確選擇備份文件');
exit;
end;
if application.MessageBox('確認要還原嗎,建議先備份當前數據？','提示',mb_okcancel)=idok then  begin
taf:=mypath+'data\rsda.mdb';
  try
  temptbak:=tbak.Create(self);
  showmessage('還原成功,請先退出系統，再打開才能完全恢復數據');
  application.Terminate;
  except
  showmessage('還原失敗，如果繼續發生該問題，請聯系我們');
  end;
  self.Close;
  end;
end;
procedure Tf_sjbf.Button4Click(Sender: TObject);
begin
self.Close;
end;

end.