backup22.pas

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

unit backup22;

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_backup22 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button6: TButton;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

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

var
    F_backup22: TF_backup22;
    path:string;
    root:string;
  
const   
    SELDIRHELP   =   1000;
    ininame= 'Config.ini';

  
implementation

uses main, data,StrUtils;

{$R *.dfm}

procedure TF_backup22.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_backup22.Button1Click(Sender: TObject);
var
    Currentdir:string;
    strMDBPlace:string;
    s:string;
    j:integer;
begin
    try
        //strMDBPlace := edit1.Text +'\Car4s.mdb';
        //s:=ReverseString(strMDBPlace);
        //j:=pos('\',s);
        //if j<>0 then
        //showmessage('\'+'在第'+inttostr(j)+'个位置');
        //DataModuleADO.ADOConnection1.Connected:=false;

        strMDBPlace := edit1.Text; 
        if FileExists(strMDBPlace)=false Then exit;
        Currentdir:=extractfilepath(Application.exename)+'REALTY.mdb';


        DataModuleADO.ADOConnection1.Close;

        Copyfile(pchar(strMDBPlace),Pchar(Currentdir),false);

        DataModuleADO.ADOConnection1.Connected:=true;

        //DataModuleADO.SetConn();
        showmessage('恢复成功。');
        {DataModuleADO.ADOConnection1.Connected:=true;
        if DataModuleADO.ADOConnection1.InTransaction=true then
            DataModuleADO.ADOConnection1.RollbackTrans;   }
    except
        Application.MessageBox('无法创建数据库，详细信息'#13'请与系统管理员联系。','提示',MB_OK + MB_ICONINFORMATION);
        Exit;
    end;
end;

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


    opendialog1.Filter:='*.mdb|*.mdb';
    if opendialog1.Execute then
        edit1.Text := ExtractFilePath(opendialog1.FileName)+extractfilename(opendialog1.FileName);
end;

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

procedure TF_backup22.Button3Click(Sender: TObject);
begin
    //mainform.ShowChmHelp('02-03-04.htm');
end;

end.