百货/超市行业

开发平台：

Delphi

backup.~pas：源码内容

							unit backup;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, StdCtrls;
type
  Tbackup_From = class(TForm)
    Gauge1: TGauge;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  backup_From: Tbackup_From;
  DataFile: String;
implementation
{$R *.dfm}
procedure Tbackup_From.Button1Click(Sender: TObject);
var
  i: integer;
begin
DataFile := GetCurrentDir+'datesuper.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 Tbackup_From.Button2Click(Sender: TObject);
var
  i: integer;
begin
DataFile := extractfilepath(application.exename)+'datesuper.mdb';
  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;
      CopyFile(PChar(OpenDialog1.FileName),PChar(DataFile),true);
      Messagebox(handle,'数据库还原成功！','还原数据',mb_iconinformation+mb_ok);
  except
    Messagebox(handle,'警告：数据库还原失败！','读取错误',mb_iconwarning+mb_ok);
  end;
end;
procedure Tbackup_From.Button3Click(Sender: TObject);
begin
close;
end;
end.

						