redataunit.pas

人事管理系统帮助人们管理复杂的关系

unit ReDataUnit;

interface

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

type
  TReDataForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    edtBakPath: TEdit;
    Panel2: TPanel;
    Button2: TButton;
    Button3: TButton;
    ProgressBar1: TProgressBar;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }

  Procedure Copy(Source:string; Destination:string);

  public
    { Public declarations }
  end;

var
  ReDataForm: TReDataForm;

implementation

{$R *.dfm}

Procedure TReDataForm.Copy(Source:string; Destination:string);
var
  a,b: file of byte;
  buf: array[0..2048] of char;
  num:integer;
  length: longint;
begin
  ProgressBar1.Visible:=true;
  assignFile(a,source);
  Reset(a);
  assignFile(b,Destination);
  Rewrite(b);
  Length := FileSize(a);
  ProgressBar1.Min:=0;
  ProgressBar1.Max:=length;
  while length>0 do
    begin
      BlockRead(a,buf[0],sizeof(buf),num);
      Length:= Length-num;
      BlockWrite(b,buf[0],num);
      ProgressBar1.Position:=ProgressBar1.Position+num;
    end;
  closeFile(a);
  CloseFile(b);

end;

procedure TReDataForm.Button2Click(Sender: TObject);
var
  filename:string;
  bakFilename:string;
begin
  filename:=ExtractFilePath(ParamStr(0)) + 'MDB\Information.mdb';
  bakFilename:=ExtractFilePath(ParamStr(0)) + 'MDB_BAK\Information.bak';
  try
    Copy(bakFilename,filename);
    MessageBox(0,'数据库还原完成！','人事管理系统V2.0',MB_OK+MB_ICONINFORMATION);
  except
    MessageBox(0,'数据库还原失败！','人事管理系统V2.0',MB_OK+MB_ICONINFORMATION);
  end;
end;

procedure TReDataForm.FormShow(Sender: TObject);
begin
  edtBakPath.Text:=ExtractFilePath(ParamStr(0)) + 'MDB_BAK\Information.bak';
end;

procedure TReDataForm.Button3Click(Sender: TObject);
begin
  ReDataForm.Close;
end;

end.