[RaggiTech]

تابع

القطعة الأخيرة من قطع الأحجية

عملية البحث

مثل ما ذكرت في الرد السابق نقوم باضافة التالي للـ ComboBox الذي في الأخير نلاحظ











و الأن ندخل على زر البحث و نضع الكود التالي

كود :

Select Case ComboBox1.Text
Case "اسم الشخص"
On Error Resume Next
Dim MyRows() As DataRow = DataSet1.Tables("Table1").Select("Name LIKE '%" & Trim(TextBox9.Text) & "%'")
Dim FoundRows As DataTable = DataSet1.Tables("Table1").Clone
Dim dr As DataRow
For Each dr In MyRows
FoundRows.ImportRow(dr)
Next
DataGridView1.DataSource = FoundRows
TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Phone_Number")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Address")
TextBox12.DataBindings.Add("Text", DataSet1, "Table1.Mobile")
Case "رقم الهاتف"
On Error Resume Next
Dim MyRows() As DataRow = DataSet1.Tables("Table1").Select("Phone_Number LIKE '%" & Trim(TextBox9.Text) & "%'")
Dim FoundRows As DataTable = DataSet1.Tables("Table1").Clone
Dim dr As DataRow
For Each dr In MyRows
FoundRows.ImportRow(dr)
Next
DataGridView1.DataSource = FoundRows
TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Phone_Number")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Address")
TextBox12.DataBindings.Add("Text", DataSet1, "Table1.Mobile")
Case "عنوان الشخص"
On Error Resume Next
Dim MyRows() As DataRow = DataSet1.Tables("Table1").Select("Address LIKE '%" & Trim(TextBox9.Text) & "%'")
Dim FoundRows As DataTable = DataSet1.Tables("Table1").Clone
Dim dr As DataRow
For Each dr In MyRows
FoundRows.ImportRow(dr)
Next
DataGridView1.DataSource = FoundRows
TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Phone_Number")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Address")
TextBox12.DataBindings.Add("Text", DataSet1, "Table1.Mobile")
Case "رقم موبايل الشخص"
On Error Resume Next
Dim MyRows() As DataRow = DataSet1.Tables("Table1").Select("’Mobile LIKE '%" & Trim(TextBox9.Text) & "%'")
Dim FoundRows As DataTable = DataSet1.Tables("Table1").Clone
Dim dr As DataRow
For Each dr In MyRows
FoundRows.ImportRow(dr)
Next
DataGridView1.DataSource = FoundRows
TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Phone_Number")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Address")
TextBox12.DataBindings.Add("Text", DataSet1, "Table1.Mobile")
End Select

الكود طويل و لكنه تكرار فقط

مثل ما نلاحظ استعملنا استعملنا الـ Select Case لكي نتجنب الـ IF

و في الـ Case الأولى عندما يكون الكومبو على خيار اسم الشخص ينفذ الكود و المهم في الكود هو

كود :

Dim MyRows() As DataRow = DataSet1.Tables("Table1").Select("Address LIKE '%" & Trim(TextBox9.Text) & "%'")

إن هذا الكود يطابق ما يكتب التكست الخاص بالبحث بالحقل و لكن مثل ما تلاحظ يوجد Like ما هي

بعد وضع الـ Like يصبح البحث عام يعني إذا وضعت حرف واحد فقط يظهر جميع النتائج التي تحتوي على هذا الحرف

كود :

DataGridView1.DataSource = FoundRows
TextBox1.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Phone_Number")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.Address")
TextBox12.DataBindings.Add("Text", DataSet1, "Table1.Mobile")

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

و بهذه الطريقة خلص البرنامج و لكن الموضوع ما خلص يوجد ملاحظات و البرنامج يمكنك تحميله من المرفقات