backup.~pas

这是用delphi开发的一个物资管理信息系统

unit backup;

interface

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

type
  Tbackupfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    path_btn: TButton;
    show_lb: TLabel;
    SaveDialog1: TSaveDialog;
    ADOCommand1: TADOCommand;
    ADOConnection1: TADOConnection;
    save_btn: TBitBtn;
    cancel_btn: TBitBtn;
    Label2: TLabel;
    procedure save_btnClick(Sender: TObject);
    procedure path_btnClick(Sender: TObject);
    procedure SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
    procedure cancel_btnClick(Sender: TObject);
    procedure save_btnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure save_btnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  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
screen.Cursor :=crhourglass;  //设置鼠标
show_lb.Visible :=true;
show_lb.Update ;           
adocommand1.CommandText:='';
adocommand1.CommandText:=' backup database  MATERIALMG_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.path_btnClick(Sender: TObject);
begin
SaveDialog1.InitialDir :=extractfiledir(application.ExeName);   
savedialog1.Title :='保存文件为：';     //                                                                                                                                                       ';
SaveDialog1.Execute;   
end;

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

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

procedure Tbackupfrm.save_btnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tbackupfrm.save_btnMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

end.