من أهم ما نحتاجه عند التعامل مع قواعد البيانات هو البحث ..
هناك من يعتقد أن عملية البحث صعبة و و و ! .. سأقول لك أنها أسهل مما تعتقد و هذا الدرس سيبين ذلك
أولاً ما نحتاجه في عملية البحث مكونين فقط ..
ComboBox و Edit
( الصورة و لابل إختياري وضعهما .. من اجل تحسين التصميم )
نضعهم في الفورم بهذا الشكل
الآن نذهب لخصائص المكون ComboBox و بالتحديد إلى الخاصية Itemes
نضع بها أسماء الحقول بدقة .. أقول بدقة لأن أي خلل في إسم حقل ما سيحدث مشكل في عملية البحث الخاصة به
لاحظ الصورة التالية
هي تمثل حقو الجدول في قاعدة البيانات
و هذه الصورة
هي ما نكتبه داخل خاصبية Itemes للمكون ComboBox
------------
الآن ننتقل للمكون الثاني الــ Edit
أضن من الأحسن جعل خاصية مميزة لهذا المكون أي لما نكتب أي شيئ بمجرد الضغط على الــ Entrée
يتم تنفيذ الأمر .. أفضل صح ؟
الأمر سهل جداً من قائمة الأحداث الخاصة بالمكون Edit نختار حدث OnKeyPress
أي حدث لما نضغط على زر معين من لوحة المفاتيح
نكتب الكود التالي
-----------------------------------------------------------------------------------------------------------
if key=#13 then
begin
ADTable1.Locate ( spSkinComboBox1.Text,spSkinEdit1.text,[]);
end;
-----------------------------------------------------------------------------------------------------------
في السطر الأول كتبنا if key=#13 then
أي إذا كان الزر اللذي ضغطنا عليه هو الزر 13# و هذا الرمز يمثل زر Entrée
مذا ينفذ البرنامج لما نضغط زر Entrée ؟
ينفذ التالي
;( [],ADOTable1.Locate ( spSkinComboBox1.Text,spSkinEdit1.text
و هذا هو الكود الخاص بالبحث في قاعدة البيانات .. الكود في في الوضعية الإفتراضية يكون بهذا الشكل
;( [],ADOTable1.Locate ( Nom de Champ , Nom chose
حيث أن
Nom de Champ هو إسم الحقل
Nom chose ما نريد البحث عنه في داخل هذا الحقل
أضن الأمر بسيط .. صح ؟
قد يتسائل أحدكم لمذا إستخدم مكونين ! ! .. بل لو وضع مجرد Edit و يكتب مباشرة إسم الحقل المراد البحث فيه ..
و يستغني عن ComboBox
أقول له : هذا من أجل جعل عملية البحث أكثر فعالية و نترك للمستخدم الحرية في البحث في أي حقل يشاء
الآن سأضع لكم فيديو يشرح تطبيقي لهذا الدرس .. فرجة ممتعة
و كما أقول دائماً .. لأي إستفسارات أنا موجود و السلام عليكم و رحمة الله
0 comments: