برمجة برنامج محاسبة vb.net+sql-العملات تكملة -8

السلام عليكم ورحمة الله وبركاته
في درسنا الجديد  قمنا باضافة اكواد التعديل والحذف

كود التعديل

      Try

            If TXT_GUID.Text = "" Then

                MessageBox.Show("لايمكن التعديل")

                Exit Sub

            End If

            If TXT_NAME.Text = "" Then

                MessageBox.Show("اسم العملة فارغ")

                Exit Sub

            End If

            If TXT_VAL.Text = "" Or TXT_VAL.Text = "0" Then

                MessageBox.Show("  سعر العملة غير صحيح")

                Exit Sub

            End If

            CURRENCYTableAdapter.Update(TXT_NAME.Text, TXT_PART.Text, Convert.ToDouble(TXT_VAL.Text), System.Guid.Parse(TXT_GUID.Text))

            MessageBox.Show("تمت عملية التعديل بنجاح")

            Me.CURRENCYTableAdapter.Fill(Me.DataSet1.CURRENCY)

            Me.CURRENCYBindingSource.MoveLast()

        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try

كود الحذف

 Try

            If TXT_GUID.Text = "" Then

                MessageBox.Show("لايمكن حذف الاسم لانه غير موجود ", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit Sub

            End If

            If MessageBox.Show("هل متاكد من الحذف", "تاكيد", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = DialogResult.OK Then

                CURRENCYTableAdapter.Delete(Guid.Parse(TXT_GUID.Text))

                MessageBox.Show(" تمت عملية الحذف  بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Me.CURRENCYTableAdapter.Fill(Me.DataSet1.CURRENCY)

                Me.CURRENCYBindingSource.MoveLast()

            End If

        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try

    End Sub

والفيديو التالي يشرح الاكواد