05-02-2010, 02:16 PM
nabilkeb كتب :قبل إتمام المشروع بما تبقى ، هناك خطأ أو نقص في برمجة زر الحذف في الفورم FGSM قد يؤدي إلى الوقوع في الخطأ.
المطلوب ايجاد هذا النقص و تعديله ، لكي لا تقع فيه أيضا في نفس الزر على الفورم FAchat لأن وظيفة الأزرار تتشابه كما سلف الذكر.
بالتوفيق.
فقط إضافة الشرط المكتوب باللون البرتقالي:
كود :
if not table2.IsEmpty then begin
if (MessageDLG ('êtes vous sûr de vouloir suprimer l''enregistrement ?'
, MtConfirmation,[MbYes,MbNo],0)=MrYes) and [COLOR=DarkOrange](Table1.FindKey([Table2.FieldValues['Code_Prod']]))[/COLOR] then
begin
Table1.Edit;
Table1.FieldValues['Qut']:= Table1.FieldValues['Qut']+Table2.FieldValues['Qut'];
Table1.Post; Table2.Delete;
end;- إذن المشروع مرفق ، و به التعديل المذكور إضافة إلى اتمام برمجة وظيفة العناصر على الفورم(المشتريات و الزبائن و الممونين):
FAchat - FِClient - FFournisseur
فقط تنبيه : عن سهو و من غير قصد لم أطلب فهرسة حقل Code_Client في الجدول Client ، و كذلك Code_Fournisseur في الجدول Fournisseur .
- كذلك سميت حقل الإسم التجاري في الجدول Produit بالإسم Code_ Com_F عوضا عن Code_Com_F ، يعني هناك فراغ قبل Com ، و قد تم تعديل التسمية بالجدول و كذا موضوع الفهرسة . فعذرا لأنني أسرع و لا أحضر للطرح ، رغبة مني في اكمال الموضوع لنستفيد من نقد و توجيه و أفكار المحترفين أصحاب الخبرة.
-كما ألفت الإنتباه إلى أنني أضيف أشياء طفيفة لا أذكرها ، في المرفقات من مرفق لآخر ، لبساطة تلك الإضافة و لعدم التحدث و طرح كل شيء لكي لا أطيل و ربما تختلط الأمور عليك صديقي ، فإني أراعي أنه قسم للمبتدئين أمثالي.
المهم المشروع إلى غاية هذه المرحلة مرفق .
لم يتبق الكثير ، في الدرس القادم إن شاء الله سنعمل على الفورم FFactureEtStatistique و بعدها تقارير الطباعة و ينتهي كل شيء.
بالتوفيق.