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

[nabilkeb]

- الجزء 5 و الأخيــــــــــــــر من الدرس العاشر

على الفورم FFactureEtStatistique دائما ، نمر إلى الصفحة : Consultation De Cesse
على هذه الأخيرة نريد إظهار المبلغ الإجمالي لكل المبيعات ، المبلغ الإجمالي لكل الديون ، كل المبالغ المدفوعة ، و عليه نعرف كم يوجد في رصيد مؤسستنا (لهذه الأخيرة أقصد الرصيد نضيف sEdit أخرى ستأخذ الإسم sEdit21 )

- نحدد TabSheet6 و في الحدث OnShow لهذه الأخيرة نكتب :

كود :

(* Majmoo3e SommeVentes_Cesse *) RecordPlaceSommeVentes_Cesse := FGSM.table2.GetBookmark; MajmoueSommeVentes_Cesse:=0; FGSM.table2.First; while not FGSM.table2.Eof Do begin MajmoueSommeVentes_Cesse:=MajmoueSommeVentes_Cesse +FGSM.table2.FieldByName('Prix_TTC').AsCurrency; FGSM.table2.Next; end; sEdit18.Text:=CurrToStr(MajmoueSommeVentes_Cesse); sEdit18.Text:=formatfloat('0.00',strtofloat(sEdit18.Text))+' DA'; (* Majmoo3e SommeDettes_Clients *) RecordPlaceSommeDettes_Clients := FGSM.table7.GetBookmark; MajmoueSommeDettes_Clients:=0; FGSM.table7.First; while not FGSM.table7.Eof Do begin MajmoueSommeDettes_Clients:=MajmoueSommeDettes_Clients +FGSM.table7.FieldByName('Valeur_Reste').AsCurrency; FGSM.table7.Next; end; sEdit19.Text:=CurrToStr(MajmoueSommeDettes_Clients); sEdit19.Text:=formatfloat('0.00',strtofloat(sEdit19.Text))+' DA'; (* Majmoo3e SommeVersements_Clients *) RecordPlaceSommeVersements_Clients := FGSM.table8.GetBookmark; MajmoueSommeVersements_Clients:=0; FGSM.table8.First; while not FGSM.table8.Eof Do begin MajmoueSommeVersements_Clients:=MajmoueSommeVersements_Clients +FGSM.table8.FieldByName('Somme_Versée').AsCurrency; FGSM.table8.Next; end; sEdit20.Text:=CurrToStr(MajmoueSommeVersements_Clients); sEdit20.Text:=formatfloat('0.00',strtofloat(sEdit20.Text))+' DA'; sEdit21.Text:=floattostr(strtofloat(CurrToStr(MajmoueSommeVentes_Cesse)) - (strtofloat(CurrToStr(MajmoueSommeDettes_Clients)) - strtofloat(CurrToStr(MajmoueSommeVersements_Clients)) )); sEdit21.Text:=FormatFloat('0.00',StrToFloat(sEdit21.Text))+' DA';

قبل implementation نكتب :

كود :

(* Majmoo3e SommeSommeVentes_Cesse *) MajmoueSommeVentes_Cesse: Currency; RecordPlaceSommeVentes_Cesse: TBookmark ; (* Majmoo3e SommeDettes_Clients *) MajmoueSommeDettes_Clients: Currency; RecordPlaceSommeDettes_Clients: TBookmark ; (* Majmoo3e SommeVersements_Clients *) MajmoueSommeVersements_Clients: Currency; RecordPlaceSommeVersements_Clients: TBookmark ;

*

- المطلوب : هناك شبه كامل و واضح بالنسبة لهذا العمل و ما يلزم فعله على الصفحة Historique Fournisseur ، المطلوب استعمال Query8-9 على التوالي و اتمام مايلزم .

المطلوب رفقة ما تقدم طرحه ، كل شيء بالمرفقات.
في المرة القادمة نبدأ في الطباعة .

بالتوفيق.

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