+- 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=5967)
حساب مجموع عمود Dbgrid - مبرمج مبتدأ - 23-02-2014
السلام عليكم و رحمة الله و بركاته
أخواني كيف أقوم بعملية حساب مجموع عمود في الدلفي و عرض النتيجة في edit
ملاحظة: استعنت بالبحث و لم أصل لنتيجة
و شكرا
أخواني كيف أقوم بعملية حساب مجموع عمود في الدلفي و عرض النتيجة في edit
ملاحظة: استعنت بالبحث و لم أصل لنتيجة
و شكرا
حساب مجموع عمود Dbgrid - hallal02 - 23-02-2014
procedure TForm1.Button1Click(Sender: TObject);
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;
end.
حساب مجموع عمود Dbgrid - مبرمج مبتدأ - 23-02-2014
كود :
[/align]
[align=center] procedure TForm1.Button1Click(Sender: TObject);
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;
end. [/align]
[align=center]سأجرب جزاك الله خيرا
حساب مجموع عمود Dbgrid - مبرمج مبتدأ - 23-02-2014
جزاك الله خيرا أخي
كود :
var
majmou3 : real ;
begin
(* Majmoo3 *)
Majmou3:=0;
abstable3.Active:=true;
abstable3.First;
while not abstable3.Eof Do
begin
Majmou3:= Majmou3+abstable3.FieldValues ['qnt'];
abstable3.Next;
end;
edit6.text:=CurrToStr(Majmou3);
end;