برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة

PHP كود :

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        SQLListBasicData = "SELECT * FROM BasicData"

        DataSetListBasicData.Clear()
        SQLListBasicData = "SELECT * FROM BasicData WHERE IDFamilyBook LIKE '%" & TxTIDFamilyBook.Text & "%' and GuardianName LIKE '%" & TxTGuardianName.Text & "%'"

        Dim DataAdapterListBasicData As New OleDbDataAdapter(SQLListBasicData, Conn)
        DataAdapterListBasicData.Fill(DataSetListBasicData, "BasicData")

        Conn.Close()



        TxTHideIDFamilyBook.DataBindings.Clear()
        TxTHideIDFamilyBook.DataBindings.Add("Text", DataSetListBasicData, "BasicData.IDFamilyBook")

        TxTViewGuardianName.DataBindings.Clear()
        TxTViewGuardianName.DataBindings.Add("Text", DataSetListBasicData, "BasicData.GuardianName")


        GV.DataSource = DataSetListBasicData
        GV.DataMember = "BasicData"
        GV.Refresh()


        GV.Columns(0).Visible = False
        GV.Columns(1).HeaderText = "اسم المجموعة"
        GV.Columns(2).HeaderText = "الرقم"
        GV.Columns(3).HeaderText = "الاسم"
        GV.Columns(4).HeaderText = "مكان الإقامة"
        GV.Columns(5).Visible = False
        GV.Columns(6).Visible = False
        GV.Columns(7).Visible = False
        GV.Columns(8).Visible = False

        GV.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub

PHP كود :

 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        SQLListAid = "SELECT * FROM ListAid"

        DataSetListAid.Clear()
        SQLListAid = "SELECT * FROM ListAid WHERE AidName LIKE '%" & TxTAidName.Text & "%' and AidProvider LIKE '%" & TxTAidProvider.Text & "%'"

        Dim DataAdapterListAid As New OleDbDataAdapter(SQLListAid, Conn)
        DataAdapterListAid.Fill(DataSetListAid, "ListAid")

        Conn.Close()



        TxTHideIDAid.DataBindings.Clear()
        TxTHideIDAid.DataBindings.Add("Text", DataSetListAid, "ListAid.IDAid")

        TxTViewAidName.DataBindings.Clear()
        TxTViewAidName.DataBindings.Add("Text", DataSetListAid, "ListAid.AidName")

        GVListAid.DataSource = DataSetListAid
        GVListAid.DataMember = "ListAid"
        GVListAid.Refresh()


        GVListAid.Columns(0).Visible = False
        GVListAid.Columns(1).HeaderText = "اسم الكتاب"
        GVListAid.Columns(2).HeaderText = "نوع الإهداء"
        GVListAid.Columns(3).HeaderText = "المؤلف"
        GVListAid.Columns(4).HeaderText = "تاريخ التوزيع"
        GVListAid.Columns(5).HeaderText = "الكمية"

        GVListAid.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    End Sub