في هذا الدرس سنبرمج النافذة الخاصة بتعديل بيانات المترشحين المسجلين على مستوى المدرسة
و قد إستعملنا في ذلك خاصية البحث برقم التسجيل ثم إظهار البيانات ثم تعديلها
أو عدم التعديل عليها اي الغاء التعديل
صورة النافدة المسؤولة عن ذلك
طبعا استعملنا مكون
SpSkinPageControl
و الذي من خلاله نضع عدد الصفحات التي تمكننا من الولوج الى جميع المعلومات الخاصة بالمترشحين
ثم الصفحة الخاصة بالدفعات
الأن ناتي الى الأكواد المستعملة في المكونات
كود الكمبوبوكس لإختيار حقل البحث
begin
if (spSkinComboBox4.Text = 'بالرقــــــــــم') or (spSkinComboBox4.Text = 'رقم التسجيل') then
begin
spSkinPanel21.Visible := true;
spSkinEdit2.Text := '';
spSkinEdit2.SetFocus;
end
else
begin
spSkinPanel21.Visible := false;
spSkinEdit2.Text := '';
spSkinEdit2.SetFocus;
end;
end;
ثم الكود الخاص بمكان كتابة حقل البحث
begin
if (spSkinEdit2.Text <> '') then
begin
spSkinSpeedButton46.Enabled := true;
end
else
begin
spSkinSpeedButton46.Enabled := false;
spSkinSpeedButton39.Enabled := false;
DataModule2.ABSTableCANDIDAT.Cancel;
end;
end;
الكود الخاص بالبحث عن المترشح زر البحث
هنا البحث بحقل و احد في جدولين
begin
if DataModule2.ABSTableCANDIDAT.FindKey([spSkinEdit2.Text]) and DataModule2.ABSTableFRAIS_FORMATION.FindKey([spSkinEdit2.Text]) then
begin
DataModule2.ABSTableCANDIDAT.Edit;
DataModule2.ABSTableFRAIS_FORMATION.Edit;
DataModule2.ABSTableEXAMAIN.Edit;
spSkinPageControl1.Visible := true;
spSkinPageControl1.ActivePage:=spSkinTabSheet1;
spSkinSpeedButton39.Enabled := true;
spSkinSpeedButton43.Enabled := true;
end
else
begin
form13.Show;
Form3.Enabled := false;
SndPlaySound('C:\Users\Ouadah Adda\Desktop\Gestion Auto Ecole\voices\Supprimer.wav',SND_NODEFAULT);
end;
end;
كود التعديل و هنا استعملنا نافدة التاكيد على التعديل و الإلغاء
begin
form14.show;
DataModule2.ABSTableCANDIDAT.Edit;
DataModule2.ABSTableFRAIS_FORMATION.Edit;
form4.Enabled:=false;
form14.Timer2.Enabled := false;
form14.Timer1.Enabled := true;
form14.label43.Visible:=true;
form14.label1.Visible:=false;
form14.spSkinSpeedButton3.Enabled:=false;
form14.spSkinSpeedButton2.Enabled:=true;
spSkinSpeedButton39.Enabled:=false;
form14.spSkinSpeedButton1.Enabled:=true;
end;
ثم وضعنا زرين واحد لإلغاء التعديل وواحد للخروج من نافدة التعديل
هذا و قد قمنا بتصوير الدرس كالعادة
--------------------------------------------------------------------------------------------------------------------------
الجزء الاول
--------------------------------------------------------------------------------------------------------------------------
الجزء الثاني
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
