سؤال حول البحث في ال DataBase

[ALIGN=RIGHT]بالنسبة للنقطة 1: يمكنك إستعمال locateمثال: نفترض أن لديك Table1

var options:TLocateOptions;

begin

options:=[LoPartialKey,LoCaseInsensitive]

table1.locate(A,B,options)



end;

]

حيث A هو العمود من Table1 الذي يتم البحث فيه

و B هي القيمة المبحوث عنها مثل Edit1.text

LopartialKey هو الخيار الذي يسمح لك تحصيل النقطة 1

كلما أضفت داخله حرف تحرك للبحث

في النقطة 2 إستعمل الفلتر أحسن Table1.filter

طالع التعليمات في دلفي أبحث عن filter ستجد أمثلة , و سأزودك بمثلها إن شاء الله

داخل مسير حدث Edit1.change ضع:

شكرا لك أخي عازم

ولكن بالنسبة للنقطة الأولى ألا يمكن جعل السجلات تظهر في قائمة مختصرة كما في الديلفي تماما عندما نضعط على Ctrl+Space

و بالنسبة للنقطة الثانية لم أصل إلى شئ في الـ help فهل يمكن وضع مثال يشرح ذلك

وشكرا جزيلا لك .

اخي العزيز اذا اردت طريقة اخرى بالإضافة الى طريقة الأخ عازم مشكوراً .

اليك:-

اولا نفترض انك سوف تتعامل مع جدول دلفي الجاهز CUSTOMER.DB

- من تبويبة BDE اسحب مكون SQL على الفورم

-من تبويبة DATA ACCESS اسحب مكون DATA SOURSE

- من تبويبة DATA CONTROL اسحب مكون DBGRID واجعل حجمه مناسبا على الفورم

- من تبويبة STANDARD اسحب مكون EDIT على الفورم

الخصائص :-

1- للمكون DBGRID1 :-

حدد الخاصية DATA SOURCE الى DATA SOURCE1

2- للمكونDATA SOURCE1 :-

حدد الخاصية DATA SET الى QUERY1

3- للمكون SQL1 :-

- حدد خاصية DATABASE NAME الى DBDEMOSE على افتراض ان جدول البيانات موجود فيها .

- من خاصية SQL يفتح لك محرر SQL اكتب فيه عبارة SQL هذه

select * from customer.db على افتراض ان customer هو جدولنا (خيار هذه الخاصية اختياري حتى فقط نري الجدول قبل التنفيذ ).

- حدد خاصية ACTIVE الى TRUE الأن سوف تظهر لك محتويات الجدول على ال DBGRID .

4- للمكون EDIT1 :-

حدد حدث التغيير Edit1Change وانسخ هذه الشفرة والصقها .

Query1.Close;

Query1.SQL.Clear ;

Query1.SQL.Add('select * from "customer.db"' );

Query1.SQL.Add('where company like '''+edit1.Text+'%''');

Query1.Open ;

عندما تنفذ البرنامج اكتب اول حرف على الedit إن شاء الله سوف يظهر لك الباقي

اما بالنسبة للجزء الثاني اذا استطعت ان اتوصل الى معرفته ساواليك به إن شاء الله.

ارجو ان يكون هناك ردود اخري من الأخوة حتى تعم الفائدة

ملاحظة :-

- انتبه الى حالة الأحرف الإنجليذية كبيرة ام صغير ة .

- حروف الشفرة غير مرتبة اذا اردت قرائتها من صفحة المنتدى فانصحك بنسخها ولصقها على محرر نصوص عادي وستجد انها ترتبت تلقائياً . (f)

dbsearch.zip

شكرا لك أخي Mr_Delphi

ولكن ما أريده هو التالي :

بالنسبة للنقطة الأولى في سؤالي أريد أن جعل السجلات تظهر في قائمة مختصرة كما في الديلفي تماما عندما نضعط على Ctrl+Space ( مربع صغير يحتوي على الأسماء وكل ما كتبت حرفي قلة عدد الأسماء الموجودة في هذا المربع إلى أن أصل إلى الاسم المراد .

وبالنسبة لسؤالي الثاني :

أريد أن أبحث عن أي حرفين من الاسم فيحضر لي الاسم كاملا علما بأن الحرفين قد يكونا في أول الاسم أو في منصف الاسم أو في نهايته

السلام عليكم

بالنسبة للنقطة الأولى : الطريقة التي اتبعتها هي نقل كل بيانات الحقل المراد البحث به الى ComboBox1 ثم فعلت خاصية autocomplate فأصبح مجرد ما أكتب بداية الاسم تظهر لي كل الاسماء التي تبدأ بنفس الحروف التي بدأت بها .

بالنسبة للنقطة الثانية زيد علامة (%) في نهاية السطر ليصبح الكود كالتالي

Query1.SQL.Add('where company LIKE ' + '"%'+Edit1.Text+'%"');

شكرا لكم جزيلا (f)(f)(f)

(f)(f)

شكرا جزيلاً ..أخواني ..ممتاز جداً الحلول ....ولكن عندما جريت طريقة الأخ سيد الدلفي ...للعبارات من نوع String..وجدت سهولة وتوافقية جيدة

ولكن عندما استخدمت الأرقام أي البحث ضمن جداول رقمية لم تفلح الأمور معي وبدء يعطيني Error.....وصورة الerror..مرفقة مع الموضوع ..أرجو

من الأخوة المساعدة ...

..وكيف لي ..صنع جدول بالباردوكس ....من نوع رقم ....لا يسمح بتكرار الرقم في الجدول مرتين ................

مشكورين

error_sql.zip