+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مجموع قيم حقل من النوع Currency !!! (/showthread.php?tid=648)
مجموع قيم حقل من النوع Currency !!! - kachwahed - 02-03-2009
السلام عليكم
أحاول استعمال تعليمة SQL لإظهار مجموعة أحد الحقول، إذا كان هذا الحقل من النوع "رقمي" (Integer) فالنتيجة تظهر بشكل عادي باستعمال
كود :
SELECT SUM( NumField ) ...كود :
var Total: Currency;
begin
Total := 0;
With Table1 Do
Begin
DisableControls;
First;
While Not Eof Do
Begin
total:=total+FieldByName('NumField').AsCurrency;
Next;
End;
EnableControls;
End;
ShowMessage(CurrToStr(total));
end;شكرا كثيرا.
مجموع قيم حقل من النوع Currency !!! - محمد عبد العزيز - 02-03-2009
استعلام SUM يعمل بشكل عادي مع اي حقل من نوع عملة Currency
ان لم تظهر النتيجة فالسبب شيئ اخر، راجع جيدا ما كتبته في برنامجك
فان لم تجد الخطا ارفق هنا جزء من الجدول ومثال كيفية استعلامك
والسلام عليكم
مجموع قيم حقل من النوع Currency !!! - kachwahed - 02-03-2009
بارك الله فيك
بعد التحقق ظهر أن المشكلة ليست بسبب أن الحقل Currency بل لأنه محسوب تلقائيا في الحدث OnCalcFields، والحل ألا نكتب شيء مثل
كود :
SELECT SUM( Total ) ...ونكتب عوضا عنه شيء مثل
كود :
SELECT SUM( PrixUnit * Qt) ...مجموع قيم حقل من النوع Currency !!! - محمد عبد العزيز - 02-03-2009
Sum تحسب اي حقل (موجود) بالجدول
قي حالة OnCalcFields فان الحقل غير موجود بالجدول لانه محسوب "champ calculé"
والسلام عليكم
مجموع قيم حقل من النوع Currency !!! - kachwahed - 02-03-2009
بارك الله فيك،اتضحت الفكرة، في الحقيقة صار لي زمان لم أبرمج في DataBase نسيت أشياء كثيرة
