Option Strict Off Imports System.Net Imports System.IO Public Class 物料資料庫 Public Property Credentials As ICredentials ReadOnly ds12 As New DataSet Dim EDR As Integer = 0 Dim ESTR, KKK1, KKK2, KKK3, KKK4 As String ReadOnly 對話框(22) As String : Dim 群組碼(4), 原則說明異動 As String Dim 是否有資料 As Boolean Private Sub Set_物料群組() Dim ds5, ds6, ds7, ds8, ds9, ds14 As New DataSet 物料群組_dgv.DataSource = Nothing : ds5.Clear() : 群組碼1_dgv.DataSource = Nothing : ds7.Clear() 群組碼2_dgv.DataSource = Nothing : ds8.Clear() : 群組碼3_dgv.DataSource = Nothing : ds9.Clear() 群組碼4_dgv.DataSource = Nothing : ds14.Clear() : 群組碼5_dgv.DataSource = Nothing : ds6.Clear() 物料群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 群組碼1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 群組碼2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 群組碼3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 群組碼4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 群組碼5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_dgv.ColumnHeadersHeight = 25 : 群組碼1_dgv.ColumnHeadersHeight = 25 : 群組碼2_dgv.ColumnHeadersHeight = 25 : 群組碼3_dgv.ColumnHeadersHeight = 25 群組碼4_dgv.ColumnHeadersHeight = 25 : 群組碼5_dgv.ColumnHeadersHeight = 25 物料群組_dgv.AllowUserToAddRows = False : 群組碼1_dgv.AllowUserToAddRows = False : 群組碼2_dgv.AllowUserToAddRows = False : 群組碼3_dgv.AllowUserToAddRows = False 群組碼4_dgv.AllowUserToAddRows = False : 群組碼5_dgv.AllowUserToAddRows = False SQL_物料資料庫_群組碼清單() da.Fill(ds5) : 物料群組_dgv.DataSource = ds5.Tables(0) : conn.Close() : da.Fill(ds8) : 群組碼2_dgv.DataSource = ds8.Tables(0) : conn.Close() da.Fill(ds7) : 群組碼1_dgv.DataSource = ds7.Tables(0) : conn.Close() : da.Fill(ds9) : 群組碼3_dgv.DataSource = ds9.Tables(0) : conn.Close() da.Fill(ds14) : 群組碼4_dgv.DataSource = ds14.Tables(0) : conn.Close() : da.Fill(ds6) : 群組碼5_dgv.DataSource = ds6.Tables(0) : conn.Close() 物料群組_dgv.Columns(0).ReadOnly = True : 群組碼1_dgv.Columns(0).ReadOnly = True : 群組碼2_dgv.Columns(0).ReadOnly = True : 群組碼3_dgv.Columns(0).ReadOnly = True 群組碼4_dgv.Columns(0).ReadOnly = True : 群組碼5_dgv.Columns(0).ReadOnly = True End Sub Private Sub Set_物料群組_語轉() Dim ds5, ds6, ds7, ds8, ds9, ds14 As New DataSet 物料群組_語言_dgv.DataSource = Nothing : ds5.Clear() : 物料群組_語言1_dgv.DataSource = Nothing : ds7.Clear() 物料群組_語言2_dgv.DataSource = Nothing : ds8.Clear() : 物料群組_語言3_dgv.DataSource = Nothing : ds9.Clear() 物料群組_語言4_dgv.DataSource = Nothing : ds14.Clear() : 物料群組_語言5_dgv.DataSource = Nothing : ds6.Clear() 物料群組_語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料群組_語言_dgv.ColumnHeadersHeight = 25 : 物料群組_語言1_dgv.ColumnHeadersHeight = 25 : 物料群組_語言2_dgv.ColumnHeadersHeight = 25 : 物料群組_語言3_dgv.ColumnHeadersHeight = 25 物料群組_語言4_dgv.ColumnHeadersHeight = 25 : 物料群組_語言5_dgv.ColumnHeadersHeight = 25 物料群組_語言_dgv.AllowUserToAddRows = False : 物料群組_語言1_dgv.AllowUserToAddRows = False : 物料群組_語言2_dgv.AllowUserToAddRows = False : 物料群組_語言3_dgv.AllowUserToAddRows = False 物料群組_語言4_dgv.AllowUserToAddRows = False : 物料群組_語言5_dgv.AllowUserToAddRows = False SQL_物料資料庫_群組碼清單_含語言() da.Fill(ds5) : 物料群組_語言_dgv.DataSource = ds5.Tables(0) : conn.Close() : da.Fill(ds8) : 物料群組_語言2_dgv.DataSource = ds8.Tables(0) : conn.Close() da.Fill(ds7) : 物料群組_語言1_dgv.DataSource = ds7.Tables(0) : conn.Close() : da.Fill(ds9) : 物料群組_語言3_dgv.DataSource = ds9.Tables(0) : conn.Close() da.Fill(ds14) : 物料群組_語言4_dgv.DataSource = ds14.Tables(0) : conn.Close() : da.Fill(ds6) : 物料群組_語言5_dgv.DataSource = ds6.Tables(0) : conn.Close() 物料群組_語言_dgv.Columns(0).Visible = False : 物料群組_語言_dgv.Columns(1).ReadOnly = True 物料群組_語言1_dgv.Columns(0).Visible = False : 物料群組_語言1_dgv.Columns(1).ReadOnly = True 物料群組_語言2_dgv.Columns(0).Visible = False : 物料群組_語言2_dgv.Columns(1).ReadOnly = True 物料群組_語言3_dgv.Columns(0).Visible = False : 物料群組_語言3_dgv.Columns(1).ReadOnly = True 物料群組_語言4_dgv.Columns(0).Visible = False : 物料群組_語言4_dgv.Columns(1).ReadOnly = True 物料群組_語言5_dgv.Columns(0).Visible = False : 物料群組_語言5_dgv.Columns(1).ReadOnly = True End Sub Private Sub Set_比對1() Dim ds16 As New DataSet : 比對1_dgv.DataSource = Nothing : ds16.Clear() 比對1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 比對1_dgv.ColumnHeadersHeight = 25 : 比對1_dgv.AllowUserToAddRows = False 比對1_dgv.RowTemplate.Height = 25 SQL_比對1() da.Fill(ds16) : 比對1_dgv.DataSource = ds16.Tables(0) : conn.Close() End Sub Private Sub Set_比對2() Dim ds17 As New DataSet : 比對2_dgv.DataSource = Nothing : ds17.Clear() 比對2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 比對2_dgv.ColumnHeadersHeight = 25 : 比對2_dgv.AllowUserToAddRows = False 比對2_dgv.RowTemplate.Height = 25 SQL_比對2() da.Fill(ds17) : 比對2_dgv.DataSource = ds17.Tables(0) : conn.Close() End Sub Private Sub Set_比對3() Dim ds18 As New DataSet : 比對3_dgv.DataSource = Nothing : ds18.Clear() 比對3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 比對3_dgv.ColumnHeadersHeight = 25 : 比對3_dgv.AllowUserToAddRows = False 比對3_dgv.RowTemplate.Height = 25 SQL_比對3() da.Fill(ds18) : 比對3_dgv.DataSource = ds18.Tables(0) : conn.Close() 比對3_dgv.Columns(2).FillWeight = 250 End Sub Private Sub Set_比對4() Dim ds18 As New DataSet : 比對4_dgv.DataSource = Nothing : ds18.Clear() 比對4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 比對4_dgv.ColumnHeadersHeight = 25 : 比對4_dgv.AllowUserToAddRows = False 比對4_dgv.RowTemplate.Height = 25 SQL_比對4() da.Fill(ds18) : 比對4_dgv.DataSource = ds18.Tables(0) : conn.Close() End Sub Private Sub Set_比對5() Dim ds18 As New DataSet : 比對5_dgv.DataSource = Nothing : ds18.Clear() 比對5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 比對5_dgv.ColumnHeadersHeight = 25 : 比對5_dgv.AllowUserToAddRows = False 比對5_dgv.RowTemplate.Height = 25 SQL_比對5() da.Fill(ds18) : 比對5_dgv.DataSource = ds18.Tables(0) : conn.Close() End Sub Private Sub Set_清單1() Dim ds4 As New DataSet : 物料編碼_dgv.DataSource = Nothing : ds4.Clear() 物料編碼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料編碼_dgv.ColumnHeadersHeight = 25 物料編碼_dgv.AllowUserToAddRows = False If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then 物料編碼_dgv.RowTemplate.Height = 95 ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then 物料編碼_dgv.RowTemplate.Height = 75 ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then 物料編碼_dgv.RowTemplate.Height = 55 End If PA = 群組碼1_tb.Text : SQL_物料資料庫_物料編碼庫() da.Fill(ds4) : 物料編碼_dgv.DataSource = ds4.Tables(0) : conn.Close() 物料編碼_dgv.Columns(0).FillWeight = 50 : 物料編碼_dgv.Columns(1).FillWeight = 148 : 物料編碼_dgv.Columns(2).FillWeight = 450 : 物料編碼_dgv.Columns(7).Visible = False 物料編碼_dgv.Columns(3).FillWeight = 50 : 物料編碼_dgv.Columns(4).FillWeight = 50 : 物料編碼_dgv.Columns(5).FillWeight = 100 : 物料編碼_dgv.Columns(6).FillWeight = 100 物料編碼_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料編碼_dgv.Columns(0).ReadOnly = True : 物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True 物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(5).ReadOnly = True 物料編碼_dgv.EditMode = DataGridViewEditMode.EditOnEnter Dim mycol As DataGridViewImageColumn = 物料編碼_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 物料編碼_dgv(0, i).Value = i + 1 : 物料編碼_dgv(4, i).Value = False Next BL1 = False Set_清單1_語轉() End Sub Private Sub Set_清單1_語轉() Dim ds4 As New DataSet : 物料品名_語轉_dgv.DataSource = Nothing : ds4.Clear() 物料品名_語轉_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料品名_語轉_dgv.ColumnHeadersHeight = 25 物料品名_語轉_dgv.AllowUserToAddRows = False 物料品名_語轉_dgv.RowTemplate.Height = 25 PA = 群組碼1_tb.Text : SQL_物料資料庫_物料編碼庫_語轉() da.Fill(ds4) : 物料品名_語轉_dgv.DataSource = ds4.Tables(0) : conn.Close() 物料品名_語轉_dgv.Columns(0).Visible = False : 物料品名_語轉_dgv.Columns(1).FillWeight = 150 物料品名_語轉_dgv.Columns(2).FillWeight = 100 : 物料品名_語轉_dgv.Columns(3).FillWeight = 450 物料品名_語轉_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料品名_語轉_dgv.Columns(0).ReadOnly = True : 物料品名_語轉_dgv.Columns(1).ReadOnly = True : 物料品名_語轉_dgv.Columns(2).ReadOnly = True 物料品名_語轉_dgv.Columns(3).ReadOnly = True End Sub Private Sub Set_物料規格庫() Dim ds3 As New DataSet : 規格表頭_dgv.DataSource = Nothing : ds3.Clear() 規格表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 規格表頭_dgv.ColumnHeadersHeight = 25 : 規格表頭_dgv.AllowUserToAddRows = False SQL_規格庫抬頭讀取三() da.Fill(ds3) : 規格表頭_dgv.DataSource = ds3.Tables(0) : conn.Close() 規格表頭_dgv.Columns(0).FillWeight = 90 : 規格表頭_dgv.Columns(1).FillWeight = 143.75 : 規格表頭_dgv.Columns(2).FillWeight = 143.75 : 規格表頭_dgv.Columns(3).FillWeight = 143.75 規格表頭_dgv.Columns(4).FillWeight = 143.75 : 規格表頭_dgv.Columns(5).FillWeight = 143.75 : 規格表頭_dgv.Columns(6).FillWeight = 143.75 : 規格表頭_dgv.Columns(7).FillWeight = 143.75 規格表頭_dgv.Columns(8).FillWeight = 143.75 : 規格表頭_dgv.Columns(9).FillWeight = 100 規格表頭_dgv.Columns(0).ReadOnly = True : 規格表頭_dgv.Columns(1).ReadOnly = True : 規格表頭_dgv.Columns(2).ReadOnly = True 規格表頭_dgv.Columns(3).ReadOnly = True : 規格表頭_dgv.Columns(4).ReadOnly = True : 規格表頭_dgv.Columns(5).ReadOnly = True 規格表頭_dgv.Columns(6).ReadOnly = True : 規格表頭_dgv.Columns(7).ReadOnly = True : 規格表頭_dgv.Columns(8).ReadOnly = True End Sub Private Sub 物料資訊控制表() Dim ds13 As New DataSet : 物料資訊_dgv.DataSource = Nothing : ds13.Clear() 物料資訊_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料資訊_dgv.ColumnHeadersHeight = 25 物料資訊_dgv.AllowUserToAddRows = False If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then 物料資訊_dgv.RowTemplate.Height = 55 ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then 物料資訊_dgv.RowTemplate.Height = 40 ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then 物料資訊_dgv.RowTemplate.Height = 25 End If PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = "" da.Fill(ds13) : 物料資訊_dgv.DataSource = ds13.Tables(0) : conn.Close() 物料資訊_dgv.Columns(0).Visible = False : 物料資訊_dgv.Columns(1).FillWeight = 80 : 物料資訊_dgv.Columns(2).FillWeight = 166 物料資訊_dgv.Columns(3).FillWeight = 60 : 物料資訊_dgv.Columns(4).FillWeight = 60 : 物料資訊_dgv.Columns(7).FillWeight = 60 物料資訊_dgv.Columns(5).Visible = False : 物料資訊_dgv.Columns(6).Visible = False 物料資訊_dgv.Columns(0).ReadOnly = True : 物料資訊_dgv.Columns(1).ReadOnly = True : 物料資訊_dgv.Columns(2).ReadOnly = True 物料資訊_dgv.Columns(3).ReadOnly = True : 物料資訊_dgv.Columns(4).ReadOnly = True : 物料資訊_dgv.Columns(5).ReadOnly = True Dim mycol As DataGridViewImageColumn = 物料資訊_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub 物料資訊控制表1() Dim ds2 As New DataSet : 物料資訊1_dgv.DataSource = Nothing : ds2.Clear() 物料資訊1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料資訊1_dgv.ColumnHeadersHeight = 25 物料資訊1_dgv.AllowUserToAddRows = False If 小間距2_ch.Checked = False And 中間距2_ch.Checked = False And 大間距2_ch.Checked = True Then 物料資訊1_dgv.RowTemplate.Height = 55 ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = True And 大間距2_ch.Checked = False Then 物料資訊1_dgv.RowTemplate.Height = 40 ElseIf 小間距2_ch.Checked = True And 中間距2_ch.Checked = False And 大間距2_ch.Checked = False Then 物料資訊1_dgv.RowTemplate.Height = 25 End If PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = "" da.Fill(ds2) : 物料資訊1_dgv.DataSource = ds2.Tables(0) : conn.Close() 物料資訊1_dgv.Columns(0).Visible = False : 物料資訊1_dgv.Columns(1).FillWeight = 80 : 物料資訊1_dgv.Columns(2).FillWeight = 166 物料資訊1_dgv.Columns(3).FillWeight = 60 : 物料資訊1_dgv.Columns(4).FillWeight = 60 : 物料資訊1_dgv.Columns(7).FillWeight = 60 物料資訊1_dgv.Columns(5).Visible = False : 物料資訊1_dgv.Columns(6).Visible = False 物料資訊1_dgv.Columns(0).ReadOnly = True : 物料資訊1_dgv.Columns(1).ReadOnly = True : 物料資訊1_dgv.Columns(2).ReadOnly = True 物料資訊1_dgv.Columns(3).ReadOnly = True : 物料資訊1_dgv.Columns(4).ReadOnly = True : 物料資訊1_dgv.Columns(5).ReadOnly = True Dim mycol As DataGridViewImageColumn = 物料資訊1_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub 物料資訊控制表2() Dim ds6 As New DataSet : 物料資訊2_dgv.DataSource = Nothing : ds6.Clear() 物料資訊2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料資訊2_dgv.ColumnHeadersHeight = 25 物料資訊2_dgv.AllowUserToAddRows = False If 小間距3_ch.Checked = False And 中間距3_ch.Checked = False And 大間距3_ch.Checked = True Then 物料資訊2_dgv.RowTemplate.Height = 55 ElseIf 小間距3_ch.Checked = False And 中間距3_ch.Checked = True And 大間距3_ch.Checked = False Then 物料資訊2_dgv.RowTemplate.Height = 40 ElseIf 小間距3_ch.Checked = True And 中間距3_ch.Checked = False And 大間距3_ch.Checked = False Then 物料資訊2_dgv.RowTemplate.Height = 25 End If PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = "" da.Fill(ds6) : 物料資訊2_dgv.DataSource = ds6.Tables(0) : conn.Close() 物料資訊2_dgv.Columns(0).Visible = False : 物料資訊2_dgv.Columns(1).FillWeight = 80 : 物料資訊2_dgv.Columns(2).FillWeight = 166 物料資訊2_dgv.Columns(3).FillWeight = 60 : 物料資訊2_dgv.Columns(4).FillWeight = 60 : 物料資訊2_dgv.Columns(7).FillWeight = 60 物料資訊2_dgv.Columns(5).Visible = False : 物料資訊2_dgv.Columns(6).Visible = False 物料資訊2_dgv.Columns(0).ReadOnly = True : 物料資訊2_dgv.Columns(1).ReadOnly = True : 物料資訊2_dgv.Columns(2).ReadOnly = True 物料資訊2_dgv.Columns(3).ReadOnly = True : 物料資訊2_dgv.Columns(4).ReadOnly = True : 物料資訊2_dgv.Columns(5).ReadOnly = True Dim mycol As DataGridViewImageColumn = 物料資訊2_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub 物料資訊控制表3() Dim ds15 As New DataSet : 物料資訊3_dgv.DataSource = Nothing : ds15.Clear() 物料資訊3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料資訊3_dgv.ColumnHeadersHeight = 25 物料資訊3_dgv.AllowUserToAddRows = False If 小間距4_ch.Checked = False And 中間距4_ch.Checked = False And 大間距4_ch.Checked = True Then 物料資訊3_dgv.RowTemplate.Height = 55 ElseIf 小間距4_ch.Checked = False And 中間距4_ch.Checked = True And 大間距4_ch.Checked = False Then 物料資訊3_dgv.RowTemplate.Height = 40 ElseIf 小間距4_ch.Checked = True And 中間距4_ch.Checked = False And 大間距4_ch.Checked = False Then 物料資訊3_dgv.RowTemplate.Height = 25 End If PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = "" da.Fill(ds15) : 物料資訊3_dgv.DataSource = ds15.Tables(0) : conn.Close() 物料資訊3_dgv.Columns(0).Visible = False : 物料資訊3_dgv.Columns(1).FillWeight = 80 : 物料資訊3_dgv.Columns(2).FillWeight = 166 物料資訊3_dgv.Columns(3).FillWeight = 60 : 物料資訊3_dgv.Columns(4).FillWeight = 60 : 物料資訊3_dgv.Columns(7).FillWeight = 60 物料資訊3_dgv.Columns(5).FillWeight = 40 : 物料資訊3_dgv.Columns(6).FillWeight = 80 物料資訊3_dgv.Columns(0).ReadOnly = True : 物料資訊3_dgv.Columns(1).ReadOnly = True : 物料資訊3_dgv.Columns(2).ReadOnly = True 物料資訊3_dgv.Columns(3).ReadOnly = True : 物料資訊3_dgv.Columns(4).ReadOnly = True : 物料資訊3_dgv.Columns(5).ReadOnly = True Dim mycol As DataGridViewImageColumn = 物料資訊3_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub 物料資訊控制表4() Dim ds15 As New DataSet : 物料資訊4_dgv.DataSource = Nothing : ds15.Clear() 物料資訊4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料資訊4_dgv.ColumnHeadersHeight = 25 物料資訊4_dgv.AllowUserToAddRows = False If 小間距5_ch.Checked = False And 中間距5_ch.Checked = False And 大間距5_ch.Checked = True Then 物料資訊4_dgv.RowTemplate.Height = 55 ElseIf 小間距5_ch.Checked = False And 中間距5_ch.Checked = True And 大間距5_ch.Checked = False Then 物料資訊4_dgv.RowTemplate.Height = 40 ElseIf 小間距5_ch.Checked = True And 中間距5_ch.Checked = False And 大間距5_ch.Checked = False Then 物料資訊4_dgv.RowTemplate.Height = 25 End If PA = 規格庫抬頭指定_tb.Text : SQL_物料資料庫_物料資訊控制表() : PA = "" da.Fill(ds15) : 物料資訊4_dgv.DataSource = ds15.Tables(0) : conn.Close() 物料資訊4_dgv.Columns(0).Visible = False : 物料資訊4_dgv.Columns(1).FillWeight = 80 : 物料資訊4_dgv.Columns(2).FillWeight = 166 物料資訊4_dgv.Columns(3).FillWeight = 60 : 物料資訊4_dgv.Columns(4).FillWeight = 60 : 物料資訊4_dgv.Columns(7).FillWeight = 60 物料資訊4_dgv.Columns(5).FillWeight = 40 : 物料資訊4_dgv.Columns(6).FillWeight = 80 物料資訊4_dgv.Columns(0).ReadOnly = True : 物料資訊4_dgv.Columns(1).ReadOnly = True : 物料資訊4_dgv.Columns(2).ReadOnly = True 物料資訊4_dgv.Columns(3).ReadOnly = True : 物料資訊4_dgv.Columns(4).ReadOnly = True : 物料資訊4_dgv.Columns(5).ReadOnly = True Dim mycol As DataGridViewImageColumn = 物料資訊4_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub Set_物料資訊控制表未新增() Dim ds10 As New DataSet : 未指定表頭_dgv.DataSource = Nothing : ds10.Clear() 未指定表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 未指定表頭_dgv.ColumnHeadersHeight = 25 未指定表頭_dgv.AllowUserToAddRows = False SQL_物料資料庫_物料資訊控制表未新增() da.Fill(ds10) : 未指定表頭_dgv.DataSource = ds10.Tables(0) : conn.Close() 未指定表頭_dgv.Columns(0).FillWeight = 150 : 未指定表頭_dgv.Columns(1).FillWeight = 150 : 未指定表頭_dgv.Columns(2).FillWeight = 450 未指定表頭_dgv.Columns(3).Visible = False : 未指定表頭_dgv.Columns(4).Visible = False 未指定表頭_dgv.Columns(0).ReadOnly = True : 未指定表頭_dgv.Columns(1).ReadOnly = True : 未指定表頭_dgv.Columns(2).ReadOnly = True End Sub Private Sub Set_語言() 語言_dgv.DataSource = Nothing : ds12.Clear() 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 語言_dgv.ColumnHeadersHeight = 25 語言_dgv.AllowUserToAddRows = False SQL_系統語言導入() da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close() End Sub Private Sub 語言轉換讀取() Set_語言() : conn.Close() For i As Integer = 0 To 語言_dgv.Rows.Count - 1 If 語言_dgv("控件", i).Value.ToString = "物料資料庫" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料檔案說明_tp" Then : 物料檔案說明_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料群組_物料編碼_物料圖片_控制_tp" Then : 物料群組_物料編碼_物料圖片_控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫表頭_物料規格_資訊_控制_tp" Then : 規格庫表頭_物料規格_資訊_控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料規格批量複製_tp" Then : 物料規格批量複製_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料檔案快速拷貝_tp" Then : 物料檔案快速拷貝_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "報價用規格呈現控制_tp" Then : 報價用規格呈現控制_tp.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼7_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼8_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組碼_lb" Then : 群組碼9_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則2_lb" Then : 物料原則2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則2_lb" Then : 物料原則3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料原則_tb" Then : 物料原則5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "檔案名稱_lb" Then : 檔案名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改清單資料後存檔_bt" Then : 修改清單資料後存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫編號_lb" Then : 規格庫編號6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定5_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫抬頭指定_lb" Then : 規格庫抬頭指定6_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "流水號_lb" Then : 流水號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "流水號_lb" Then : 流水號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "資料複製_bt" Then : 資料複製_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "資料複製_bt" Then : 資料複製1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格_lb" Then : 規格_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "自動取得流水號_bt" Then : 自動取得流水號_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "料號修改_bt" Then : 料號修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "料號修改存檔_bt" Then : 料號修改存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "改料號原則_ch" Then : 改料號原則_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部選擇_bt" Then : 全部選擇2_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消1_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部取消_bt" Then : 全部取消2_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "批量選擇_ch" Then : 批量選擇_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "讀取無圖片資料_bt" Then : 讀取無圖片資料_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "說明1_ld" Then : 說明1_ld.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "舊群組_lb" Then : 舊群組_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "新群組_lb" Then : 新群組_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "群組轉換_bt" Then : 群組轉換_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "PC_lb" Then : PC_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "圖檔編號_lb" Then : 圖檔編號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "圖檔編號_lb" Then : 圖檔編號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "說明2_lb" Then : 說明2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格庫表頭_lb" Then : 規格庫表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "說明3_lb" Then : 說明3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "新的表頭_lb" Then : 新的表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "舊的表頭_lb" Then : 舊的表頭_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料規格表_lb" Then : 物料規格表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表3_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資訊控制表_lb" Then : 物料資訊控制表4_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "修改料號權限_ch" Then : 修改料號權限_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "舊的資料_gb" Then : 舊的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "新的資料_gb" Then : 新的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "不變的資料_gb" Then : 不變的資料_gb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "單位_lb" Then : 單位_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_項次" Then : 表頭(11) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_群組碼" Then : 表頭(62) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號原則" Then : 表頭(63) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_原則說明" Then : 表頭(64) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最低庫存" Then : 表頭(65) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最高庫存" Then : 表頭(66) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_指定" Then : 表頭(67) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框14" Then : 對話框(13) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框15" Then : 對話框(14) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框16" Then : 對話框(15) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框17" Then : 對話框(16) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框18" Then : 對話框(17) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框19" Then : 對話框(18) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框20" Then : 對話框(19) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框21" Then : 對話框(20) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框22" Then : 對話框(21) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框23" Then : 對話框(22) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "批量刪除_bt" Then : 批量刪除_bt.Text = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub 規格庫抬頭指定_cb_下拉表單資料載入() SQL_物料資訊控制表_規格庫抬頭指定() : 規格庫抬頭指定_cb.Items.Clear() : 規格庫抬頭指定1_cb.Items.Clear() : 規格庫抬頭指定2_cb.Items.Clear() 規格庫抬頭指定3_cb.Items.Clear() : 規格庫抬頭指定4_cb.Items.Clear() : 規格庫抬頭指定5_cb.Items.Clear() While (dr.Read()) 規格庫抬頭指定_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定2_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定1_cb.Items.Add(dr("規格庫抬頭指定")) 規格庫抬頭指定3_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定4_cb.Items.Add(dr("規格庫抬頭指定")) : 規格庫抬頭指定5_cb.Items.Add(dr("規格庫抬頭指定")) End While : conn.Close() End Sub Private Sub 群組碼_cb_下拉表單資料載入() SQL_群組碼_下拉清單() : 舊群組_cb.Items.Clear() : 新群組_cb.Items.Clear() While (dr.Read()) : 舊群組_cb.Items.Add(dr("群組碼")) : 新群組_cb.Items.Add(dr("群組碼")) : End While : conn.Close() End Sub Private Sub 群組碼_cb_語轉_下拉表單資料載入() SQL_群組碼_語轉_下拉清單() : 舊群組1_cb.Items.Clear() : 新群組1_cb.Items.Clear() While (dr.Read()) : 舊群組1_cb.Items.Add(dr("群組")) : 新群組1_cb.Items.Add(dr("群組")) : End While : conn.Close() End Sub Private Sub 物料資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True H(527) = True : 介面 = "H527" : 語言轉換讀取() : BL1 = False : 式共用1() 小間距_ch.Checked = True : 中間距1_ch.Checked = True : 中間距2_ch.Checked = True : 中間距3_ch.Checked = True : 中間距4_ch.Checked = True : 物料群組1_Panel.Visible = False 物料品名_語轉_dgv.Visible = False : 中間距5_ch.Checked = True : 群組碼_tb.Enabled = False Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() If gUserName = "李協叡" Then 修改料號權限_ch.Checked = True : 編碼_tb.Enabled = True Else 修改料號權限_ch.Checked = False : 編碼_tb.Enabled = False End If Target1 = Target & AA(2) & "/" 伺服器_wb.Url = New Uri(Target1) 本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop) 物料群組_語言_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料群組_語言2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料群組_語言3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料群組_語言4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料群組_語言5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料品名_語轉_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料編碼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 規格表頭_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 未指定表頭_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料明細1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料明細2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料明細3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料資訊3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料明細4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 物料明細5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 比對1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 比對2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 比對3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 比對4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 比對5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 物料資料庫_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed H(527) = False : SQL_物料資料庫_修正1() : HX_PGS_ERP_SYS.WindowState = 0 : MyModule1.虛擬桌面開啟() End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H527" : 語言轉換讀取() Set_物料群組_語轉() : Set_物料群組() : Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() : Set_清單1() : Set_物料規格庫() : 物料資訊控制表() 物料資訊控制表1() : 物料資訊控制表2() : 物料資訊控制表3() : Set_物料資訊控制表未新增() : 群組碼_cb_語轉_下拉表單資料載入() : 群組碼_cb_下拉表單資料載入() End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 讀取料號規格_01() SQL_物料資訊控制表_原則查詢() If dr.Read() Then KKK2 = dr("規格庫編號") : PA = KKK2 : KKK3 = dr("規格庫抬頭指定") : PA3 = KKK3 : KKK4 = dr("群組碼") : PA1 = KKK4 End If : conn.Close() SQL_規格庫抬頭讀取() If dr.Read() Then AAA1 = dr("A1") : PA4 = dr("A1") : AAA2 = dr("A2") : PA5 = dr("A2") : AAA3 = dr("A3") : PA6 = dr("A3") : AAA4 = dr("A4") : PA7 = dr("A4") AAA5 = dr("A5") : PA8 = dr("A5") : AAA6 = dr("A6") : PA9 = dr("A6") : AAA7 = dr("A7") : PA10 = dr("A7") : AAA8 = dr("A8") : PA11 = dr("A8") End If : conn.Close() End Sub Private Sub 讀取料號規格_02() Dim ds3 As New DataSet 物料明細1_dgv.DataSource = Nothing : ds3.Clear() 物料明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料明細1_dgv.ColumnHeadersHeight = 25 : 物料明細1_dgv.AllowUserToAddRows = False SQL_物料規格表_物料清單() da.Fill(ds3) : 物料明細1_dgv.DataSource = ds3.Tables(0) : conn.Close() If PartNo_ch.Checked = False Then : 物料明細1_dgv.Columns(2).Visible = False : Else : 物料明細1_dgv.Columns(2).Visible = True : End If 物料明細1_dgv.Columns(0).Visible = False : 物料明細1_dgv.Columns(1).Visible = False : 物料明細1_dgv.Columns(3).Visible = False 物料明細1_dgv.Columns(12).FillWeight = 70 : 物料明細1_dgv.Columns(2).Width = 135 : 物料明細1_dgv.Columns(13).Visible = False : 物料明細1_dgv.Columns(14).FillWeight = 70 物料明細1_dgv.Columns(15).FillWeight = 40 : 物料明細1_dgv.Columns(16).Visible = False : 物料明細1_dgv.Columns(17).Visible = False : 物料明細1_dgv.Columns(18).Visible = False 物料明細1_dgv.Columns(19).Visible = False : 物料明細1_dgv.Columns(20).Visible = False : 物料明細1_dgv.Columns(21).Visible = False : 物料明細1_dgv.Columns(22).Visible = False 物料明細1_dgv.Columns(23).Visible = False 物料明細1_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細1_dgv.Columns(2).ReadOnly = True 物料明細1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" 物料明細1_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細1_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細1_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細1_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If KKK2 = "SQLB03" Then 物料明細1_dgv.Columns(7).Visible = False : 物料明細1_dgv.Columns(8).Visible = False : 物料明細1_dgv.Columns(9).Visible = False : 物料明細1_dgv.Columns(10).Visible = False 物料明細1_dgv.Columns(11).Visible = False 物料明細1_dgv.Columns(4).FillWeight = 213 : 物料明細1_dgv.Columns(5).FillWeight = 213 : 物料明細1_dgv.Columns(6).FillWeight = 214 ElseIf KKK2 = "SQLB04" Then 物料明細1_dgv.Columns(7).Visible = True : 物料明細1_dgv.Columns(8).Visible = False : 物料明細1_dgv.Columns(9).Visible = False : 物料明細1_dgv.Columns(10).Visible = False 物料明細1_dgv.Columns(11).Visible = False 物料明細1_dgv.Columns(4).FillWeight = 160 : 物料明細1_dgv.Columns(5).FillWeight = 160 : 物料明細1_dgv.Columns(6).FillWeight = 160 : 物料明細1_dgv.Columns(7).FillWeight = 160 ElseIf KKK2 = "SQLB05" Then 物料明細1_dgv.Columns(7).Visible = True : 物料明細1_dgv.Columns(8).Visible = True : 物料明細1_dgv.Columns(9).Visible = False : 物料明細1_dgv.Columns(10).Visible = False 物料明細1_dgv.Columns(11).Visible = False 物料明細1_dgv.Columns(4).FillWeight = 128 : 物料明細1_dgv.Columns(5).FillWeight = 128 : 物料明細1_dgv.Columns(6).FillWeight = 128 : 物料明細1_dgv.Columns(7).FillWeight = 128 物料明細1_dgv.Columns(8).FillWeight = 128 ElseIf KKK2 = "SQLB06" Then 物料明細1_dgv.Columns(7).Visible = True : 物料明細1_dgv.Columns(8).Visible = True : 物料明細1_dgv.Columns(9).Visible = True : 物料明細1_dgv.Columns(10).Visible = False 物料明細1_dgv.Columns(11).Visible = False 物料明細1_dgv.Columns(4).FillWeight = 106 : 物料明細1_dgv.Columns(5).FillWeight = 107 : 物料明細1_dgv.Columns(6).FillWeight = 106 : 物料明細1_dgv.Columns(7).FillWeight = 107 物料明細1_dgv.Columns(8).FillWeight = 106 : 物料明細1_dgv.Columns(9).FillWeight = 108 ElseIf KKK2 = "SQLB07" Then 物料明細1_dgv.Columns(7).Visible = True : 物料明細1_dgv.Columns(8).Visible = True : 物料明細1_dgv.Columns(9).Visible = True : 物料明細1_dgv.Columns(10).Visible = True 物料明細1_dgv.Columns(11).Visible = False 物料明細1_dgv.Columns(4).FillWeight = 91 : 物料明細1_dgv.Columns(5).FillWeight = 92 : 物料明細1_dgv.Columns(6).FillWeight = 91 : 物料明細1_dgv.Columns(7).FillWeight = 92 物料明細1_dgv.Columns(8).FillWeight = 91 : 物料明細1_dgv.Columns(9).FillWeight = 92 : 物料明細1_dgv.Columns(10).FillWeight = 91 ElseIf KKK2 = "SQLB08" Then 物料明細1_dgv.Columns(7).Visible = True : 物料明細1_dgv.Columns(8).Visible = True : 物料明細1_dgv.Columns(9).Visible = True : 物料明細1_dgv.Columns(10).Visible = True 物料明細1_dgv.Columns(11).Visible = True 物料明細1_dgv.Columns(4).FillWeight = 80 : 物料明細1_dgv.Columns(5).FillWeight = 80 : 物料明細1_dgv.Columns(6).FillWeight = 80 : 物料明細1_dgv.Columns(7).FillWeight = 80 物料明細1_dgv.Columns(8).FillWeight = 80 : 物料明細1_dgv.Columns(9).FillWeight = 80 : 物料明細1_dgv.Columns(10).FillWeight = 80 : 物料明細1_dgv.Columns(11).FillWeight = 80 End If For I As Integer = 0 To 物料明細1_dgv.Rows.Count - 1 物料明細1_dgv(15, I).Value = I + 1 Next End Sub Private Sub 讀取料號規格_03() If 物料明細3_dgv.Columns.Count.ToString > 16 Then 物料明細3_dgv.Columns.Remove("Pick") End If Dim ds3 As New DataSet 物料明細3_dgv.DataSource = Nothing : ds3.Clear() 物料明細3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料明細3_dgv.ColumnHeadersHeight = 25 物料明細3_dgv.AllowUserToAddRows = False SQL_物料規格表_物料清單() da.Fill(ds3) : 物料明細3_dgv.DataSource = ds3.Tables(0) : conn.Close() Dim Col As New DataGridViewCheckBoxColumn With { .FillWeight = 50 } Col.HeaderText = "Pick" : Col.Name = "Pick" 物料明細3_dgv.Columns.Insert(24, Col) 物料明細3_dgv.Columns(0).Visible = False : 物料明細3_dgv.Columns(1).Visible = False : 物料明細3_dgv.Columns(2).Visible = False : 物料明細3_dgv.Columns(3).Visible = False 物料明細3_dgv.Columns(12).FillWeight = 70 : 物料明細3_dgv.Columns(2).FillWeight = 135 : 物料明細3_dgv.Columns(13).Visible = False : 物料明細3_dgv.Columns(14).FillWeight = 70 物料明細3_dgv.Columns(15).FillWeight = 40 : 物料明細3_dgv.Columns(16).Visible = False : 物料明細3_dgv.Columns(17).Visible = False : 物料明細3_dgv.Columns(18).Visible = False 物料明細3_dgv.Columns(19).Visible = False : 物料明細3_dgv.Columns(20).Visible = False : 物料明細3_dgv.Columns(21).Visible = False : 物料明細3_dgv.Columns(22).Visible = False 物料明細3_dgv.Columns(23).Visible = False 物料明細3_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細3_dgv.Columns(2).ReadOnly = True 物料明細3_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細3_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" 物料明細3_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細3_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細3_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細3_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If KKK2 = "SQLB03" Then 物料明細3_dgv.Columns(7).Visible = False : 物料明細3_dgv.Columns(8).Visible = False : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False 物料明細3_dgv.Columns(11).Visible = False 物料明細3_dgv.Columns(4).FillWeight = 213 : 物料明細3_dgv.Columns(5).FillWeight = 213 : 物料明細3_dgv.Columns(6).FillWeight = 214 ElseIf KKK2 = "SQLB04" Then 物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = False : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False 物料明細3_dgv.Columns(11).Visible = False 物料明細3_dgv.Columns(4).FillWeight = 160 : 物料明細3_dgv.Columns(5).FillWeight = 160 : 物料明細3_dgv.Columns(6).FillWeight = 160 : 物料明細3_dgv.Columns(7).FillWeight = 160 ElseIf KKK2 = "SQLB05" Then 物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = False : 物料明細3_dgv.Columns(10).Visible = False 物料明細3_dgv.Columns(11).Visible = False 物料明細3_dgv.Columns(4).FillWeight = 128 : 物料明細3_dgv.Columns(5).FillWeight = 128 : 物料明細3_dgv.Columns(6).FillWeight = 128 : 物料明細3_dgv.Columns(7).FillWeight = 128 物料明細3_dgv.Columns(8).FillWeight = 128 ElseIf KKK2 = "SQLB06" Then 物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = False 物料明細3_dgv.Columns(11).Visible = False 物料明細3_dgv.Columns(4).FillWeight = 106 : 物料明細3_dgv.Columns(5).FillWeight = 107 : 物料明細3_dgv.Columns(6).FillWeight = 106 : 物料明細3_dgv.Columns(7).FillWeight = 107 物料明細3_dgv.Columns(8).FillWeight = 106 : 物料明細3_dgv.Columns(9).FillWeight = 108 ElseIf KKK2 = "SQLB07" Then 物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = True 物料明細3_dgv.Columns(11).Visible = False 物料明細3_dgv.Columns(4).FillWeight = 91 : 物料明細3_dgv.Columns(5).FillWeight = 92 : 物料明細3_dgv.Columns(6).FillWeight = 91 : 物料明細3_dgv.Columns(7).FillWeight = 92 物料明細3_dgv.Columns(8).FillWeight = 91 : 物料明細3_dgv.Columns(9).FillWeight = 92 : 物料明細3_dgv.Columns(10).FillWeight = 91 ElseIf KKK2 = "SQLB08" Then 物料明細3_dgv.Columns(7).Visible = True : 物料明細3_dgv.Columns(8).Visible = True : 物料明細3_dgv.Columns(9).Visible = True : 物料明細3_dgv.Columns(10).Visible = True 物料明細3_dgv.Columns(11).Visible = True 物料明細3_dgv.Columns(4).FillWeight = 80 : 物料明細3_dgv.Columns(5).FillWeight = 80 : 物料明細3_dgv.Columns(6).FillWeight = 80 : 物料明細3_dgv.Columns(7).FillWeight = 80 物料明細3_dgv.Columns(8).FillWeight = 80 : 物料明細3_dgv.Columns(9).FillWeight = 80 : 物料明細3_dgv.Columns(10).FillWeight = 80 : 物料明細3_dgv.Columns(11).FillWeight = 80 End If For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 物料明細3_dgv("Pick", i).Value = False 物料明細3_dgv(15, i).Value = i + 1 Next End Sub Private Sub 讀取料號規格_04() Dim ds3 As New DataSet 物料明細4_dgv.DataSource = Nothing : ds3.Clear() 物料明細4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料明細4_dgv.ColumnHeadersHeight = 25 物料明細4_dgv.AllowUserToAddRows = False SQL_物料規格表_物料清單() da.Fill(ds3) : 物料明細4_dgv.DataSource = ds3.Tables(0) : conn.Close() 物料明細4_dgv.Columns(0).Visible = False : 物料明細4_dgv.Columns(1).Visible = False : 物料明細4_dgv.Columns(2).Visible = False : 物料明細4_dgv.Columns(3).Visible = False 物料明細4_dgv.Columns(12).FillWeight = 70 : 物料明細4_dgv.Columns(2).FillWeight = 135 : 物料明細4_dgv.Columns(13).Visible = False : 物料明細4_dgv.Columns(14).FillWeight = 70 物料明細4_dgv.Columns(15).FillWeight = 40 : 物料明細4_dgv.Columns(16).Visible = False : 物料明細4_dgv.Columns(17).Visible = False : 物料明細4_dgv.Columns(18).Visible = False 物料明細4_dgv.Columns(19).Visible = False : 物料明細4_dgv.Columns(20).Visible = False : 物料明細4_dgv.Columns(21).Visible = False : 物料明細4_dgv.Columns(22).Visible = False 物料明細4_dgv.Columns(23).Visible = False 物料明細4_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細4_dgv.Columns(2).ReadOnly = True 物料明細4_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細4_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" 物料明細4_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細4_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細4_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細4_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If KKK2 = "SQLB03" Then 物料明細4_dgv.Columns(7).Visible = False : 物料明細4_dgv.Columns(8).Visible = False : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False 物料明細4_dgv.Columns(11).Visible = False 物料明細4_dgv.Columns(4).FillWeight = 213 : 物料明細4_dgv.Columns(5).FillWeight = 213 : 物料明細4_dgv.Columns(6).FillWeight = 214 ElseIf KKK2 = "SQLB04" Then 物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = False : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False 物料明細4_dgv.Columns(11).Visible = False 物料明細4_dgv.Columns(4).FillWeight = 160 : 物料明細4_dgv.Columns(5).FillWeight = 160 : 物料明細4_dgv.Columns(6).FillWeight = 160 : 物料明細4_dgv.Columns(7).FillWeight = 160 ElseIf KKK2 = "SQLB05" Then 物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = False : 物料明細4_dgv.Columns(10).Visible = False 物料明細4_dgv.Columns(11).Visible = False 物料明細4_dgv.Columns(4).FillWeight = 128 : 物料明細4_dgv.Columns(5).FillWeight = 128 : 物料明細4_dgv.Columns(6).FillWeight = 128 : 物料明細4_dgv.Columns(7).FillWeight = 128 物料明細4_dgv.Columns(8).FillWeight = 128 ElseIf KKK2 = "SQLB06" Then 物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = False 物料明細4_dgv.Columns(11).Visible = False 物料明細4_dgv.Columns(4).FillWeight = 106 : 物料明細4_dgv.Columns(5).FillWeight = 107 : 物料明細4_dgv.Columns(6).FillWeight = 106 : 物料明細4_dgv.Columns(7).FillWeight = 107 物料明細4_dgv.Columns(8).FillWeight = 106 : 物料明細4_dgv.Columns(9).FillWeight = 108 ElseIf KKK2 = "SQLB07" Then 物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = True 物料明細4_dgv.Columns(11).Visible = False 物料明細4_dgv.Columns(4).FillWeight = 91 : 物料明細4_dgv.Columns(5).FillWeight = 92 : 物料明細4_dgv.Columns(6).FillWeight = 91 : 物料明細4_dgv.Columns(7).FillWeight = 92 物料明細4_dgv.Columns(8).FillWeight = 91 : 物料明細4_dgv.Columns(9).FillWeight = 92 : 物料明細4_dgv.Columns(10).FillWeight = 91 ElseIf KKK2 = "SQLB08" Then 物料明細4_dgv.Columns(7).Visible = True : 物料明細4_dgv.Columns(8).Visible = True : 物料明細4_dgv.Columns(9).Visible = True : 物料明細4_dgv.Columns(10).Visible = True 物料明細4_dgv.Columns(11).Visible = True 物料明細4_dgv.Columns(4).FillWeight = 80 : 物料明細4_dgv.Columns(5).FillWeight = 80 : 物料明細4_dgv.Columns(6).FillWeight = 80 : 物料明細4_dgv.Columns(7).FillWeight = 80 物料明細4_dgv.Columns(8).FillWeight = 80 : 物料明細4_dgv.Columns(9).FillWeight = 80 : 物料明細4_dgv.Columns(10).FillWeight = 80 : 物料明細4_dgv.Columns(11).FillWeight = 80 End If For I As Integer = 0 To 物料明細4_dgv.Rows.Count - 1 物料明細4_dgv(15, I).Value = I + 1 Next End Sub Private Sub 讀取料號規格_05() Dim ds3 As New DataSet 物料明細5_dgv.DataSource = Nothing : ds3.Clear() 物料明細5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料明細5_dgv.ColumnHeadersHeight = 25 物料明細5_dgv.AllowUserToAddRows = False SQL_物料規格表_物料清單() da.Fill(ds3) : 物料明細5_dgv.DataSource = ds3.Tables(0) : conn.Close() 物料明細5_dgv.Columns(0).Visible = False : 物料明細5_dgv.Columns(1).Visible = False : 物料明細5_dgv.Columns(2).Visible = False : 物料明細5_dgv.Columns(3).Visible = False 物料明細5_dgv.Columns(12).FillWeight = 70 : 物料明細5_dgv.Columns(2).FillWeight = 135 : 物料明細5_dgv.Columns(13).Visible = False : 物料明細5_dgv.Columns(14).Visible = False 物料明細5_dgv.Columns(15).Visible = False : 物料明細5_dgv.Columns(12).Visible = False : 物料明細5_dgv.Columns(16).FillWeight = 25 : 物料明細5_dgv.Columns(17).FillWeight = 25 物料明細5_dgv.Columns(19).FillWeight = 25 : 物料明細5_dgv.Columns(20).FillWeight = 25 : 物料明細5_dgv.Columns(21).FillWeight = 25 : 物料明細5_dgv.Columns(22).FillWeight = 25 物料明細5_dgv.Columns(23).FillWeight = 25 : 物料明細5_dgv.Columns(18).FillWeight = 25 物料明細5_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細5_dgv.Columns(2).ReadOnly = True 物料明細5_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細5_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" 物料明細5_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細5_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細5_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細5_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If KKK2 = "SQLB03" Then 物料明細5_dgv.Columns(7).Visible = False : 物料明細5_dgv.Columns(8).Visible = False : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False 物料明細5_dgv.Columns(11).Visible = False 物料明細5_dgv.Columns(4).FillWeight = 213 : 物料明細5_dgv.Columns(5).FillWeight = 213 : 物料明細5_dgv.Columns(6).FillWeight = 214 ElseIf KKK2 = "SQLB04" Then 物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = False : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False 物料明細5_dgv.Columns(11).Visible = False 物料明細5_dgv.Columns(4).FillWeight = 160 : 物料明細5_dgv.Columns(5).FillWeight = 160 : 物料明細5_dgv.Columns(6).FillWeight = 160 : 物料明細5_dgv.Columns(7).FillWeight = 160 ElseIf KKK2 = "SQLB05" Then 物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = False : 物料明細5_dgv.Columns(10).Visible = False 物料明細5_dgv.Columns(11).Visible = False 物料明細5_dgv.Columns(4).FillWeight = 128 : 物料明細5_dgv.Columns(5).FillWeight = 128 : 物料明細5_dgv.Columns(6).FillWeight = 128 : 物料明細5_dgv.Columns(7).FillWeight = 128 物料明細5_dgv.Columns(8).FillWeight = 128 ElseIf KKK2 = "SQLB06" Then 物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = False 物料明細5_dgv.Columns(11).Visible = False 物料明細5_dgv.Columns(4).FillWeight = 106 : 物料明細5_dgv.Columns(5).FillWeight = 107 : 物料明細5_dgv.Columns(6).FillWeight = 106 : 物料明細5_dgv.Columns(7).FillWeight = 107 物料明細5_dgv.Columns(8).FillWeight = 106 : 物料明細5_dgv.Columns(9).FillWeight = 108 ElseIf KKK2 = "SQLB07" Then 物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = True 物料明細5_dgv.Columns(11).Visible = False 物料明細5_dgv.Columns(4).FillWeight = 91 : 物料明細5_dgv.Columns(5).FillWeight = 92 : 物料明細5_dgv.Columns(6).FillWeight = 91 : 物料明細5_dgv.Columns(7).FillWeight = 92 物料明細5_dgv.Columns(8).FillWeight = 91 : 物料明細5_dgv.Columns(9).FillWeight = 92 : 物料明細5_dgv.Columns(10).FillWeight = 91 ElseIf KKK2 = "SQLB08" Then 物料明細5_dgv.Columns(7).Visible = True : 物料明細5_dgv.Columns(8).Visible = True : 物料明細5_dgv.Columns(9).Visible = True : 物料明細5_dgv.Columns(10).Visible = True 物料明細5_dgv.Columns(11).Visible = True 物料明細5_dgv.Columns(4).FillWeight = 80 : 物料明細5_dgv.Columns(5).FillWeight = 80 : 物料明細5_dgv.Columns(6).FillWeight = 80 : 物料明細5_dgv.Columns(7).FillWeight = 80 物料明細5_dgv.Columns(8).FillWeight = 80 : 物料明細5_dgv.Columns(9).FillWeight = 80 : 物料明細5_dgv.Columns(10).FillWeight = 80 : 物料明細5_dgv.Columns(11).FillWeight = 80 End If End Sub Private Sub 物料明細1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料明細1_dgv.CellClick If e.RowIndex = -1 Then : Else 原始料號_tb.Text = Strings.Right(物料明細1_dgv.Rows(e.RowIndex).Cells("原始料號").Value.ToString, 4) : 料號tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells("Nomor_Bagian").Value.ToString AA1_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(4).Value.ToString : AA2_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(5).Value.ToString AA3_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(6).Value.ToString : AA4_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(7).Value.ToString AA5_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(8).Value.ToString : AA6_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(9).Value.ToString AA7_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(10).Value.ToString : AA8_tb.Text = 物料明細1_dgv.Rows(e.RowIndex).Cells(11).Value.ToString End If End Sub Private Sub 物料資訊_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊_dgv.CellClick If e.RowIndex = -1 Then : Else 群組碼2_tb.Text = 物料資訊_dgv(0, e.RowIndex).Value.ToString : 群組碼4_tb.Text = 物料資訊_dgv(0, e.RowIndex).Value.ToString 物料原則2_tb.Text = 物料資訊_dgv(1, e.RowIndex).Value.ToString : 料號原則2_tb.Text = 物料資訊_dgv(1, e.RowIndex).Value.ToString 原則說明_tb.Text = 物料資訊_dgv(2, e.RowIndex).Value.ToString : 品名_tb.Text = 物料資訊_dgv(2, e.RowIndex).Value.ToString 規格庫編號_cb.Text = 物料資訊_dgv(3, e.RowIndex).Value.ToString : 規格庫編號2_ch.Text = 物料資訊_dgv(3, e.RowIndex).Value.ToString 規格庫抬頭指定_cb.Text = 物料資訊_dgv(4, e.RowIndex).Value.ToString : 規格庫抬頭指定2_cb.Text = 物料資訊_dgv(4, e.RowIndex).Value.ToString KKK1 = 物料資訊_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1 讀取料號規格_01() 讀取料號規格_02() End If End Sub Private Sub 物料資訊1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊1_dgv.CellClick If e.RowIndex = -1 Then : Else If 物料明細2_dgv.Columns.Count.ToString > 16 Then 物料明細2_dgv.Columns.Remove("Pick") End If 料號原則2_tb.Text = 物料資訊1_dgv(1, e.RowIndex).Value.ToString 規格庫編號3_cb.Text = 物料資訊1_dgv(3, e.RowIndex).Value.ToString : 規格庫抬頭指定3_cb.Text = 物料資訊1_dgv(4, e.RowIndex).Value.ToString KKK1 = 物料資訊1_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1 讀取料號規格_01() Dim ds3 As New DataSet 物料明細2_dgv.DataSource = Nothing : ds3.Clear() 物料明細2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料明細2_dgv.ColumnHeadersHeight = 25 物料明細2_dgv.AllowUserToAddRows = False SQL_物料規格表_物料清單() da.Fill(ds3) : 物料明細2_dgv.DataSource = ds3.Tables(0) : conn.Close() Dim Col As New DataGridViewCheckBoxColumn With { .FillWeight = 50 } Col.HeaderText = "Pick" : Col.Name = "Pick" 物料明細2_dgv.Columns.Insert(24, Col) 物料明細2_dgv.Columns(0).Visible = False : 物料明細2_dgv.Columns(1).Visible = False : 物料明細2_dgv.Columns(2).Visible = False : 物料明細2_dgv.Columns(3).Visible = False 物料明細2_dgv.Columns(12).FillWeight = 70 : 物料明細2_dgv.Columns(2).FillWeight = 135 : 物料明細2_dgv.Columns(13).Visible = False : 物料明細2_dgv.Columns(14).FillWeight = 70 物料明細2_dgv.Columns(15).FillWeight = 40 : 物料明細2_dgv.Columns(16).Visible = False : 物料明細2_dgv.Columns(17).Visible = False : 物料明細2_dgv.Columns(18).Visible = False 物料明細2_dgv.Columns(19).Visible = False : 物料明細2_dgv.Columns(20).Visible = False : 物料明細2_dgv.Columns(21).Visible = False : 物料明細2_dgv.Columns(22).Visible = False 物料明細2_dgv.Columns(23).Visible = False 物料明細2_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 物料明細2_dgv.Columns(2).ReadOnly = True 物料明細2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0" : 物料明細2_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" 物料明細2_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細2_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細2_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 物料明細2_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If KKK2 = "SQLB03" Then 物料明細2_dgv.Columns(7).Visible = False : 物料明細2_dgv.Columns(8).Visible = False : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False 物料明細2_dgv.Columns(11).Visible = False 物料明細2_dgv.Columns(4).FillWeight = 213 : 物料明細2_dgv.Columns(5).FillWeight = 213 : 物料明細2_dgv.Columns(6).FillWeight = 214 ElseIf KKK2 = "SQLB04" Then 物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = False : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False 物料明細2_dgv.Columns(11).Visible = False 物料明細2_dgv.Columns(4).FillWeight = 160 : 物料明細2_dgv.Columns(5).FillWeight = 160 : 物料明細2_dgv.Columns(6).FillWeight = 160 : 物料明細2_dgv.Columns(7).FillWeight = 160 ElseIf KKK2 = "SQLB05" Then 物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = False : 物料明細2_dgv.Columns(10).Visible = False 物料明細2_dgv.Columns(11).Visible = False 物料明細2_dgv.Columns(4).FillWeight = 128 : 物料明細2_dgv.Columns(5).FillWeight = 128 : 物料明細2_dgv.Columns(6).FillWeight = 128 : 物料明細2_dgv.Columns(7).FillWeight = 128 物料明細2_dgv.Columns(8).FillWeight = 128 ElseIf KKK2 = "SQLB06" Then 物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = False 物料明細2_dgv.Columns(11).Visible = False 物料明細2_dgv.Columns(4).FillWeight = 106 : 物料明細2_dgv.Columns(5).FillWeight = 107 : 物料明細2_dgv.Columns(6).FillWeight = 106 : 物料明細2_dgv.Columns(7).FillWeight = 107 物料明細2_dgv.Columns(8).FillWeight = 106 : 物料明細2_dgv.Columns(9).FillWeight = 108 ElseIf KKK2 = "SQLB07" Then 物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = True 物料明細2_dgv.Columns(11).Visible = False 物料明細2_dgv.Columns(4).FillWeight = 91 : 物料明細2_dgv.Columns(5).FillWeight = 92 : 物料明細2_dgv.Columns(6).FillWeight = 91 : 物料明細2_dgv.Columns(7).FillWeight = 92 物料明細2_dgv.Columns(8).FillWeight = 91 : 物料明細2_dgv.Columns(9).FillWeight = 92 : 物料明細2_dgv.Columns(10).FillWeight = 91 ElseIf KKK2 = "SQLB08" Then 物料明細2_dgv.Columns(7).Visible = True : 物料明細2_dgv.Columns(8).Visible = True : 物料明細2_dgv.Columns(9).Visible = True : 物料明細2_dgv.Columns(10).Visible = True 物料明細2_dgv.Columns(11).Visible = True 物料明細2_dgv.Columns(4).FillWeight = 80 : 物料明細2_dgv.Columns(5).FillWeight = 80 : 物料明細2_dgv.Columns(6).FillWeight = 80 : 物料明細2_dgv.Columns(7).FillWeight = 80 物料明細2_dgv.Columns(8).FillWeight = 80 : 物料明細2_dgv.Columns(9).FillWeight = 80 : 物料明細2_dgv.Columns(10).FillWeight = 80 : 物料明細2_dgv.Columns(11).FillWeight = 80 End If For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 物料明細2_dgv("Pick", i).Value = False 物料明細2_dgv(15, i).Value = i + 1 Next End If End Sub Private Sub 物料資訊2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊2_dgv.CellClick If e.RowIndex = -1 Then : Else 群組碼5_tb.Text = 物料資訊2_dgv(0, e.RowIndex).Value.ToString : 料號原則3_tb.Text = 物料資訊2_dgv(1, e.RowIndex).Value.ToString 規格庫編號4_cb.Text = 物料資訊2_dgv(3, e.RowIndex).Value.ToString : 規格庫抬頭指定4_cb.Text = 物料資訊2_dgv(4, e.RowIndex).Value.ToString KKK1 = 物料資訊2_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1 讀取料號規格_01() 讀取料號規格_03() End If End Sub Private Sub 物料資訊3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊3_dgv.CellClick If e.RowIndex = -1 Then : Else 群組碼6_tb.Text = 物料資訊3_dgv(0, e.RowIndex).Value.ToString : 料號原則4_tb.Text = 物料資訊3_dgv(1, e.RowIndex).Value.ToString 規格庫編號5_cb.Text = 物料資訊3_dgv(3, e.RowIndex).Value.ToString : 料號原則5_tb.Text = 物料資訊3_dgv(1, e.RowIndex).Value.ToString 規格庫抬頭指定5_cb.Text = 物料資訊3_dgv(4, e.RowIndex).Value.ToString : 物料品名2_tb.Text = 物料資訊3_dgv(表頭(64), e.RowIndex).Value.ToString 物料品名1_tb.Text = 物料資訊3_dgv(表頭(64), e.RowIndex).Value.ToString : 圖檔編號1_tb.Text = 物料資訊3_dgv(6, e.RowIndex).Value.ToString 單位_tb.Text = 物料資訊3_dgv(表頭(16), e.RowIndex).Value.ToString KKK1 = 物料資訊3_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1 讀取料號規格_01() 讀取料號規格_04() If 物料明細4_dgv.Rows.Count = 0 Then 資料複製1_bt.Enabled = False Else 資料複製1_bt.Enabled = True End If End If End Sub Private Sub 物料資訊4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料資訊4_dgv.CellClick KKK1 = 物料資訊4_dgv(表頭(63), e.RowIndex).Value.ToString : PA2 = KKK1 讀取料號規格_01() : 讀取料號規格_05() If 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB03" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = False : S5_ch.Checked = False : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB04" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = False : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB05" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = False : S7_ch.Checked = False : S8_ch.Checked = False ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB06" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = False : S8_ch.Checked = False ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB07" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = True : S8_ch.Checked = False ElseIf 物料資訊4_dgv("Keyword", e.RowIndex).Value.ToString = "SQLB08" Then S1_ch.Checked = True : S2_ch.Checked = True : S3_ch.Checked = True : S4_ch.Checked = True : S5_ch.Checked = True : S6_ch.Checked = True : S7_ch.Checked = True : S8_ch.Checked = True End If End Sub Private Sub 物料群組_語言_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言_dgv.CellClick If e.RowIndex = -1 Then : Else 群組碼_tb.Text = 物料群組_dgv(0, e.RowIndex).Value.ToString : 群組碼1_tb.Text = 物料群組_dgv(0, e.RowIndex).Value.ToString 物料原則_tb.Text = "" : 物料品名_tb.Text = "" : Set_清單1() SQL_物料資料庫語言選定() For i As Integer = 1 To 3 If dr.Read() Then If dr("語言").ToString = "繁體中文" Then 類別1_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組") ElseIf dr("語言").ToString = "Indonesian" Then 類別3_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組") ElseIf dr("語言").ToString = "English" Then 類別2_tb.Text = dr("群組") : 群組碼10_tb.Text = dr("群組") End If End If Next End If End Sub Private Sub 物料編碼_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料編碼_dgv.CellClick If e.RowIndex = -1 Then : Else 物料原則_tb.Text = 物料編碼_dgv(1, e.RowIndex).Value.ToString : 料號原則_tb.Text = 物料編碼_dgv(1, e.RowIndex).Value.ToString 物料品名_tb.Text = 物料編碼_dgv(2, e.RowIndex).Value.ToString : 圖檔編號_tb.Text = 物料編碼_dgv(5, e.RowIndex).Value.ToString 群組碼1_tb.Text = 物料編碼_dgv(7, e.RowIndex).Value.ToString : 原則說明異動 = 物料編碼_dgv(2, e.RowIndex).Value.ToString 舊群組_cb.Text = 群組碼1_tb.Text If 批量選擇_ch.Checked = True Then If 物料編碼_dgv(4, e.RowIndex).Value = False Then : 物料編碼_dgv(4, e.RowIndex).Value = True ElseIf 物料編碼_dgv(4, e.RowIndex).Value = True Then : 物料編碼_dgv(4, e.RowIndex).Value = False : End If End If 是否有資料 = False For i As Integer = 0 To 物料品名_語轉_dgv.Rows.Count - 1 If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text Then If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "繁體中文" Then 品名1_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "English" Then 品名2_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "Indonesian" Then 品名3_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() End If 是否有資料 = True End If Next If 是否有資料 = False Then 品名1_tb.Text = 物料品名_tb.Text : 品名2_tb.Text = 物料品名_tb.Text : 品名3_tb.Text = 物料品名_tb.Text End If End If End Sub Private Sub 物料品名_語轉_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料品名_語轉_dgv.CellClick If e.RowIndex = -1 Then : Else 物料原則_tb.Text = 物料品名_語轉_dgv(1, e.RowIndex).Value.ToString For i As Integer = 0 To 物料品名_語轉_dgv.Rows.Count - 1 If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text Then If 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "繁體中文" Then 品名1_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "English" Then 品名2_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() ElseIf 物料品名_語轉_dgv(1, i).Value.ToString = 物料原則_tb.Text And 物料品名_語轉_dgv(2, i).Value.ToString = "Indonesian" Then 品名3_tb.Text = 物料品名_語轉_dgv(3, i).Value.ToString() End If End If Next For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 If 物料編碼_dgv(1, i).Value.ToString = 物料原則_tb.Text Then 物料品名_tb.Text = 物料編碼_dgv(2, i).Value.ToString End If Next End If End Sub Private Sub 物料群組_語言1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言1_dgv.CellClick If e.RowIndex = -1 Then : Else BL1 = True : PA1 = 群組碼1_dgv(0, e.RowIndex).Value.ToString : 群組碼(0) = 群組碼1_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表() : PA1 = "" : BL1 = False End If End Sub Private Sub 物料群組_語言2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言2_dgv.CellClick If e.RowIndex = -1 Then : Else BL1 = True : PA1 = 群組碼2_dgv(0, e.RowIndex).Value.ToString : 群組碼(1) = 群組碼2_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表1() : PA1 = "" : BL1 = False End If End Sub Private Sub 物料群組_語言3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言3_dgv.CellClick If e.RowIndex = -1 Then : Else BL1 = True : PA1 = 群組碼3_dgv(0, e.RowIndex).Value.ToString : 群組碼(2) = 群組碼3_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表2() : PA1 = "" : BL1 = False End If End Sub Private Sub 物料群組_語言4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言4_dgv.CellClick If e.RowIndex = -1 Then : Else BL1 = True : PA1 = 群組碼4_dgv(0, e.RowIndex).Value.ToString : 群組碼(3) = 群組碼4_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表3() : PA1 = "" : BL1 = False End If End Sub Private Sub 物料群組_語言5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料群組_語言5_dgv.CellClick If e.RowIndex = -1 Then : Else BL1 = True : PA1 = 群組碼5_dgv(0, e.RowIndex).Value.ToString : 群組碼(4) = 群組碼5_dgv(0, e.RowIndex).Value.ToString : 物料資訊控制表4() : PA1 = "" : BL1 = False End If End Sub Private Sub 規格表頭_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 規格表頭_dgv.CellClick If e.RowIndex = -1 Then : Else 規格庫抬頭指定_tb.Text = 規格表頭_dgv(0, e.RowIndex).Value.ToString : A1_tb.Text = 規格表頭_dgv(1, e.RowIndex).Value.ToString A2_tb.Text = 規格表頭_dgv(2, e.RowIndex).Value.ToString : A3_tb.Text = 規格表頭_dgv(3, e.RowIndex).Value.ToString A4_tb.Text = 規格表頭_dgv(4, e.RowIndex).Value.ToString : A5_tb.Text = 規格表頭_dgv(5, e.RowIndex).Value.ToString A6_tb.Text = 規格表頭_dgv(6, e.RowIndex).Value.ToString : A7_tb.Text = 規格表頭_dgv(7, e.RowIndex).Value.ToString A8_tb.Text = 規格表頭_dgv(8, e.RowIndex).Value.ToString : 系統語言_cb.Text = 規格表頭_dgv(9, e.RowIndex).Value.ToString BL1 = False : 物料資訊控制表() End If End Sub Private Sub 規格表頭_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 規格表頭_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 規格表頭_dgv.Rows.Count - 1 Then : Exit Sub : Else If 規格表頭_dgv(0, e.RowIndex).Value.ToString <> 規格表頭_dgv(0, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(規格表頭_dgv.RowHeadersVisible, 規格表頭_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 規格表頭_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 規格表頭_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub End If End If End Sub Private Sub 未指定表頭_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 未指定表頭_dgv.CellClick If e.RowIndex = -1 Then : Else 群組碼2_tb.Text = 未指定表頭_dgv(0, e.RowIndex).Value.ToString : 物料原則2_tb.Text = 未指定表頭_dgv(1, e.RowIndex).Value.ToString 原則說明_tb.Text = 未指定表頭_dgv(2, e.RowIndex).Value.ToString BL1 = True : PA1 = 未指定表頭_dgv(0, e.RowIndex).Value.ToString 物料資訊控制表() : PA1 = "" : BL1 = False End If End Sub Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料品名_語轉_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 物料品名_語轉_dgv.Rows.Count - 1 Then Exit Sub Else If 物料品名_語轉_dgv(1, e.RowIndex).Value.ToString <> 物料品名_語轉_dgv(1, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(物料品名_語轉_dgv.RowHeadersVisible, 物料品名_語轉_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 物料品名_語轉_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料品名_語轉_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) Exit Sub End If End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 新群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 新群組1_cb.SelectedIndexChanged PA = 新群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 新群組_cb.Text = dr("群組碼").ToString : End If : PA = "" End Sub Private Sub 舊群組1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 舊群組1_cb.SelectedIndexChanged PA = 舊群組1_cb.Text : SQL_群組碼_語轉_選擇() : If dr.Read Then : 舊群組_cb.Text = dr("群組碼") : End If : PA = "" End Sub Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then 本機_wb.Navigate(FolderBrowserDialog1.SelectedPath) End If End Sub Private Sub 改料號原則_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 改料號原則_ch.CheckedChanged If 改料號原則_ch.Checked = False Then 物料原則_tb.Enabled = False Else 物料原則_tb.Enabled = True End If End Sub Private Sub 規格庫抬頭指定2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定2_cb.SelectedIndexChanged AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = "" : PA3 = 規格庫抬頭指定2_cb.Text SQL_規格庫抬頭讀取() If dr.Read() Then AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") End If : conn.Close() If AAA1 = "" Then : Label70.Text = "A1" : Else : Label70.Text = AAA1 : End If : If AAA2 = "" Then : Label69.Text = "A2" : Else : Label69.Text = AAA2 : End If If AAA3 = "" Then : Label68.Text = "A3" : Else : Label68.Text = AAA3 : End If : If AAA4 = "" Then : Label67.Text = "A4" : Else : Label67.Text = AAA4 : End If If AAA5 = "" Then : Label66.Text = "A5" : Else : Label66.Text = AAA5 : End If : If AAA6 = "" Then : Label65.Text = "A6" : Else : Label65.Text = AAA6 : End If If AAA7 = "" Then : Label64.Text = "A7" : Else : Label64.Text = AAA7 : End If : If AAA8 = "" Then : Label63.Text = "A8" : Else : Label63.Text = AAA8 : End If End Sub Private Sub 規格庫編號2_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫編號2_ch.SelectedIndexChanged If 規格庫編號2_ch.Text = "SQLB03" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = False AA5_tb.Enabled = False : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False ElseIf 規格庫編號2_ch.Text = "SQLB04" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True AA5_tb.Enabled = False : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False ElseIf 規格庫編號2_ch.Text = "SQLB05" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True AA5_tb.Enabled = True : AA6_tb.Enabled = False : AA7_tb.Enabled = False : AA8_tb.Enabled = False ElseIf 規格庫編號2_ch.Text = "SQLB06" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = False : AA8_tb.Enabled = False ElseIf 規格庫編號2_ch.Text = "SQLB07" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = True : AA8_tb.Enabled = False ElseIf 規格庫編號2_ch.Text = "SQLB08" Then AA1_tb.Enabled = True : AA2_tb.Enabled = True : AA3_tb.Enabled = True : AA4_tb.Enabled = True AA5_tb.Enabled = True : AA6_tb.Enabled = True : AA7_tb.Enabled = True : AA8_tb.Enabled = True End If End Sub Private Sub 規格庫抬頭指定_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定_cb.SelectedIndexChanged 規格庫編號_cb.Text = "SQLB" & Mid(規格庫抬頭指定_cb.Text, 3, 2) End Sub Private Sub 規格庫抬頭指定1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定1_cb.SelectedIndexChanged 規格庫編號1_cb.Text = "SQLB" & Mid(規格庫抬頭指定1_cb.Text, 3, 2) End Sub Private Sub 規格庫抬頭指定3_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定3_cb.SelectedIndexChanged 規格庫編號3_cb.Text = "SQLB" & Mid(規格庫抬頭指定3_cb.Text, 3, 2) End Sub Private Sub 規格庫抬頭指定4_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 規格庫抬頭指定4_cb.SelectedIndexChanged 規格庫編號4_cb.Text = "SQLB" & Mid(規格庫抬頭指定4_cb.Text, 3, 2) End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim files As String() Try files = CType(e.Data.GetData(DataFormats.FileDrop), String()) 檔案名稱_tb.Text = files(files.Length - 1) Catch ex As Exception MessageBox.Show(ex.Message) Return End Try End If Dim STR2 As Integer = 0 檔案路徑_tb.Text = 檔案名稱_tb.Text If 檔案名稱_tb.Text = "" Then Else For i As Integer = 0 To 9999 Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text) If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then STR1 -= 1 : STR2 += 1 If STR1 = 0 Then 檔案路徑_tb.Text = "" 檔案名稱_tb.Text = "" i = 9999 Else 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) End If Else 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) 檔案名稱_tb.Text = 檔案路徑_tb.Text i = 9999 End If Next End If End Sub Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop Dim files As Array = e.Data.GetData(DataFormats.FileDrop) For Each file As String In files 檔案名稱_tb.AppendText(file + Environment.NewLine) Next End Sub Private Sub SET_新增按鈕程式共用3() cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() conn.Close() : dr.Close() End Sub Private Sub SET_新增按鈕程式共用2() cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() MsgBox(對話框(0)) conn.Close() : dr.Close() End Sub Private Sub SET_修改按鈕程式共用1() cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() MsgBox(對話框(0)) conn.Close() End Sub Private Sub SET_刪除按鈕程式共用1() Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then ConnOpen() : CmdSet_For_dr() : MsgBox(對話框(11)) End If : conn.Close() End Sub Private Sub SET_刪除按鈕程式共用2() Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then ConnOpen() : CmdSet_For_dr() : MsgBox(對話框(11)) End If : conn.Close() : 式共用1() End Sub Private Sub 式共用1() Set_物料群組_語轉() : Set_物料群組() : Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() : Set_清單1() : Set_物料規格庫() : 物料資訊控制表() 物料資訊控制表1() : 物料資訊控制表2() : 物料資訊控制表3() : Set_物料資訊控制表未新增() : 群組碼_cb_語轉_下拉表單資料載入() : 群組碼_cb_下拉表單資料載入() If 物料品名_tb.Text <> 原則說明異動 Then : Set_清單1() : Else : Set_清單1_語轉() : End If End Sub Private Sub 式共用2() conn.Close() : dr.Close() : ConnOpen() End Sub Private Sub 式共用3() ConnOpen() End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 群組新增_bt_Click(sender As Object, e As EventArgs) Handles 群組新增_bt.Click If 群組碼_tb.Text = "" Or 類別1_tb.Text = "" Or 類別2_tb.Text = "" Or 類別3_tb.Text = "" Then MsgBox(對話框(1)) Else 式共用3() : SQL_物料資料庫_群組碼重複查詢() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉1() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉2() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉3() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用2() : SQL_物料資料庫_新增群組碼() : SET_新增按鈕程式共用3() 式共用2() : SQL_物料資料庫_新增群組碼_語轉1() : SET_新增按鈕程式共用3() 式共用2() : SQL_物料資料庫_新增群組碼_語轉2() : SET_新增按鈕程式共用3() 式共用2() : SQL_物料資料庫_新增群組碼_語轉3() : SET_新增按鈕程式共用2() End If End If End If End If End If : 式共用1() End Sub Private Sub 群組修改_bt_Click(sender As Object, e As EventArgs) Handles 群組修改_bt.Click If 群組碼_tb.Text = "" Or 類別1_tb.Text = "" Or 類別2_tb.Text = "" Or 類別3_tb.Text = "" Then MsgBox(對話框(1)) Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反1() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反2() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用3() : SQL_物料資料庫_群組碼重複查詢_語轉反3() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else PA = InputBox(對話框(14), 群組碼_tb.Text, 群組碼_tb.Text) If PA = "" Then MsgBox(對話框(15)) Else 式共用3() : SQL_物料資料庫_群組碼修改0_1() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改0_2() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改0_3() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改1() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改2() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改3() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改4() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改5() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改6() : CmdSet_For_dr() 式共用3() : SQL_物料資料庫_群組碼修改7() : CmdSet_For_dr() : conn.Close() MsgBox(對話框(4)) End If End If End If End If End If : 式共用1() End Sub Private Sub 群組刪除_bt_Click(sender As Object, e As EventArgs) Handles 群組刪除_bt.Click 輸入密碼.ShowDialog() If PA = "0013975151" Then SQL_物料資料庫_群組碼刪除() : SET_刪除按鈕程式共用2() SQL_物料資料庫_群組碼刪除_語轉() : SET_刪除按鈕程式共用1() 式共用1() Else If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除群組!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus grup!!") : End If End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 下載圖片_bt_Click(sender As Object, e As EventArgs) Handles 下載圖片_bt.Click If 圖檔編號_tb.Text = "" Then MsgBox(對話框(5)) Else With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With SaveFileDialog1.FileName = 料號原則_tb.Text & "-" & Format(Today(), "yyyyMMdd") & ".jpg" SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName Dim ds1 As New DataSet : ds1.Clear() : PA3 = 圖檔編號_tb.Text : SQL_物料圖庫_圖檔讀取三() : da.Fill(ds1) If ds1.Tables(0).Rows.Count > 0 Then Dim imgData() As Byte imgData = ds1.Tables(0).Rows(0).Item("圖檔") Dim fs As FileStream fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1) fs.Write(imgData, 0, imgData.Length - 1) fs.Close() End If : conn.Close() MsgBox(對話框(6)) End If End Sub Private Sub 群組轉換_bt_Click(sender As Object, e As EventArgs) Handles 群組轉換_bt.Click If 新群組_cb.Text = "" Or 舊群組_cb.Text = "" Then MsgBox(對話框(16)) Else For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 資料數 = 物料編碼_dgv.Rows.Count : MyModule1.進度條() If 物料編碼_dgv("Pick", i).Value = True Then conn.Close() : dr.Close() : PA1 = 新群組_cb.Text : PA2 = 舊群組_cb.Text : PA3 = 物料編碼_dgv(1, i).Value.ToString SQL_物料資料庫_群組碼批量修改1() : SQL_物料資料庫_群組碼批量修改2() : SQL_物料資料庫_群組碼批量修改3() SQL_物料資料庫_群組碼批量修改4() : SQL_物料資料庫_群組碼批量修改5() : SQL_物料資料庫_群組碼批量修改6() SQL_物料資料庫_群組碼批量修改_語轉1() End If Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單1() : MsgBox(對話框(4)) End If End Sub Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click If 批量選擇_ch.Checked = True Then For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 : 物料編碼_dgv.Rows(i).Cells(4).Value = True : Next i End If End Sub Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click If 批量選擇_ch.Checked = True Then For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 : 物料編碼_dgv.Rows(i).Cells(4).Value = False : Next i End If End Sub Private Sub 全部選擇1_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇1_bt.Click For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 : 物料明細2_dgv.Rows(i).Cells("Pick").Value = True : Next i End Sub Private Sub 全部取消1_bt_Click(sender As Object, e As EventArgs) Handles 全部取消1_bt.Click For i As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 : 物料明細2_dgv.Rows(i).Cells("Pick").Value = False : Next i End Sub Private Sub 全部選擇2_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇2_bt.Click For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 : 物料明細3_dgv.Rows(i).Cells("Pick").Value = True : Next i End Sub Private Sub 全部取消2_bt_Click(sender As Object, e As EventArgs) Handles 全部取消2_bt.Click For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 : 物料明細3_dgv.Rows(i).Cells("Pick").Value = False : Next i End Sub Private Sub 讀取無圖片資料_bt_Click(sender As Object, e As EventArgs) Handles 讀取無圖片資料_bt.Click BL1 = True : Set_清單1() End Sub Private Sub 物料原則新增_tb_Click(sender As Object, e As EventArgs) Handles 物料原則新增_tb.Click If 群組碼1_tb.Text = "" Or 物料原則_tb.Text = "" Or 品名1_tb.Text = "" Or 品名2_tb.Text = "" Or 品名3_tb.Text = "" Then MsgBox(對話框(1)) Else PA = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫重複確認() If dr.Read() Then MsgBox(對話框(13)) conn.Close() : dr.Close() Else conn.Close() : dr.Close() PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : PA3 = 物料品名_tb.Text SQL_物料資料庫_物料編碼庫新增() SQL_物料資料庫_物料編碼庫新增_語轉1() SQL_物料資料庫_物料編碼庫新增_語轉2() SQL_物料資料庫_物料編碼庫新增_語轉3() MsgBox(對話框(17)) End If End If 式共用1() End Sub Private Sub 物料原則修改_tb_Click(sender As Object, e As EventArgs) Handles 修改品名後存檔_bt.Click If 群組碼1_tb.Text = "" Or 物料原則_tb.Text = "" Or 品名1_tb.Text = "" Or 品名2_tb.Text = "" Or 品名3_tb.Text = "" Then MsgBox(對話框(1)) Else If 改料號原則_ch.Checked = True Then PA = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫重複確認() If dr.Read() Then MsgBox(對話框(13)) conn.Close() : dr.Close() Else conn.Close() : dr.Close() : PA1 = 物料原則_tb.Text : PA2 = 物料品名_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 料號原則_tb.Text SQL_物料資料庫_修改品名後存檔1() : SQL_物料資料庫_修改品名後存檔2() : SQL_物料資料庫_修改品名後存檔3() SQL_物料資料庫_修改品名後存檔4() : SQL_物料資料庫_修改品名後存檔5() : SQL_物料資料庫_修改品名後存檔6() PA = 物料原則_tb.Text : PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫語轉重複確認() If dr.Read() Then PA = 物料原則_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 物料原則_tb.Text SQL_物料資料庫_修改品名後存檔_語轉1() : SQL_物料資料庫_修改品名後存檔_語轉2() : SQL_物料資料庫_修改品名後存檔_語轉3() Else SQL_物料資料庫_物料編碼庫新增_語轉1() : SQL_物料資料庫_物料編碼庫新增_語轉2() : SQL_物料資料庫_物料編碼庫新增_語轉3() End If Set_清單1() MsgBox(對話框(4)) End If Else PA2 = 物料品名_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 料號原則_tb.Text SQL_物料編碼庫_品名修改() : conn.Close() SQL_物料資訊控制表_品名修改() : conn.Close() PA = 物料原則_tb.Text : PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text : SQL_物料資料庫_物料編碼庫語轉重複確認() If dr.Read() Then PA = 物料原則_tb.Text : PA3 = 群組碼1_tb.Text : PA4 = 物料原則_tb.Text SQL_物料資料庫_修改品名後存檔_語轉1() : SQL_物料資料庫_修改品名後存檔_語轉2() : SQL_物料資料庫_修改品名後存檔_語轉3() Else SQL_物料資料庫_物料編碼庫新增_語轉1() : SQL_物料資料庫_物料編碼庫新增_語轉2() : SQL_物料資料庫_物料編碼庫新增_語轉3() End If MsgBox(對話框(0)) : 式共用1() End If End If End Sub Private Sub 物料原則刪除_tb_Click(sender As Object, e As EventArgs) Handles 物料原則刪除_tb.Click 輸入密碼.ShowDialog() If PA = "0013975151" Then Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text SQL_物料資料庫_物料編碼庫刪除() : SQL_物料資料庫_物料資訊控制表刪除3() : SQL_物料資料庫_物料規格表刪除() : SQL_物料資料庫_物料圖庫刪除() : SQL_物料資料庫_物料規格表刪除_語轉() MsgBox(對話框(11)) End If conn.Close() : 式共用1() Else If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除物料!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus materi!!") : End If End If End Sub Private Sub 修改清單資料後存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改清單資料後存檔_bt.Click For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 資料數 = 物料編碼_dgv.Rows.Count : MyModule1.進度條() PA1 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(16) & "").Value.ToString : PA2 = 物料編碼_dgv.Rows(i).Cells("群組碼").Value.ToString PA3 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(63) & "").Value.ToString SQL_物料編碼庫_單位修改() : conn.Close() If 物料編碼_dgv("Pick", i).Value = True Then PA2 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(64) & "").Value.ToString : PA3 = 物料編碼_dgv.Rows(i).Cells("群組碼").Value.ToString PA4 = 物料編碼_dgv.Rows(i).Cells("" & 表頭(63) & "").Value.ToString SQL_物料編碼庫_品名修改() : conn.Close() : SQL_物料資訊控制表_品名修改() : conn.Close() End If Next 式共用1() : MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 批量選擇_ch.Checked = False End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 圖檔入系統_bt_Click_1(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click SQL_物料資料庫_物料圖片流水號最後一筆() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("圖片流水號").ToString, 8)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR End If 圖檔編號_tb.Text = ESTR If 檔案名稱_tb.Text = "" Then MsgBox(對話框(3)) Else '-------------判斷FTP資料夾中是否有該文件-------------------------------------------------------------------------------------------------------- Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text)) ftpclient.UseBinary = True ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼) ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails ftpclient.KeepAlive = False Dim ftpresponse As System.Net.FtpWebResponse Try ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse) Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription) Dim content(1024) As Byte : Dim index_a As Integer = 0 index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) Dim contentstring As String = String.Empty While index_a > 0 index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content) End While ftpresponse.Close() If contentstring.LastIndexOf(檔案名稱_tb.Text) > 0 Then Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text) For i As Integer = 1 To 10 If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If End If Next If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then SQL_物料資料庫_圖檔入系統() : conn.Close() : FTP方式刪除檔案() : If 系統語言 = "繁體中文" Then : MsgBox("上傳完畢!!") : Else : MsgBox("Unggah Selesai!!") : End If Else : FTP方式刪除檔案() : MsgBox(對話框(21)) : End If Else : MsgBox(對話框(22)) : End If Catch ex As Exception MsgBox(ex.Message) End Try '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 檔案名稱_tb.Text = "" : Set_清單1() : 圖檔編號_tb.Text = "" End If End Sub Private Sub 圖片修改_bt_Click(sender As Object, e As EventArgs) Handles 圖片修改_bt.Click If 圖檔編號_tb.Text = "" Then MsgBox(對話框(2)) Else If 檔案名稱_tb.Text = "" Then MsgBox(對話框(3)) Else '-------------判斷FTP資料夾中是否有該文件-------------------------------------------------------------------------------------------------------- Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text)) ftpclient.UseBinary = True ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼) ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails ftpclient.KeepAlive = False Dim ftpresponse As System.Net.FtpWebResponse Try ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse) Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription) Dim content(1024) As Byte : Dim index_a As Integer = 0 index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) Dim contentstring As String = String.Empty While index_a > 0 index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content) End While ftpresponse.Close() If contentstring.LastIndexOf(檔案名稱_tb.Text) > 0 Then Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text) For i As Integer = 1 To 10 If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If End If Next If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then SQL_物料圖庫_圖片修改() : conn.Close() : FTP方式刪除檔案() : 檔案名稱_tb.Text = "" : MsgBox(對話框(4)) Else : FTP方式刪除檔案() : MsgBox(對話框(21)) : End If Else : MsgBox(對話框(22)) : End If Catch ex As Exception MsgBox(ex.Message) End Try '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 檔案名稱_tb.Text = "" : Set_清單1() : 圖檔編號_tb.Text = "" End If End If End Sub Private Sub FTP方式刪除檔案() '---FTP方式刪除檔案---------------------------------------------------------------------------------------------------------------------------------------------------------------------- Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest) fcr = New NetworkCredential(FTP帳號, FTP密碼) frq.Credentials = fcr frq.Method = WebRequestMethods.Ftp.DeleteFile frq.UseBinary = True frp = CType(frq.GetResponse, FtpWebResponse) frp.Close() 伺服器_wb.Refresh() End Sub Private Sub 刪除圖檔_bt_Click(sender As Object, e As EventArgs) Handles 刪除圖檔_bt.Click 輸入密碼.ShowDialog() If PA = "0013975151" Then Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_物料資料庫_物料圖庫() : Set_清單1() : 圖檔編號_tb.Text = "" End If Else If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除圖片!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus gambar!!") : End If End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 規格表頭新增_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭新增_tb.Click If 規格庫抬頭指定_tb.Text = "" Or A1_tb.Text = "" Or A2_tb.Text = "" Or A3_tb.Text = "" Then MsgBox(對話框(1)) Else SQL_物料資料庫_規格庫抬頭指定重複查詢() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else conn.Close() : dr.Close() For I As Integer = 1 To 3 If I = 1 Then : PA = "繁體中文" ElseIf I = 2 Then : PA = "English" ElseIf I = 3 Then : PA = "Indonesian" : End If SQL_物料資料庫_規格庫抬頭指定新增() Next conn.Close() : dr.Close() MsgBox(對話框(17)) End If End If Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入() End Sub Private Sub 規格表頭修改_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭修改_tb.Click If 規格庫抬頭指定_tb.Text = "" Or A1_tb.Text = "" Or A2_tb.Text = "" Or A3_tb.Text = "" Then MsgBox(對話框(1)) Else SQL_物料資料庫_規格庫抬頭指定修改() : conn.Close() MsgBox(對話框(4)) End If Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入() End Sub Private Sub 規格表頭刪除_tb_Click(sender As Object, e As EventArgs) Handles 規格表頭刪除_tb.Click 輸入密碼.ShowDialog() If PA = "0013975151" Then If 物料資訊_dgv.Rows.Count <> 0 Then MsgBox(對話框(8)) Else Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_物料資料庫_規格庫抬頭指定刪除() : MsgBox(對話框(11)) End If conn.Close() Set_物料規格庫() : 規格庫抬頭指定_cb_下拉表單資料載入() End If Else If 系統語言 = "繁體中文" Then : MsgBox("你沒有權限刪除規格表頭!!") : Else : MsgBox("Anda tidak memiliki izin untuk menghapus tajuk spesifikasi!!") : End If End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 新增物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 新增物料資訊_bt.Click If 群組碼2_tb.Text = "" Or 物料原則2_tb.Text = "" Or 原則說明_tb.Text = "" Or 規格庫編號1_cb.Text = "" Or 規格庫抬頭指定1_cb.Text = "" Then MsgBox(對話框(1)) Else 式共用3() : SQL_物料資料庫_物料資訊控制表重複查詢() : CmdSet_For_dr() If dr.Read() Then MsgBox(對話框(13)) : conn.Close() : dr.Close() Else 式共用2() PA6 = 原則說明_tb.Text : PA7 = 群組碼2_tb.Text : PA8 = 物料原則2_tb.Text : PA9 = 規格庫編號1_cb.Text : PA10 = 規格庫抬頭指定1_cb.Text SQL_物料資料庫_物料資訊控制表新增() : SET_新增按鈕程式共用2() End If End If : 式共用1() End Sub Private Sub 修改物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 修改物料資訊_bt.Click If 群組碼2_tb.Text = "" Or 物料原則2_tb.Text = "" Or 原則說明_tb.Text = "" Or 規格庫編號1_cb.Text = "" Or 規格庫抬頭指定_cb.Text = "" Or 規格庫編號_cb.Text = "" Or 規格庫抬頭指定1_cb.Text = "" Then MsgBox(對話框(1)) Else Dim aa1 As MsgBoxResult = MsgBox(對話框(7), MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then SQL_物料資訊控制表_資訊修改() : conn.Close() : MsgBox(對話框(0)) End If 式共用1() End If End Sub Private Sub 刪除物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 刪除物料資訊_bt.Click If Val(登入人級別) = 0 Then SQL_物料資料庫_物料資訊控制表刪除() : SET_刪除按鈕程式共用1() Else MsgBox(對話框(19)) End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ Private Sub 修改物料規格_存量存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改物料規格_存量存檔_bt.Click For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1 資料數 = 物料明細1_dgv.Rows.Count : MyModule1.進度條() PA1 = 物料明細1_dgv(4, i).Value.ToString : PA2 = 物料明細1_dgv(5, i).Value.ToString : PA3 = 物料明細1_dgv(6, i).Value.ToString PA4 = 物料明細1_dgv(7, i).Value.ToString : PA5 = 物料明細1_dgv(8, i).Value.ToString : PA6 = 物料明細1_dgv(9, i).Value.ToString PA7 = 物料明細1_dgv(10, i).Value.ToString : PA8 = 物料明細1_dgv(11, i).Value.ToString : PA9 = 物料明細1_dgv.Rows(i).Cells(表頭(65)).Value PA10 = 物料明細1_dgv.Rows(i).Cells(表頭(66)).Value : PA11 = 物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value SQL_物料規格表_修改() : conn.Close() Next MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 新增物料料號_bt_Click(sender As Object, e As EventArgs) Handles 新增物料料號_bt.Click If 料號原則2_tb.Text = "" Then MsgBox(對話框(9)) Else Dim 進位 As Integer PA = 料號原則2_tb.Text SQL_物料規格表_後四碼() If dr.Read() Then 進位 = Val(dr("後四碼")) + 1 If 進位 < 10 Then : 原始料號_tb.Text = "000" & 進位 ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號_tb.Text = "00" & 進位 ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號_tb.Text = "0" & 進位 ElseIf 進位 > 999 Then : 原始料號_tb.Text = 進位 End If Else 原始料號_tb.Text = "0000" End If : conn.Close() PA1 = 料號原則2_tb.Text : PA2 = 原始料號_tb.Text : PA3 = 群組碼4_tb.Text : PA4 = 料號原則2_tb.Text PA5 = AA1_tb.Text : PA6 = AA2_tb.Text : PA7 = AA3_tb.Text : PA8 = AA4_tb.Text : PA9 = AA5_tb.Text : PA10 = AA6_tb.Text : PA11 = AA7_tb.Text : PA12 = AA8_tb.Text SQL_物料規格表_料號查詢() If dr.Read() Then conn.Close() MsgBox(對話框(10)) Else SQL_物料規格表_新增() : conn.Close() MsgBox(對話框(0)) PA2 = 料號原則2_tb.Text : PA3 = 規格庫抬頭指定2_cb.Text 讀取料號規格_01() : 讀取料號規格_02() End If End If End Sub Private Sub 刪除料號_bt_Click(sender As Object, e As EventArgs) Handles 刪除料號_bt.Click If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then PA1 = 料號tb.Text SQL_物料規格表_刪除() : conn.Close() MsgBox(對話框(11)) PA2 = 料號原則2_tb.Text : PA3 = 規格庫抬頭指定2_cb.Text 讀取料號規格_01() : 讀取料號規格_02() Else MsgBox(對話框(8)) End If End Sub Private Sub 料號修改_bt_Click(sender As Object, e As EventArgs) Handles 料號修改_bt.Click EDR = Val(編碼_tb.Text) If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1 EDR += 1 If EDR < 10 Then : ESTR = "000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "00" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "0" & EDR ElseIf EDR > 999 Then : ESTR = EDR End If 物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value = 料號原則2_tb.Text & "-" & ESTR Next Else MsgBox(對話框(8)) End If End Sub Private Sub 料號修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 料號修改存檔_bt.Click If Val(登入人級別) = 1 Or Val(登入人級別) = 0 Then For i As Integer = 0 To 物料明細1_dgv.Rows.Count - 1 資料數 = 物料明細1_dgv.Rows.Count : MyModule1.進度條() PA10 = 物料明細1_dgv.Rows(i).Cells("Nomor_Bagian").Value : PA11 = 物料明細1_dgv.Rows(i).Cells("原始料號").Value SQL_合約試算明細表_料號修改() : SQL_物料規格表_料號修改() : SQL_倉儲明細表_料號修改() : SQL_請購單明細表_料號修改() : SQL_採購單明細表_料號修改() : conn.Close() Next MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Else MsgBox(對話框(8)) End If End Sub Private Sub 資料複製_bt_Click(sender As Object, e As EventArgs) Handles 資料複製_bt.Click If 料號原則3_tb.Text = "" Then MsgBox(對話框(9)) Else Dim 進位 As Integer : PA = 料號原則3_tb.Text : PA1 = 料號原則3_tb.Text : PA3 = 群組碼5_tb.Text : PA4 = 料號原則3_tb.Text For I As Integer = 0 To 物料明細2_dgv.Rows.Count - 1 資料數 = 物料明細2_dgv.Rows.Count : MyModule1.進度條() If 物料明細2_dgv(15, I).Value = True Then SQL_物料規格表_後四碼() If dr.Read() Then 進位 = Val(dr("後四碼")) + 1 If 進位 < 10 Then : 原始料號1_tb.Text = "000" & 進位 ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號1_tb.Text = "00" & 進位 ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號1_tb.Text = "0" & 進位 ElseIf 進位 > 999 Then : 原始料號1_tb.Text = 進位 End If Else 原始料號1_tb.Text = "0001" End If : conn.Close() PA2 = 原始料號1_tb.Text PA5 = 物料明細2_dgv(4, I).Value.ToString : PA6 = 物料明細2_dgv(5, I).Value.ToString : PA7 = 物料明細2_dgv(6, I).Value.ToString : PA8 = 物料明細2_dgv(7, I).Value.ToString PA9 = 物料明細2_dgv(8, I).Value.ToString : PA10 = 物料明細2_dgv(9, I).Value.ToString : PA11 = 物料明細2_dgv(10, I).Value.ToString : PA12 = 物料明細2_dgv(11, I).Value.ToString SQL_物料規格表_料號查詢() If dr.Read() Then conn.Close() Else SQL_物料規格表_新增() : conn.Close() End If End If Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 PA2 = 料號原則3_tb.Text : PA3 = 規格庫抬頭指定4_cb.Text : 讀取料號規格_01() : 讀取料號規格_03() : MsgBox(對話框(0)) End If End Sub Private Sub 批量刪除_bt_Click(sender As Object, e As EventArgs) Handles 批量刪除_bt.Click If 料號原則3_tb.Text = "" Then MsgBox(對話框(20)) Else Dim aa As MsgBoxResult = MsgBox(對話框(12), MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then For i As Integer = 0 To 物料明細3_dgv.Rows.Count - 1 If 物料明細3_dgv("Pick", i).Value = True Then PA = 物料明細3_dgv("Nomor_Bagian", i).Value.ToString SQL_物料資料庫_物料資訊控制表刪除1() End If Next MsgBox(對話框(11)) End If conn.Close() PA2 = 料號原則3_tb.Text : PA3 = 規格庫抬頭指定4_cb.Text : 讀取料號規格_01() : 讀取料號規格_03() : MsgBox(對話框(0)) End If End Sub Private Sub 資料複製1_bt_Click(sender As Object, e As EventArgs) Handles 資料複製1_bt.Click If 料號原則5_tb.Text = "" Or 物料品名2_tb.Text = "" Then MsgBox(對話框(1)) Else PA = 料號原則5_tb.Text : SQL_物料資料庫_物料編碼庫重複確認() If dr.Read() Then MsgBox(對話框(13)) conn.Close() : dr.Close() Else conn.Close() : dr.Close() PA1 = 群組碼6_tb.Text : PA2 = 料號原則5_tb.Text : PA3 = 物料品名2_tb.Text SQL_物料資料庫_物料編碼庫新增() PA1 = 單位_tb.Text : PA2 = 群組碼6_tb.Text : PA3 = 料號原則5_tb.Text SQL_物料編碼庫_單位修改() Dim 舊圖檔 As String = 圖檔編號1_tb.Text SQL_物料資料庫_物料圖片流水號最後一筆() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("圖片流水號").ToString, 8)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR End If 圖檔編號1_tb.Text = ESTR PA4 = 舊圖檔 : PA5 = 圖檔編號1_tb.Text : PA2 = 料號原則5_tb.Text SQL_物料資料庫_複製圖檔() 式共用2() PA6 = 物料品名2_tb.Text : PA7 = 群組碼6_tb.Text : PA8 = 料號原則5_tb.Text : PA9 = 規格庫編號5_cb.Text : PA10 = 規格庫抬頭指定5_cb.Text SQL_物料資料庫_物料資訊控制表新增() : SET_新增按鈕程式共用3() Dim 進位 As Integer : PA = 料號原則5_tb.Text : PA1 = 料號原則5_tb.Text : PA3 = 群組碼6_tb.Text : PA4 = 料號原則5_tb.Text For I As Integer = 0 To 物料明細4_dgv.Rows.Count - 1 資料數 = 物料明細4_dgv.Rows.Count : MyModule1.進度條() SQL_物料規格表_後四碼() If dr.Read() Then 進位 = Val(dr("後四碼")) + 1 If 進位 < 10 Then : 原始料號2_tb.Text = "000" & 進位 ElseIf 進位 > 9 And 進位 < 100 Then : 原始料號2_tb.Text = "00" & 進位 ElseIf 進位 > 99 And 進位 < 1000 Then : 原始料號2_tb.Text = "0" & 進位 ElseIf 進位 > 999 Then : 原始料號2_tb.Text = 進位 End If Else 原始料號2_tb.Text = "0001" End If : conn.Close() PA2 = 原始料號2_tb.Text PA5 = 物料明細4_dgv(4, I).Value.ToString : PA6 = 物料明細4_dgv(5, I).Value.ToString : PA7 = 物料明細4_dgv(6, I).Value.ToString : PA8 = 物料明細4_dgv(7, I).Value.ToString PA9 = 物料明細4_dgv(8, I).Value.ToString : PA10 = 物料明細4_dgv(9, I).Value.ToString : PA11 = 物料明細4_dgv(10, I).Value.ToString : PA12 = 物料明細4_dgv(11, I).Value.ToString SQL_物料規格表_料號查詢() If dr.Read() Then conn.Close() Else SQL_物料規格表_新增() : conn.Close() End If Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 MsgBox(對話框(0)) conn.Close() : dr.Close() BL1 = True : PA1 = 群組碼6_tb.Text : 物料資訊控制表3() : PA1 = "" : BL1 = False End If End If End Sub Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click 小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : Set_清單1() End Sub Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : Set_清單1() End Sub Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : Set_清單1() End Sub Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click 小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False End Sub Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click 小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False End Sub Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click 小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : BL1 = True : PA1 = 群組碼(0) : 物料資訊控制表() : PA1 = "" : BL1 = False End Sub Private Sub 小間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距2_ch.Click 小間距2_ch.Checked = True : 中間距2_ch.Checked = False : 大間距2_ch.Checked = False : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False End Sub Private Sub 中間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距2_ch.Click 小間距2_ch.Checked = False : 中間距2_ch.Checked = True : 大間距2_ch.Checked = False : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False End Sub Private Sub 大間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距2_ch.Click 小間距2_ch.Checked = False : 中間距2_ch.Checked = False : 大間距2_ch.Checked = True : BL1 = True : PA1 = 群組碼(1) : 物料資訊控制表1() : PA1 = "" : BL1 = False End Sub Private Sub 小間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距3_ch.Click 小間距3_ch.Checked = True : 中間距3_ch.Checked = False : 大間距3_ch.Checked = False : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False End Sub Private Sub 中間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距3_ch.Click 小間距3_ch.Checked = False : 中間距3_ch.Checked = True : 大間距3_ch.Checked = False : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False End Sub Private Sub 大間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距3_ch.Click 小間距3_ch.Checked = False : 中間距3_ch.Checked = False : 大間距3_ch.Checked = True : BL1 = True : PA1 = 群組碼(2) : 物料資訊控制表2() : PA1 = "" : BL1 = False End Sub Private Sub 小間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距4_ch.Click 小間距4_ch.Checked = True : 中間距4_ch.Checked = False : 大間距4_ch.Checked = False : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False End Sub Private Sub 中間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距4_ch.Click 小間距4_ch.Checked = False : 中間距4_ch.Checked = True : 大間距4_ch.Checked = False : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False End Sub Private Sub 大間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距4_ch.Click 小間距4_ch.Checked = False : 中間距4_ch.Checked = False : 大間距4_ch.Checked = True : BL1 = True : PA1 = 群組碼(3) : 物料資訊控制表3() : PA1 = "" : BL1 = False End Sub Private Sub 小間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距5_ch.Click 小間距5_ch.Checked = True : 中間距5_ch.Checked = False : 大間距5_ch.Checked = False : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False End Sub Private Sub 中間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距5_ch.Click 小間距5_ch.Checked = False : 中間距5_ch.Checked = True : 大間距5_ch.Checked = False : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False End Sub Private Sub 大間距5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距5_ch.Click 小間距5_ch.Checked = False : 中間距5_ch.Checked = False : 大間距5_ch.Checked = True : BL1 = True : PA1 = 群組碼(4) : 物料資訊控制表4() : PA1 = "" : BL1 = False End Sub Private Sub 批量選擇_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 批量選擇_ch.Click If 批量選擇_ch.Checked = False Then 物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True Else 物料編碼_dgv.Columns(1).ReadOnly = False : 物料編碼_dgv.Columns(2).ReadOnly = False End If End Sub Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click Set_比對1() : Set_比對2() : Set_比對3() : Set_比對4() : Set_比對5() End Sub Private Sub 修改群組_bt_Click(sender As Object, e As EventArgs) Handles 修改群組_bt.Click If 物料群組1_Panel.Visible = False Then : 物料群組1_Panel.Visible = True : 物料群組1_Panel.BringToFront() : Else : 物料群組1_Panel.Visible = False : End If End Sub Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click If 物料群組1_Panel.Visible = False Then : 物料群組1_Panel.Visible = True : 物料群組1_Panel.BringToFront() : Else : 物料群組1_Panel.Visible = False : End If End Sub Private Sub 轉換_bt_Click(sender As Object, e As EventArgs) Handles 轉換_bt.Click If 物料品名_語轉_dgv.Visible = False Then : 物料品名_語轉_dgv.Visible = True : 物料品名_語轉_dgv.BringToFront() : Else : 物料品名_語轉_dgv.Visible = False : End If End Sub Private Sub S1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S1_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(16, I).Value = S1_ch.Checked End If Next End Sub Private Sub S2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S2_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(17, I).Value = S2_ch.Checked End If Next End Sub Private Sub S3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S3_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(18, I).Value = S3_ch.Checked End If Next End Sub Private Sub S4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S4_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(19, I).Value = S4_ch.Checked End If Next End Sub Private Sub S5_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S5_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(20, I).Value = S5_ch.Checked End If Next End Sub Private Sub S6_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S6_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(21, I).Value = S6_ch.Checked End If Next End Sub Private Sub S7_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S7_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(22, I).Value = S7_ch.Checked End If Next End Sub Private Sub S8_ch_CheckedChanged(sender As Object, e As EventArgs) Handles S8_ch.CheckedChanged For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 If 物料明細5_dgv(16, I).Value = True And 物料明細5_dgv(17, I).Value = True And 物料明細5_dgv(18, I).Value = True And 物料明細5_dgv(19, I).Value = True And 物料明細5_dgv(20, I).Value = True And 物料明細5_dgv(21, I).Value = True And 物料明細5_dgv(22, I).Value = True And 物料明細5_dgv(23, I).Value = True Then 物料明細5_dgv(23, I).Value = S8_ch.Checked End If Next End Sub Private Sub SAVE_bt_Click(sender As Object, e As EventArgs) Handles SAVE_bt.Click For i As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 資料數 = 物料明細5_dgv.Rows.Count : MyModule1.進度條() PA1 = 物料明細5_dgv(16, i).Value.ToString : PA2 = 物料明細5_dgv(17, i).Value.ToString : PA3 = 物料明細5_dgv(18, i).Value.ToString PA4 = 物料明細5_dgv(19, i).Value.ToString : PA5 = 物料明細5_dgv(20, i).Value.ToString : PA6 = 物料明細5_dgv(21, i).Value.ToString PA7 = 物料明細5_dgv(22, i).Value.ToString : PA8 = 物料明細5_dgv(23, i).Value.ToString : PA11 = 物料明細5_dgv.Rows(i).Cells("Nomor_Bagian").Value SQL_物料規格表_修改1() : conn.Close() Next MsgBox(對話框(0)) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 設定_bt_Click(sender As Object, e As EventArgs) Handles 設定_bt.Click For I As Integer = 0 To 物料明細5_dgv.Rows.Count - 1 物料明細5_dgv(16, I).Value = S1_ch.Checked : 物料明細5_dgv(17, I).Value = S2_ch.Checked : 物料明細5_dgv(18, I).Value = S3_ch.Checked 物料明細5_dgv(19, I).Value = S4_ch.Checked : 物料明細5_dgv(20, I).Value = S5_ch.Checked : 物料明細5_dgv(21, I).Value = S6_ch.Checked 物料明細5_dgv(22, I).Value = S7_ch.Checked : 物料明細5_dgv(23, I).Value = S8_ch.Checked Next End Sub Private Sub 翻譯_bt_Click(sender As Object, e As EventArgs) Handles 翻譯_bt.Click If 物料品名_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有資料!!") : Else : MsgBox("Tidak ada Informasi!!") : End If : Else 翻譯 = Replace(物料品名_tb.Text, vbCrLf, " ") : MyModule2.執行翻譯() : 等待翻譯_tim.Enabled = True End If End Sub Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader If File.Exists("ch.txt") Then 等待翻譯_tim.Enabled = False fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 品名1_tb.Text = stringReader : fileReader.Close() fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 品名2_tb.Text = stringReader : fileReader.Close() fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 品名3_tb.Text = stringReader : fileReader.Close() If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If ElseIf File.Exists(Str2 & "\ch.txt") Then 等待翻譯_tim.Enabled = False fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadLine() : 品名1_tb.Text = stringReader : fileReader.Close() fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\en.txt") : stringReader = fileReader.ReadLine() : 品名2_tb.Text = stringReader : fileReader.Close() fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadLine() : 品名3_tb.Text = stringReader : fileReader.Close() If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If End If End Sub Private Sub 新增群組_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新增群組_ch.Click If 新增群組_ch.Checked = True Then 群組碼_tb.Enabled = True Else 群組碼_tb.Enabled = False End If End Sub '----------------------自創視窗滑鼠拖曳功能--------------------------------------------------------------------------------------------------------- Dim OldX, OldY As Long Dim drag As Boolean Private Sub 物料群組1_Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseDown If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If End Sub Private Sub 物料群組1_Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseMove If drag Then : 物料群組1_Panel.Left = 物料群組1_Panel.Left + e.X - OldX : 物料群組1_Panel.Top = 物料群組1_Panel.Top + e.Y - OldY : End If End Sub Private Sub 物料群組1_Panel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 物料群組1_Panel.MouseUp drag = False End Sub End Class