ما معني هذة الرسالة - نسخة قابلة للطباعة

كود :

Public Sub delete_day2(ByVal PARENT_GUID As String)

        Dim con As New CLS_CON

        con.EXECUTE_TXT("delete from DAY2 where PAENT_GUID='" & PARENT_GUID & "'")



    End Sub

PHP كود :

Private Sub تعديلToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلToolStripMenuItem.Click
        Try

            If TXT_GUID.Text = Nothing Then
                MessageBox.Show("لايوجد سند قيد ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If


            '===============================================================================
            If TXT_D.Text = "0" Then
                MessageBox.Show("المدين =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '===============================================================================
            If TXT_C.Text = "0" Then
                MessageBox.Show("الدائن =0", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            '===============================================================================
            If TXT_DEF.Text <> "0" Then
                MessageBox.Show("القيد غير متوازن", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            update_day1()
            CLS_DAY_.delete_day2(TXT_GUID.Text)
            add_day2()
            MessageBox.Show("تمت عملية التعديل بنجاح", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

PHP كود :

Public Sub delete_day2(ByVal PARENT_GUID As double)
       Dim con As New CLS_CON
       con.EXECUTE_TXT("delete from DAY2 where PAENT_GUID=" & val(PARENT_GUID))

   End Sub 