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+'\date\super.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)+'\date\super.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.