backup.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 87 行

unit backup;

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;

type
  Tf_backup = 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_backup: Tf_backup;
  myinifile:Tinifile;

implementation

uses data;

{$R *.dfm}

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

//选择备份路径
procedure Tf_backup.BtnClick(Sender: TObject);
begin
     if savedialog1.Execute then
     edit1.Text:=savedialog1.FileName ;
     edit1.Enabled := false;
end;

//备份
procedure Tf_backup.BitBtn1Click(Sender: TObject);
var
    Query:TADOQuery;
begin
    if edit1.Text ='' then
    begin
        showmessage('请选择目标路径和输入备份文件名(*.bak)');
        edit1.SetFocus ;
        exit;
    end;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query.SQL.Add('backup database JXC TO  ');
    Query.SQL.Add('DISK = '''+edit1.Text +''' 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;


end.