اكمال تلقائي ل DBGrid

السلام عليكم

عود حميد والحمد لله

اخى انا لا ادرى ماهية تطبيقك ولكن على اى جرب

 table.locate('name',edit1.text[lopartialkey]);

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

سوف أرفق سورس عن قريب

تعمل الإكمال في DBGRID

بامكانك ان تخزن الكلمات التي تريدها في combobox بحيث يكون بشكل خفي visable=false واكيد سيساعدك

او تستخدم الطريقة التي ذكرها الاخ a0sw255

السلام عليكم .. اّسف على الغيبة الطويلة عنكم أحبابي قسم دلفي كنت مشغول في قسم الـ SqlServer + عملي في شركة البرمجيات التي أعمل بها .. :rolleyes: :rolleyes:

رأيي في المسألة :

1- أن تستخدم الحدث KeyPress الخاص بالـ DBGrid .

2- أن تستخدم الشرط التالي لمعرفة العمود الذي يتم فيه التحرير(الكتابة) :

  if(DBGrid1.SelectedField.FullName = 'MyField') Then

3- استخدم متحول عام أو متحول ضمن Form Class أقصد في قسم الـ Private . و ليكن str من String .

4- إستخدم هذا المتحول لحفظ المحرف الذي تكتبه في الشبكة :

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if(DBGrid1.SelectedField.FullName = 'MyField') Then
   Begin
    str := str + Key;

3- ثم استخدم AdoQuery1 مع استعلام مشابه لـ :

AdoQuery1.sql.text := 'select MyField From MyTB where MyField Like ''%''' + str;
AdoQuery1.open;

ثم قم بإعادة القيمة الناتجة عن الإستعلام إلى الـ Ado التي تعرض سجلاتها في الـ Grid :

طبعاً إذا كان الإستعلام الناتج عن الـ AdoQuery1 يعيد قيمة وحيدة مثلاً :

كنت تكتب في الـ Grid : أحمـ -- فأكمل إلى ---> أحمد لأنه توجد قيمة وحيدة في هذا الحقل مشابهه و هي (أحمد)

فتصبح الإجرائية كلها من الشكل :

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if(DBGrid1.SelectedField.FullName = 'MyField') Then
   Begin
     str := str + Key;
     AdoQuery1.sql.text := 'select MyField From MyTB where MyField Like ''%''' + str;
     AdoQuery1.open;

     if(AdoQuery1.RecordCount = 1) Then
     Begin
        AdoTable1.Edit; 
        AdoTable1.FieldByName('MyField').value := AdoQuery1.FieldByName('MyField').value;
     End;
   End;

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

مع تمنياتي بالتوفيق

نعيب زماننا و العيب فينا و ما لزماننا عيب سوانا ( الإمام الشافعي رحمه الله )

عماد .. B) B)

شكرا جزيلا لكم ولعى ردودكم

ولكن للأسف لقد تعطل الحاسب لدي ولا استطيع تجربة ما ذكرتم

لذا ارجو ان يبقى الموضوع مفتوحا حتى اتمكن من اصلاح جهازي ثم اجرب

الله يصلحك و يصلح جهازك ... :D

=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

نعيب زماننا و العيب فينا ********* و ما لزماننا عيب سوانا ( الشافعي رحمه الله )

عماد .. B) B)