delphi4arab منتديات دلفي للعرب
كيف لي ان اعرف عدد السجلات التي تحتوي على قيمة معينة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف لي ان اعرف عدد السجلات التي تحتوي على قيمة معينة (/showthread.php?tid=5047)



كيف لي ان اعرف عدد السجلات التي تحتوي على قيمة معينة - medreg - 22-03-2013

السلام عليكم ورحمة الله تعالى
الدلفي7
قاعدة البيانات ابسوليت داتاباز
كيف لي ان اعرف عدد السجلات التي تحتوي على نفس القيمة
واقصد
عندي مثلا 20 سجل بجدول Table1
منها 5 سجلات تحمل قيمة 1 بالحقل TNbre وهو من نوع integer
و 5 سجلات تحمل قيمة 3 بنفس الحقل
و 4 سجلات تحمل القيمة 2
و 6 سجلات تحمل 10
لقد حاولت باستعمال التعليمة RecordCount
بهذه الطريقة
كود :
if table1.Fieldvalues['TNbre']=1 Then n1:=table1.Recordcount; label1.Caption:=inttostr(n1); if table1.Fieldvalues['TNbre']=3 Then n2:=table1.Recordcount; label2.Caption:=inttostr(n2); if table1.Fieldvalues['TNbre']=2 Then n3:=table1.Recordcount; label3.Caption:=inttostr(n3); if table1.Fieldvalues['TNbre']=10 Then n4:=table1.Recordcount; label4.Caption:=inttostr(n4);
لكن النتيجة التي تظهر هي مجموع كل السجلات
ما هو عدد السجلات التي تحل القيمة 1 ؟
بالتوفيق


كيف لي ان اعرف عدد السجلات التي تحتوي على قيمة معينة - makhlouf - 22-03-2013

السلام عليكم رحمة الله تعالى و بركاته:
أخي استعمل الفلترة لعلها تفي بالغرض
table1.fileter:='TNbre='''+'1'+'''';
table1.filetred:=true;
label2.Caption:=inttostr(n2);

بالتوفيق أخي


كيف لي ان اعرف عدد السجلات التي تحتوي على قيمة معينة - medreg - 22-03-2013

شكرا لك اخي الكريم وبارك الله فيك