01.Private Sub frmplease_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
02. Me.WindowState = FormWindowState.Maximized
03. Dim fd As New fader
04. fd.FadeIn(Me, 0.25)
05.
06. sw.Reset()
07. sw.Start()
08.
09. Dim strConn As String
10. strConn = DBConnString.strConn
11.
12. Conn = New OleDbConnection()
13. With Conn
14. If .State = ConnectionState.Open Then .Close()
15. .ConnectionString = strConn
16. .Open()
17. End With
18.
19. sb = New StringBuilder()
20. sb.Append("SELECT * FROM tb_respon;")
21. sb.Append("SELECT * FROM tbstatus;")
22. sb.Append("SELECT * FROM tbchance;")
23. sb.Append("SELECT * FROM tbanorder;")
24.
25. Dim sqlsel As String
26. sqlsel = sb.ToString()
27.
28. Com = New OleDbCommand()
29. With Com
30. .CommandText = sqlsel
31. .CommandType = CommandType.Text
32. .Connection = Conn
33. dr = .ExecuteReader()
34. End With
35.
36. If dr.HasRows Then
37. dtanorder = New DataTable()
38. dtanorder.Load(dr)
39. With cb_order
40. .BeginUpdate()
41. .DisplayMember = "name_anorder"
42. .ValueMember = "id_anorder"
43. .DataSource = dtanorder
44. .EndUpdate()
45. End With
46.
47. dtchance = New DataTable()
48. dtchance.Load(dr)
49. With cb_chance
50. .BeginUpdate()
51. .DisplayMember = "name_chance"
52. .ValueMember = "id_chance"
53. .DataSource = dtchance
54. .EndUpdate()
55. End With
56.
57. dtstatus = New DataTable()
58. dtstatus.Load(dr)
59. With cb_st
60. .BeginUpdate()
61. .DisplayMember = "name_status"
62. .ValueMember = "id_status"
63. .DataSource = dtstatus
64. .EndUpdate()
65. End With
66.
67. dtrespon = New DataTable()
68. dtrespon.Load(dr)
69. With cb_rsp
70. .BeginUpdate()
71. .DisplayMember = "name_rpn"
72. .ValueMember = "id_rpn"
73. .DataSource = dtrespon
74. .EndUpdate()
75. End With
76. End If
77. dr.Close()
78.
79. sw.Stop()
80. processtime = sw.ElapsedMilliseconds / 1000
81. _toolstriplabel.Text = "เวลาที่ใช้ : " & processtime.ToString("0.0000") & " วินาที"
82. End Sub
