backupunit.pas

一个简单的数据库管理系统,是用delphi开发的.

unit BackUpUnit;

interface

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

type
  TBackUpForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Bevel1: TBevel;
    BakBtn: TSpeedButton;
    BakCancelBtn: TSpeedButton;
    Label2: TLabel;
    Bevel2: TBevel;
    ResBtn: TSpeedButton;
    ResCancelBtn: TSpeedButton;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    ResBrowseBtn: TSpeedButton;
    BakBrowseBtn: TSpeedButton;
    procedure ResCancelBtnClick(Sender: TObject);
    procedure BakCancelBtnClick(Sender: TObject);
    procedure BakBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BakBrowseBtnClick(Sender: TObject);
    procedure ResBrowseBtnClick(Sender: TObject);
    procedure ResBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BackUpForm: TBackUpForm;

implementation
uses DataUnit;
{$R *.dfm}

procedure TBackUpForm.ResCancelBtnClick(Sender: TObject);
begin
  Close;
End;

procedure TBackUpForm.BakCancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure TBackUpForm.BakBtnClick(Sender: TObject);
Var
  FilName,BackName:Pchar;
begin
  If Edit1.Text = '' Then
  Begin
    ShowMessage('请输入或选择备份文件的路径和文档名称！');
    Edit1.SetFocus;
    Exit;
  End;

  FilName := Pchar(ExtractFilePath(Application.ExeName)+ 'Data.mdb');
  BackName := Pchar(Trim(Edit1.text));

  try
    copyfile(FilName,BackName,True);
  except
    showmessage('数据备份——文件操作失败。');
    Exit;
  end;
  showmessage('数据备份成功，存放在：' + BackName + '。');
  close;
end;


procedure TBackUpForm.FormShow(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
  DataForm.FriendsConnection.Connected := False;
end;

procedure TBackUpForm.BakBrowseBtnClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Edit1.Text := SaveDialog1.FileName;
end;

procedure TBackUpForm.ResBrowseBtnClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit2.Text := OpenDialog1.FileName;
end;

procedure TBackUpForm.ResBtnClick(Sender: TObject);
Var
  ReNewName,FilName:Pchar;
begin
  If Edit2.Text = '' Then
  Begin
    ShowMessage('请输入或选择恢复文件的路径和文档名称！');
    Edit2.SetFocus;
    Exit;
  End;

  FilName := Pchar(Trim(Edit2.text));
  ReNewName := Pchar(ExtractFilePath(Application.ExeName)+ 'Data.mdb');

  try
    DataForm.FriendsConnection.Connected := False;
    DeleteFile(ReNewName);
    copyfile(FilName,ReNewName,True);
  except
    showmessage('数据恢复——文件操作失败。');
    Exit;
  end;
  showmessage('数据恢复成功，文件来自：' + FilName + '。');
  close;
end;

end.