+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (https://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم أمثلة ومشاريع Delphi (https://vb4arb.com/vb/forumdisplay.php?fid=216)
+--- الموضوع : القوة والسرعة مع Calculate (/showthread.php?tid=29903)
القوة والسرعة مع Calculate - viv - 18-06-19
رأينا في درس سابق القوة والسرعة مع Lookup
الان في هذا المثال لنفرض ان لدينا جدول في اسم الصنف والسعر والكمية ونريد حقل يعرض الصنف مضروب بالكمية
اذا هذا ما تحتاجه
بنفس الطريقة السابقة المشروحة بهذا الدرس هنا
https://vb4arb.com/vb/showthread.php?tid=29902
ولكن بدل من اختيار LookUp سوف تختار Calculate أنظر للشكل التالي:
اسم الحقل وجعلناه Total ونوعه Floate اي يقبل الكسور العشرية وينفع للاموال للفلوس يعني .
تم OK وبعدها حدد الداتا سيت وانتقل لنافذة الخصائص وابحث عن ON Calculate Filed وانقر عليه مرتين
وفي الحدث سنكتب السطر التالي:
كود :
ADOTable1TOTAL.Value:= ADOTable1price.Value * ADOTable1qunt.Value;وهي تقول حقل المجموع يساوي حقل السعر مضروب في حقل الكمية
لاحظ بعد اضافتنا للحقول اصبح لها كينونات واسماء يمكننا الوصول لها بسهول
وبعدها شغل البرنامج وهذه هي النتيجة
لتحميل المثال من هنا
New folder (2).rar (الحجم : 70.35 ك ب / التحميلات : 22)