كيف اقوم بحفظ معلومات delphi في قاعدة البيانات code source - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...


في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

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

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2018-09-04, 15:45   رقم المشاركة : 1
معلومات العضو
brezzage
عضو مميّز
 
الصورة الرمزية brezzage
 

 

 
إحصائية العضو










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

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






 

رد مع اقتباس
مساحة إعلانية

إضافة رد

الكلمات الدلالية (Tags)
delphi

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 20:38

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2019 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright © 2018 vBulletin Solutions, Inc