u_backup.pas

来自「SQL的应用」· PAS 代码 · 共 64 行

unit U_Backup;

interface

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

type
  TF_Backup = class(TForm)
    SaveDialog: TSaveDialog;
    Edit: TEdit;
    BitBtn_Backup: TBitBtn;
    Label1: TLabel;
    BitBtn_View: TBitBtn;
    procedure BitBtn_BackupClick(Sender: TObject);
    procedure BitBtn_ViewClick(Sender: TObject);
  private
    { Private declarations }
  public
    QryStr,DataBaseName,Position:String;
    { Public declarations }
  end;

var
  F_Backup: TF_Backup;

implementation
  Uses U_RecordStruct,U_DBPublicPack;
{$R *.dfm}

procedure TF_Backup.BitBtn_BackupClick(Sender: TObject);
begin
  If Edit.Text='' Then
  Begin
    MessageDlg('请选择备份路径!',MTConfirmation ,[MBOK],0);
    Edit.SetFocus;
  End
  Else
  Begin
  Try
    DataBaseName:=ReadConfig(IniFileName,'DBSet','DataBaseName'); //数据库名称
    With ADOQry Do
    Begin
      QryStr:='Backup DataBase '+DataBaseName+' To Disk='''+Position+''' With Init';
      Close;SQL.Clear;SQL.Add(QryStr);ExecSQL;
      ShowMessage('数据库备份完成');
    End
    Except
      MessageDlg('备份路径可能无效!',MTConfirmation ,[MBOK],0);
      Exit;
    End;
  End;  
end;

procedure TF_Backup.BitBtn_ViewClick(Sender: TObject);
begin
  If Not SaveDialog.Execute Then Exit;
  Edit.Text:=SaveDialog.FileName;
  Position:=Edit.Text;
end;

end.