[نورالدين32]

  ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 38)
  ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 38)
  ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 38)
  ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 38)

(29-10-18, 06:19 PM)elgokr كتب :

لا تحتاج الى تغيير النسخة او ما شبه

فقط قم بوضع كود الفورة هنا كاملاً

حتى يتم التعديل عليه بسيطاً وتوضيح ما تم فعله لتجنب تلك التنبيه

تحياتى لك

وتمنياتى لك التوفيق

هذا الكود مع ملف السورس في المرفقات

Public Class FRM_ACCOUNT
    Dim CLS_ACCOUNT_ As New CLS_ACCOUNT
    Dim CLS_END_ As New CLS_END
    Dim COD__ As New FRM_ACCOUNT

    Private Sub FRM_ACCOUNT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            CMB_()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
    Sub cmb_()
        Dim dt As New DataTable
        dt.Clear()
        dt = CLS_END_.SHOW_
        CMB_END.DataSource = dt
        CMB_END.ValueMember = "id"
        CMB_END.DisplayMember = "name"
    End Sub
    Sub CREATENODE()
        Dim TRN As New TreeNode
        Dim DT As New DataTable
        DT.Clear()
        DT = CLS_ACCOUNT_.SHOW_
        For I As Integer = 0 To DT.Rows.Count - 1
            If DT.Rows(I)(2).ToString() = "00000000-0000-0000-0000-000000000000" Then
                TRN = New TreeNode(DT.Rows(I)(1).ToString())
                TRN.Tag = DT.Rows(I)(0).ToString()
                TreeView1.Nodes.Add(TRN)
            End If
        Next
        For Each NODE As TreeNode In TreeView1.Nodes
            CHELD(NODE)


        Next
    End Sub

    Sub CHELD(ByVal NODE As TreeNode)
        Dim TRN As New TreeNode
        Dim DT As New DataTable
        DT.Clear()
        DT = CLS_ACCOUNT_.SHOW_
        For I As Integer = 0 To DT.Rows.Count - 1
            Dim GUID_ As String = NODE.Tag
            If DT.Rows(I)(2).ToString() = GUID_ Then
                TRN = New TreeNode(DT.Rows(I)(1).ToString())
                TRN.Tag = DT.Rows(I)(0).ToString()
                NODE.Nodes.Add(TRN)
                CHELD(TRN)
            End If
        Next

    End Sub

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Try
            CREATENODE()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)

        End Try
    End Sub

    Private Sub CMB_END_KeyPress(sender As Object, e As KeyPressEventArgs) Handles CMB_END.KeyPress
        e.Handled = True

    End Sub

    Private Sub CMB_END_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMB_END.SelectedIndexChanged

    End Sub

    Private Sub ButtonX4_Click(ByVal sender As Object, e As System.EventArgs) Handles ButtonX4.Click
        Try
            Dim F As New FRM_ALL_ACCOUNT
            F.ShowDialog()
            If F.IS_YES = True Then
                Dim I As Integer = F.DGV.CurrentRow.Index
                TXT_GUID_PARENT.Text = F.DGV.Rows(I).Cells(0).Value.ToString()
                TXT_PARENT.Text = F.DGV.Rows(I).Cells(1).Value.ToString()
                TXT_CODE_PARENT_GUIDE.Text = F.DGV.Rows(I).Cells(3).Value.ToString()
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
        Try
            If TXT_NAME.Text = Nothing Then
                MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '------------------------------------------------------------------------
            If TXT_GUID_PARENT.Text = Nothing Then
                MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '------------------------------------------------------------------------
            Dim DT As New DataTable
            DT.Clear()
            DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
            If DT.Rows.Count > 0 Then
                MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
                '------------------------------------------------------------------------

                Dim COD__ As Double = 0

                Dim DT_COD As New DataTable
                DT_COD.Clear()
                DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
                If DT_COD.Rows.Count > 0 Then
                    COD__ = Val(DT_COD.Rows(0)(0).ToString())
                End If
                If COD__ = "0" Then
                    COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001

                End If
                '------------------------------------------------------------------------
                CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
                MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
End Class