[Arabia]

اليوم قمت بتجربة التعديل على البرنامج لا أعلم بالبرمجة فقمت بوضع قائمة التقارير في مكان واحد السؤال كيف أدمج الأكواد بكود واحد وهذه الأكواد بحيث لو ضغطت بحث يقوم بالعملية المطلوبة:


[url=http://www.up-00.com/][/url]

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