في هذ الدرس سندخل الى الجزء الثاني من الإضافة الخاصة بالمترشحين و التي تتعلق بالملف المفتوح في المدرسة
مثل تاريخ الدخول او التسجيل بالمدرسة اضافة الى كل ما يتعلق بذلك تواريخ الإمتحانات المؤطرين اضافة الى السيارة
المستعملة في الإمتحانات التطبيقية
صورة توضيحية
اما صنف الرخصة فهناك نافدة تظهر لوحدها لإضافة انواع الرخص ثم إضافة امتداد الرخص اضافة الى الدفعات التي يدفعها المترشح ثمن التكوين بالمدرسة للحصول على رخصة السياقة
النافدة الأولى
النافذة الثانية
أما الدفعات يمكننا في وضع جميع الأكواد للعمليات الحسابية لكي تظهر الدفعات لكل مترشح
الأكواد المستعملة في النافدة الثانية
implementation
uses BDD , Acceuil, principal;
{$R *.dfm}
const
clOrange = TColor($0000048DF);
procedure TForm9.CreateParams(var params:TCreateParams );
begin
inherited CreateParams(params);
params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;
end;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.Enabled := true;
spSkinSpeedButton21.Enabled:=true;
spSkinSpeedButton23.Enabled:=true;
spSkinSpeedButton3.Enabled:=true;
DataModule2.ABSTablePermi_OBT.Cancel;
end;
procedure TForm9.FormCreate(Sender: TObject);
begin
Label3.Font.Color := clOrange;
DBText1.Font.Color := clOrange;
DBText2.Font.Color := clOrange;
end;
procedure TForm9.spSkinSpeedButton15Click(Sender: TObject);
begin
DataModule2.ABSTablePermi_OBT.Insert;
DataModule2.ABSTablePermi_OBTID_TYPE.Value := DataModule2.ABSTableTYPE_PERMISID_TYPE.Value;
DataModule2.ABSTablePermi_OBTID_CAN.Value := strtoint(form4.spSkinDBEdit7.Text);
spSkinDBEdit1.Enabled := true;
spSkinDBEdit2.Enabled := true;
spSkinDBDateEdit6.Enabled := true;
spSkinDBEdit1.SetFocus;
//spSkinDBLookupComboBox5.Enabled:=true;
spSkinDBDateEdit6.Enabled:=true;
spSkinSpeedButton21.Enabled:=false;
spSkinSpeedButton23.Enabled:=false;
spSkinSpeedButton3.Enabled:=false;
spSkinSpeedButton24.Enabled:=true;
spSkinSpeedButton15.Enabled:=false;
end;
procedure TForm9.spSkinSpeedButton1Click(Sender: TObject);
begin
DataModule2.ABSTablePermi_OBT.Cancel;
spSkinSpeedButton1.Enabled:=false;
spSkinSpeedButton21.Enabled:=false;
spSkinSpeedButton23.Enabled:=false;
spSkinSpeedButton3.Enabled:=true;
spSkinSpeedButton24.Enabled:=false;
spSkinSpeedButton15.Enabled:=true;
spSkinDBEdit1.Enabled := false;
spSkinDBEdit2.Enabled := false;
spSkinDBDateEdit6.Enabled := false;
end;
procedure TForm9.spSkinSpeedButton21Click(Sender: TObject);
begin
DataModule2.ABSTablePermi_OBT.edit;
spSkinDBEdit1.Enabled := true;
spSkinDBEdit2.Enabled := true;
spSkinDBDateEdit6.Enabled:=true;
spSkinSpeedButton23.Enabled:=false;
spSkinSpeedButton15.Enabled:=false;
spSkinSpeedButton24.Enabled:=true;
end;
procedure TForm9.spSkinSpeedButton23Click(Sender: TObject);
begin
DataModule2.ABSTablePermi_OBT.Delete;
end;
procedure TForm9.spSkinSpeedButton24Click(Sender: TObject);
begin
DataModule2.ABSTablePermi_OBT.Post;
spSkinSpeedButton24.Enabled:=false;
spSkinSpeedButton15.Enabled:=true;
spSkinSpeedButton21.Enabled:=true;
spSkinSpeedButton23.Enabled:=true;
spSkinSpeedButton1.Enabled:=true;
spSkinSpeedButton3.Enabled:=true;
end;
procedure TForm9.spSkinSpeedButton3Click(Sender: TObject);
begin
form9.Close;
form4.enabled := true;
spSkinSpeedButton24.Enabled:=true;
end;
اما الزر الخاص بإضافة المعلومات الى قاعدة البيانات فيحمل الكود التالي
procedure TForm4.spSkinSpeedButton34Click(Sender: TObject);
begin
DataModule2.ABSTableFRAIS_FORMATIONMONT_GLB.Value := strtofloat(Form4.spSkinDBEdit22.Text);
DataModule2.ABSTableFRAIS_FORMATIONID_TYPE.Value := DataModule2.ABSTableCANDIDATID_TYPE.Value;
DataModule2.ABSTableCANDIDAT.post;
DataModule2.ABSTableFRAIS_FORMATION.Post;
Form4.Enabled := false;
form11.Show;
SndPlaySound('C:\Users\Ouadah Adda\Desktop\ECHELON\Voices\Enregistrer.WAV',SND_NODEFAULT);
end;
سنواصل في الجزء المقبل
أما الشرح فسيكون في هذا الفيديو
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
قد يعجبك ايضا