+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أبحث في الاكواد داخل قاعدة البيانات (/showthread.php?tid=2025)
كيف أبحث في الاكواد داخل قاعدة البيانات - محمد الدرة - 20-05-2010
بسم الله الرحمن الرحيم
اصمم برنامج دليل الاكواد بحيث ربطتة مع قاعدة بيانات اكسس
قاعدة البيانات فيها جدولين
جدول فية المواضيع الرئيسية الاكواد والاخرى للاكواد
بحيث ربطت بين الاكواد والمواضيع بحيث يطلع كل كود في موضوعة
عملت treeview،تظهر الموضوع وداخلة الاكواد بحيث عملت الربط رقم الموضوع برقم الاكواد
المشكلة في البحث عن كلمة في الكود طبعا الكود حقل من نوع مذكرة يعني يمكن ادخال عدة جمل فية
كيف ابحث داخل هذا الكود
مثلا كلمة for موجودة في عدة اكواد
واعمل edit ,button ,listbox بحيث ادخل في edit كلمة for واضغط على button
فتظهر جميع الاكواد الموجودةالموجود فيها كلمة for
علىlistbox وتهر اسم الكود داخلة وعند النقر على النتائج الموجود على
تحياتي للجميع
كيف أبحث في الاكواد داخل قاعدة البيانات - kachwahed - 20-05-2010
السلام عليكم ورحمة الله
استخدم 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
هناك مواضيع أخرى... استخدم البحث
بالتوفيق.
كيف أبحث في الاكواد داخل قاعدة البيانات - محمد الدرة - 21-05-2010
مشكور وجزاك الله خير وانا قد بحثت مرارا وتكرار بس الطريقة الذي ذكرتها لاتنفع الا على الحقول من نوع نص وليس مذكرة
تحياتي لك
كيف أبحث في الاكواد داخل قاعدة البيانات - محمد الدرة - 21-10-2010
![[صورة: 34715543.jpg]](http://img18.imageshack.us/img18/5403/34715543.jpg)
هذا هو برنامجي
ابحث في حقل من نوع مذكره
مثلاً في الصوره تلاحظ السؤال هو
برنامج للبحث سور القرآن الكريم
لو أردت رؤية جميع الاكواد الذي تحتوي على كلمه قرآن وعرضها في نافذه جديده
وعند النقر عليها يتم فتح الكود كيف اعمل ولكم جزيل الشكر
كيف أبحث في الاكواد داخل قاعدة البيانات - shagrouni - 22-10-2010
السلام عليكم
إذا أنا فهمت السؤال بصورة صحيحة، البحث عن جملة معينة داخل حقل في جدول.
باستعراض كل التسجيلات في الجدول يمكن البحث داخل الحقل في كل تسجيلة باستخدام الدالة 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;كيف أبحث في الاكواد داخل قاعدة البيانات - محمد الدرة - 23-10-2010
[color="navy"]بارك الله فيك اخي العزيز
فعلاً الكود يعمل 100%
كثر الله من امثالك
[/color]