اللي ظاهر عندك في جهازك .. غير اللي عم يظهر عندي في جهازي ...
الترتيب مختلف التسميات مختلفة ..
تعرض أسماء المحافظات تحت عمود اسم القرية ..
وأسماء القرى تحت اسم المحافظة ...
وكذلك خطأ بعرض المديريات والعزلات ..
ربما الخطأ لأنك تستخدم اسماء أعمدة عربية .. وهذا خطأ جسيم مع البرمجة ... (لا تستخدم تسميات بغير اللغة الانكليزية أثناء كتابة الكود سواء كان برمجي أو استعلامي)..
أولاً - اختيار مسميات عربية (له نصيب وافر من تبطيء البيانات)..
هذا أول سبب للبطىء..
ثانياً - على فرض أنك قمت بتصحيح المسميات وجعلت كل مسمى في محله ...
والأفضل أن تسميها باللانكليزية --
اذهب إلى قاعدة البيانات وسميها من جديد : فتصبح ..
المعرف : ID1
المحافظة : Governorate
المديرية : Directorate
العزلة : Isolation1
القرية : Village
وضعنا الرقم واحد (بجانب بعض المسميات لأنها أسماء محجوزة فغيرنا بها كي لا نقع بمشكلة عدم التوافق مع قاعدة البيانات)
بعد إعادة التسمية شاهد ولاحظ : هل كل عمود يشير على محتواه من بيانات .... اذا كان لا فصحح -- واذا صحيح فأكمل معنا..
ثالثاً - اذهب إلى البرنامج (المشروع) ..
ضمن خصائص الأداة (DataGridView1) ــ الخاصية (AutoSizeColumnsMode) أنت وضعتها على (Fill) والأفضل أن تكون على (None)
وفي الكود ضمن كود تحميل النافذة أنت وضعت الخاصية (AutoSizeRowsMode) على (AllCells) والأفضل أن تكون على (None)
التغيير بالخصائص أعلاه :
كأنك تقول للبرنامج اكتب سطر في الــ DataGridView1 ثم نسق الخليا خلية خلية.. وهكذا مع كل سطر يضاف لجدول العرض ..
وهذا خطأ أثناء تعبئة البيانات الكبيرة --
وهذا هو الخطأ الثاني عندك والمسبب الأكبر لبطئ عرض البيانات أثناء البحث.
الأسلم والأفضل والأسرع بعد كتابة البيانات أن تقوم بجعل أي عمود من الأعمدة بعرض معين
يعني أجعل العمود الأول يساوي 10 والثاني يساوي 20 والثالث.... إلخ
قيمة تقدرها أنت بحسب حاجة عرض العمود من بيانات ..
فهذه العملية تأخذ منك سطر واحد من الكود لكل عمود .. أي وقت (أربع أسطر)
بينما تنسيق بحسب الخلايا يأخ منك تنفيذ أكواد بعدد أسطر النتيجة ضرب عدد الأعمدة
فلو كان عندك 60 نتيجة فالأكواد المنفذة هي (60 ضرب 4 ضرب 2) = أي وقت 480 سطر من الاكواد على أقل تحديد
فهل وقت تنفيذ 4 أسطر يساوي أو يقارب وقت تنفيذ 480 سطر
رابعاً - كخطوة نحو كود أفضل :
أضف Module جديد وضع فيه الكود التالي :
كود :
Imports System.Data.OleDb
Module Module1
Public Function tDataTable(pConn As OleDbConnection, sSQLSelect As String) As DataTable
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
Dim fCmd As New OleDbCommand(sSQLSelect, pConn)
Dim fDt As New DataTable
fDt.Load(fCmd.ExecuteReader())
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
'---------------------------------------------------------
If fDt.Rows.Count > 0 Then
Return fDt
Else
Return Nothing
End If
'---------------------------------------------------------
End Function
Public Sub LoadDataToComboBox(cboBox1 As ComboBox, pConn As OleDbConnection, strSQLFilter As String ,pTableName As String)
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
cboBox1.ValueMember = pTableName
cboBox1.DisplayMember = pTableName
cboBox1.DataSource = tDataTable(pConn, strSQLFilter)
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
'---------------------------------------------------------
End Sub
End Module
خامساً - اذهب لنافذة المشروع وأضف عليها :
اضف ثلاث CmboBox
ComboBox1 وفوقها ليبل (المحافظة)
ComboBox2 وفوقها ليبل (المديرية)
ComboBox3 وفوقها ليبل (العزلة)
ضمن كود حدث تحميل الفورم يصبح الكود :
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadDataToComboBox(ComboBox1, con, "SELECT DISTINCT(Governorate) FROM [Coverage Claims]", "Governorate")
'DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
'DataGridView1.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
For Each l In InputLanguage.InstalledInputLanguages
If l.culture.ToString.StartsWith("ar") Then InputLanguage.CurrentInputLanguage = l
Next
End Sub
الأدوات الجديدة (ComboBox1 ، ComboBox2) : لها أكواد ضمن أحداثها وهي :
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
LoadDataToComboBox(ComboBox2, con, "SELECT DISTINCT(Directorate) FROM [Coverage Claims] Where [Governorate] ='" & ComboBox1.Text & "' ", "Directorate")
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
LoadDataToComboBox(ComboBox3, con, "SELECT DISTINCT(Isolation1) FROM [Coverage Claims] Where [Governorate] ='" & ComboBox1.Text & "' and [Directorate] = '" & ComboBox2.Text & "' ", "Isolation1")
End Sub
الآن : كود البحث يصبح :
كود :
Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged
Label1.Hide()
Dim txt As String = ""
' If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
' If textSerch.Text.Trim.Length < 2 Then
If textSerch.Text.Length < 2 Then
Label1.Visible = True
Dim dt2 As New DataTable
DataGridView1.DataSource = Nothing
Exit Sub
End If
Label1.Hide()
'If textSerch.Text.Trim.Length >= 2 Then
If textSerch.Text.Length >= 2 Then
Dim strSS1 As String = " [Governorate] as [المحافظة], [Directorate] as [المديرية], [Isolation1] as [العزلة], [Village] as [القرية] "
Dim strSerch1 As String = textSerch.Text.Replace(" ", "%")
DataGridView1.DataSource = tDataTable(con, "SELECT " & strSS1 & " FROM [Coverage Claims] Where [Governorate] Like '%" & ComboBox1.Text & "%' And [Directorate] Like '%" & ComboBox2.Text & "%' And [Isolation1] Like '%" & ComboBox3.Text & "%' And [Village] like '%" & strSerch1 & "%'")
DataGridView1.ClearSelection()
'If dt.Rows.Count = 0 Then Label1.Show()
Else
End If
If textSerch.Text = "" Then
Label2.Show()
Else
Label2.Hide()
End If
DataGridView1.Columns(0).Width = 150
DataGridView1.Columns(1).Width = 150
DataGridView1.Columns(2).Width = 150
DataGridView1.Columns(3).Width = 150
End Sub
الآن بإمكانك تجريب البرنامج - وتحقق من تصنيف وسرعة البحث ..
لعرض كل بيانات قاعدة البيانات كلها :
- فرغ اسم المحافظة من الكتابة : (ConboBox1) أمسح الكتابة منها (يعني)
- فرغ حقل المديرية من الكتابة. (ConboBox2)
- فرغ حقل العزلة من الكتابة. (ConboBox3)
- في حقل البحث (اضغط ع المسافة مرتين أو أكتب فيه (%%))
فيعرض لك كل ما في الجدول من بيانات.
لعرض كل بيانات محافظة ما :
- اختر اسم المحافظة . من (ConboBox1)
- فرغ حقل المديرية من الكتابة. (ConboBox2)
- فرغ حقل العزلة من الكتابة. (ConboBox3)
- أكتب في حقل البحث (اضغط ع المسافة مرتين أو أكتب فيه (%%))
فيعرض لك كل ما في المحافظة.
لعرض محتويات مديرية :
- اختر اسم المحافظة .
- اختر المديرية.
- فرغ حقل العزلة من الكتابة.
- أكتب في حقل البحث (اضغط ع المسافة مرتين أو أكتب فيه (%%))
فيعرض لك كل ما في المديرية.
لعرض محتويات عزلة:
- اختر اسم المحافظة .
- اختر المديرية.
- اختر العزلة.
- أكتب في حقل البحث (اضغط ع المسافة مرتين أو أكتب فيه (%%))
فيعرض لك كل ما في العزلة.
للبحث عن قرية :
- اختر اسم المحافظة .
أو فرغها..
- اختر المديرية.
أو فرغها..
- اختر اسم العزلة.
أو فرغها..
- أكتب في حقل البحث حرفين أو أكثر من اسم القرية ..
فيعرض لك كل النتائج المشابهة.
لو كنت مش متأكد من طريقة كتابة اسم قرية فتشك بشكل حرف ما (أتركه وأكتب مكانه مسافه)
مثلاً : لا تدري تكتب (المنخ) أو (المناخ) اترك مكان الألف فراغ واكتب (المن خ) وستحصل على نتائج
إن كنت تشكل بوجود (أل التعريف) من عدمه أتركها وأكتب ما كنت متأكد منه فتصبح الكلمة (من خ)
الكود أعلاه تجربة على الطاير ..
وهذه فكرة سريعة : شيء بسيط وبإمكانك عمل أكثر من هذا بكثير ..
بالتوفيق ...
