أخر الأخبار

دورة مشروع برنامج تسيير مدارس تعليم السياقة بالدلفي من الصفر الى الإحتراف - الدرس العاشر الجزء 1






 في هذ ا الدرس سنقوم ان شاء الله بوضع نافدة عرض للقائمة الخاصة بالمترشحين وبعض الحقول التي نريد اضهارها في القائمة المثمثلة في 
 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;

هذا و الدرس مصور فيديو متابعة ممتعة

--------------------------------------------------------------------------------------------------------------------------


--------------------------------------------------------------------------------------------------------------------------




تعليقات



حجم الخط
+
16
-
تباعد السطور
+
2
-