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

الصفحات : 1 2

شكرا أخ مخلوف شكرا الأخ فاتح تم حل المشكل وهذا الكود
أضفت 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; 

سؤالي عن كيفية حساب كامل قيم الجدول ADOTABLE حيث أن القيمة الأخيرة دائما لا تحسب مع المجموع
النتيجة توضع في EDIT 4 وهذ ه الصورة

وهذا الكود

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); 

السلام عليكم و رحمة الله تعالى و بركاته
أخي لأم أفهم سؤالك جيدا و لكن إن أردت إستثناء القيمة الأخيرة من الجدول فما عليك سوى طرحها من المجموع بعد الخروج من الوايل.

edit1.Text:=floattostr(a);
ADOTable4.last;
edit2.text:=ADOTable4.fieldbyname('total').value;
edit1.text:=float to str(a-strtofloat(edit2.text));

بالتوفيق

شكرا أخي وجدت الحل وهو أنه أقوم بأداج القيم في الجدول قبل إجراء عملية الحساب أي الإدراج أولا ثم أقوم بالحساب لا أعرف كيف فاتتني هذه الفكرة هههه

djilani كتب :شكرا أخي وجدت الحل وهو أنه أقوم بأداج القيم في الجدول قبل إجراء عملية الحساب أي الإدراج أولا ثم أقوم بالحساب لا أعرف كيف فاتتني هذه الفكرة هههه

المهم انك وجدت الحل
بالتوفيق

الصفحات : 1 2

DJILANI

DJILANI

makhlouf

DJILANI

makhlouf