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

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

السلام عليكم ورحمة الله
استخدم 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
هناك مواضيع أخرى... استخدم البحث
بالتوفيق.

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

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

السلام عليكم

إذا أنا فهمت السؤال بصورة صحيحة، البحث عن جملة معينة داخل حقل في جدول.
باستعراض كل التسجيلات في الجدول يمكن البحث داخل الحقل في كل تسجيلة باستخدام الدالة 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]

محمد الدرة

kachwahed

محمد الدرة

محمد الدرة

shagrouni

محمد الدرة