تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق

[nabilkeb]

لكي يكون البرنامج متكامل نسبيا ، أحببنـا عدم اهمال الجانب الجمالي :
1ـ يتطلب الأمر تنصيب Skin خاص لذلك.
إن صح التعبير هو عبارة جلد خاص يغلف البرنامج بمكونات جميلة ، و بذلك يأخذ المشروع حلة جمالية على الطريقة الإحترافية ، التي تريح المستعمل .
هناك الكثير جدا من Skins و هي مكونات خارجية (ليست تابعة للدلفي).

نطرح واحدا هنــا : اسم المكون Alpha Lite موجود بالمرفقات تحت اسم D7 لدلفي 7 فقط ، باقي النسخ يتم تحميلها لاحقا في حالة الحاجة (دلفي5-6-7-2005-2006 فقط) . أما شرح طريقة التثبيت فقد مرت معنا ،تفضل بزيارة هـــذا الـــرابــط .

2ـ الشاشة الترحيبية: لمن أراد عمل شاشة ترحيبية فليسترشد بهــذا الـــرابـــط



أو بطريقة أخرى أسهل و أجمل (وإن كانت تستهلك شيئا من موارد النظام) :
ننشئ مجلد مستقل نسميه GSM نحفظ فيه كل المشروع. نفتح برنامج دلفي ، نبدأ مشروعا جديدا ، نسمي الفورم الأولى FSplash ، نعمل حفظ السورس باسم USplash ، و نحفظ المشروع باسم : GSM .
ننشئ فورم ثانية تحت اسم FGSM و نحفظ السورس تحت اسم UGSM.
الإسم يعني Name و ليس Caption فهذه الأخيرة حسب اختيارك أخي .
Gestion de Stock et Marketing = GSM
U=Unite - F=Form.

في الفورم الأولى (Fsplash) نضع مكون Timer من System ، و مكون sGauge من Alpha Lite
على المكون تايمر نكتب :

كود :

procedure TFsplash.Timer1Timer(Sender: TObject); begin sGauge1.progress:=sGauge1.progress+1; if sGauge1.progress=100 then begin FGSM.Show; Fsplash.hide; timer1.Enabled:=false end ; end;

في الفورم الأولى (Fsplash) نعدل في خاصية interval للمكون تايمر نجعلها مثلا 100 ، نعدل في الخاصية progress للمكون sGauge نجعلها 0 .
في الفورم الثانية (FGSM) في الحدث Onclose نكتب :

كود :

Application.Terminate;

هذا الكود الأخير لإغلاق البرنامج في حالة اغلاق الفورم2 ، لأنه كما هو معلوم الفورم الرئيسية هي الأولى و يؤدي غلقها إلى غلق البرنامج كليا ، بينما في مثالنــا قمنا باخفائها (الفورم الأولى) فقط ، يعني غلق الفورم2 لا يغلق البرنامج كليا ، لذلك أضفنــا هذا الكود.

(يمكن لك في الشاشة الترحيبية (الفورم1) وضع صورة أو استعمال فلاش جميل أو أفكار أخرى)

نحفظ ، نـجـرب ....

.../ يتبع / ....