كيفية عمل نسخة إحتياطية لقواعد البيانات

[khalmoh1971]

مثال اخر
unit Unit1;

interface

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

type
TForm1 = class(TForm)
IBBackupService1: TIBBackupService;
IBRestoreService1: TIBRestoreService;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Panel2: TPanel;
Memo1: TMemo;
Timer1: TTimer;
Panel1: TPanel;
Label1: TLabel;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel2.Visible := true;
Memo1.Lines.Clear;
Panel1.Visible := false;

with IBBackupService1 do
begin
IBBackupService1.BackupFile.Clear;
IBBackupService1.DatabaseName := Edit2.Text;
IBBackupService1.BackupFile.Add('C:\aa ' + FormatDateTime('DD_MM_YYYY_', Date) + FormatDateTime('H_M_S_', Time) + '.gbk');

IBBackupService1.Active := true;
IBBackupService1.ServiceStart;

Verbose := True;

while not Eof do

Memo1.Lines.Add(GetNextLine);
end;
Timer2.Enabled := true;

Panel2.Visible :=false;
Label1.Caption := (IBBackupService1.BackupFile.GetText + ' تم عمل نسخة ');
end;

procedure TForm1.FormCreate(Sender: TObject);
var s: integer;
begin
s := strtoint(Edit1.Text);
Timer1.Interval := 1000 * s;


Button1.Click;

// Timer1.Enabled:=true ;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Panel1.Caption := (' تم عمل نسخة ' + IBBackupService1.BackupFile.GetText);
Panel1.Visible := true;

end;

end.