كيف اقوم بحفظ معلومات delphi في قاعدة البيانات code source

[brezzage]

السلام عليكم
من فضلكم اريد مساعدة لدي قاعدة بيانات sql وتطبيق دلفي
اوجه صعوبة في حفظ البيانات الخاثة في الفورم الى جدوع علائقي في قاعدة البيانات سوف ارفق لكم كود سورس المستعمل + صورة من جدوة قاعدة البيانات
ارجو الرد في اقرب وقت وشكرا

procedure TForm4.BitBtn8Click(Sender: TObject);
begin
if (combobox1.Text = '') then showmessage(' vous aver oublier le Joure')else
 if (combobox2.Text = '' )then showmessage(' vous aver oublier Heur Début') else
  if (combobox3.Text = '') then showmessage(' vous aver oublier Heur Fin') else
 showmessage('Enregistrement réussi');
if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo6.Lines.Add(DBLookupComboBox1.Text) ;
memo6.Lines.Add(DBLookupComboBox3.Text) ;
memo6.Lines.Add(DBLookupComboBox4.Text) ;
memo6.Lines.Add(DBLookupComboBox5.Text) ;
memo6.Lines.Add(combobox4.Text)
 end ;
if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo1.Lines.Add(DBLookupComboBox1.Text) ;
memo1.Lines.Add(DBLookupComboBox3.Text) ;
memo1.Lines.Add(DBLookupComboBox4.Text) ;
memo1.Lines.Add(DBLookupComboBox5.Text) ;
memo1.Lines.Add(combobox4.Text)
 end ;
if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo7.Lines.Add(DBLookupComboBox1.Text) ;
memo7.Lines.Add(DBLookupComboBox3.Text) ;
memo7.Lines.Add(DBLookupComboBox4.Text) ;
memo7.Lines.Add(DBLookupComboBox5.Text) ;
memo7.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo13.Lines.Add(DBLookupComboBox1.Text) ;
memo13.Lines.Add(DBLookupComboBox3.Text) ;
memo13.Lines.Add(DBLookupComboBox4.Text) ;
memo13.Lines.Add(DBLookupComboBox5.Text) ;
memo13.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo19.Lines.Add(DBLookupComboBox1.Text) ;
memo19.Lines.Add(DBLookupComboBox3.Text) ;
memo19.Lines.Add(DBLookupComboBox4.Text) ;
memo19.Lines.Add(DBLookupComboBox5.Text) ;
memo19.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '08:00' ) and( combobox3.Text = '09:30' ) then
 begin
memo20.Lines.Add(DBLookupComboBox1.Text) ;
memo20.Lines.Add(DBLookupComboBox3.Text) ;
memo20.Lines.Add(DBLookupComboBox4.Text) ;
memo20.Lines.Add(DBLookupComboBox5.Text) ;
memo20.Lines.Add(combobox4.Text) ;
 end ;
  if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo12.Lines.Add(DBLookupComboBox1.Text) ;
memo12.Lines.Add(DBLookupComboBox3.Text) ;
memo12.Lines.Add(DBLookupComboBox4.Text) ;
memo12.Lines.Add(DBLookupComboBox5.Text) ;
memo12.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo2.Lines.Add(DBLookupComboBox1.Text) ;
memo2.Lines.Add(DBLookupComboBox3.Text) ;
memo2.Lines.Add(DBLookupComboBox4.Text) ;
memo2.Lines.Add(DBLookupComboBox5.Text) ;
memo2.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo9.Lines.Add(DBLookupComboBox1.Text) ;
memo9.Lines.Add(DBLookupComboBox3.Text) ;
memo9.Lines.Add(DBLookupComboBox4.Text) ;
memo9.Lines.Add(DBLookupComboBox5.Text) ;
memo9.Lines.Add(combobox4.Text) ;
 end ;
  if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo14.Lines.Add(DBLookupComboBox1.Text) ;
memo14.Lines.Add(DBLookupComboBox3.Text) ;
memo14.Lines.Add(DBLookupComboBox4.Text) ;
memo14.Lines.Add(DBLookupComboBox5.Text) ;
memo14.Lines.Add(combobox4.Text) ;
 end ;
   if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo26.Lines.Add(DBLookupComboBox1.Text) ;
memo26.Lines.Add(DBLookupComboBox3.Text) ;
memo26.Lines.Add(DBLookupComboBox4.Text) ;
memo26.Lines.Add(DBLookupComboBox5.Text) ;
memo26.Lines.Add(combobox4.Text) ;
 end ;
    if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '09:30' ) and( combobox3.Text = '11:00' ) then
 begin
