مساحة اعلانية

آخر المواضيع

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

  برمجة برنامج محاسبة 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

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

الكــاتــب

هناك تعليق واحد:

  1. ماشاء الله قمة الروعة جزاك الله الف خير اخي يوسف

    ردحذف

جميع الحقوق محفوظة لــ برامج محاسبة - استشارات و حلول لتطوير برامج محاسبة 2019 ©