www.pudn.com > 东之源小型超市管理系统1.0版含源码.rar > UnitDbBuckup.pas

unit UnitDbBuckup; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, ComCtrls, Gauges, ExtCtrls, StdCtrls; 
 
type 
  TFrameDbBuckup = class(TFrame) 
    Image1: TImage; 
    GroupBox1: TGroupBox; 
    Image2: TImage; 
    Image3: TImage; 
    SaveDialog1: TSaveDialog; 
    Gauge1: TGauge; 
    OpenDialog1: TOpenDialog; 
    procedure Image2Click(Sender: TObject); 
    procedure Image3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
uses UnitLogin; 
 
{$R *.dfm} 
 
procedure TFrameDbBuckup.Image2Click(Sender: TObject); 
var 
  i: integer; 
begin 
  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 TFrameDbBuckup.Image3Click(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; 
//    CopyFile(PChar(OpenDialog1.FileName+'.mdb'),PChar(Form1.DataFile),True); 
      Messagebox(handle,'数据库还原成功！','还原数据',mb_iconinformation+mb_ok); 
  except 
    Messagebox(handle,'警告：数据库还原失败！','读取错误',mb_iconwarning+mb_ok); 
  end; 
end; 
 
end.