اكواد الأضافة والحفظ والتعديل وحفظ التعديل

كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



        ' On Error Resume Next

        If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub



        Using Command As New OleDbCommand("SELECT MAX( TxtBoID) FROM emp", con)

            If con.State = ConnectionState.Closed Then con.Open()

            If Command.ExecuteScalar Is DBNull.Value Then



                Call SetState("Add")

                InfoBookmark = InfoManager.Position

                InfoManager.AddNew()



                TxtBoID.Text = 1

               

                TxtBoNa.Focus()



                TxtBoID.Enabled = False



                TxtBoNa.Enabled = True

                TxtBoRe.Enabled = True

                TxtNoWadeafa.Enabled = True

                TxtBoYestart.Enabled = True



                TextBox61.Enabled = False

                ComboBox1.Enabled = False





                Button5.Enabled = False

                Button7.Enabled = True

                Button8.Enabled = False



                Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False

            Else



                Call SetState("Add")

                InfoBookmark = InfoManager.Position

                InfoManager.AddNew()



                TxtBoID.Text = Command.ExecuteScalar().ToString() + 1





                TxtBoNa.Focus()



                TxtBoID.Enabled = False



                TxtBoNa.Enabled = True

                TxtBoRe.Enabled = True

                TxtNoWadeafa.Enabled = True

                TxtBoYestart.Enabled = True



                TextBox61.Enabled = False

                ComboBox1.Enabled = False





                Button5.Enabled = False

                Button7.Enabled = True

                Button8.Enabled = False



                Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False

            End If

        End Using

        con.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        ' On Error Resume Next

        If TxtBoNa.Text.Trim = "" Then

            ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل رقم الطّالب فارغا")

            MessageBox.Show("الرجاء عدم ترك حقل اسم الطّالب فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TxtBoNa.Focus()

            Exit Sub

        End If

        If TxtBoRe.Text.Trim = "" Then

            ErrorProvider1.SetError(TxtBoRe, "الرجاء عدم ترك حقل كود الطّالب فارغا")

            MessageBox.Show("الرجاء عدم ترك حقل رقم القيد فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TxtBoRe.Focus()

            Exit Sub

        End If

        If TxtBoYestart.Text.Trim = "" Then

            ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل اسم الطّالب فارغا")

            MessageBox.Show("الرجاء عدم ترك حقل سنة التخرج فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TxtBoYestart.Focus()

            Exit Sub



        ElseIf MsgBox("هل تريد حفظ السجل الحالي", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "تأكيد الحفظ") = MsgBoxResult.No Then

        ElseIf TxtBoNa.Text = "" Then

            MsgBox("الرجاء كتابة الرقم التسلسلي", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")

        End If



        Dim Checknum As String = ""

        Using Check As New OleDbCommand With {.Connection = con, .CommandText = "SELECT ID FROM emp WHERE TxtBoID = @TxtBoID "}

            Check.Parameters.Add("@TxtBoID", OleDbType.Integer).Value = Convert.ToInt32(TxtBoID.Text.Trim)

            If con.State = ConnectionState.Closed Then con.Open()

            Checknum = Check.ExecuteScalar

            con.Close()

        End Using



        If Checknum <> "" Then

            MsgBox("عفوًا .. هذا الطّالب سبق تسجيله في النّظام و لا يمكن تكرار تسجيله بنفس رقم القيد ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight, " خطأ في التسجيل ")

            Exit Sub

        Else

            Using Command As New OleDbCommand With {.Connection = con}

                With Command

                    .CommandText = "INSERT INTO emp(TxtBoID,TNatiID,TxtBoRe,TGender,TxtBoNa,TxtFathNam,TxtGraNam,TxtSurNam,TxtMothNam,TxtMotFatNam,TxtMsur,TxtBathPla,TBirthMonth,TNationality,ComboBox3,TxtNumFam,TxtBaladia,TxtMahlla,ComboBox4,TTaeenNo,Ttarekheh,TxtBoYestart,TxtNoWadeafa,TxtMoneyNo,TxtMalakNo,TGuraCardNo,TCardNo,TBank,TBankBranch,TBankAco,TxtCert,TTimeQual,TQualState,TQualPlace,TxtSpicial,TDgreeEmp,TxtNoQrar,TxtTarekhQrar,TSefatoh,TTimeNexDeg)" & _

                    "VALUES(@TxtBoID,@TNatiID,@TxtBoRe,@TGender,@TxtBoNa,@TxtFathNam,@TxtGraNam,@TxtSurNam,@TxtMothNam,@TxtMotFatNam,@TxtMsur,@TxtBathPla,@TBirthMonth,@TNationality,@ComboBox3,@TxtNumFam,@TxtBaladia,@TxtMahlla,@ComboBox4,@TTaeenNo,@Ttarekheh,@TxtBoYestart,@TxtNoWadeafa,@TxtMoneyNo,@TxtMalakNo,@TGuraCardNo,@TCardNo,@TBank,@TBankBranch,@TBankAco,@TxtCert,@TTimeQual,@TQualState,@TQualPlace,@TxtSpicial,@TDgreeEmp,@TxtNoQrar,@TxtTarekhQrar,@TSefatoh,@TTimeNexDeg)"





                    .Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)

                    .Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text

                    .Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text

                    .Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text

                    .Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text

                    .Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text

                    .Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text

                    .Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text

                    .Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text

                    .Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text

                    .Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text

                    .Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text

                    .Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text

                    .Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text

                    .Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text

                    .Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text

                    .Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text

                    .Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text

                    .Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text

                    .Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text

                    .Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text

                    .Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text

                    .Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text

                    .Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text

                    .Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text

                    .Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text

                    .Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text

                    .Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text

                    .Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text

                    .Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text

                    .Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text

                    .Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text

                    .Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text

                    .Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text

                    .Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text

                    .Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text

                    .Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text

                    .Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text

                    .Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text

                    .Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text





                End With



                If con.State = ConnectionState.Closed Then con.Open()

                If Command.ExecuteNonQuery() = 1 Then

                    MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ إجراء الإضافة")



                    Call Di_Refresh()

                    Call RecordStudent()

                    Call ShowRelated()



                Else

                    MsgBox("تأكد من إدخال جميع البيانات وبالصورة الصحيحة", MsgBoxStyle.MsgBoxRtlReading, "إدخال خاطئ أو غير مكتمل")

                End If

                con.Close()

            End Using

        End If

        Button1.Enabled = True

        Button2.Enabled = False



        Button5.Enabled = True



        Button7.Enabled = False

        Button8.Enabled = True

        Button9.Enabled = True

        Button10.Enabled = True

        Button11.Enabled = True

        Button12.Enabled = True





    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)

        If MsgBox("  هل أنت متأكّد من أنك تريد تعديل بيانات هذا الطّالب :  " & TxtBoNa.Text & "  ؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "تحذير") = MsgBoxResult.No Then

            Exit Sub

        Else

            Call SetState("Edit")

            Button1.Enabled = False

            Button2.Enabled = False



            Button5.Enabled = False



            Button7.Enabled = True

            Button8.Enabled = True

            Button9.Enabled = True

            Button10.Enabled = True

            Button11.Enabled = True

            Button12.Enabled = True





        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)

        ' If TxtBoNa.Text = "" Then

        ' MsgBox("الرجاء كتابة اسم الطالب", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")

        '  Else



        Using Command As New OleDbCommand

            With Command

                .CommandText = "UPDATE emp SET TNatiID= @TNatiID,TxtBoRe= @TxtBoRe,TGender= @TGender,TxtBoNa= @TxtBoNa,TxtFathNam= @TxtFathNam,TxtGraNam= @TxtGraNam,TxtSurNam= @TxtSurNam,TxtMothNam= @TxtMothNam,TxtMotFatNam= @TxtMotFatNam,TxtMsur= @TxtMsur,TxtBathPla= @TxtBathPla,TBirthMonth= @TBirthMonth,TNationality= @TNationality,ComboBox3= @ComboBox3,TxtNumFam= @TxtNumFam,TxtBaladia= @TxtBaladia,TxtMahlla= @TxtMahlla,ComboBox4= @ComboBox4,TTaeenNo= @TTaeenNo,Ttarekheh= @Ttarekheh,TxtBoYestart= @TxtBoYestart,TxtNoWadeafa= @TxtNoWadeafa,TxtMoneyNo= @TxtMoneyNo,TxtMalakNo= @TxtMalakNo,TGuraCardNo= @TGuraCardNo,TCardNo= @TCardNo,TBank= @TBank,TBankBranch= @TBankBranch,TBankAco= @TBankAco,TxtCert= @TxtCert,TTimeQual= @TTimeQual,TQualState= @TQualState,TQualPlace= @TQualPlace,TxtSpicial= @TxtSpicial,TDgreeEmp= @TDgreeEmp,TxtNoQrar= @TxtNoQrar,TxtTarekhQrar= @TxtTarekhQrar,TSefatoh= @TSefatoh,TTimeNexDeg= @TTimeNexDeg WHERE TxtBoID = @TxtBoID"

                .Connection = con







                .Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)

                .Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text

                .Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text

                .Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text

                .Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text

                .Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text

                .Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text

                .Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text

                .Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text

                .Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text

                .Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text

                .Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text

                .Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text

                .Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text

                .Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text

                .Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text

                .Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text

                .Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text

                .Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text

                .Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text

                .Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text

                .Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text

                .Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text

                .Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text

                .Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text

                .Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text

                .Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text

                .Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text

                .Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text

                .Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text

                .Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text

                .Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text

                .Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text

                .Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text

                .Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text

                .Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text

                .Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text

                .Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text

                .Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text

                .Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text







                If con.State = ConnectionState.Closed Then con.Open()

                If Command.ExecuteNonQuery() = 1 Then

                    MsgBox("تمت عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")



                    Call Di_Refresh()



                Else

                    MsgBox("لم تتم عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")

                End If

                con.Close()

            End With

        End Using

        Button1.Enabled = True

        Button2.Enabled = True



        Button5.Enabled = True



        Button7.Enabled = True

        Button8.Enabled = True



        'TxtBoID.Enabled = True

        TxtBoNa.Enabled = True

        TxtBoRe.Enabled = True

        TxtNoWadeafa.Enabled = True

        TxtBoYestart.Enabled = True



        Button9.Enabled = True

        Button10.Enabled = True

        Button11.Enabled = True

        Button12.Enabled = True







    End Sub