04-06-24, 01:09 AM
السلام عليكم ورحمة الله
اخواني الكرام اعاني من فترة طويلة من تاخير بالفورم يتاخر لمدة 8 ثواني حتى يجلب البيانات من قاعدة البيانات وياخذ وفت طويل علما بان قاعدة البيانات يوجد بها مئات الاف من البيانات
ارفقت لكم الكود ادناه ... هل من حل يقوم بتسريع العمل داخل الفورم دون تأخير مجرد فتح الفورم يقوم بجلب البيانات وشكرا
اخواني الكرام اعاني من فترة طويلة من تاخير بالفورم يتاخر لمدة 8 ثواني حتى يجلب البيانات من قاعدة البيانات وياخذ وفت طويل علما بان قاعدة البيانات يوجد بها مئات الاف من البيانات
ارفقت لكم الكود ادناه ... هل من حل يقوم بتسريع العمل داخل الفورم دون تأخير مجرد فتح الفورم يقوم بجلب البيانات وشكرا
PHP كود :
Private Sub Orders_Load(sender As Object, e As EventArgs) Handles Me.Load
notee()
landryInfo()
SelectAll_Customers()
GetSub_User()
LoadCategory()
LoadData()
End Sub
Private Sub notee()
Dim dp As New OleDbDataAdapter("SELECT ID, notee FROM notess", conn)
Dim dt As DataTable = New DataTable()
dp.Fill(dt)
CheckedListBox1.DataSource = dt
CheckedListBox1.DisplayMember = "notee"
CheckedListBox1.ValueMember = "ID"
End Sub
Private Sub landryInfo()
Dim dp As New OleDbDataAdapter("select * from landryInfo where ID =" & 5 & " ", conn)
Dim ds As New DataSet
dp.Fill(ds)
If ds.Tables(0).Rows.Count <> 0 Then
statusvat = ds.Tables(0).Rows(0).Item("Status_vat")
valuvat = ds.Tables(0).Rows(0).Item("Value_VAT")
paytype = ds.Tables(0).Rows(0).Item("type")
typevat = ds.Tables(0).Rows(0).Item("Type_VAT")
End If
End Sub
Private Sub SelectAll_Customers()
Dim Cmmd As New OleDbCommand("Select mobilenumber,customername from Customers1", conn)
Dim da As New OleDbDataAdapter(Cmmd)
Dim dt As New DataSet
da.Fill(dt)
Dim cloumn1 As New AutoCompleteStringCollection
Dim cloumn2 As New AutoCompleteStringCollection
Dim i As Integer
For i = 0 To dt.Tables(0).Rows.Count - 1
cloumn1.Add(dt.Tables(0).Rows(i)("mobilenumber").ToString())
Next
TextBox11.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox11.AutoCompleteMode = AutoCompleteMode.SuggestAppend
TextBox11.AutoCompleteCustomSource = cloumn1
End Sub
Private Sub GetSub_User()
Dim dp As New OleDbDataAdapter("Select * FROM Sub where ID =" & 1 & "", conn)
Dim ds As New DataSet
dp.Fill(ds)
If ds.Tables(0).Rows.Count <> 0 Then
subscription = ds.Tables(0).Rows(0).Item("Sub_Customer")
Tailor = ds.Tables(0).Rows(0).Item("Tailor")
Laundery = ds.Tables(0).Rows(0).Item("Laundery")
End If
Dim dp1 As New OleDbDataAdapter("Select ID, user_name FROM login", conn)
conn.Open()
Dim dt As DataTable = New DataTable()
dp1.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "user_name"
ComboBox1.ValueMember = "user_name"
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = "ID"
ComboBox2.ValueMember = "ID"
conn.Close()
End Sub
Private Sub LoadCategory()
FlowLayoutPanel3.Controls.Clear()
Using Cmd As New OleDbCommand("select * from Proudect_items", conn)
conn.Open()
rdr = Cmd.ExecuteReader
While rdr.Read
Dim button = New Button
button.Font = New Font("Tahoma", 10, FontStyle.Bold)
button.Width = 125
button.Height = 60
button.Text = rdr.Item("item_NameA").ToString
button.Tag = rdr.Item("ID").ToString
button.FlatStyle = FlatStyle.Flat
button.BackColor = Color.FromArgb(72, 4, 156)
button.ForeColor = Color.White
FlowLayoutPanel3.Controls.Add(button)
button.Cursor = Cursors.Hand
AddHandler button.Click, AddressOf button_Click
End While
End Using
rdr.Close()
conn.Close()
FlowLayoutPanel3.AutoScroll = True
End Sub
Private Sub LoadData()
FlowLayoutPanel1.Controls.Clear()
If _action = "StartUp" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where ProductNameA like '%" & TextSerch.Text & "%' ", conn)
If _action = "Search1" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where id_Proudect_items =" & _query1 & "", conn)
conn.Open()
rdr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
While rdr.Read
Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
Dim array(CInt(len)) As Byte
rdr.GetBytes(0, 0, array, 0, CInt(len))
pic = New PictureBox
pic.Width = 150
pic.Height = 150
pic.BackgroundImageLayout = ImageLayout.Stretch
pic.Tag = rdr.Item("ID").ToString
AddHandler pic.Click, AddressOf lblD_Click
'-----------------------------------------------------
lblD1 = New Label
lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
lblD1.ForeColor = Color.FromArgb(72, 4, 156)
lblD1.BackColor = Color.GhostWhite
lblD1.Dock = DockStyle.Top
lblD1.Tag = rdr.Item("ID").ToString
lblD1.Text = rdr.Item("ID").ToString
'-----------------------------------------------------
lblD = New Label
lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
lblD.ForeColor = Color.FromArgb(72, 4, 156)
lblD.BackColor = Color.GhostWhite
lblD.Dock = DockStyle.Bottom
lblD.Tag = rdr.Item("ID").ToString
lblD.Text = rdr.Item("ProductNameE").ToString & "-" & rdr.Item("ProductNameA").ToString
AddHandler lblD.Click, AddressOf lblD_Click
'-----------------------------------------------------
Dim ms As New System.IO.MemoryStream(array)
Dim bitmap As New System.Drawing.Bitmap(ms)
pic.BackgroundImage = bitmap
'-----------------------------------------------------
pic.Controls.Add(lblD)
pic.Controls.Add(lblD1)
FlowLayoutPanel1.Controls.Add(pic)
'--------------------------------------------------------------------------------------------------------------
End While
FlowLayoutPanel1.AutoScroll = True
rdr.Close()
conn.Close()
End Sub