formbackrestunit.pas

duiwenjiandechuli fangbianguanli.

unit FormBackrestUnit;

interface

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

type
  TFormBackrest = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    myDbFile: string;
    function testConn(sourceF: string): boolean;
  public
    { Public declarations }
  end;

var
  FormBackrest      : TFormBackrest;

implementation

uses FormMainUnit;

{$R *.dfm}

function TformBackRest.testConn(sourceF: string): boolean;
var
  ac                : TADOConnection;
begin
  ac := TADOCOnnection.Create(nil);
  ac.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    sourceF + ';Persist Security Info=False';
  ac.LoginPrompt := false;
  try
    try
      ac.Open();
      ac.Close;
      result := true;
    except
      result := false;
      application.MessageBox('该文件格式不正确！！', '提示', mb_ok or
        mb_Iconerror);
    end;
  finally
    ac.free;
  end;
end;

procedure TFormBackrest.Button1Click(Sender: TObject);
begin
  if SaveDialog1.execute then
    edit1.text := SaveDialog1.FileName;
end;

procedure TFormBackrest.Button3Click(Sender: TObject);
begin
  if OpenDialog1.execute then
    edit2.text := OpenDialog1.filename;
end;

procedure TFormBackrest.Button2Click(Sender: TObject);
begin
  if edit1.text = '' then
  begin
    application.MessageBox('请输入要备份的文件路径和文件名称！', '错误', mb_ok
      or
      mb_IconInformation);
    edit1.SetFocus;
    exit;
  end;
  if FileExists(MyDbFile) then
  begin
    try
      CopyFile(PansiChar(MyDbFile), PansiChar(Edit1.text), false);
      application.MessageBox('备份完成!', '提示', mb_ok or mb_IconInformation);
    except
      application.MessageBox('备份失败!', '提示', mb_ok or mb_IconError);
    end;
  end;
end;

procedure TFormBackrest.FormCreate(Sender: TObject);
begin
  myDbFile := ExtractFilePath(ParamStr(0)) + 'Data\Infobase.mdb';
end;

procedure TFormBackrest.Button4Click(Sender: TObject);
begin
  if edit2.text = '' then
  begin
    application.MessageBox('请选择要还原的文件！', '错误', mb_ok or
      mb_IconInformation);
    edit2.SetFocus;
    exit;
  end;
  if not FileExists(Edit2.text) then
  begin
    Application.MessageBox('源文件不存在！', '提示', mb_ok or mb_iconError);
    Exit;
  end;
  if not testConn(edit2.text) then
    exit;
  try
    FormMain.ADOConnection1.Close;
    FileSetAttr(mydbfile, faArchive);
    Copyfile(pansiChar(edit2.text), pansiChar(mydbfile), false);
    FormMain.ADOConnection1.Open();
    application.MessageBox('还原完成!', '提示', mb_ok or mb_IconInformation);
  except
    Application.MessageBox('还原失败！', '提示', mb_ok or mb_IconError);
  end;
end;

end.