backup.~pas

来自「本文件中还有JSP、php和delphi等源程序」· ~PAS 代码 · 共 69 行

unit backup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  TF_bk = 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_bk: TF_bk;

implementation

uses main;

{$R *.dfm}

procedure TF_bk.BitBtn2Click(Sender: TObject);
begin
    F_bk.Close;
end;

procedure TF_bk.BtnClick(Sender: TObject);
begin
     if savedialog1.Execute then
     edit1.Text:=savedialog1.FileName ;
end;

procedure TF_bk.BitBtn1Click(Sender: TObject);
begin
    adoquery1.SQL.Clear ;
    adoquery1.SQL.Add('BACKUP DATABASE [college] TO  ');
    adoquery1.SQL.Add('DISK = '''+edit1.Text +''' WITH  NOINIT ,   ');
    adoquery1.SQL.Add('NOUNLOAD ,  NAME = ''college 备份'', ');
    adoquery1.SQL.Add('NOSKIP ,  STATS = 10,  NOFORMAT  ');

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


end;

end.