bfsjk_u.pas

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

unit bfsjk_u;

interface

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

type
  Tfrm_bfsjk = class(TForm)
    Label1: TLabel;
    bfsjkm_Edit: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_bfsjk: Tfrm_bfsjk;

implementation

{$R *.dfm}

procedure Tfrm_bfsjk.BitBtn1Click(Sender: TObject);
var
  newfile_str,oldfile_str:string;
begin
  oldfile_str:=extractfilepath(application.ExeName)+'data\sfsb.mdb';
  newfile_str:=bfsjkm_edit.text;
  if copyfile(pchar(oldfile_str),pchar(newfile_str),false)=true then
    messagebox(0,'数据库备份成功!','数据库备份',mb_iconinformation+mb_ok)
  else
    messagebox(0,'数据库备份失败!','数据库备份',mb_iconerror+mb_ok);
  self.Free;
end;

procedure Tfrm_bfsjk.BitBtn2Click(Sender: TObject);
begin
 self.Close;
end;

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

procedure Tfrm_bfsjk.FormCreate(Sender: TObject);
begin
  bfsjkm_edit.Text:=extractfilepath(application.ExeName)+'backup\sfsb_'+datetostr(now)+'.mdb';
end;

end.