كيف استطيع البحث في قواعد البيانات

[houssem3110]

السلام عليكم
كيف استطيع البحث عن شيء في قواعد البيانات عن طريق الضغط علي زر و بالستعمال dbedit .

[أمير الدلفي]

لا تقلق أخي سأعد لك موضوعا شاملا
على البحث
كن في انتظاري سوف لن أتاخر عليك ان شاء الله

[houssem3110]

شكرا اخي أمكروس أمبارش علي تعاونك...انا في انتضارك.

[أمير الدلفي]

نعم أخي لقد عدت اليك و انا جد آسف ان تاخرت عليك و بعثرت لك برنامجك فانا في فترة الامتحانات
و اماعن البحث فتوجد عدة طرق البحث بالمفتاح الرئيسي أم بالفهارس ..

سأضع لك عدة طرق و انت اختار :

طريقة FindKey و هنا في المثال عندنا جدول فيه اسماء الطلبة ونبحث برقم الطالب فان عثر عليه اخرج اسمه و لقبه

table2.open ;
table2.First;
if not table2.FindKey ([edit1.text]) then
showmessage ('etudiont no trouvv ') ;
begin
edit2.Text := t2nom.text ;
edit3.Text := t2prenom.Value ;
end ;

طريقة GotoNearest الذهاب الى الأقرب و لها عدة اشكال و من الأحسن ان تجعل الكود التالي في edit فالطريقة تتحس للحروف فمثلا تريد البحث عن الرقم 2222 فعندما تكتب 2 يذهب المؤشر الى السجل 2 و عندما تضيف 2 اي 22 يذهب المؤشر الى ذلك السجل وهكذا حتى تصل الى 2222
و تستطيع البحث في حقل الاسم اذا كان مفهرس لان الطريقة خاصة بالفهارس

table2.open ;
table2.First;
t2.IndexFieldNames := 'num' ;
table2.EditKey ;
table2.FieldByName('num').AsString := e6.text ;
t2.GotoNearest ;

طريقة EndOfFile نهاية الجدول ان صح التعبير
تشبه الطريقة الأولى
table1.first;
while not table1.eof do
begin
if table1nom.value = edit1.text then
begin
edit2.text := table1prenom.value;
end;
table1.next;
end;


و بالمناسبة يوجد العديد من الطرق مثل loucat .. و ان لم تلبي المذكورة غرضك سأوافيك بالطرق الأخرى
و***** اني افدتك و معذرة مرة أخرى على التأخير لانه من الاجدر ان نجيب على كل سؤال طرح ف اوانه
بالتوفيق

[houssem3110]

شكرا لك اخي, لا يهم ان تأخرت المهم انك اوفيت بوعدك...بخصوص الطريقة "eof" لقد قمت بتجريبها الا ان delphi يضهر لي الخطأ التالي "nom غير معرف" (nom الذي هو ملتصق ب table1 ) ف****ا اخي ان تقوم بتصحيح الخطأ في اقرب وقت أو تقوم باعطائي طريقة اخري وشكرا جزيلا مرة اخري علي اهتمامك.

[أمير الدلفي]

نعم يظهر الخطأ لأنك لم تضيف حقول الجدول و ذلك بالضغط عليه مرتين
و اضغط بزر الأيمن للماوس و اختر ajouté tout les champ
و اعد تشغيل البرنامج
بصحتك

[houssem3110]

اسف اخي ان اثقلت عليك...فقد صادفتني مشكلة اخرى وهي عند تنفيدي للبرنامج وكتابة مثلا"houssem" في edit1 الاحضوا ان"houssem" اضيف مكان اسم اخر في الجدول بينما المفروض هو البحث عن "houssem" وان تكرمت اخي ارفق اجابتك بمثال وشكرا.

[B.M.AbdelAziZ]

اسهل طريقة للبحث عن معلومة بجدول هو استدعاء Locate

if not Table1.Locate('NOM',Edit1.Text,[]) then ShowMessage('غير موجود');

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

[houssem3110]

****ا ياأخوان ان تضعوا لي مثال معمول في delphi لأني فعلا في مشكل والوقت يداهمني لأنني سأمتحن في برنامجي الاسبوع المقبل...وشكرا.

[أمير الدلفي]

أخي هاهو الملف و تجد فيه مركب table فاربطه مع جدولك و اشغله و جرب...

[بولفعة]

السلام عليكم
كيف أبحث في حقلين أو أكثر في جدول كيف أسوي
مثال:أبحث عن الطالب أحمد في الحقل nom و الحقل prenom
شكرا وبارك الله فيكم

[وليد]

السلام عليكم
إليك هذا المثال تبحث في بثلاثة حقول وهو في المرفقات والبحث بمنهج Locate
وفق الله الجميع