المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
27-02-20, 12:16 AM
(آخر تعديل لهذه المشاركة : 27-02-20, 12:21 AM {2} بواسطة aldery.)
السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(27-02-20, 12:16 AM)aldery كتب : السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
27-02-20, 01:27 AM
(آخر تعديل لهذه المشاركة : 27-02-20, 01:28 AM {2} بواسطة aldery.)
(27-02-20, 01:07 AM)alsalamoni كتب : (27-02-20, 12:16 AM)aldery كتب : السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(27-02-20, 01:27 AM)aldery كتب : (27-02-20, 01:07 AM)alsalamoni كتب : (27-02-20, 12:16 AM)aldery كتب : السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
(27-02-20, 01:30 AM)alsalamoni كتب : (27-02-20, 01:27 AM)aldery كتب : (27-02-20, 01:07 AM)alsalamoni كتب : (27-02-20, 12:16 AM)aldery كتب : السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء
كود :
Dim frm As New Form4
frm.id = dgvbooks1.CurrentRow.Cells(0).Value
frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
frm.ShowDialog()
كود :
Public Class Form4
Public id As Integer
Public full1 As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = id
TextBox2.Text = full1
End Sub
End Class
بهذا الشكل تقصد أم خطأ
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(27-02-20, 01:34 AM)aldery كتب : (27-02-20, 01:30 AM)alsalamoni كتب : (27-02-20, 01:27 AM)aldery كتب : (27-02-20, 01:07 AM)alsalamoni كتب : (27-02-20, 12:16 AM)aldery كتب : السلام عليكم : كيف حالكم أن شاء الله بخير يارب
أعمل على مشروع ادارة طلاب و وقفت عند مشكلة لم أستطع حلها او معرف الطريقة أحتاج كود عند الضغط على أسم في DataGridView يقوم بفتح فورم أخر ويعرض لي البيانات الخاصة في الشخص مع الصورة وهذه صور توضح الفكرة
طبعاً البيانات مخزنة في sql server
وشكراً لكم
في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء
كود :
Dim frm As New Form4
frm.id = dgvbooks1.CurrentRow.Cells(0).Value
frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
frm.ShowDialog()
كود :
Public Class Form4
Public id As Integer
Public full1 As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = id
TextBox2.Text = full1
End Sub
End Class
بهذا الشكل تقصد أم خطأ
تمام ولا داعي ل Public full1 As Integer
يبقي ان تضيف كود الاستعلام داخل Form4_Load مثل
كود :
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dim da as new sqldataadapter("select * from table where id=" & id,conn)
dim dt as new datatable
da.fill(dt)
dim r as datarow=dt.rows(0)
textbox1.text=r("id")
textbox2.text=r("name")
textbox3.text=r("mothername")
'
'
end sub
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
(27-02-20, 01:40 AM)alsalamoni كتب : (27-02-20, 01:34 AM)aldery كتب : (27-02-20, 01:30 AM)alsalamoni كتب : (27-02-20, 01:27 AM)aldery كتب : (27-02-20, 01:07 AM)alsalamoni كتب : في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل
كود :
Public id As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub
في فورم الداتاجريد افتح الفورم Form4 بهذا الكود
كود :
Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog
أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء
كود :
Dim frm As New Form4
frm.id = dgvbooks1.CurrentRow.Cells(0).Value
frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
frm.ShowDialog()
كود :
Public Class Form4
Public id As Integer
Public full1 As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = id
TextBox2.Text = full1
End Sub
End Class
بهذا الشكل تقصد أم خطأ
تمام ولا داعي ل Public full1 As Integer
يبقي ان تضيف كود الاستعلام داخل Form4_Load مثل
كود :
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dim da as new sqldataadapter("select * from table where id=" & id,conn)
dim dt as new datatable
da.fill(dt)
dim r as datarow=dt.rows(0)
textbox1.text=r("id")
textbox2.text=r("name")
textbox3.text=r("mothername")
'
'
end sub
شكراً لكم و جزاك الله خيراً
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(27-02-20, 03:50 AM)aldery كتب : (27-02-20, 01:40 AM)alsalamoni كتب : (27-02-20, 01:34 AM)aldery كتب : (27-02-20, 01:30 AM)alsalamoni كتب : (27-02-20, 01:27 AM)aldery كتب : أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id
لدي textbox عدد 6 + PictureBox1
لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء
كود :
Dim frm As New Form4
frm.id = dgvbooks1.CurrentRow.Cells(0).Value
frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
frm.ShowDialog()
كود :
Public Class Form4
Public id As Integer
Public full1 As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = id
TextBox2.Text = full1
End Sub
End Class
بهذا الشكل تقصد أم خطأ
تمام ولا داعي ل Public full1 As Integer
يبقي ان تضيف كود الاستعلام داخل Form4_Load مثل
كود :
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dim da as new sqldataadapter("select * from table where id=" & id,conn)
dim dt as new datatable
da.fill(dt)
dim r as datarow=dt.rows(0)
textbox1.text=r("id")
textbox2.text=r("name")
textbox3.text=r("mothername")
'
'
end sub
شكراً لكم و جزاك الله خيراً
العفو اخي
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
كود :
Try
Dim currentrw As Integer
currentrw = DataGridView1.CurrentRow.Index
With form2
.textbox1.Text = DataGridView1.Item(1, currentrw).Value.ToString
.textbox2.Text = DataGridView1.Item(2, currentrw).Value.ToString
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
هذا مثال اخر اتمنى ان يكون ذو فائده
المشاركات : 7
المواضيع 4
الإنتساب : Apr 2016
السمعة :
0
الشكر: 15
تم شكره 1 مرات في 1 مشاركات
(27-02-20, 09:36 PM)alsalamoni كتب : (27-02-20, 03:50 AM)aldery كتب : (27-02-20, 01:40 AM)alsalamoni كتب : (27-02-20, 01:34 AM)aldery كتب : (27-02-20, 01:30 AM)alsalamoni كتب : لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها
ولكن ممكن تضع مشروعك ليتم التعديل عليه
كود :
Dim frm As New Form4
frm.id = dgvbooks1.CurrentRow.Cells(0).Value
frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
frm.ShowDialog()
الف شكر استفدت من المعلومات
كود :
Public Class Form4
Public id As Integer
Public full1 As Integer
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = id
TextBox2.Text = full1
End Sub
End Class
بهذا الشكل تقصد أم خطأ
تمام ولا داعي ل Public full1 As Integer
يبقي ان تضيف كود الاستعلام داخل Form4_Load مثل
كود :
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dim da as new sqldataadapter("select * from table where id=" & id,conn)
dim dt as new datatable
da.fill(dt)
dim r as datarow=dt.rows(0)
textbox1.text=r("id")
textbox2.text=r("name")
textbox3.text=r("mothername")
'
'
end sub
شكراً لكم و جزاك الله خيراً
العفو اخي
|