+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حساب مجموع تسجيلات حقل (/showthread.php?tid=7617)
حساب مجموع تسجيلات حقل - wadoud - 15-03-2016
السلام عليكم ايها الكرام
لدي قاعدة بيانات اكسس
كيف حساب مجموع حقل باستعمال Adotable جربت الإستعلام ِ adoquery و نجحت ولله الحمد ولكن هل هناك طريقة عن طريق table مباشرة؟
في امان الله.
RE: حساب مجموع تسجيلات حقل - AbdouProg - 15-03-2016
بسم الله الرحمن الرحيم
تفضل اخي بالتوفيق
كود :
Var
i : integer;
begin
i:= ADOQuery1.RecordCount;
Edit1.Text:=IntToStr(i);
end;RE: حساب مجموع تسجيلات حقل - Manarsoft - 15-03-2016
(15-03-2016, 08:54 PM)AbdouProg كتب : بسم الله الرحمن الرحيم
تفضل اخي بالتوفيق
كود :Var i : integer; begin i:= ADOQuery1.RecordCount; Edit1.Text:=IntToStr(i); end;
هذا الكود يقوم بإرجاع عدد السجلات وليس مجموع سجلات الحقول
بالنسية لسؤال الأخ فإن الإستعلام هو الحل الانسب لان استعمال الـTable حل غير مناسب أو غير نموذجي
RE: حساب مجموع تسجيلات حقل - wadoud - 15-03-2016
شكرا جزيلا
ولكن لم يكن سؤالى عن عدد التسجيلات بل كان عن مجموع يعني حساب TOTAL لما ندخله من ارقام عددية في حقل واحد
RE: حساب مجموع تسجيلات حقل - لؤي - 16-03-2016
السلام عليكم
PHP كود :
ADOTable1.Active := true;
sum := 0;
ADOTable1.First;
for I := 0 to ADOTable1.RecordCount - 1 do
begin
sum := sum + ADOTable1.FieldByName['My_Field_Name '].AsInteger;
ADOTable1.Next;
end;
Edit1.Text := IntToStr(sum);
RE: حساب مجموع تسجيلات حقل - wadoud - 16-03-2016
شكرا لك أخي لؤي بارك الله فيك .