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

آخر المواضيع

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

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

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

الكــاتــب

هناك 6 تعليقات:

  1. eToro is the #1 forex broker for newbie and professional traders.

    ردحذف
  2. نیما کو

    شرکت تبلیغاتی نیما کو دارای تجربه و خلاقیت لازم برای دستیابی به نتایج از طریق تبلیغات هستند.

    ردحذف
  3. طراحی گرافیک تبلیغات و طراحی و توسعه در graphictablighat حرفه و رشته تحصیلی است که فعالیت آن شامل طرح ارتباطات بصری با هدف انتقال پیام های خاص به گروه های اجتماعی با اهداف خاص است.

    ردحذف
  4. سلام وقت بخیر

    مطالبتون عالی بود و جامع.

    در صورت نیاز به سفارش طراحی لوگو در ریوال آنلاین با مرکز روابط عمومی آژانس در تماس باشید.

    ردحذف

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