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

(16-12-2015, 10:15 PM)eriktuz كتب : [ -> ]

(16-12-2015, 07:57 PM)Unprogramme كتب : [ -> ]السلام عليكم ورحمة  الله وبركاته ،
نعم يمكنك ذلك  عن طريق البرمجة ،
مجرد فكرة للتطوير :

كود :

var nb : Integer  nb := 0 ; ADOTable.First ; while Not ADOTable.EOF do Begin     if ADOTable.FieldByName('Sex').asString =  'ذكر'  then       nb := nb + 1 ; end ;

الله يبارك فيك الله يحفظك و لكل من ساعدنى

الفكرة رائعة و هذا ما كنت ابحث عنه من دون استعمال ال adoquery

فقط تصحيح للكود يجب اضافة begin و end اخرى ليعمل الكود

كود :

var nb : Integer; begin   nb := 0;  ADOTable1.First;  while not ADOTable1.Eof do  begin    if  ADOTable1.FieldByName('الجنس').asString =  'ذكر'  then    nb := nb + 1;    ADOTable1.Next;   end;   eDIT1.TEXT:= IntToStr(nb); end;