مشروع مصغر من أول خطوة

[أمير الدلفي]

السلام السلام عليكم
قصدا منا في دعم مكتبة المنتدى و اثرائها يكون لي الشرف في تقديم هذا الموضوع وهو دراسة كاملة لمشروع وفكرته استقيتها من طلب الاخ pepsi فانا صممت السير في المشروع عبر النقاط التالية :
انشاء قاعدة المعطيات
تصميم المشروع
تصدير المشروع

لنبدا على بركة الله :
افتح مشروعا جديدا في الدلفي و احفظه في المسار : C:\bibliothèque

و من قائمة شريط القوائم : Module base de données - Outil



اتبع الصور و انشأ جدولك :






لنعرف الحقول :
nom de champ أي اسم الحقل
type أي نوع الحقل
taille حجم الحقل
index الفهرسة و تفعله بالضغط على *

وبعد ان تنهي من تعريف الحقول خزن الجدول في : C:\bibliothèque\data\bd\data
ملاحظة : يبدوا ان فيما سبق خطأ صغير اكتشفه بنفسك

[أمير الدلفي]

الآن فرغنا من انشاء القاعدة و نتوجه الى FORM و نضع فيه بعض المكونات
TABLE --------------------BDE
DataSource---------------AccésBD
DBgrid--------------ControlBd
DBNavigator- ------------ControlBd
Edit( 2 )--------------Standard
Button--- -- --------Standard
ShockwaveFlash----------------ActiveX
ملاحظة : هذا المكون ShockwaveFlash لا يوجد في الدلفي الا اذا نصبته و يشترط ان يكون adobe flash player مثبث في جهازك و دور في المنتدى ستلقى الموضوع الذي يعطيك الطريقة:confused:
و يمكن لك الا تستعمله فانا جعلته لاكبر من دائرة الاحتمالات قليلا .

ستكون واجهتك بهذا الشكل مثلا :


الآن نقوم بربط المكونات مع بعضها و تغيير بعض الخصائص :

اضغط مرتين على Form1 واكتب ما يلي في : USES

PHP كود :

Inifiles 


وفي VAR أكتب ما يلي :

PHP كود :

Fichierini : tinifile ;

; Rep,RepExe: string 


ثم نفتح المفكرة Note-Pad , bloc notesونكتب ما يلي :

PHP كود :

[Base]

rep=bd

Fichier=bd.hbd 


تقوم بحفظ المذكرة باسم test.ini بجانب الملف التنفيذي

الجدول عندنا باسم : 'data.DB' داخل المجلد التالي: bd و الذي بدوره يكون في data
الذي يكون بجانب الملف التنفيذي اجباري واكيد

ثم نعود ونضغط على الــ Form1 مرتين ونكتب ما يلي:

PHP كود :

//flash
ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'swf\movie.swf';
//alise
RepExe:=ExtractFilePath(Application.EXEName);
FichierIni:=TIniFile.Create(repexe+'test.ini');
rep:='data\'+fichierini.ReadString('base','rep','nonbd');
if rep='data\nonbd' then
  showmessage('Chemin pour la base de données non valide')
 else
  begin
     rep:='data\'+fichierini.ReadString('base','rep','nonbd');
     table1.DatabaseName:=Rep;
     table1.TableName:='data.DB';
     table1.Active := true ;
   end ; 


ماذا فعلنا بالكود السابق : عرفنا المسارات

[أمير الدلفي]

و الآن ننتقل الى خاصية البحث في البرنامج و انا رتبته على اساس اسم الكتاب و يمكن لك ان تبدع فالمجال واسع :eek:

و الكود هو كالتالي : بعد الضغط مرتين على button
[HTML]if not Table1.Locate('titer',Edit1.Text,[]) then ShowMessage('no trouvée');[/HTML]

اظن اني فرغت من تجهيز البرنامج
اما الآن افتح Instelshiled لانه يوفر لنا امكانية دمج ال BDE مع التطبيق
وذالك حتى تعمل برامجنا على اجهزة الغير التى لا توجد بها نسخ دلفى قم بفتح البرنامج وتتبع الخطوات :

