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

السلام عليكم ورحمة الله وبركاته

اليوم بدات باضافة كود جديد للعملات

 Sub cleare___()

        TXT_ID.Text = ""

        TXT_NAME.Text = ""

        TXT_PART.Text = ""

        TXT_VAL.Text = ""

        TXT_GUID.Text = ""

    End Sub

وايضا كود الحفظ والذي تضمن اختبارات قبل الحفظ

   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

            If CURRENCYTableAdapter.FillBy_SEARSHNAME(TXT_NAME.Text) > 0 Then

                MessageBox.Show("اسم  العملة  موجود من قبل", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit Sub

            End If

            Dim guid_ As New Guid

            guid_ = System.Guid.NewGuid

            CURRENCYTableAdapter.Insert(guid_, TXT_NAME.Text, TXT_PART.Text, Convert.ToDouble(TXT_VAL.Text))

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

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

            Me.CURRENCYBindingSource.MoveLast()

        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try

الفيديو التالي يشرح الدرس بالتوفيق للجميع