説明なし
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

物料採購統計表.vb 24KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293
  1. Imports System.Windows.Forms.DataVisualization.Charting
  2. Public Class 物料採購統計表
  3. Dim 物料規格, 資料(100) As String
  4. Dim 可繪圖 As Boolean
  5. Dim NA1, 關鍵字數量, 移動位置, 關鍵字位置(1000) As Integer
  6. Private Sub Set_清單()
  7. Dim ds1 As New DataSet : 物料清單_dgv.DataSource = Nothing : ds1.Clear()
  8. 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  9. 物料清單_dgv.ColumnHeadersHeight = 40 : 物料清單_dgv.AllowUserToAddRows = False : 物料清單_dgv.RowTemplate.Height = 45
  10. PA20 = 關鍵字查詢_tb.Text
  11. If 採購平均單價_ch.Checked = False And 採購數量_ch.Checked = True Then
  12. SQL_採購數量清單()
  13. ElseIf 採購平均單價_ch.Checked = True And 採購數量_ch.Checked = False Then
  14. SQL_採購平均單價清單()
  15. End If
  16. da.Fill(ds1) : 物料清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
  17. 物料清單_dgv.Columns(0).Visible = False : 物料清單_dgv.Columns(1).Width = 120 : 物料清單_dgv.Columns(2).Width = 170
  18. For I As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv.Rows(I).Cells(3).Value = "0"
  19. For II As Integer = 0 To 品名_dgv.Rows.Count - 1
  20. '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
  21. If 物料清單_dgv.Rows(I).Cells("料號").Value.ToString = 品名_dgv.Rows(II).Cells("料號").Value.ToString Then
  22. PA3 = 品名_dgv.Rows(II).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()
  23. If dr.Read() Then
  24. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  25. End If : conn.Close()
  26. Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
  27. If 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB03" Then
  28. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  29. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  30. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  31. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  32. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  33. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  34. ElseIf 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB04" Then
  35. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  36. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  37. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  38. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  39. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  40. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  41. If 品名_dgv.Rows(II).Cells("A4").Value.ToString <> "" Then
  42. ZA4 = AAA4 & "=" & 品名_dgv.Rows(II).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  43. ElseIf 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB05" Then
  44. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  45. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  46. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  47. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  48. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  49. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  50. If 品名_dgv.Rows(II).Cells("A4").Value.ToString <> "" Then
  51. ZA4 = AAA4 & "=" & 品名_dgv.Rows(II).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  52. If 品名_dgv.Rows(II).Cells("A5").Value.ToString <> "" Then
  53. ZA5 = AAA5 & "=" & 品名_dgv.Rows(II).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  54. ElseIf 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB06" Then
  55. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  56. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  57. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  58. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  59. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  60. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  61. If 品名_dgv.Rows(II).Cells("A4").Value.ToString <> "" Then
  62. ZA4 = AAA4 & "=" & 品名_dgv.Rows(II).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  63. If 品名_dgv.Rows(II).Cells("A5").Value.ToString <> "" Then
  64. ZA5 = AAA5 & "=" & 品名_dgv.Rows(II).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  65. If 品名_dgv.Rows(II).Cells("A6").Value.ToString <> "" Then
  66. ZA6 = AAA6 & "=" & 品名_dgv.Rows(II).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  67. ElseIf 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB07" Then
  68. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  69. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  70. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  71. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  72. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  73. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  74. If 品名_dgv.Rows(II).Cells("A4").Value.ToString <> "" Then
  75. ZA4 = AAA4 & "=" & 品名_dgv.Rows(II).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  76. If 品名_dgv.Rows(II).Cells("A5").Value.ToString <> "" Then
  77. ZA5 = AAA5 & "=" & 品名_dgv.Rows(II).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  78. If 品名_dgv.Rows(II).Cells("A6").Value.ToString <> "" Then
  79. ZA6 = AAA6 & "=" & 品名_dgv.Rows(II).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  80. If 品名_dgv.Rows(II).Cells("A7").Value.ToString <> "" Then
  81. ZA7 = AAA7 & "=" & 品名_dgv.Rows(II).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
  82. ElseIf 品名_dgv.Rows(II).Cells("規格庫編號").Value = "SQLB08" Then
  83. If 品名_dgv.Rows(II).Cells("A1").Value.ToString <> "" Then
  84. ZA1 = AAA1 & "=" & 品名_dgv.Rows(II).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
  85. If 品名_dgv.Rows(II).Cells("A2").Value.ToString <> "" Then
  86. ZA2 = AAA2 & "=" & 品名_dgv.Rows(II).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  87. If 品名_dgv.Rows(II).Cells("A3").Value.ToString <> "" Then
  88. ZA3 = AAA3 & "=" & 品名_dgv.Rows(II).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  89. If 品名_dgv.Rows(II).Cells("A4").Value.ToString <> "" Then
  90. ZA4 = AAA4 & "=" & 品名_dgv.Rows(II).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  91. If 品名_dgv.Rows(II).Cells("A5").Value.ToString <> "" Then
  92. ZA5 = AAA5 & "=" & 品名_dgv.Rows(II).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  93. If 品名_dgv.Rows(II).Cells("A6").Value.ToString <> "" Then
  94. ZA6 = AAA6 & "=" & 品名_dgv.Rows(II).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  95. If 品名_dgv.Rows(II).Cells("A7").Value.ToString <> "" Then
  96. ZA7 = AAA7 & "=" & 品名_dgv.Rows(II).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
  97. If 品名_dgv.Rows(II).Cells("A8").Value.ToString <> "" Then
  98. ZA8 = AAA8 & "=" & 品名_dgv.Rows(II).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + " - " + ZA8 : End If : End If
  99. End If
  100. 物料清單_dgv.Rows(I).Cells(2).Value = 物料規格 : Exit For
  101. End If
  102. Next
  103. For II As Integer = 4 To NN1 + 4
  104. If 物料清單_dgv.Rows(I).Cells(II).Value.ToString = "" Then : 物料清單_dgv.Rows(I).Cells(II).Value = "0" : End If
  105. 物料清單_dgv.Rows(I).Cells(3).Value = CInt(物料清單_dgv.Rows(I).Cells(3).Value.ToString) + CInt(物料清單_dgv.Rows(I).Cells(II).Value.ToString)
  106. Next
  107. Next
  108. If 採購平均單價_ch.Checked = False And 採購數量_ch.Checked = True Then
  109. 物料清單_dgv.Columns(3).FillWeight = 50 : 物料清單_dgv.Columns(3).Visible = True
  110. ElseIf 採購平均單價_ch.Checked = True And 採購數量_ch.Checked = False Then
  111. 物料清單_dgv.Columns(3).FillWeight = 50 : 物料清單_dgv.Columns(3).Visible = False
  112. End If
  113. For II As Integer = 4 To NN1 + 4
  114. 物料清單_dgv.Columns(II).FillWeight = 50 : 物料清單_dgv.Columns(II).DefaultCellStyle.Format = "#,##0"
  115. 物料清單_dgv.Columns(II).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  116. Next
  117. 物料清單_dgv.Columns("總採購量").DefaultCellStyle.Format = "#,##0"
  118. 物料清單_dgv.Columns("總採購量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  119. 物料清單_dgv.Sort(物料清單_dgv.Columns(3), System.ComponentModel.ListSortDirection.Descending)
  120. End Sub
  121. Private Sub Set_採購日清單()
  122. Dim ds1 As New DataSet : 採購日_dgv.DataSource = Nothing : ds1.Clear()
  123. 採購日_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  124. 採購日_dgv.ColumnHeadersHeight = 25 : 採購日_dgv.AllowUserToAddRows = False
  125. SQL_採購日清單()
  126. da.Fill(ds1) : 採購日_dgv.DataSource = ds1.Tables(0) : conn.Close()
  127. For I As Integer = 0 To 採購日_dgv.Rows.Count - 1
  128. If I = 0 Then : 清單列表 = "[" & 採購日_dgv.Rows(I).Cells(0).Value.ToString()
  129. Else : 清單列表 = 清單列表 & "], [" & 採購日_dgv.Rows(I).Cells(0).Value.ToString() : End If
  130. If I = 採購日_dgv.Rows.Count - 1 Then : 清單列表 &= "]" : End If : NN1 = I
  131. Next
  132. End Sub
  133. Private Sub Set_品名清單()
  134. Dim ds1 As New DataSet : 品名_dgv.DataSource = Nothing : ds1.Clear()
  135. 品名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  136. 品名_dgv.ColumnHeadersHeight = 25 : 品名_dgv.AllowUserToAddRows = False
  137. SQL_品名清單()
  138. da.Fill(ds1) : 品名_dgv.DataSource = ds1.Tables(0) : conn.Close()
  139. End Sub
  140. Private Sub Set_繪圖清單()
  141. Dim ds1 As New DataSet : 繪圖1_dgv.DataSource = Nothing : ds1.Clear()
  142. 繪圖1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  143. 繪圖1_dgv.ColumnHeadersHeight = 25 : 繪圖1_dgv.AllowUserToAddRows = False
  144. SQL_繪圖清單1()
  145. da.Fill(ds1) : 繪圖1_dgv.DataSource = ds1.Tables(0) : conn.Close()
  146. End Sub
  147. Private Sub 物料採購統計表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  148. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  149. Set_採購日清單() : Set_品名清單() : Set_清單() : NA1 = 0
  150. 物料採購統計表_Siz()
  151. End Sub
  152. Private Sub 物料採購統計表_Siz()
  153. MyModule1.清單字體大小調整()
  154. 物料清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  155. End Sub
  156. Private Sub 物料採購統計表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  157. MyModule1.虛擬桌面開啟()
  158. End Sub
  159. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  160. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  161. End Sub
  162. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  163. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  164. End Sub
  165. Private Sub 繪圖()
  166. If 折線圖_ch.Checked = True Then
  167. Chart1.Series.Add(資料(NA1) & "_1") : Chart1.Series(資料(NA1) & "_1").ChartType = SeriesChartType.Line
  168. Chart1.Series(資料(NA1) & "_1").IsVisibleInLegend = False
  169. End If
  170. If 長條圖_ch.Checked = True Then
  171. Chart1.Series.Add(資料(NA1)) : Chart1.Series(資料(NA1)).ChartType = SeriesChartType.Column
  172. End If
  173. Dim NUDAA As Integer
  174. If 數列_NUD.Value >= 繪圖1_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 繪圖1_dgv.Rows.Count - 1
  175. ElseIf 數列_NUD.Value < 繪圖1_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If
  176. For II As Integer = 0 To NUDAA
  177. If 採購平均單價_ch.Checked = False And 採購數量_ch.Checked = True Then
  178. If 長條圖_ch.Checked = True Then
  179. Chart1.Series(資料(NA1)).Points.AddXY(繪圖1_dgv.Rows(NUDAA - II).Cells("採購日").Value.ToString, 繪圖1_dgv.Rows(NUDAA - II).Cells("採購數量").Value.ToString)
  180. End If
  181. If 折線圖_ch.Checked = True Then
  182. Chart1.Series(資料(NA1) & "_1").Points.AddXY(繪圖1_dgv.Rows(NUDAA - II).Cells("採購日").Value.ToString, 繪圖1_dgv.Rows(NUDAA - II).Cells("採購數量").Value.ToString)
  183. End If
  184. ElseIf 採購平均單價_ch.Checked = True And 採購數量_ch.Checked = False Then
  185. If 長條圖_ch.Checked = True Then
  186. Chart1.Series(資料(NA1)).Points.AddXY(繪圖1_dgv.Rows(NUDAA - II).Cells("採購日").Value.ToString, 繪圖1_dgv.Rows(NUDAA - II).Cells("平均單價").Value.ToString)
  187. End If
  188. If 折線圖_ch.Checked = True Then
  189. Chart1.Series(資料(NA1) & "_1").Points.AddXY(繪圖1_dgv.Rows(NUDAA - II).Cells("採購日").Value.ToString, 繪圖1_dgv.Rows(NUDAA - II).Cells("平均單價").Value.ToString)
  190. End If
  191. End If
  192. Next : NA1 = NA1 + 1
  193. End Sub
  194. Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
  195. If e.RowIndex = -1 Then : Else
  196. PA1 = 物料清單_dgv.Rows(e.RowIndex).Cells("料號").Value.ToString : Set_繪圖清單()
  197. If 繪圖1_dgv.Rows.Count > 0 Then
  198. For i As Integer = 0 To NA1
  199. 可繪圖 = True
  200. If 資料(i) = 物料清單_dgv.Rows(e.RowIndex).Cells("品名").Value.ToString & " " & 物料清單_dgv.Rows(e.RowIndex).Cells("規格").Value.ToString Then
  201. 可繪圖 = False : Exit For
  202. End If
  203. Next
  204. If 可繪圖 = True Then
  205. Try
  206. 資料(NA1) = 物料清單_dgv.Rows(e.RowIndex).Cells("品名").Value.ToString & " " & 物料清單_dgv.Rows(e.RowIndex).Cells("規格").Value.ToString : 繪圖()
  207. Catch ex As Exception
  208. MsgBox(ex.Message)
  209. End Try
  210. End If
  211. End If
  212. End If
  213. End Sub
  214. Private Sub 查詢入圖_bt_Click(sender As Object, e As EventArgs) Handles 查詢入圖_bt.Click
  215. For I As Integer = 0 To 關鍵字數量
  216. If 關鍵字位置(I) = 1 Then
  217. PA1 = 物料清單_dgv.Rows(I).Cells("料號").Value.ToString : Set_繪圖清單()
  218. If 繪圖1_dgv.Rows.Count > 0 Then
  219. For II As Integer = 0 To NA1
  220. 可繪圖 = True
  221. If 資料(II) = 物料清單_dgv.Rows(I).Cells("品名").Value.ToString & " " & 物料清單_dgv.Rows(I).Cells("規格").Value.ToString Then
  222. 可繪圖 = False : Exit For
  223. End If
  224. Next
  225. If 可繪圖 = True Then
  226. Try
  227. 資料(NA1) = 物料清單_dgv.Rows(I).Cells("品名").Value.ToString & " " & 物料清單_dgv.Rows(I).Cells("規格").Value.ToString : 繪圖()
  228. Catch ex As Exception
  229. MsgBox(ex.Message)
  230. End Try
  231. End If
  232. End If
  233. End If
  234. Next
  235. End Sub
  236. Private Sub 採購平均單價_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 採購平均單價_ch.Click
  237. 採購平均單價_ch.Checked = True : 採購數量_ch.Checked = False : 清除圖表_bt.PerformClick() : Set_清單()
  238. End Sub
  239. Private Sub 採購數量_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 採購數量_ch.Click
  240. 採購平均單價_ch.Checked = False : 採購數量_ch.Checked = True : 清除圖表_bt.PerformClick() : Set_清單()
  241. End Sub
  242. Private Sub 關鍵字查詢_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關鍵字查詢_bt.Click
  243. If 關鍵字查詢_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("關鍵字不可空白!!") : Else : MsgBox("Kata kunci wajib diisi!!") : End If : Else
  244. Set_清單()
  245. 關鍵字數量 = 0 : For I As Integer = 0 To 1000 : 關鍵字位置(I) = 0 : Next
  246. Dim Str1, Str2 As String
  247. For I As Integer = 0 To 物料清單_dgv.Rows.Count - 1
  248. 物料清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
  249. Str1 = 物料清單_dgv.Rows(I).Cells("品名").Value.ToString() : Str2 = 關鍵字查詢_tb.Text
  250. Dim Stu As Boolean = Str1.Contains(Str2)
  251. If Stu = True Then : 物料清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightPink : 關鍵字位置(I) = 1 : 關鍵字數量 = I : 移動位置 = 0 : End If
  252. Next
  253. 下一筆_bt.PerformClick()
  254. End If
  255. End Sub
  256. Private Sub 長條圖_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 長條圖_ch.Click
  257. If 長條圖_ch.Checked = False And 折線圖_ch.Checked = False Then : 長條圖_ch.Checked = True : End If
  258. End Sub
  259. Private Sub 折線圖_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 折線圖_ch.Click
  260. If 長條圖_ch.Checked = False And 折線圖_ch.Checked = False Then : 折線圖_ch.Checked = True : End If
  261. End Sub
  262. Private Sub 清除查詢_bt_Click(sender As Object, e As EventArgs) Handles 清除查詢_bt.Click
  263. 關鍵字數量 = 0 : For I As Integer = 0 To 1000 : 關鍵字位置(I) = 0 : Next : 清除圖表_bt.PerformClick() : 關鍵字查詢_tb.Text = ""
  264. For I As Integer = 0 To 物料清單_dgv.Rows.Count - 1 : 物料清單_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White : Next
  265. End Sub
  266. Private Sub 上一筆_bt_Click(sender As Object, e As EventArgs) Handles 上一筆_bt.Click
  267. If 移動位置 = 0 Then
  268. If 系統語言 = "繁體中文" Then : MsgBox("已經是最前面!!") : Else : MsgBox("sudah di garis depan!!") : End If
  269. Else
  270. Dim 減項 As Integer = 移動位置
  271. For I As Integer = 0 To 移動位置
  272. 減項 -= 1
  273. If 關鍵字位置(減項) = 1 Then : 物料清單_dgv.CurrentCell = 物料清單_dgv.Rows(減項).Cells(1) : 移動位置 = 減項 : Exit For : End If
  274. If 減項 = 0 Then : 移動位置 = 0 : Exit Sub : End If
  275. Next
  276. End If
  277. End Sub
  278. Private Sub 下一筆_bt_Click(sender As Object, e As EventArgs) Handles 下一筆_bt.Click
  279. If 移動位置 >= 關鍵字數量 Then
  280. If 系統語言 = "繁體中文" Then : MsgBox("已經是最後面!!") : Else : MsgBox("sudah yang terakhir!!") : End If : 移動位置 = 關鍵字數量
  281. Else
  282. For I As Integer = 移動位置 To 關鍵字數量
  283. If 關鍵字位置(I) = 1 Then : 物料清單_dgv.CurrentCell = 物料清單_dgv.Rows(I).Cells(1) : 移動位置 = I + 1 : Exit For : End If
  284. If 移動位置 = 關鍵字數量 Then : 移動位置 = 關鍵字數量 : End If
  285. Next
  286. End If
  287. End Sub
  288. Private Sub 清除圖表_bt_Click(sender As Object, e As EventArgs) Handles 清除圖表_bt.Click
  289. Chart1.Series.Clear() : For i As Integer = 0 To NA1 : 資料(i) = "" : Next : NA1 = 0
  290. End Sub
  291. End Class