فيها فكرة جديدة وجريئة في التصميم وقد جربتها ووجدت انها سهلة جدا وبخاصة في انشاء النماذج وكتابة الكود فمثلا نموذج العملاء والموردين هو واحد طالما ان جدولهم واحد حيث يوجد حقل Mtype الرقم واحد يمثل الموردين والرقم اثنان يمثل العملاء .
هل وصلت الفكرة ....؟
ايضا جدول راس الفاتورة واحد للمشتريات والمبيعات والحقل Mtype يحدد هل هي فاتورة مبيعات ام مشتريات .
مع العلم يمكن الاستغناء عنه طالما لدينا حقلين للمدخلات والمخرجات .
فان كان هناك قيمة بالحقل Qin فهذا يعني انها مشتريات وان كان هناك قيمة بالحقل Qout فهذا يعني انها بضاعة صادرة .
الحقل Price قد ترى انه غير ضروري طالما ان سعر الشراء والبيع موجود بجدول الاصناف ولكن قد يكون سعر البيع او الشراء مخالفاً للسعر المعروض بجدول الاصناف .
هناك دعوة للنقاش يمكننا ان نستفد من خبراتنا
الملف بالمرفقات
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة1 user says Thank You to Delphi4Us for this post • hamabena
كم من مرة اعتقد ان فكرة عندي لا يعلم عنها احد واتفاجئ ان الجميع او اغلبهم يفكرون فيها .
واحياناً يتعدى الامر ذلك فقبل ظهور الـ FrameWork كنت افكر في شئ مشابه وانشأت مكتبة كبيرة
استخدمتها في البرمجة بحيث لا اضطر الى كتابة الكود فلكي تشغل صوت مثلا تكتب
كود :
Sound.Play.Path("PathName")
هذا العرف لم يكن متبعاً ومعروفا وقتها بل انني قمت بانشاء عدة متغيرات على شكل هيكلية قاعدة البيانات
التي اعمل عليها واجلب فيها ما ارريد من بيانات اعمل عليها بالذاكرة واحفظها متى ارريد .
والنتيجة ....!
اظهرت مايكروسوفت شيئاً صار يعرف بأسم الـ DataSet
والقائمة تطول ولكني اختبرت فعلاً ان ما تفكر فيه يفكر فيه غيرك .
وبالعودة الى الموضوع وبعد اطلاعي على الدروس الجانبية فانا جعلت بقاعدة البيانات استعلام يقوم بجلب كمية المخزون .
وهو عبارة عن
كود :
SELECT Sum(Body.Qin) AS SumOfQin, Sum(Body.Qout) AS SumOfQout, Body.ItemID
FROM Body
GROUP BY Body.ItemID
HAVING (((Body.ItemID)=[?]));
ويبدو ان هناك من الاخوة من يؤيدني في هذا
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
حسنا لم يكفي قاعدة البيانات فبدأت في المنظومة نفسها
ومن يريد ان يشارك فلا باس
قلت قمت بانشاء الموردين والعملاء والاصناف
وسوف نكمل الباقي لنرى الى اي مدى ستنجح هذه القاعدة
والملف بالمرفقات
ولا تستعجلوا اتركونا خطوة بخطوة
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
لم ارفع قاعدة البيانات مرة ثانية ضع القديمة هنا فقط
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