بعد فتح ال Install Shield انقر على Create a new project وبعدها اختر Blank setup project
وبعدها اختر مكان تخزين الملفات كما هو موضح فى الصورة ومن ثم اضغط على Create :

وبعد الضغط على Create تظهر لك الصور الاتية :



ومن القائمة التى على اليسار نقوم بتحديد اسم المنتج والتعليق والاصدار وغبرها من المعلومات وهنا سنقوم فقط بتغيير المنتج

والان انتقل الى Files وهى الخطوة الاهم
فى ال Source computer folder قم بتحديد مسار ملفات المشروع وهو C:\bibliotheque وبعد النقر على ال bibliotheque تظهر ملفات
المشروع على اليمين قم باختيار الملف التنفيذى Project1.exe وقم بسحبه وافلاته فى المجلد الازرق الذى يوجد فى القائمة التى على اليسار Destinaton computers folders وقم بافلاته على المجلد
bibliotheque[install dir
وبعد ذالك قم بسحب المجلد data الى نفس المجلد االزرق السابق وربما تظهر لك رسالة قم باختيار No
و كذلك نفس الشئ لمجلد swf و لمشغل الفلاش adob flash player

[أمير الدلفي]

وبعد ذالك الى الخطوة الاهم وهى Objects merge modules من القائمة التى على اليسار ضع علامة صح علىBDE_ENT وبعدها تظهر نافذة انقر على suivant وبعدها تتبع الصور



استعرض الملف و انشا ملف ini و اطلق عليه bib مثلا و اضغط suivant





و بعد ذلك تخرج لنا القائمة التي نجعل منها ALISE
و نكتب اسم ALISE و نختار PILOTE طبعا Pradox
اما في Remplacment paramétre نكتب ما يلي :
[HTML]DEFAULT DRIVER=PARADOX
ENABLE BCD=True[/HTML]



و بعد الانتهاء من الاعدادات احفظ التغيرات

[أمير الدلفي]

الان يمكن لك الاختيار من البند dialogs القوائم التي تظهر اثناء عملية التنصيب



والان انتقل الى الخطوة Build Your Release
ومن القائمة التى على اليمين اختر Single Image وتتبع الصور واضغط F7 لبدء التنفيذ وانتظر قليلا حتى يكتمل
وما ان يكتمل حتى تضغط على test لتجربة العملية



واحفظ المشروع في cd أو hard disk وذلك بعد الضغط distribute your release ثم في SingleImage
ومن نافذة اليمين اختر الموضع الذي تريده

و بهذا اكون قد وصلت بكم الى اخر محطة و اكون شاكرا لله لو انكم استفدتم ولو الشئ القليل
كما لا تفوتني الفرصة ان اشكر كل من الاخ : عبد العزيز و مهدي و مروان على الدعم القوي فشكرا و الف شكر

[SALAH]

يا سلام عليك يا امير
و الله فرجة موضوعك اناقة ، تنظيم ، تسلسل... كل شئ
ساجرب الموضوع حالا و اناقشك فيما صعب علي

مشكوووور

[أمير الدلفي]

و عليكم السلام صديقي صلاح و شكرا على المرور
في الحقيقة الموضوع من اجلك و اود ان تفهم لا غير
وعن المصاعب المحتمل ان تقع فيها فلك كل الحرية ان تسال عنها و متاكد بان يرد الاخوة الكرام عليها فان الان في حالة تاهب للسفر و سيكون دخولي للمنتدى عسير فادعوا الله لي بالتوفيق في الامتحانات

بالتوفيق

هذا هو الملف المرفق

[SALAH]

شكرااخي صلاح و سلمت اسفارك و ندعوا لك بالتوفيق في مشوارك و لكل اعضاء المنتدى بالتوفيق
اما عن ما واجهني من مشاكل لحد الساعة ما يلي :

1 الجدول عندما املاه و اطفا البرنامج و اعيد تشفيله اجد الجدول فارغ فكان عليك اضافة
[
HTML]tableopen ;/HTML]

2 تعليمة البحث تمشي بشكل جيد و لكن **** عندما تعثر على النتيجة بحقل الاسم تظهر لي الحقول الأخرى في edit أضيفها

3 لماذا استعملت instelshiled رغم انك برمجت بدون alise