الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة البحث في الدلفي

بدأه Diali في 17 مارس 2008 · 2 رد · 1,364 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أريد معرفة الطريقة الصحيحة التي تستعمل في البحث، علما أنني أستعمل الطريقة التالية :

Table1.open;

Table1.filter:='Code='+Edit1.Text;

Table1.filtered:=True;

if Table5.Eof then

begin

Showmessage('Code Non Trouvé);

Edit1.SetFocus;

end

else

begin

Edit2.Text:=Table1.Fieldvalues['Nom'];

Table1.filter:='';

Table5.filtered:=false;

end;

أطلب العم من المهد إلى اللحد

#2

السلام عليكم

هنا ك عدة طرق للبحث بالدلفي

البحث السريع بستعمال ملفات الفهرسة

Table1.FindKey([])

يكفي ان نكتب الفيمة المراد البحث في الفهرسة index

حيث تختلف طريفة الفهرسة من قاعدة بيانات من اخري

و الطريقة العادية باستعمال ملف القاعدة ككل

Table1.Locate('','',[])

اسم الحقل ولا يشترط حقل القهرسة

القيمة

كمايمكنك استعمال تعليمات الاسكيل في عمليت البحث

Query1

SELECT  FROM	WHERE

او طريقة الترشيح او الفلترة والتي تحدثت عنها

if Table1.IsEmpty then
if Table1.RecordCount:= 0 then

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 17 مارس 2008 في 01:12

#3

السلام عليكم

ولكن الطريقة التي ذكرت سابقا تعمل جيدا، خاصة عندما نبحث عن الجزء من الكلمة مع الكود التالي:

table1.open;

Table1.Filter:='Nom='+ quotedstr(edit1.text+'*');

Table5.Filtered:= true;

أطلب العم من المهد إلى اللحد

مواضيع مشابهة