+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف حفظ قادة البيانات في مجلد داخل البرنامج (/showthread.php?tid=5198)
كيف حفظ قادة البيانات في مجلد داخل البرنامج - medreg - 07-05-2013
السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت هذه المحاولة لكن لم تنجح معي
وكل ما احتاجه هو كيف اضع قاعدة البيانات في مجلد معين موجود داخل مجلد البرنامج وكيف استدعيها منه
قاعدة البيانات المستعملة ABSOLUTE DATABASE DELPHI7
هذا الكود للحفظ
PHP كود :
procedure TFormArch.BitBtn2Click(Sender: TObject);
var Pdir:string;
begin
Pdir:='MdgArch';// هذا إسم مجلد الأرشيف الموجود داخل مجلد البرنامج
Sleep(200);
DModule.OnDestroy(sender);
if DirectoryExists('MdgArch') then
begin
في هذا الكود أردت أن أقول إذا كان هذا المجلد موجود انسخ هذه القاعدة بداخله
copyfile(pchar('BaseTest.ABS'),pchar(ComboBox1.Text+SpinEdit1.text),false);
end else begin
CreateDir(Pdir);// لإنشاء مجلد الأرشيف
///////////////////////////////////////////////////////
end;
DModule.OnCreate(sender);
Sleep(500);
Close;
end;
PHP كود :
procedure TRestoreBase.BitBtn1Click(Sender: TObject);
begin
Sleep(200);
DModule.OnDestroy(sender);
copyfile(pchar(ComboBox1.Text+SpinEdit1.text),pchar('BaseTest.ABS'),false);
DModule.OnCreate(sender);
Sleep(500);
Close;
end;
وليس داخل مجلد فرعي بمجلد البرنامج
كيف حفظ قادة البيانات في مجلد داخل البرنامج - محمد عبد العزيز - 07-05-2013
السلام عليكم
إقتباس :...داخل مجلد فرعي بمجلد البرنامج...لم افهم جيدا المقصود من السؤال مع ذلك جرب تعديل
كود :
Pdir:='.\MdgArch\03';النقطة بأول المسار هي المجلد الحالي - فرضا مكان تنفيذ البرنامج
غير ايضا
كود :
ForceDirectories(Pdir);كيف حفظ قادة البيانات في مجلد داخل البرنامج - medreg - 07-05-2013
B.M.AbdelAziZ كتب :اشكرك استاذي الكريم
لم افهم جيدا المقصود من السؤال مع ذلك جرب تعديل
بالنسبة للمكونين المضيفين في حفظ قاعدة المعطيات فهم لاختار الشهر والسنة المراد الحفظ بهم حتى تصبح قاعدة المعطيات محفوظة باسم على سبيل المثال " DECEMBRE2012"
اما بالنسبة للمجلد الرئيسي الموجود به الملف التنفيذي وقاعدة البيانات فاسمه " MedReg"
والمجلد الذي ارغب في حفظ قاعدة البيانات فيه اسمه "MdgArch "
ليصبح ملف قاعدة البيانات محفوظ بالمسار " Medreg\MdgArch\DECEMBRE2012"
لقد عدلت الكود حسب ما تفضلت علي لكن لم انجح
وهذا هو التعديل
كود :
procedure TRestoreBase.BitBtn2Click(Sender: TObject);
var Pdir:string;
begin
Pdir:='.\MdgArch';
CreateDir(Pdir);
Sleep(200);
if DirectoryExists('MdgArch') then
begin
DModule.OnDestroy(sender);
copyfile(pchar('BaseTest.ABS'),pchar(ComboBox1.Text+SpinEdit1.text),false);
end else begin
ForceDirectories(Pdir);
end;
DModule.OnCreate(sender);
Sleep(500);
showMessage('ÊãÊ ÚãáíÉÇáÃÑÔÝÉ ÈäÌÇÍ');
Close;
end;كيف حفظ قادة البيانات في مجلد داخل البرنامج - medreg - 07-05-2013
شكرَا استاذي
لقد حلت المشكلة
وجزاكم الله عنا كل خير
كيف حفظ قادة البيانات في مجلد داخل البرنامج - medreg - 31-05-2013
السلام عليكم
تواجهني مشكلة في اعتماد هذه الريقة التي سبق لي ذكرها مع الويندوز 7
لكن لا أظن ان المشكلة في admin لآن البرنامج يعمل بشكل جيد وعادي لكن هناك ملاحظة
لدي قاعدتين باليرنامج واحدة تحفظ عادي والاخرى لا تحفظ
وهذه الظاهرة الا في الويندوز 7
اتمنى لو كانت هناك طريقة اخرى لحفظ واسترجاع قاعدة البيانات من نوع ابسوليت افدنا بها وجزاكم الله عنا كل خير
كيف حفظ قادة البيانات في مجلد داخل البرنامج - محمد عبد العزيز - 02-06-2013
هل لديك صلاحيات بالمجلد ؟
من الاحسن ان تستخدم مسار الملف كاملا عند النسخ