12 | Check if the required Inputs are empty - VB.NET & SQL Server

الشرح العام: 

هذا الكود ينتمي إلى حدث النقر على زر الحفظ (btn_save).يستخدم للتحقق من إدخال المستخدم في عدة حقول نصية وخيارات (ComboBox) قبل السماح بحفظ البيانات. إذا كانت أي من الحقول فارغة، يظهر رسالة تحذيرية تطلب من المستخدم إدخال البيانات المطلوبة.

الشرح المفصل:

١. التحقق من حقل اسم الطالب:

If txt_name.Text = "" Then

    MsgBox("الرجاء كتابة اسم الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "اسم الطالب مطلوب")

            txt_name.Select()

            Return

End If

  • يتحقق إذا كان حقل txt_name فارغًا.
  • إذا كان فارغًا، تظهر رسالة تحذير للمستخدم.
  • يتم تحديد الحقل txt_name ليتمكن المستخدم من إدخال الاسم.
  • يتم استخدام Return لإنهاء الإجراء وعدم متابعة التنفيذ.


٢. التحقق من حقل مبلغ الدراسة:

If txt_fee.Text = "" Then

            MsgBox("الرجاء ادخال مبلغ الدراسة", vbMsgBoxRight + MsgBoxStyle.Exclamation, "مبلغ الدراسة مطلوب")

            txt_fee.Select()

            Return

End If

  • يتحقق إذا كان حقل txt_fee فارغًا.
  • إذا كان فارغًا، تظهر رسالة تحذير تطلب إدخال مبلغ الدراسة.
  • يتم تحديد الحقل txt_fee ليتمكن المستخدم من إدخال المبلغ.

٣. التحقق من حقل رقم هاتف ولي الأمر:

If txt_ph_parent.Text = "" Then

            MsgBox("الرجاء كتابة رقم هاتف ولي امر الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "رقم هاتف ولي امر الطالب ...")

            txt_ph_parent.Select()

            Return

End If

  • يتحقق إذا كان حقل txt_ph_parent فارغًا.
  • إذا كان فارغًا، تظهر رسالة تحذير تطلب إدخال رقم الهاتف.
  • يتم تحديد الحقل txt_ph_parent للتمكن من إدخال الرقم.

٤. التحقق من حقل صف الطالب:

If cbox_stage.Text = "" Then

            MsgBox("الرجاء تحديد صف الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "صف الطالب مطلوب ...")

            cbox_stage.Select()

            Return

End If

  • يتحقق إذا كانت ComboBox cbox_stage فارغة.
  • إذا كانت فارغة، تظهر رسالة تحذير تطلب تحديد الصف.
  • يتم تحديد cbox_stage للتمكن من اختيار الصف.

٥. التحقق من حقل السنة الدراسية:

If cbox_AcademicYear.Text = "" Then

            MsgBox("الرجاء تحديد السنة الدراسية قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "السنة الدراسية مطلوبة ...")

            cbox_AcademicYear.Select()

            Return

End If

  • يتحقق إذا كانت ComboBox cbox_AcademicYear فارغة.
  • إذا كانت فارغة، تظهر رسالة تحذير تطلب تحديد السنة الدراسية.
  • يتم تحديد cbox_AcademicYear للتمكن من اختيار السنة الدراسية.

خلاصة:

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


الكود كاملا داخل زر  btn_save

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click

        If txt_name.Text = "" Then

            MsgBox("الرجاء كتابة اسم الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "اسم الطالب مطلوب")

            txt_name.Select()

            Return

        End If

 

        If txt_fee.Text = "" Then

            MsgBox("الرجاء ادخال مبلغ الدراسة", vbMsgBoxRight + MsgBoxStyle.Exclamation, "مبلغ الدراسة مطلوب")

            txt_fee.Select()

            Return

        End If

 

        If txt_ph_parent.Text = "" Then

            MsgBox("الرجاء كتابة رقم هاتف ولي امر الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "رقم هاتف ولي امر الطالب ...")

            txt_ph_parent.Select()

            Return

        End If

 

        If cbox_stage.Text = "" Then

            MsgBox("الرجاء تحديد صف الطالب قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "صف الطالب مطلوب ...")

            cbox_stage.Select()

            Return

        End If

 

 

        If cbox_AcademicYear.Text = "" Then

            MsgBox("الرجاء تحديد السنة الدراسية قبل الحفظ", vbMsgBoxRight + MsgBoxStyle.Exclamation, "السنة الدراسية مطلوبة ...")

            cbox_AcademicYear.Select()

            Return

        End If

 

    End Sub

  • يتحقق إذا كانت ComboBox cbox_AcademicYear فارغة.


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

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




تعليقات

إرسال تعليق

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

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