hfsjk_u.pas

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

unit hfsjk_u;

interface

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

type
  Tfrm_hfsjk = class(TForm)
    Label1: TLabel;
    hfsjkm_Edit: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_hfsjk: Tfrm_hfsjk;

implementation

{$R *.dfm}

procedure Tfrm_hfsjk.BitBtn1Click(Sender: TObject);
var
  newfile_str,oldfile_str:string;
begin
  oldfile_str:=trim(hfsjkm_edit.Text);
  newfile_str:=extractfilepath(application.ExeName)+'data\sfsb.mdb';
  if oldfile_str='' then
  begin
   messagebox(0,'请选择数据库文件!','选择数据库文件',mb_iconwarning+mb_ok);
   exit;
  end;
  if copyfile(pchar(oldfile_str),pchar(newfile_str),false)=true then
  begin
     messagebox(0,'数据库恢复成功!','恢复数据库',mb_iconinformation+mb_ok);
  end
  else
  begin
     messagebox(0,'数据库恢复失败!','恢复数据库',mb_iconerror+mb_ok);
  end;
  self.Free;
end;

procedure Tfrm_hfsjk.BitBtn2Click(Sender: TObject);
begin
  self.Free;
end;

procedure Tfrm_hfsjk.FileListBox1Click(Sender: TObject);
begin
  hfsjkm_edit.Text:=filelistbox1.FileName;
end;

procedure Tfrm_hfsjk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Free;
end;

procedure Tfrm_hfsjk.FormCreate(Sender: TObject);
begin
  directorylistbox1.Directory:=extractfilepath(application.exename)+'\backup';
end;

end.