UnitDbBuckup.pas
上传用户:zexin0769
上传日期:2010-01-19
资源大小:443k
文件大小:2k
源码类别:

百货/超市行业

开发平台:

Delphi

  1. unit UnitDbBuckup;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  5.   Dialogs, ComCtrls, Gauges, ExtCtrls, StdCtrls;
  6. type
  7.   TFrameDbBuckup = class(TFrame)
  8.     Image1: TImage;
  9.     GroupBox1: TGroupBox;
  10.     Image2: TImage;
  11.     Image3: TImage;
  12.     SaveDialog1: TSaveDialog;
  13.     Gauge1: TGauge;
  14.     OpenDialog1: TOpenDialog;
  15.     procedure Image2Click(Sender: TObject);
  16.     procedure Image3Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22. implementation
  23. uses UnitLogin;
  24. {$R *.dfm}
  25. procedure TFrameDbBuckup.Image2Click(Sender: TObject);
  26. var
  27.   i: integer;
  28. begin
  29.   try
  30.     if not savedialog1.Execute then exit;
  31.     if FileExists(savedialog1.FileName+'.mdb') then
  32.     begin
  33.       if Messagebox(handle,'存在数据库重名,是否覆盖?','存盘选项',mb_iconquestion+mb_yesno)=IDNo then Exit;
  34.     end
  35.     else
  36.     begin
  37.       for i:=Gauge1.MinValue to Gauge1.MaxValue do
  38.         Gauge1.Progress := i;
  39.       CopyFile(PChar(DataFile),PChar(SaveDialog1.FileName+'.mdb'),True);
  40.       Messagebox(handle,'数据库备份成功!','备份数据',mb_iconinformation+mb_ok);
  41.     end;
  42.   except
  43.     Messagebox(handle,'警告:数据库备份失败!','存盘错误',mb_iconwarning+mb_ok);
  44.   end;
  45. end;
  46. procedure TFrameDbBuckup.Image3Click(Sender: TObject);
  47. var
  48.   i: integer;
  49. begin
  50.   try
  51.     if not opendialog1.Execute then exit;
  52.     if Messagebox(handle,'警告:现有数据有可能丢失,确定还原?','确定还原',mb_iconquestion+mb_yesno)=IDNo then Exit;
  53.     for i:=Gauge1.MinValue to Gauge1.MaxValue do
  54.       Gauge1.Progress := i;
  55. //    CopyFile(PChar(OpenDialog1.FileName+'.mdb'),PChar(Form1.DataFile),True);
  56.       Messagebox(handle,'数据库还原成功!','还原数据',mb_iconinformation+mb_ok);
  57.   except
  58.     Messagebox(handle,'警告:数据库还原失败!','读取错误',mb_iconwarning+mb_ok);
  59.   end;
  60. end;
  61. end.