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;
    Back_Up: TButton;
    cancel_btn: TButton;
    show_lb: TLabel;
    procedure Back_UpClick(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.Back_UpClick(Sender: TObject);
begin
if (edit1.Text='')  then
 begin
 showmessage('请输入备份路径！');
 edit1.SetFocus ;
 exit;
 end
else
screen.Cursor :=crhourglass;
show_lb.Visible :=true;
show_lb.Update ;
adocommand1.CommandText:='';
adocommand1.CommandText:=' backup database  PERSONNEL_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;

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.