كيف ارشفة قاعدة بيانات ابسوليت

[fraydoo1]

سلام عليكم 
مثلا برنامج فواتير في نهاية السنة كيف نقوم بارشفة بيانات الجدول وافراغ الجداول لتسجيل الفواتير السنة الجديدة.
 مع كامل احتراماتي

[said-softdz]

استعمل مكون zlib ياتي في موقع aboluted database
بعد تركيبه
with zip do
begin


FileName:= //صع مسار المجلد أو القائمة '.zip';
BaseDir := // هنا صع مسار الفاعدة التي تريد ضغطها;;


// Create a new archive file
OpenArchive(fmCreate);
;
AddFiles('*.*');


// Test all files and directories in the archive
try
TestFiles('*.*');
except
MessageDlg(' Erreur à aparu dans le dossier ',mtError,[mbOk],0);
end;

// Close the archive

CloseArchive;

end;