recover.pas

管理车队用车记录

unit recover;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,shellapi, ExtCtrls,consts, IBServices,
  RzShellDialogs;
type
  TForm_recover = class(TForm)
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    OpenDialog1: TRzOpenDialog;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_recover: TForm_recover;

implementation
uses dm,backup, login,md5;

{$R *.dfm}


procedure TForm_recover.BitBtn1Click(Sender: TObject);
var
fromdir,todir: string;
begin
if edit1.Text='' then
begin
showmessage('请选择备份文件路径!');
abort;
end;
form_dm.ADOConnection.Close;
fromdir:=edit1.text;
todir:=extractfiledir(application.ExeName)+'\data\king box.mdb';
try

  DeleteFile(ExtractFileDir(Application.ExeName)+'\data\king box.mdb'); 
  copyfile(PChar(fromdir), PChar(todir), False);

label1.Caption:='正在恢复数据，请稍候...';
label1.Refresh;
label1.Caption:='';
label1.Refresh;
showmessage('数据恢复成功！');
except
showmessage('数据恢复失败！');
end;


end;

procedure TForm_recover.BitBtn2Click(Sender: TObject);
var  backupdir:string;
begin
backupdir:=extractfiledir(application.ExeName)+'\data\backup';
if fileexists(backupdir)=false then
setcurrentdir(backupdir);
opendialog1.InitialDir:=backupdir;
opendialog1.Execute;
edit1.Text:=opendialog1.FileName;
end;

procedure TForm_recover.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
edit1.Text:='';
form_dm.ADOConnection.Open;
end;

end.