mrsybfhf.pas

客户管理系统主要是以客户为基础

unit MRSYBFHF;

interface

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

type
  TFRM_SYBFHF = class(TForm)
    BitBtn1: TBitBtn;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_SYBFHF: TFRM_SYBFHF;

implementation
  uses data;
{$R *.dfm}

procedure TFRM_SYBFHF.BitBtn1Click(Sender: TObject);
var
   dir:string;
begin
  try
  if SaveDialog1.Execute then
     begin
        dir:=SaveDialog1.FileName+'.bak';
        With database.ADO_bb do
        begin
          Close;
          SqL.Clear;
          SQL.Add('backup database db_Client to disk='+''''+dir+'''');
          ExecSQL
        end;
      showmessage('备份成功');
     end;
  except
  showmessage('备份失败');
  end;

end;

procedure TFRM_SYBFHF.BitBtn2Click(Sender: TObject);
var
  dir:string;
begin
  try
    if OpenDialog1.Execute then
     begin
        dir:=OpenDialog1.FileName;

        With database.ADO_bb do
        begin
          Close;
          SqL.Clear;
          SQL.Add('use master restore database db_Client from disk='+''''+dir+'''');
          ExecSQL;
          Close;
          SqL.Clear;
          SQL.Add('use  db_Client ');
          ExecSQL ;
        end;

        showmessage('恢复成功');
     end;
  except
    showmessage('恢复失败');
end;

end;

end.