memo25.Lines.Add(DBLookupComboBox1.Text) ;
memo25.Lines.Add(DBLookupComboBox3.Text) ;
memo25.Lines.Add(DBLookupComboBox4.Text) ;
memo25.Lines.Add(DBLookupComboBox5.Text) ;
memo25.Lines.Add(combobox4.Text) ;
 end ;
    if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo18.Lines.Add(DBLookupComboBox1.Text) ;
memo18.Lines.Add(DBLookupComboBox3.Text) ;
memo18.Lines.Add(DBLookupComboBox4.Text) ;
memo18.Lines.Add(DBLookupComboBox5.Text) ;
memo18.Lines.Add(combobox4.Text) ;
 end ;
    if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo3.Lines.Add(DBLookupComboBox1.Text) ;
memo3.Lines.Add(DBLookupComboBox3.Text) ;
memo3.Lines.Add(DBLookupComboBox4.Text) ;
memo3.Lines.Add(DBLookupComboBox5.Text) ;
memo3.Lines.Add(combobox4.Text) ;
 end ;
    if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo8.Lines.Add(DBLookupComboBox1.Text) ;
memo8.Lines.Add(DBLookupComboBox3.Text) ;
memo8.Lines.Add(DBLookupComboBox4.Text) ;
memo8.Lines.Add(DBLookupComboBox5.Text) ;
memo8.Lines.Add(combobox4.Text) ;
 end ;
     if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo15.Lines.Add(DBLookupComboBox1.Text) ;
memo15.Lines.Add(DBLookupComboBox3.Text) ;
memo15.Lines.Add(DBLookupComboBox4.Text) ;
memo15.Lines.Add(DBLookupComboBox5.Text) ;
memo15.Lines.Add(combobox4.Text) ;
 end ;
      if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo28.Lines.Add(DBLookupComboBox1.Text) ;
memo28.Lines.Add(DBLookupComboBox3.Text) ;
memo28.Lines.Add(DBLookupComboBox4.Text) ;
memo28.Lines.Add(DBLookupComboBox5.Text) ;
memo28.Lines.Add(combobox4.Text) ;
 end ;
       if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '11:00' ) and( combobox3.Text = '12:30' ) then
 begin
memo24.Lines.Add(DBLookupComboBox1.Text) ;
memo24.Lines.Add(DBLookupComboBox3.Text) ;
memo24.Lines.Add(DBLookupComboBox4.Text) ;
memo24.Lines.Add(DBLookupComboBox5.Text) ;
memo24.Lines.Add(combobox4.Text) ;
 end ;
        if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo21.Lines.Add(DBLookupComboBox1.Text) ;
memo21.Lines.Add(DBLookupComboBox3.Text) ;
memo21.Lines.Add(DBLookupComboBox4.Text) ;
memo21.Lines.Add(DBLookupComboBox5.Text) ;
memo21.Lines.Add(combobox4.Text) ;
 end ;
        if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo4.Lines.Add(DBLookupComboBox1.Text) ;
memo4.Lines.Add(DBLookupComboBox3.Text) ;
memo4.Lines.Add(DBLookupComboBox4.Text) ;
memo4.Lines.Add(DBLookupComboBox5.Text) ;
memo4.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo10.Lines.Add(DBLookupComboBox1.Text) ;
memo10.Lines.Add(DBLookupComboBox3.Text) ;
memo10.Lines.Add(DBLookupComboBox4.Text) ;
memo10.Lines.Add(DBLookupComboBox5.Text) ;
memo10.Lines.Add(combobox4.Text) ;
 end ;
          if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo16.Lines.Add(DBLookupComboBox1.Text) ;
memo16.Lines.Add(DBLookupComboBox3.Text) ;
memo16.Lines.Add(DBLookupComboBox4.Text) ;
memo16.Lines.Add(DBLookupComboBox5.Text) ;
memo16.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo30.Lines.Add(DBLookupComboBox1.Text) ;
memo30.Lines.Add(DBLookupComboBox3.Text) ;
memo30.Lines.Add(DBLookupComboBox4.Text) ;
memo30.Lines.Add(DBLookupComboBox5.Text) ;
memo30.Lines.Add(combobox4.Text) ;
 end ;
          if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '12:30' ) and( combobox3.Text = '14:00' ) then
 begin
memo23.Lines.Add(DBLookupComboBox1.Text) ;
memo23.Lines.Add(DBLookupComboBox3.Text) ;
memo23.Lines.Add(DBLookupComboBox4.Text) ;
memo23.Lines.Add(DBLookupComboBox5.Text) ;
memo23.Lines.Add(combobox4.Text) ;
 end ;
          if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo27.Lines.Add(DBLookupComboBox1.Text) ;
