unit TdataBackUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type
  TDataBack = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Bevel_button: TBevel;
    PanelBkGnd: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Panel_button: TPanel;
    Bevel1: TBevel;
    Edit_path: TEdit;
    BrowseBtn: TButton;
    BackData: TBitBtn;
    RecoverData: TBitBtn;
    a1: TAnimate;
    CancelBtn: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure BrowseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit_pathChange(Sender: TObject);
    procedure BackDataClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure RecoverDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    B_showmessage: boolean;
    { Public declarations }
  end;

var
  DataBack: TDataBack;

implementation

uses SelectDirUnit, Udm;

{$R *.dfm}

procedure TDataBack.BrowseBtnClick(Sender: TObject);
begin
  Application.CreateForm(TSelectDir, SelectDir); //顯示路徑選擇窗體
  SelectDir.DriveComboBox1.Text := ExtractFileDrive(Edit_path.Text);
  if (FileExists(Edit_path.Text)) then //檢測路徑是否存在
    SelectDir.DirectoryListBox1.Directory := Edit_path.Text;
  if (SelectDir.ShowModal = mrOK) then //當返回值為mrOK時，得到選擇的路徑
    Edit_path.Text := SelectDir.Label3.Caption + '\XQ' +
      formatdatetime('yyyymmdd', date) + '.back';
  SelectDir.free;
end;

procedure TDataBack.FormCreate(Sender: TObject);
var
  SourcePath: string;
begin
  SELF.Caption := application.Title + ' - 數據備份';
  B_showmessage := true;
  SourcePath := ExtractFileDir(Application.ExeName);
  //取得應用程序路徑
  if (StrLen(PChar(SourcePath)) <> 3) then
    SourcePath := SourcePath + '\';
  Edit_path.Text := SourcePath + 'BACKUPDATA\XQ' + formatdatetime('yyyymmdd',
    date) + '.back';
  //設置路徑名＋文件名
end;

procedure TDataBack.Edit_pathChange(Sender: TObject);
begin
  if trim(Edit_path.Text) <> '' then
    BackData.Enabled := True
  else
    RecoverData.Enabled := False; //當路徑框中為空時候， 恢復數據不可用
end;

procedure TDataBack.BackDataClick(Sender: TObject);
begin
  self.Caption := '正在備份數據....';
  a1.Active := true;
  adodm.cback.CommandText := 'backup database xq to disk=''' + Edit_path.Text +
    ''''; //備份數據庫命令語句
  try
    adodm.cback.Execute;
    // 執行備份
    showmessage('      備份成功！');
    a1.Active := false;
  except
    showmessage('      備份失敗！');
    a1.Active := false;
  end;
  self.Caption := '數據備份和恢復';
end;

procedure TDataBack.CancelBtnClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TDataBack.RecoverDataClick(Sender: TObject);
var
  DataPath: string;
begin
  self.Caption := '正在恢復數據....';
  try
    adodm.XQconn.Close;
    adodm.XQconn.Connected := false;
  except
    MessageBox(0, '關閉數據庫錯誤', '錯誤', MB_OK + MB_ICONSTOP + MB_TOPMOST);
  end;

  OpenDialog1.Filter := '備份文件 (*.back)|*.back|所有文件 (*.*)|*.*';
  //設置備份文件后綴
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName) + '\backupdata';
  //設置備份路徑
  if OpenDialog1.Execute then
    DataPath := OpenDialog1.FileName;
  if DataPath <> '' then
  begin
    if
      application.MessageBox('此操作將使上次備份以來的所有數據丟失，是否繼續？',
      '恢復數據', MB_OKCANCEL) = idOK then
    begin
      a1.Active := true;
      ADODM.backconn.Connected := True;
      adodm.cback.Connection := ADODM.backconn;
      adodm.cback.CommandText :=
        'ALTER DATABASE XQ SET OFFLINE WITH ROLLBACK IMMEDIATE'; //切斷連接
      adodm.cback.Execute;
      adodm.cback.CommandText := 'restore database XQ from disk=''' + DataPath +
        '''' + ' with replace'; //恢復數據命令語句
      try
        try
          adodm.cback.Execute;
          //執行恢復過程
          showmessage('    恢復成功！');
        except
          showmessage('數據庫正在被使用！請確定已關閉其它使用該數據庫程序！');
          showmessage('    恢復失敗！');
        end;
      finally
        a1.Active := false;
        adodm.cback.CommandText :=
          'ALTER DATABASE XQ SET ONLINE WITH ROLLBACK IMMEDIATE'; //重新連接數據庫
        adodm.cback.Execute;
        // 關閉臨時數據庫
        ADODM.backconn.Connected := False;
        // 打開數據庫
        adodm.ClientFamily.CommandText := 'select * from ClientFamilyTable';
        ADODM.XQconn.Connected := True;
        try
          // 打開各個數據表是否有錯誤
          adodm.YHTS.Open;
          adodm.part.Open;
          adodm.client.Open;
          adodm.Toper.Open;
          adodm.Tuser.Open;
          adodm.ZHBX.Open;
          adodm.Model.Open;
          adodm.ClientFamily.Open;
          adodm.ChargeItem.Open;
          adodm.ClientRoom.Open;
          adodm.Charge.Open;
          adodm.ClientPay.Open;
          adodm.ClientAdvance.Open;
        except
          showmessage('程序運行發生不可預知錯誤，請重新啟動程序！');
          //結束該程序
          Application.Terminate;
        end;
      end;
    end;
  end;
  self.Caption := '數據備份和恢復';
end;

end.