+- 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=6878)
الصفحات:
1
2
كيف أحسب مجموع في حقل من Dbgrid - Anter2010 - 20-03-2015
السلام عليكم ورحمة الله
اخي الطريقة جد بسيطة ضع dbgrid و Edit في الفورم
واظف button
عدل على خاصية multiselection في option dbgrid
اضف الكود الخاص بالحساب في button
والكود الثاني في خاصيةOncalculate
table
كيف أحسب مجموع في حقل من Dbgrid - أحمد 13 - 20-03-2015
اسف اتعبتك معي و فضلا اصبري معي و بارك الله فيك
للمعلومية اخي اعمل على دلفي 7 و لقد جربت بتغير multiselect الى true
و في حدث adotable . . CalcFields و ضعت الكود الثاني و في زر button أوامر الحساب
و لكن للاسف النتيجة لا تظهر في Edit .
اخي العزيز في الكود الثاني هي عملية ضرب صح ؟
و لكن اود جمع حقل واحد فقط كما في الصورة .
علما اني جربت الجمع و لم انجح
كيف أحسب مجموع في حقل من Dbgrid - Anter2010 - 20-03-2015
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
sum : currency;
begin
ds2.Active := true;
sum := 0;
for I := 0 to ds2.RecordCount - 1 do
begin
sum := sum + ds2.Fields[4].AsInteger;
ds2.Next;
end;
edt1.Text := FormatFloat('0.00',(sum));
end;
procedure TForm1.ds2CalcFields(DataSet: TDataSet);
begin
ds2.FieldByName('Montant').AsCurrency:=
ds2.FieldByName('Prix').AsCurrency *
ds2.FieldByName('Qte').AsFloat;
end;
end.
ابسط شيئ اعرفه اخي لا حرج
كيف أحسب مجموع في حقل من Dbgrid - أحمد 13 - 20-03-2015
بارك الله فيك اخي على المجهودات و جزاك الله خيرا
و لكن اسمح لي اعيد شرح طلبي مجددا .
طلبي من خلال السورس : كيف اجمع فقط Qte . و النتجية في edit . فقط
وصلت الفكرة .
لو نحسب بألة حاسبة مجموع حقل Qte فقط النتيجة ستكون 36 .
صورة للتوضيح اكثر http://cdn.top4top.net/i_4c33f3f1061.png
علما اني استعمل قواعد ms sql server 2005
و جزاك الله خيرا و الله يكتب اجرك
كيف أحسب مجموع في حقل من Dbgrid - أبو معاذ - 20-03-2015
[INDENT]
السلام عليكم.
طيب جرب الكود التالي :
كود :
MaQte := 0 ;
ADOTable1.First ;
While Not ADOTable1.Eof do
begin
MaQte := MaQte + ADOtableQte.asfloat ;
ADOTable1.Next
end;
edit1.text := FloatTostr(MaQte) ;[/INDENT]
كيف أحسب مجموع في حقل من Dbgrid - Anter2010 - 20-03-2015
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
var
i,sum1: Integer;
sum : currency;
begin
ds2.Active := true;
sum := 0;
sum1 := 0;
for I := 0 to ds2.RecordCount - 1 do
begin
sum := sum + ds2.Fields[4].AsInteger;
sum1 := sum1 + ds2.Fields[3].AsInteger;
ds2.Next;
end;
edt1.Text := FormatFloat('0.00',(sum));
edt2.Text := IntToStr(sum1);
end;
procedure TForm1.ds2CalcFields(DataSet: TDataSet);
begin
ds2.FieldByName('Montant').AsCurrency:=
ds2.FieldByName('Prix').AsCurrency *
ds2.FieldByName('Qte').AsFloat;
end;
end.
كيف أحسب مجموع في حقل من Dbgrid - Mr.DOS - 20-03-2015
السلام عليكم
تابع شرح فلاشي
موفق
كيف أحسب مجموع في حقل من Dbgrid - أحمد 13 - 20-03-2015
بارك الله فيك اخي عنتر على المجهودات و الله يجعلها في ميزان حسناتك اخي
و الاخ Mr.DOS جزاه الله كل الخير توصل على الهدف و الله يرحم لك الوالدين دنيا و اخرة
اخي Mr.DOS نجحت بفضل الله ثم بك , فقط لو تخبرني ماهو type حقل QTN .
لانو اصبح يظهر لي مشكل http://cdn.top4top.net/i_7957ea1dff1.png
و جزاك الله خيرا على الشرح الفلاشي و التوضيحات
كيف أحسب مجموع في حقل من Dbgrid - Mr.DOS - 21-03-2015
وفيك بركة
إقتباس : فقط لو تخبرني ماهو type حقل QTN .
شاهد صورة جدول المثال في وضع التصميم
كود :
http://cdn.top4top.net/i_a0bc3ca53a1.pngكيف أحسب مجموع في حقل من Dbgrid - أحمد 13 - 25-03-2015
اعتذر على التأخير اخي فقد انتهى اشتراك النت لدي
و بارك الله فيك و قد نجحلت بفضل الله ثم فضلك و فضل الاخوة ايضا
