+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة calc field الى ibquery (/showthread.php?tid=417)
اضافة calc field الى ibquery - معمر محسن - 11-01-2009
لاضافة حقل حسابي الى انتربيز كويري يمكن ذلك عن طريق النقر باليمن على مكون الكويري
اختيار اضافة حقل وتحديد نوعه بالحسابي الحقل المطلوب ان يقوم باظهار الرصيد عبر الكويري اي اذا كان بالكويري حقلين مدين ودائن او داخل وخارج كما في رصيد خزينة مثلا حقل للقيم الداخلة وحقل للقيم الخارجة مع التاكد من ان كل السجلات تحمل قيمة او تكون القيمة فيها صفر في هذه الحالة الحقل الجديد الحسابي ان يحسب الفرق بين الداخل والخارج في اول سجل ويظهر القيمة به اي في نفس السجل وفي السجل رقم 2 ياخد رصيد السجل الاول ويضيف الداخل في السجل الثاني ويطرح منه الخارج في السجل الثاني ويعرض القيمة ثم ينتقل للسجل الثالث وهكذا هذه العملية عادية في الجدول اما في الانتربيز كويري فان رسالة الخطا تقول بان الديتاست في readonly فما الحل الذي يجب عمله لجعل الكويري قابل للتحرير اي في الحقل الحسابي علما بان الكود التالي لم يفلح
كود :
query1.edit
query1['calcfieldname'] :=xxxx
query1.postكود :
query1calcfieldname.value:=xxxxوانا لا استطيع ان اضع الكود في الحدث oncalcfields لان المراد ليس حساب قيمة ناتجة من نفس السجل ولكن قيمة تراكمية من كل السجلات
اضافة calc field الى ibquery - محمد عبد العزيز - 11-01-2009
طريقة تفكيرك غير صحيحة
استخدمت استعلام SQL ليعطيك بيانات
للتعديل على البيانات استخدم استعلام اخر
ان كنت تريد حساب قيمة ما، احسبها داخل استعلام SQL وليس بعد تنفيذه
ان لم تستطع ذلك يمكنك حسابها يدويا داخل حلقة Repeat Until من اول سجل الى اخر سجل
ملاحظة: حاول تنظيم كتابتك باستخدام نقط الوقف والفواصل والرجوع للسطر ليكون اكثر وضوحا
والسلام عليكم