backupa.pas

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

unit backupA;

interface

//uses
  //Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  //Dialogs, StdCtrls, Buttons, DB, ADODB,inifiles;
uses //Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  {StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ImgList, jpeg, DB, ADODB,
  ShellApi, ToolWin,inifiles;   }

  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_backupA = class(TForm)
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Btn: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    SaveDialog1: TSaveDialog;
    procedure BitBtn2Click(Sender: TObject);
    procedure BtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_backupA: Tf_backupA;
  myinifile:Tinifile;

implementation

uses data, MAIN;

{$R *.dfm}

//关闭
procedure Tf_backupA.BitBtn2Click(Sender: TObject);
begin
    Close;
end;

//选择备份路径
procedure Tf_backupA.BtnClick(Sender: TObject);
var
    strCaption,strDirectory:String;
    wstrRoot:WideString;
begin
    strCaption:='选择目录';
    wstrRoot:='';
    SelectDirectory(strCaption,wstrRoot,strDirectory);
    edit1.Text :=strDirectory;
     //if savedialog1.Execute then
     //edit1.Text:=savedialog1.FileName;
     edit1.Enabled := false;
end;

//备份
procedure Tf_backupA.BitBtn1Click(Sender: TObject);
var
    s,s1,s2,s3,s4:string;
    filename:string;
    sDB:string;
    Currentdir:string;
    strMDBPlace:string;
    j:integer;
    Query:TADOQuery;
begin
    if edit1.Text ='' then
    begin
        showmessage('请选择目标路径和输入备份文件名(*.bak)');
        edit1.SetFocus ;
        exit;
    end;

    s:=Edit1.Text+'\AUTOCARI.bak';

    if FileExists(s) Then
    begin
        deletefile(s);
    end;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query.SQL.Add('backup database AUTOCARI TO  ');
    Query.SQL.Add('DISK = '''+s +''' WITH  NOINIT ,   ');
    Query.SQL.Add('NOUNLOAD ,  NAME = ''college 备份'', ');
    Query.SQL.Add('NOSKIP ,  STATS = 10,  NOFORMAT  ');

    DataModuleADO.ADOConnection1.begintrans;
    try
        Query.ExecSQL ;
        DataModuleADO.ADOConnection1.committrans;
        showmessage('备份成功！');
    except
        DataModuleADO.ADOConnection1.rollbacktrans;
        showmessage('备份失败，请重试！');
    end;
end;


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

end.