+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن حساب جميع قيم جدول dbgrid (/showthread.php?tid=5694)
الصفحات:
1
2
كيف يمكن حساب جميع قيم جدول dbgrid - DJILANI - 07-11-2013
شكرا أخ مخلوف شكرا الأخ فاتح تم حل المشكل وهذا الكود
أضفت ADOTABLE.FRIST; في البداية
PHP كود :
var a,b,c:real;
begin
a:=0;b:=0;c:=0;
ADOTable3.First ;
while not ADOTable3.Eof do
begin
a:=a+(ADOTable3.fieldbyname('total_detail').value);
if (ADOTable3.fieldbyname('T_v_A').value=7)then
b:=b+(ADOTable3.fieldbyname('total_detail').value)*0.07;
if (ADOTable3.fieldbyname('T_v_A').value=17)then
c:=c+(ADOTable3.fieldbyname('total_detail').value)*0.17;
ADOTable3.Next;
end;
edit1.Text:=floattostr(a);
edit2.Text:=floattostr(b);
edit3.Text:=floattostr(c);
edit4.Text:=floattostr(a+b+c);
(*//////////
edit1.Text := FormatFloat('0.00',StrToFloat(edit1.Text));
edit2.Text := FormatFloat('0.00',StrToFloat(edit2.Text));
edit3.Text := FormatFloat('0.00',StrToFloat(edit3.Text));
edit4.Text := FormatFloat('0.00',StrToFloat(edit4.Text)); //
*)
begin
ADOTable2.Insert;
ADOTable2.FieldByName('date_facture').AsString:=DateToStr(Date);
ADOTable2.FieldByName('Total_facture').AsString := FloatToStr(a);
ADOTable2.post;
end;
end;
كيف يمكن حساب جميع قيم جدول dbgrid - DJILANI - 18-11-2013
سؤالي عن كيفية حساب كامل قيم الجدول ADOTABLE حيث أن القيمة الأخيرة دائما لا تحسب مع المجموع
النتيجة توضع في EDIT 4 وهذ ه الصورة
![[صورة: U4Vep.png]](http://im32.gulfup.com/U4Vep.png)
وهذا الكود
PHP كود :
a:=0;b:=0;c:=0;
ADOTable4.First;
while not ADOTable4.Eof do
begin
a:=a+(ADOTable4.fieldbyname('total').value);
if (ADOTable4.fieldbyname('t-v-a').value=7)then
b:=b+(ADOTable4.fieldbyname('total').value)*0.07;
if (ADOTable4.fieldbyname('t-v-a').value=17)then
c:=c+(ADOTable4.fieldbyname('total').value)*0.17;
ADOTable4.Next;
end;
edit1.Text:=floattostr(a);
//********************************************
ADOTable2.Edit;
ADOTable2.FieldByName('Total_facture').AsString := floattostr(a+b+c);
ADOTable2.post;
// ADOTable2.Active:=false;
// ADOTable2.Active:=true;
//*********************************************************
edit2.Text:=floattostr(b);
edit3.Text:=floattostr(c);
edit4.Text:=floattostr(a+b+c);
كيف يمكن حساب جميع قيم جدول dbgrid - makhlouf - 20-11-2013
السلام عليكم و رحمة الله تعالى و بركاته
أخي لأم أفهم سؤالك جيدا و لكن إن أردت إستثناء القيمة الأخيرة من الجدول فما عليك سوى طرحها من المجموع بعد الخروج من الوايل.
edit1.Text:=floattostr(a);
ADOTable4.last;
edit2.text:=ADOTable4.fieldbyname('total').value;
edit1.text:=float to str(a-strtofloat(edit2.text));
بالتوفيق
ADOTable4.last;
edit2.text:=ADOTable4.fieldbyname('total').value;
edit1.text:=float to str(a-strtofloat(edit2.text));
كيف يمكن حساب جميع قيم جدول dbgrid - DJILANI - 20-11-2013
شكرا أخي وجدت الحل وهو أنه أقوم بأداج القيم في الجدول قبل إجراء عملية الحساب أي الإدراج أولا ثم أقوم بالحساب لا أعرف كيف فاتتني هذه الفكرة هههه
كيف يمكن حساب جميع قيم جدول dbgrid - makhlouf - 20-11-2013
djilani كتب :شكرا أخي وجدت الحل وهو أنه أقوم بأداج القيم في الجدول قبل إجراء عملية الحساب أي الإدراج أولا ثم أقوم بالحساب لا أعرف كيف فاتتني هذه الفكرة هههه
المهم انك وجدت الحل
بالتوفيق