14 | Clear inputs after inserting student's information into database

الشرح

txt_discount.Clear()

txt_dis_type.Clear()

txt_fee.Clear()

txt_name.Clear()

txt_notes.Clear()

txt_ph_parent.Clear()

txt_ph_st.Clear()

 

cbox_stage.SelectedIndex = 0

cbox_group.SelectedIndex = 0

cbox_AcademicYear.SelectedIndex = 1

cbox_gender.SelectedItem = Nothing

١. إفراغ الحقول النصية:

• txt_discount.Clear(): يمسح محتوى حقل إدخال نسبة الخصم.

• txt_dis_type.Clear(): يمسح محتوى حقل إدخال نوع الخصم.

• txt_fee.Clear(): يمسح محتوى حقل إدخال مبلغ الدراسة.

• txt_name.Clear(): يمسح محتوى حقل إدخال اسم الطالب.

• txt_notes.Clear(): يمسح محتوى حقل إدخال الملاحظات.

• txt_ph_parent.Clear(): يمسح محتوى حقل إدخال رقم هاتف ولي الأمر.

• txt_ph_st.Clear(): يمسح محتوى حقل إدخال رقم هاتف الطالب.

٢. إعادة تعيين عناصر ComboBox:

• cbox_stage.SelectedIndex = 0: يعيد تعيين حقل اختيار الصف إلى أول خيار.

• cbox_group.SelectedIndex = 0: يعيد تعيين حقل اختيار المجموعة إلى أول خيار.

• cbox_AcademicYear.SelectedIndex = 1: يعيد تعيين حقل اختيار السنة الدراسية إلى الخيار الثاني.

• cbox_gender.SelectedItem = Nothing: يمسح الاختيار في حقل اختيار الجنس.

خلاصة

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

الكود كاملا داخل زر  -  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

 

 

        If MsgBox("هل ترغب بحفظ معلومات الطالب", vbMsgBoxRight + MsgBoxStyle.Question + vbYesNo, Title:="جاري الحفظ ...") = vbYes Then

            Dim con As New SqlConnection(conString)

            Dim dt As New DataTable

            dt.Clear()

 

            Using cmd As New SqlCommand("INSERT INTO tbl_st_info (st_name, stage_id, group_id, registration_date, academic_year, st_gender, st_ph_no, pa_ph_no, discount, discount_type, study_fee, added_date, added_by,account_status, notes)

                                           VALUES (@st_name, @stage_id, @group_id, @registration_date, @academic_year, @st_gender, @st_ph_no, @pa_ph_no, @discount, @discount_type, @study_fee, @added_date, @added_by,@account_status, @notes)", con)

                cmd.Parameters.AddWithValue("@st_name", txt_name.Text)

                cmd.Parameters.AddWithValue("@stage_id", cbox_stage_id.Text)

                cmd.Parameters.AddWithValue("@group_id", cbox_group_id.Text)

                cmd.Parameters.AddWithValue("@registration_date", dtp_reg.Value)

                cmd.Parameters.AddWithValue("@academic_year", cbox_AcademicYear.Text)

                cmd.Parameters.AddWithValue("@st_gender", cbox_gender.Text)

                cmd.Parameters.AddWithValue("@st_ph_no", txt_ph_st.Text)

                cmd.Parameters.AddWithValue("@pa_ph_no", txt_ph_parent.Text)

                cmd.Parameters.AddWithValue("@discount", txt_discount.Text)

                cmd.Parameters.AddWithValue("@discount_type", txt_dis_type.Text)

                cmd.Parameters.AddWithValue("@study_fee", txt_fee.Text)

                cmd.Parameters.AddWithValue("@added_date", Date.Now.ToString("yyyy/MM/dd hh:mm:ss"))

                cmd.Parameters.AddWithValue("@added_by", UserLogin)

                cmd.Parameters.AddWithValue("@account_status", "مفعل")

                cmd.Parameters.AddWithValue("@notes", txt_notes.Text)

 

                cmd.CommandType = CommandType.Text

                cmd.CommandTimeout = 420

 

                con.Open()

                cmd.ExecuteNonQuery()

                con.Close()

                MsgBox("تم حفظ بيانات الطالب بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ...")

                txt_discount.Clear()

                txt_dis_type.Clear()

                txt_fee.Clear()

                txt_name.Clear()

                txt_notes.Clear()

                txt_ph_parent.Clear()

                txt_ph_st.Clear()

 

                cbox_stage.SelectedIndex = 0

                cbox_group.SelectedIndex = 0

                cbox_AcademicYear.SelectedIndex = 1

                cbox_gender.SelectedItem = Nothing

            End Using

        End If

 End Sub

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

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

للتواصل https://www.facebook.com/Info.AliAlhadithy