+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنني جمع بعض السجلات (/showthread.php?tid=227)
كيف يمكنني جمع بعض السجلات - medreg - 25-05-2008
السلام عليكم ورحمة الله تعالى وبركاته
لدي في قادة البيانات حقلين
الحقل الأول يسمى = ART
الحقل الثاني يسمى MONTANT
ولدي حقل في قاعدة اخرى اسمه TOT_ART
وعلي ان اجمع عدد من السجلات
ولنفرض انه لدي مجموعتين في الحقل ART
المجموعة الآولى تبدأ من رقم 50 إلى رقم 55
والثانية تبدأ من رقم 60 الى رقم 65
الملوب هو إذا كان الحقل ART يساوي من 50 الى 55 اجمع مبلغ هذه المجموعة وضعه في الحقل TOT_ART
مثلا:
كود :
procedure button
var t:real;
begin
t:=0;
table1 first;
while not table1.Eof do
begin
if table1.fieldbyname('ART').asstring:='50 ' then
t:=t+table1.fieldbyname('MONTANT'').asfloat;
table.next
end;
while not table2.Eof do
begin
table2.Delete;
end;
table2.Edit;
table2.FieldByName('TOT_ART').asFloat:=t;
table2.post;كهذا المثال الا بدلا من ان اجعل لكل رقم كود او امر كهذا
حبذا لو كان الأمر يشترط فيه من و إلى اي من 50 إى 55
from 50 to 55
انشاء الله اكون قد وفقت في طرح السؤال
كيف يمكنني جمع بعض السجلات - medreg - 27-05-2008
السلام عليكم
ربما السؤال غير مفهوم وايضا ربما عنوان الموضوع غير مناسب
فحاولت تلخيص الشرح في هذا المرفق
اظن انه مناسب للسؤال
كيف يمكنني جمع بعض السجلات - medreg - 28-05-2008
جزاكم الله عنا كل خير
لقد شغلت ذاكرتي نوعًا ما وادركت الحل وربما اكون قد وفقت
كود :
if (table1.fieldbyname('ART').asstring<='50') and (table1.fieldbyname('ART').asstring >='55') then
t:=t+table1.fieldbyname('MONTANT').asfloat;