datarepair.pas

毕业设计时候开发的人事管理系统

unit datarepair;

interface

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

type
  Tfrmdatarepair = class(TForm)
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    btnundo: TBitBtn;
    btnbak: TBitBtn;
    GroupBox1: TGroupBox;
    Gauge1: TGauge;
    procedure btnbakClick(Sender: TObject);
    procedure btnundoClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdatarepair: Tfrmdatarepair;

implementation

{$R *.dfm}


procedure Tfrmdatarepair.btnbakClick(Sender: TObject);
var
i:integer;
datafile:string;
begin
datafile:=extractfilepath(paramstr(0))+'\data\bmdj.mdb';
  try
    if not savedialog1.Execute then exit;
    if FileExists(savedialog1.FileName+'.mdb') then
    begin
      if Messagebox(handle,'存在数据库重名，是否覆盖？','存盘选项',mb_iconquestion+mb_yesno)=IDNo then Exit;
    end
    else
    begin
      for i:=Gauge1.MinValue to Gauge1.MaxValue do
        Gauge1.Progress := i;
      CopyFile(PChar(DataFile),PChar(SaveDialog1.FileName+'.mdb'),True);
      Messagebox(handle,'数据库备份成功！','备份数据',mb_iconinformation+mb_ok);
    end;
  except
    Messagebox(handle,'警告：数据库备份失败！','存盘错误',mb_iconwarning+mb_ok);
  end;
end;

procedure Tfrmdatarepair.btnundoClick(Sender: TObject);
var i:integer;
begin
try
    if not opendialog1.Execute then exit;
    if Messagebox(handle,'警告：现有数据有可能丢失，确认还原？','确定还原',mb_iconquestion+mb_yesno)=IDNo then Exit;
    for i:=Gauge1.MinValue to Gauge1.MaxValue do
      Gauge1.Progress := i;
      Messagebox(handle,'数据库还原成功！','还原数据',mb_iconinformation+mb_ok);
  except
    Messagebox(handle,'警告：数据库还原失败！','读取错误',mb_iconwarning+mb_ok);
  end;
end;

procedure Tfrmdatarepair.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
   close;
end;

procedure Tfrmdatarepair.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;//关闭子窗口
end;

end.