function Backup(const Source, Dest: string; Overwrite: Boolean = False): Boolean;
begin
Result := CopyFile(PChar(Source), PChar(Dest), Overwrite);
end;
...
if SelectDirectory('Select folder backup...', '', sDir) then
if Backup(data.DataBase.DatabaseFileName, IncludeTrailingPathDelimiter(sDir)+'Stock'+edAnnee.Text+'.ABS') then
ShowMessage('Backup succesfull!');procedure tform1.nouvelebase;
var db1,db2,data:string;
d:tdate;
ar:boolean ;
begin
reparer;
ar:=false;
d:=now();
data:=extractfilepath(application.exename)+'data\';
data:=data + 'info'+ formatdatetime('yyyy ',d)+'.abs';
dtmdl1.absd1.close;
db1:=data1;
if copyfile(pchar(db1),pchar(data),true) then
begin
showmessage('fichier sauvgarder');
end;
dtmdl1.absd1.databasefilename:=data1;
dtmdl1.abst1.emptytable;
dtmdl1.abst3.emptytable;
dtmdl1.abstrecete.emptytable;
dtmdl1.abstable2.emptytable;
dtmdl1.abstable3.emptytable;
reparer;
ouvirirbase();
end;procedure TForm1.Button1Click(Sender: TObject);
var Err,Repertoire:string;
begin
Repertoire := ExtractFilePath(Application.ExeName);
SaveDialog1.Filter:='Fichier Base de données |*.ABS';
SaveDialog1.FileName:='MaBase';
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName<>'' then
begin
try
ABSDatabase1.Connected:=false;
if not ABSDatabase1.RepairDatabase(SaveDialog1.FileName+'.ABS',Err)then
begin
messagebox(0,Pchar('Certains erreurs trouvées lors de sauvegarde de la base de données - Détail d''erreurs :'+#13+#10+Err), 'Erreur lors de sauvegarde', mb_yesno+MB_ICONEXCLAMATION );
ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
ABSDatabase1.Connected:=True;
exit;
end;
finally
messagebox(0,pchar('Sauvegarde (BackUp) de la base de données terminé'), 'Sauvegarde "Backup"', mb_ok+MB_ICONEXCLAMATION );
ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
ABSDatabase1.Connected:=True;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Repertoire:string;
begin
Repertoire := ExtractFilePath(Application.ExeName);
OpenDlg.Filter:='Fichier Base de données |*.ABS';
if OpenDlg.Execute then
begin
if OpenDlg.FileName<>'' then
begin
try
ABSDatabase1.Connected:=false;
CopyFile(PChar(OpenDlg.FileName), PChar(Repertoire+'Data.abs'), false);
ABSDatabase1.DatabaseFileName:=Repertoire+'Data.abs';
ABSDatabase1.Connected:=True;
finally
messagebox(0,pchar('Chargement de la base de données terminé'), 'Chargement de la base de données', mb_ok+MB_ICONEXCLAMATION );
end;
end;
end;
end;
procedure TPrincipale.Sauvegarde1Click(Sender: TObject);
var Err,Repertoire:string;
begin
Repertoire := ExtractFilePath(Application.ExeName);
SaveDialog1.Filter:='Fichier Base de données |*.tdbd';
SaveDialog1.FileName:='MaBase';
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName<>'' then
begin
try
DBArchive.Connected:=false;
if not DBArchive.RepairDatabase(SaveDialog1.FileName+'.tdbd',Err)then
begin
messagebox(0,Pchar('Certains erreurs trouvées lors de sauvegarde de la base de données - Détail d''erreurs :'+#13+#10+Err),
'Erreur lors de sauvegarde', mb_yesno+MB_ICONEXCLAMATION );
DBArchive.DatabaseFileName:=Repertoire+'Data.abs';
DBArchive.Connected:=True;
exit;
end;
finally
messagebox(0,pchar('Sauvegarde (BackUp) de la base de données terminé'), 'Sauvegarde "Backup"', mb_ok+MB_ICONEXCLAMATION );
DBArchive.DatabaseFileName:=Repertoire+'Data.abs';
DBArchive.Connected:=True;
end;
end;
end;
end;