ما معني الأمر adoquery3.RecNo ؟

[AL-MOB4RM3G]

السلم عليكم ورحمة الله

اخواني الكرام ,, اواجه مشكلة والله المستعان,,

اظن ان فهم الكود ادنى سيمكنني من حلّ المشكلة والله المستعان,,

لذلكك اتمى ولو شرح بسيط بارك الله فيك للأمر

PHP كود :

showmessage(inttostr(adoquery3.RecNo)); 


وبلأخص adoquery3.RecNo

جزاكم الله خيرا

والسلام عليكم ورحمة الله

[محمد عبد العزيز]

RecNo
اختصار Record Number رقم السجل
هو ترقيم تلقائي للسجلات الموجودة بالجدول
به يمكن معرفة رقم السجل الحالي او تغييره
والسلام عليكم

[AL-MOB4RM3G]

نعم بارك الله فيك اخي ديلتا عزيز,, اشكرك كثيرا,,

اخي الكريم المشكلة انحلت ولله الحمد,, كان المشكلة انني يجب علي عمل سورت لحقّلين ,, يعني اشكرك اخي,,,

لكن واجهتني مشكلة اخرى عن تقريبا نفس الموضوع,, يعني مشكلة فرعيّة,,

ADOQuery3FilterRecord

استخدمها لعمل فلتر حسب combobox4.itemsindex +1 ... للحقل [COLOR="Red"]ChapterNum
[/COLOR]
علمن انه هناك 114 رقم تسلسلي في هذا الحقل,, يعني من 1 الى 114,, عدد سور القرآن,,

يعني الكود المستخدم هو بشكل التالي,,

PHP كود :

Accept := Pos(inttostr(advcombobox4.ItemIndex+1),dataset.FieldByName('ChapterNum').AsString) = 1; 


في الحدث

PHP كود :

procedure TForm1.ADOQuery3FilterRecord(DataSet: TDataSet; var Accept: Boolean); 


,,,,, كل شئ وأضح لحد الآن ان شاء الله ؟

نعم,,

النتيجة ماذا يجب ان تكون في هذه الحالة ؟

اذا كان الأيتيم للكومبو بوكس 2 ,,, يعني ان الفلتر سيكون 2 +1 اي 3,,,

ويتم عمل فلتر لكل شئ الّى سورة رقم 3 اي سورة ال آل عمران,,,

,,, اذا كان الأيتيم 3 ستكون النتيجة فلتر لكل شئ الّى سورة رقم 4 لأن 3 + 1 يساوي 4,,,

لكن ماذا يحدث معي ؟؟؟؟؟

اذا كان الفلتر عن رقم 3 ,,,

يختفي كل شئ الّى 3 و 31 و 32 و 33 وو 34 حتى 39,,,

اذا كان الفلتر يسآوي,, 4

يقوم البرنامج بعمل فلتر لكل شئ الّى سورة رقم 4 + 41 + 42 + 43 و حتى سورة رقم 49 ,,,, لماذا ؟؟

الذي اوده انا هو ان يكون الفلتر فقد 4 وليس 41 و43 ووو الى آخره,,, حتى 49 ,,

ان شاء الله الآمر واضحح,, وان كان يحتاج اكثر وضوح سأحاول ان اوضح اكثر ان شاء الله

بارك الله فيك وحزاكم الله خيرا

والسلام عليكم ورحمة الله وبركاته,,

[AL-MOB4RM3G]

اخواني الكرام,, انحلّت المشكلة والله الحمد.,,

استخدمت هذا الكود ,,

PHP كود :

i:= advcombobox4.ItemIndex+1;
adoquery3.Filtered := false;
adoquery3.filter:= 'ChapterNum='+inttostr(i); 
adoquery3.Filtered := true;
if advcombobox6.ItemIndex = -1 or 0 then
    begin
      //do nothing;
    end
      else
    begin
      adoquery3.RecNo:= advcombobox6.ItemIndex + 1;
    end;
end; 


بارك الله فيكم حميعا