السلام عليكم
من فضلكم اريد مساعدة لدي قاعدة بيانات 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