memo27.Lines.Add(DBLookupComboBox3.Text) ;
memo27.Lines.Add(DBLookupComboBox4.Text) ;
memo27.Lines.Add(DBLookupComboBox5.Text) ;
memo27.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo5.Lines.Add(DBLookupComboBox1.Text) ;
memo5.Lines.Add(DBLookupComboBox3.Text) ;
memo5.Lines.Add(DBLookupComboBox4.Text) ;
memo5.Lines.Add(DBLookupComboBox5.Text) ;
memo5.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo11.Lines.Add(DBLookupComboBox1.Text) ;
memo11.Lines.Add(DBLookupComboBox3.Text) ;
memo11.Lines.Add(DBLookupComboBox4.Text) ;
memo11.Lines.Add(DBLookupComboBox5.Text) ;
memo11.Lines.Add(combobox4.Text) ;
 end ;
          if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo17.Lines.Add(DBLookupComboBox1.Text) ;
memo17.Lines.Add(DBLookupComboBox3.Text) ;
memo17.Lines.Add(DBLookupComboBox4.Text) ;
memo17.Lines.Add(DBLookupComboBox5.Text) ;
memo17.Lines.Add(combobox4.Text) ;
 end ;
           if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo29.Lines.Add(DBLookupComboBox1.Text) ;
memo29.Lines.Add(DBLookupComboBox3.Text) ;
memo29.Lines.Add(DBLookupComboBox4.Text) ;
memo29.Lines.Add(DBLookupComboBox5.Text) ;
memo29.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '14:00' ) and( combobox3.Text = '15:30' ) then
 begin
memo22.Lines.Add(DBLookupComboBox1.Text) ;
memo22.Lines.Add(DBLookupComboBox3.Text) ;
memo22.Lines.Add(DBLookupComboBox4.Text) ;
memo22.Lines.Add(DBLookupComboBox5.Text) ;
memo22.Lines.Add(combobox4.Text) ;
end;
          if ( combobox1.Text = 'Samedi' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo31.Lines.Add(DBLookupComboBox1.Text) ;
memo31.Lines.Add(DBLookupComboBox3.Text) ;
memo31.Lines.Add(DBLookupComboBox4.Text) ;
memo31.Lines.Add(DBLookupComboBox5.Text) ;
memo31.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'dimanche' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo32.Lines.Add(DBLookupComboBox1.Text) ;
memo32.Lines.Add(DBLookupComboBox3.Text) ;
memo32.Lines.Add(DBLookupComboBox4.Text) ;
memo32.Lines.Add(DBLookupComboBox5.Text) ;
memo32.Lines.Add(combobox4.Text) ;
 end ;
         if ( combobox1.Text = 'lundi' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo33.Lines.Add(DBLookupComboBox1.Text) ;
memo33.Lines.Add(DBLookupComboBox3.Text) ;
memo33.Lines.Add(DBLookupComboBox4.Text) ;
memo33.Lines.Add(DBLookupComboBox5.Text) ;
memo33.Lines.Add(combobox4.Text) ;
 end ;
          if ( combobox1.Text = 'mardi' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo34.Lines.Add(DBLookupComboBox1.Text) ;
memo34.Lines.Add(DBLookupComboBox3.Text) ;
memo34.Lines.Add(DBLookupComboBox4.Text) ;
memo34.Lines.Add(DBLookupComboBox5.Text) ;
memo34.Lines.Add(combobox4.Text) ;
 end ;
if ( combobox1.Text = 'mercredi' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo35.Lines.Add(DBLookupComboBox1.Text) ;
memo35.Lines.Add(DBLookupComboBox3.Text) ;
memo35.Lines.Add(DBLookupComboBox4.Text) ;
memo35.Lines.Add(DBLookupComboBox5.Text) ;
memo35.Lines.Add(combobox4.Text) ;
 end ;
 if ( combobox1.Text = 'jeudi' ) and  ( combobox2.Text = '15:30' ) and( combobox3.Text = '17:00' ) then
 begin
memo36.Lines.Add(DBLookupComboBox1.Text) ;
memo36.Lines.Add(DBLookupComboBox3.Text) ;
memo36.Lines.Add(DBLookupComboBox4.Text) ;
memo36.Lines.Add(DBLookupComboBox5.Text) ;
memo36.Lines.Add(combobox4.Text) ;
end;
end;

https://e./p_97752z4h1.png