delphi4arab منتديات دلفي للعرب

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

استعمل مكون 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;