منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال.. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+---- قسم : اسئلة تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=203)
+---- الموضوع : سؤال.. (/showthread.php?tid=36388)



سؤال.. - نايف 2006 - 13-09-20

السلام عليكم ورحمة الله وبركاته .
أيها الإخوة الكرام عندي مشكلة في نقل البيانات من الفورم ا
الى الفورم 2
ومعضلتي الاتي :
-------------------------------------------
لفورم  1
يوجد فيه أداة GridControl1
تحتوي البيانات على :
الاسم :
تاريخ الميلاد:
وقت الميلاد:
 
اريد عندما أقوم بالضغط على
امر التعديل SimpleButton1
نقل البيانات الى الفوم 2  لتعديل بيانات
الشخص المحددة في الأداة GridControl1.
-------------------------------------------
الفوم 2
يوجد فيه أداة
TextEdit1 الاسم:
DateTimePicker1 تاريخ الميلاد :
DateTimePicker2 وقت الولادة :
-------------------------------------------
جزيل الشكر والتقدير لكل من ساعدني واسال الله ان يفتح  عليه ويبارك فيه وان يزيده علما .


RE: سؤال.. - محمد العامر - 14-09-20

عليكم السلام ورحمة الله وبركاته
أذا أمكن أن ترفق مشروع كمثال وابشر بالخير


RE: سؤال.. - عبد العزيز البسكري - 14-09-20

السّلام عليكم و رحمة الله و بركاته
إضافة لما تقدّم به الأخ الغالي محمد العامر بارك الله فيه و له و جزاه خير الجزاء
للقيام بهذه المسألة .. يستحسن القيام بما يلي ..
بالفورم 2 .. نقوم بإضافة ما يسمّى RepositoryItemButtonEdit1
كيف نعملها يا غالي ؟
شوف هذا الفيديو و لواحقه لأستاذنا ملهم الصويعي بارك الله فيه و له و جزاه خير الجزاء
https://www.youtube.com/watch?v=3joBvBBxFb8
بعد ذلك .. بالفورم 2 دائما .. نضع هذا الكود كمثال ..
كود :
   Private Sub RepositoryItemButtonEdit1_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit1.Click
       Try
           Form1.TextBox1.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Name").ToString
           Form1.DateTimePicker1.EditValue = Format(GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Date_Naissance"), "yyyy-MM-dd")
           Form1.TextBox2.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "MOWAKKAL_Lieu_Naissance").ToString
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       animateWin(Me, False)
       Me.Dispose()
   End Sub

طبعا الجريد كنترول 1 بالفورم 2 يتم تعبئته .. التعبئة العادية ..
كود :
   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Call Sondoss_Connection()

       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter
       DT.Clear()
       DA = New SqlClient.SqlDataAdapter("SELECT MOWAKKAL_Code , MOWAKKAL_Name, MOWAKKAL_Date_Naissance, MOWAKKAL_Lieu_Naissance  From TBL_MOWAKKAL", Conne_2020)
       DA.Fill(DT)
       GridControl1.DataSource = DT
     End Sub

مكتبة الديف إكسبرس و أمثلتها ينتج عنها الحجم الكبير للملف ممّا تعذر وضع المثال
تحياتي و إحتراماتي



RE: سؤال.. - نايف 2006 - 14-09-20

الف الف الف شكر يا استاذنا القدير والعزير / عبد العزيز البسكري
كما اشكر الاخوة الذين تم التعريف بهم .
واسال الله تعالي ان يجعل هذه الاعمال في موازين حسناتكم.