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

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


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







تعليقات

إرسال تعليق

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

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: يحدد الوقت ا...
قراءة المزيد

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...
قراءة المزيد

8 | Get selected Stage and Group IDs from their ComboBoxes - VB.NET & SQL Server

صورة
 ١. تعريف الإجراء : Private Sub cbox_group_SelectedIndexChanged(...) : هذا هو إجراء خاص (Sub) يتم تنفيذه عندما يتغير العنصر المحدد في ComboBox يسمى cbox_group . sender As Object : يمثل العنصر الذي تم تغيير اختياره (في هذه الحالة، cbox_group ). e As EventArgs : يمثل معلومات الحدث، وهي قياسية في أحداث .NET. ٢. التعامل مع الحدث : Handles cbox_group.SelectedIndexChanged : تشير إلى أن هذا الإجراء سيتم استدعاؤه عند تغيير الفهرس المحدد في cbox_group . ٣. التحقق من الفهرس المحدد : If cbox_group.SelectedIndex = 0 Then : يتحقق مما إذا كان الفهرس المحدد في cbox_group هو 0 (أي الخيار الأول في القائمة). إذا كان صحيحًا، يتم تنفيذ الكود داخل هذا الشرط. ٤. تحديث cbox_group_id : cbox_group_id.Text = "" : إذا كان الفهرس 0، يتم مسح النص في cbox_group_id . Else : إذا كان الفهرس المحدد ليس 0، يتم تنفيذ الكود التالي. cbox_group_id.Text = cbox_group.SelectedIndex : يتم تعيين نص cbox_group_id إلى قيمة الفهرس المحدد في cbox_group . خلاصة : هذا الكود يقوم بتحديث عنصر ComboBox آخر يسمى cbox_group_i...
قراءة المزيد