delphi4arab منتديات دلفي للعرب

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

(02-02-2016, 08:06 PM)ramiparadox كتب : [ -> ]

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

(02-02-2016, 08:06 PM)ramiparadox كتب : [ -> ]

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

(02-02-2016, 08:06 PM)ramiparadox كتب : [ -> ]

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

---

شكرا جزيلا أخي

(03-02-2016, 11:43 AM)mandi كتب : [ -> ]

(02-02-2016, 08:06 PM)ramiparadox كتب : [ -> ]

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

(02-02-2016, 08:06 PM)ramiparadox كتب : [ -> ]

(02-02-2016, 06:51 PM)mandi كتب : [ -> ]السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

---

شكرا جزيلا أخي

هل افادك الكود