24 | Handling Clickable Buttons in DataGridView Columns (Profile, Edit, Delete)- VB.NET & SQL Server

 

شرح الكود:

الكود الذي يتم تنفيذه عند النقر على أي خلية في (DataGridView (المسمى dgv_students. يقوم

 الكود بالتحقق من العمود الذي تم النقر عليه وتنفيذ إجراءات معينة بناءً على نوع العمود.

  • sender: يشير إلى الكائن الذي تفاعل مع الحدث (في هذه الحالة هو dgv_students(.
  • e: يحتوي على معلومات حول الحدث مثل ColumnIndex و RowIndex

Private Sub dgv_students_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles
dgv_students.CellClick

  • cRow: يحدد رقم الصف (row) الذي تم النقر عليه في DataGridView.
  • يتم تعيين قيمة ID من العمود الخاص بالطالب في الصف المحدد إلى   student_post_id. هذا يتيح لنا لاحقًا معرفة أي طالب تم النقر عليه باستخدام ID
Dim cRow As Integer = dgv_students.CurrentRow.Index
student_post_id = Nothing
student_post_id = dgv_students.Rows(cRow).Cells("ID").Value

  • التحقق من العمود "profile":
  • إذا كان العمود الذي تم النقر عليه هو profile (الذي يحتوي على زر لفتح ملف الطالب)، يتم تنفيذ الكود التالي:
  • form_profile: يتم تعيينه إلى قيمة "Students List".
  • frm_st_profile.Show(): يتم عرض النموذج frm_st_profile الذي يحتوي على تفاصيل ملف الطالب.
  • Me.Close(): يتم إغلاق النموذج الحالي (في هذه الحالة Students List.(
  • Return: يوقف التنفيذ ويخرج من الدالة إذا تم النقر على هذا الزر.



If dgv_students.Columns(cColumn).Name = "profile" Then

            form_profile = "Students List"

            student_post_id = dgv_students.Rows(cRow).Cells("ID").Value

            frm_st_profile.Show()

            Me.Close()

            Return

End If



  • التحقق من العمود "edit":
  • إذا كان العمود الذي تم النقر عليه هو edit (الذي يحتوي على زر التعديل)، يتم تنفيذ الكود التالي:
  • form_add: يتم تعيينه إلى "Students List - edit".
  • Me.Enabled = False: يتم تعطيل النموذج الحالي لكي لا يتمكن المستخدم من التفاعل
         معه أثناء تعديل البيانات.
  • frm_Register_New_Student.Show(): يتم عرض نموذج frm_Register_New_Student الذي
          يتيح للمستخدم تعديل بيانات الطالب.
  • Return: يوقف التنفيذ ويخرج من الدالة إذا تم النقر على هذا الزر.


If dgv_students.Columns(cColumn).Name = "edit" Then
            form_add = "Students List - edit"
            student_post_id = dgv_students.Rows(cRow).Cells("ID").Value
            Me.Enabled = False
            frm_Register_New_Student.Show()
            Return
End If

الخلاصة:

  • يتم التعامل مع حدث النقر على الخلايا في DataGridView لتحديد ما إذا كان المستخدم قد نقر على زر "الملف الشخصي" أو "تعديل".
  • إذا تم النقر على "الملف الشخصي"، يتم فتح نموذج عرض تفاصيل الطالب (ملف الطالب) وإغلاق النموذج الحالي.
  • إذا تم النقر على "تعديل"، يتم فتح نموذج تعديل بيانات الطالب مع تعطيل النموذج الحالي لتجنب التفاعل معه أثناء التعديل.



الكود كاملا داخل حدث  -  dgv_students_CellClick

Private Sub dgv_students_CellClick(sender As Object, e As DataGridViewCellEventArgs)

Handles dgv_students.CellClick

 

        Dim cRow As Integer = dgv_students.CurrentRow.Index

        student_post_id = Nothing

        student_post_id = dgv_students.Rows(cRow).Cells("ID").Value

 

        'MsgBox(student_post_id)

 

        Dim cColumn As Integer = e.ColumnIndex

 

        If dgv_students.Columns(cColumn).Name = "profile" Then

            form_profile = "Students List"

            student_post_id = dgv_students.Rows(cRow).Cells("ID").Value

            frm_st_profile.Show()

            Me.Close()

            Return

        End If

 

        If dgv_students.Columns(cColumn).Name = "edit" Then

            form_add = "Students List - edit"

            student_post_id = dgv_students.Rows(cRow).Cells("ID").Value

            Me.Enabled = False

            frm_Register_New_Student.Show()

            Return

        End If

    End Sub

إذا كان لديك أي أسئلة أخرى أو تحتاج إلى مزيد من التوضيح، فلا تتردد في طرحها!


يمكنكم متابعة الدرس عن طريق اليوتيوب







تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

26 | Filter Students List based on students' stage and Group in DataGridView - VB.NET & SQL Server

صورة
أولاً :  cbox_stage_SelectedIndexChanged   شرح الكود : هذا الكود يتعامل مع الحدث SelectedIndexChanged للـ ComboBox المسمى cbox_stage ، حيث يقوم بتحديث cbox_group بناءً على stage المختار في cbox_stage . ١ . الحدث SelectedIndexChanged : Private Sub cbox_stage_SelectedIndexChanged(sender As Object , e As EventArgs) Handles cbox_stage.SelectedIndexChanged هذا الحدث يُنفَّذ كلما تم تغيير اختيار cbox_stage ، أي عندما يختار المستخدم قيمة مختلفة في الـ ComboBox . ٢ . إعداد الاتصال بقاعدة البيانات : Dim con As New SqlConnection(conString) Dim dtstage As New DataTable() dtstage.Clear() يتم إنشاء SqlConnection باستخدام ( conString ( السلسلة التي تحتوي على تفاصيل الاتصال بقاعدة البيانات . يتم أيضًا إنشاء DataTable جديد يُستخدم لتخزين البيانات المسترجعة من قاعدة البيانات . ٣ . مسح مصدر البيانات للمجموعة : cbox_group.DataSource = Nothing قبل تحميل البيانات الجديدة للمجموعة ( cbox_group )، يتم مسح DataSource الحالي. ٤ . إعداد استعلام SQL: Usi...
قراءة المزيد

7 | Display column's stages from the database into ComboBox's Stage - VB.NET & SQL Server

صورة
١. تعريف المتغيرات: Dim con As New SqlConnection(conString) Dim dtstages As New DataTable con: يقوم بإنشاء اتصال جديد بقاعدة البيانات باستخدام سلسلة الاتصال conString. dtstages: هو كائن من نوع DataTable، يُستخدم لتخزين البيانات التي سيتم استرجاعها من قاعدة البيانات. ٢. مسح محتويات dtstages dtstages.Clear() يتم مسح أي بيانات قد تكون موجودة سابقًا في dtstages لضمان أن البيانات الجديدة ستكون نظيفة. ٣. فتح الاتصال: con.Open() يتم فتح الاتصال بقاعدة البيانات. ٤. استخدام الأمر SqlCommand: Using cmd As New SqlCommand("SELECT ID,stage FROM tbl_stages WHERE status='Available'", con) يتم إنشاء كائن جديد من SqlCommand لتنفيذ استعلام SQL، والذي يقوم باختيار ID و**stage** من جدول tbl_stages حيث الحالة (status) هي "متاحة" (Available). con: هو الاتصال بقاعدة البيانات الذي سيتم استخدامه لتنفيذ الأمر. ٥. تعيين نوع الأمر ووقت التنفيذ: cmd.CommandType = CommandType.Text cmd.CommandTimeout = 420 CommandType.Text: يشير إلى أن الأمر هو نص SQL عادي. CommandTimeout: يحدد الوقت ا...
قراءة المزيد

22 - 23 | View Students Infromation from Database to Datagridview - VB.NET & SQL Server

صورة
  اولاً :  عرض قائمة الطلاب في dgvStudents. في هذا الكود، يتم جلب بيانات الطلاب من قاعدة بيانات باستخدام استعلام  SQL ، ثم عرضها في  DataGridView . الأدوات الرئيسية التي يتم استخدامها هي  SqlConnection  للاتصال بقاعدة البيانات،  SqlCommand  لتنفيذ الاستعلامات، وDataTable لتخزين البيانات قبل عرضها في واجهة المستخدم باستخدام  DataGridView . شرح الكود : دالة  load_st_info_to_dgv   تقوم بتحميل بيانات الطلاب من قاعدة البيانات إلى  DataGridView   في واجهة المستخدم . ١ .  إنشاء الاتصال بقاعدة البيانات : يتم إنشاء  كائن اتصال   SqlConnection   باستخدام السلسلة  conString ، التي تحتوي على تفاصيل الاتصال بقاعدة البيانات .   Dim  con  As   New  SqlConnection(conString) ٢ .  إعداد  DataTable: يتم إنشاء  كائن  DataTable   جديد لتخزين البيانات التي سيتم تحميلها من قاعدة البيانات .          Dim  dt  As   New  DataT...
قراءة المزيد