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}

//關(guān)閉
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('請(qǐng)選擇目標(biāo)路徑和輸入備份文件名(*.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('備份失敗，請(qǐng)重試！');
    end;
end;


end.