في هذا الدرس الجديد و الخاص بمشروع انشاء برنامج تسيير مدرسة لتعليم السياقة , في هذا الدرس سندخل في الجوانب المهمة للبرنامج و الجدول المهم جدا و الخاص بالمترشحين و هو الجدول المهم في قاعدة البيانات و الذي من خلاله سنسير جميع جداول قاعدة البيانات
لقد قمنا هنا بإضافة نافدة جديدة و ليس فورم لأننا في نفس الفورم نعمل دائما وضعنا فيه مكان حجز المعلومات الخاصة بالمترشح في الواجهة الأولى ثم الواجهة الثانية و الخاصة بالملف الخاص بالتكوين على مستوى المدرسة
قبل ذلك اضفنا الفورم الخاص بالتحقق من وجود رقم المترشح او لا و قد برمجنا زر البحث كالتالي :
قبل ذلك اضفنا الفورم الخاص بالتحقق من وجود رقم المترشح او لا و قد برمجنا زر البحث كالتالي :
التأكد من رقم المترشح في قاعدة البيانات المستعملة في البرنامج و الكود الخاص بالبحث يكون التالي :
begin
if DataModule2.ABSTableCANDIDAT.findkey([spSkinEdit1.Text])then
begin
SndPlaySound('C:\Users\Ouadah Adda\Desktop\Gestion Auto Ecole\voices\Supprimer.wav', SND_NODEFAULT );
Image1.Visible := true;
Timer1.Enabled :=true;
form4.Enabled := false;
end
else
if (spSkinEdit1.Text = '') or (spSkinEdit1.Text = '0') or (spSkinEdit1.Text = '00') or (spSkinEdit1.Text = '000') or (spSkinEdit1.Text = '0000') or (spSkinEdit1.Text = '00000')then
begin
SndPlaySound('C:\Users\Ouadah Adda\Desktop\Gestion Auto Ecole\voices\Supprimer.wav', SND_NODEFAULT );
Image1.Visible := true;
Timer1.Enabled :=true;
form4.Enabled := false;
end
else
begin
form4.Show;
form4.spSkinButtonsBar1.Enabled := false;
form4.Enabled:=true;
DataModule2.ABSTableCANDIDAT.Insert;
DataModule2.ABSTableCANDIDAT.edit;
Image1.Visible := false;
Timer1.Enabled :=false;
form4.spSkinGroupBox5.Visible := true;
form4.spSkinDBEdit7.text := spSkinEdit1.text;
form4.spSkinDBEdit8.setfocus;
form8.Close;
end;
end;
ادن هدا هو الكود الخاص بالبحث في حال وجود الرقم تظهر الصورة مع الرسالة التالية
حيث انه هو الذي يقوم بإظهار الرسالة timer و نعتمد في ذلك على
اما في حال عدم وجود الرقم فإننا سندخل الى واجهة البرنامج الخاصة بحجز المعلومات للمترشح
هنا جميع الأكواد كنا قد استعملناهم في نافدة ادخال معلومات المدرسة
اذن نتابع جميع الخطوات مع هذا الفيديو التحليلي
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
الى اللقاء في الجزء القادم بإذن الله
قد يعجبك ايضا