backup.pas

信息管理系统

unit backup;

interface

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

type
  Tbackupfrm = class(TForm)
    SaveDialog1: TSaveDialog;
    ADOCommand1: TADOCommand;
    Label1: TLabel;
    Edit1: TEdit;
    path_btn: TButton;
    save_btn: TButton;
    cancel_btn: TButton;
    show_lb: TLabel;
    procedure save_btnClick(Sender: TObject);
    procedure SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
    procedure path_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  backupfrm: Tbackupfrm;

implementation

{$R *.dfm}

procedure Tbackupfrm.save_btnClick(Sender: TObject);
begin
  if (edit1.Text='')  then
  begin
    showmessage('请输入备份路径！');
    edit1.SetFocus ;
    exit;
  end
  else
  begin
    screen.Cursor :=crhourglass;
    show_lb.Visible :=true;
    show_lb.Update ;
    adocommand1.CommandText:='';
    adocommand1.CommandText:=' backup database  TRANSPORT_SYS  to disk =:path with init ';
    adocommand1.Parameters.ParamByName('path').Value :=trim(edit1.Text);
    adocommand1.Execute ;
    show_lb.Visible :=false;
    show_lb.Update ;
    application.MessageBox('                   备份完毕!             ','提示：                                    ',mb_ok);
    screen.Cursor :=crdefault;
  end
end;

procedure Tbackupfrm.SaveDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
  edit1.Text :=savedialog1.FileName ;
end;

procedure Tbackupfrm.path_btnClick(Sender: TObject);
begin
  SaveDialog1.InitialDir :=extractfiledir(application.ExeName);
  savedialog1.Title :='保存文件                                                                                                                                                               ';
  SaveDialog1.Execute;
end;

procedure Tbackupfrm.cancel_btnClick(Sender: TObject);
begin
  backupfrm.Close;
end;

end.