كيف أبحث في الاكواد داخل قاعدة البيانات

[محمد الدرة]

بسم الله الرحمن الرحيم
اصمم برنامج دليل الاكواد بحيث ربطتة مع قاعدة بيانات اكسس
قاعدة البيانات فيها جدولين
جدول فية المواضيع الرئيسية الاكواد والاخرى للاكواد
بحيث ربطت بين الاكواد والمواضيع بحيث يطلع كل كود في موضوعة
عملت treeview،تظهر الموضوع وداخلة الاكواد بحيث عملت الربط رقم الموضوع برقم الاكواد
المشكلة في البحث عن كلمة في الكود طبعا الكود حقل من نوع مذكرة يعني يمكن ادخال عدة جمل فية
كيف ابحث داخل هذا الكود
مثلا كلمة for موجودة في عدة اكواد
واعمل edit ,button ,listbox بحيث ادخل في edit كلمة for واضغط على button
فتظهر جميع الاكواد الموجودةالموجود فيها كلمة for
علىlistbox وتهر اسم الكود داخلة وعند النقر على النتائج الموجود على
تحياتي للجميع

[kachwahed]

السلام عليكم ورحمة الله
استخدم FindNearest بمثل (مثال منقول):

كود :

* FindNearest fonctionne d'une façon similaire à FindKey mais il recherche l'enregistrement le plus proche de la valeur entrée. Pour le tester, ajoutez un bouton et un TEdit puis implémentez son événement OnClick : procedure TForm2.Button4Click(Sender: TObject); begin Table1.IndexFieldNames:='NumOrdre'; // ainsi la recherche se fera sur le n° d'ordre Table1.FindNearest([StrToInt(Edit4.Text)]); // FindNearest permet de se placer sur l'enregistrement //qui correspond au mieux au critère // ici : que le champ NumOrdre contient la valeur numérique //écrite dans Edit4.Text. end;

طرق البحث تعرض إليها الأخ نبيل جزاه الله خيرا، راجع الموضوع:
http://www.delphi4arab.net/forum/showthread.php?tid=519
هناك مواضيع أخرى... استخدم البحث
بالتوفيق.

[محمد الدرة]

مشكور وجزاك الله خير وانا قد بحثت مرارا وتكرار بس الطريقة الذي ذكرتها لاتنفع الا على الحقول من نوع نص وليس مذكرة
تحياتي لك

[محمد الدرة]

هذا هو برنامجي
ابحث في حقل من نوع مذكره
مثلاً في الصوره تلاحظ السؤال هو
برنامج للبحث سور القرآن الكريم
لو أردت رؤية جميع الاكواد الذي تحتوي على كلمه قرآن وعرضها في نافذه جديده
وعند النقر عليها يتم فتح الكود كيف اعمل ولكم جزيل الشكر

[shagrouni]

السلام عليكم

إذا أنا فهمت السؤال بصورة صحيحة، البحث عن جملة معينة داخل حقل في جدول.
باستعراض كل التسجيلات في الجدول يمكن البحث داخل الحقل في كل تسجيلة باستخدام الدالة Pos
الكود التالي يمر عل كل تسجيلات الجدول و يفحص الحقل CodeField ليبحث عن الجملة المعطاة في Edit1 فإذا وجدها يقوم بإضافة رقم الكود في ListBox1

كود :

while not Table1.Eof do begin if Pos(Edit1.Text, Table1.FieldByName('CodeField').AsString) > 0 then begin ListBox1.Items.Add(Table1.FieldByName('CodeNo').AsString); end; Table1.Next; end;

[محمد الدرة]

[color="navy"]بارك الله فيك اخي العزيز
فعلاً الكود يعمل 100%
كثر الله من امثالك
[/color]