backup11.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit backup11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, DBTables, ADODB, ExtCtrls, jpeg, shlobj,
  FileCtrl, Grids, Outline, DirOutln, ActiveX, ShellApi,
  inifiles;

type
  TF_backup11 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button6: TButton;
    Button2: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
      bOK: bool;
  end;

var
    F_backup11: TF_backup11;
    path:string;
    root:string;
  
const   
    SELDIRHELP   =   1000;
    ininame= 'Config.ini';

  
implementation

uses main, data;

{$R *.dfm}

procedure TF_backup11.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
    Begin
        key:=0;
        perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TF_backup11.Button1Click(Sender: TObject);
var
    Currentdir:string;
    strMDBPlace:string;
begin
    try
        Currentdir:=extractfilepath(Application.exename)+'REALTY.mdb';
        strMDBPlace := edit1.Text +'\REALTY.mdb';
        Copyfile(Pchar(Currentdir),pchar(strMDBPlace),false);
        showmessage('备份成功。');
    except
        Application.MessageBox('无法创建数据库，详细信息'#13'请与系统管理员联系。','提示',MB_OK + MB_ICONINFORMATION);
        Exit;
    end;
end;

procedure TF_backup11.Button2Click(Sender: TObject);
var
    strCaption,strDirectory:String;
    wstrRoot:WideString;
begin
    strCaption:='选择目录';
    wstrRoot:='';
    SelectDirectory(strCaption,wstrRoot,strDirectory);
    edit1.Text :=strDirectory;
end;

procedure TF_backup11.Button6Click(Sender: TObject);
begin
     close ;
end;

end.