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

[nabilkeb]

السلام عليكم و رحمة الله تعالى و بركاته : هذا الجزء رقم 11 أو الدرس الحادي عشر و الأخير من مشروع انجاز برنامج لتسيير المخزون و التسويق (GSM) .
الجزء 2

لازلنـا مع طباعة الفاتورة ، طيب الآن العنصر QuickRep1 يتعلق بالفاتورة ، و بيانات الفاتورة نجدها بكل تأكيد بــجدول المبيعات Vente و الذي جعلنا له في الفورم FFactureEtStatistique العنصر Query1 ، و على هذا يتوجب ربط QuickRep1 مع هذا الأخير ، يعني الخاصية DataSet للعنصر QuickRep1 نعطيها القيمة:

كود :

[COLOR=DarkRed]FFactureEtStatistique[/COLOR].Query1

لدينا العناصر QrLabel اسمها يدل عليها ، هي مثل العناصر Label فقط هي خاصة بـ Quickrep ، و لدينا العناصر QrDBText اسمها أيضا كفيل بشرحها يعني هي خاصة بـ QuickRep و هي متعلقة بقاعدة البيانات (DB يعني DataBase) و على هذا فهذه الأخيرة يتوجب ربها مع قاعدة معينة ، و بكل تأكيد يتم ربطها كما تم مع QuickRep1 عن طريق الخاصية DataSet و نعطيها نفس القيمة :

كود :

[COLOR=DarkRed]FFactureEtStatistique[/COLOR].Query1

يكون هذا مع كل العناصر الستة (QrDBText) و نحدد حقل كل واحد الذي يختلف عن غيره / مثلا QrDBText1 الذي يمثل رقم الفاتورة نعين الخاصية DataField باعطائها القيمة:

كود :

DataField=N_Fact

و نفس الشيء مع البقية .
ملاحظة : لانكتب يدويا N_Fact ، فقط بمجرد تحديد قيمة DataSet ، نتمكن بــ DataField من رؤية كل الحقول المتضمنة ، و سنجد حتمــا الحقل N_Fact أو إذا سميته باسم غير ذلك فستجده ، المهم تقوم بتحديد الحقل المناسب ، و إن لم تظهر الحقول فتفقد الخلل ، هذا لنكون منهجيين و نتدارك الخلل في حينه .

- بعد اتمام ما سلف نحدد العنصر QuickRep1 و من الحدث OnStartPage نكتب :

كود :

QrLabel001.Caption:=FFactureEtStatistique.query1.fieldbyname('Date_Vente').AsString; QrLabel002.Caption:=formatdatetime('yy',now)+' / '; QrLabel003.Caption:=FFactureEtStatistique.query1.fieldbyname('Code_Client').AsString; QrLabel004.Caption:=FFactureEtStatistique.query1.fieldbyname('Code_Com_C').AsString; QrLabel005.Caption:= FFactureEtStatistique.sEdit2.text +' DA'; QrLabel006.Caption:= FFactureEtStatistique.sEdit3.text +' DA'; QrLabel007.Caption:= FFactureEtStatistique.sEdit4.text +' DA'; QrLabel008.Caption:=formatfloat('0.00',strtofloat(FFactureEtStatistique.sEdit5.text)) +' DA' ; QrLabel009.Caption:=formatfloat('0.00',strtofloat(FFactureEtStatistique.sEdit6.text)) +' DA' ; QrLabel010.Caption:=FFactureEtStatistique.Memo1.text;

- في الزر sBitBtn2 الذي أعطيناه الكابشن Apercu L'impression ، في الفورم FFactureEtStatistique نكتب :

كود :

FPrint_Facture.QuickRep1.Preview;

لعرض تقرير الطباعة (موضوع العمل) .


- هذا ببساطة تقريبا كل شيء عن طباعة الفاتورة ، جرب لترى (قم ببيع مواد معينة لفاتورة جديدة بملأ الحقول ، ثم جرب موضوع الطباعة) .

المشروع إلى هذه المرحلة مرفق (فقط ملاحظة السكين و مجلد قواعد البيانات غير مرفق _ نظرا لادراجه مسبقا و تقليصا في حجم المرفق).

بالتوفيق.


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