في هذ ا الدرس سنقوم ان شاء الله بوضع نافدة عرض للقائمة الخاصة بالمترشحين وبعض الحقول التي نريد اضهارها في القائمة المثمثلة في
DBGRID
هدا المكون الرائع الدي يمكننا من عرض الحقول المهمة في الجداول
ثم قمنا بوضع خاصية البحث عن طريق الفلترة في قاعدة البيانات المستعملة هنا و هي قاعدة البيانات من نوع الأبسوليت داتا بايز
قمنا بوضع مكون كمبوبوكس ووضعنا فيه ميزة البحث في قاعدة البيانات او الحقول الخاصة بعملية البحث هنا اخترنا اللقب و الأسم الخاصين بالمترشحين
و اللدين يمكنانا من التاكد من تواجد المترشح عن طريق هده العملية
و هدا بكتابة الاسم او اللقب في الخانة المخصصة لدلك
و الكود المخصص لدلك هو كالآتي
procedure TForm4.spSkinEdit25Change(Sender: TObject);
begin
if (spSkinComboBox8.Text = 'باللقـــــــــب') and
(spSkinEdit25.Text <> '') then
begin
DataModule2.ABSTableCANDIDAT.Filter := 'NOM_CAN_AR=' + QuotedStr(spSkinEdit25.Text);
DataModule2.ABSTableCANDIDAT.Filtered := true;
end
else if (spSkinComboBox8.Text = 'بالإســــــــم') and
(spSkinEdit25.Text <> '') then
begin
DataModule2.ABSTableCANDIDAT.Filter := 'PRENOM_CAN_AR=' + QuotedStr(spSkinEdit25.Text);
DataModule2.ABSTableCANDIDAT.Filtered := true;
end
else
DataModule2.ABSTableCANDIDAT.Filtered := false;
end;
الكود المستعمل في في تغيير اللغة
procedure TForm4.spSkinEdit25Click(Sender: TObject);
begin
LoadKeyboardLayout('00000401', KLF_ACTIVATE);
application.BiDiKeyboard := '00000401';
end;
هذا و الدرس مصور فيديو متابعة ممتعة
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
قد يعجبك ايضا