Option Strict Off Imports System.IO Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle Imports Microsoft.Office.Interop.Excel.Constants Imports Microsoft.Office.Interop.Excel.XlBordersIndex Imports Microsoft.Office.Interop.Excel.XlLineStyle Imports Microsoft.Office.Interop.Excel.XlBorderWeight Imports Microsoft.Office.Interop.Excel.XlThemeFont Imports Microsoft.Office.Interop.Excel.XlThemeColor Imports Microsoft.Office.Interop.Excel.XlWindowState Imports Microsoft.Office.Interop.Excel Public Class 倉儲領料審核 Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet : ReadOnly ds12 As New DataSet ReadOnly 對話框(6) As String : Dim 物料規格 As String Private Sub Set_清單2_1() Dim ds1 As New DataSet : 出庫明細1_dgv.DataSource = Nothing : ds1.Clear() 出庫明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 出庫明細1_dgv.ColumnHeadersHeight = 40 : 出庫明細1_dgv.AllowUserToAddRows = False If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 出庫明細1_dgv.RowTemplate.Height = 75 ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 出庫明細1_dgv.RowTemplate.Height = 45 ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 出庫明細1_dgv.RowTemplate.Height = 25 : End If PA49 = 執行單號_tb.Text SQL_倉儲領料申請_明細1() da.Fill(ds1) : 出庫明細1_dgv.DataSource = ds1.Tables(0) : conn.Close() If 低網速模式 = False Then 出庫明細1_dgv.Columns(14).FillWeight = 60 : 出庫明細1_dgv.Columns(14).Visible = True Dim mycol As DataGridViewImageColumn = 出庫明細1_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom Else If 出庫明細1_dgv.Columns.Count = 15 Then : 出庫明細1_dgv.Columns(14).Visible = False : End If End If 出庫明細1_dgv.Columns(0).Visible = False : 出庫明細1_dgv.Columns(1).FillWeight = 252 : 出庫明細1_dgv.Columns(2).FillWeight = 252 : 出庫明細1_dgv.Columns(3).FillWeight = 80 出庫明細1_dgv.Columns(4).FillWeight = 80 : 出庫明細1_dgv.Columns(5).FillWeight = 90 : 出庫明細1_dgv.Columns(6).FillWeight = 201 : 出庫明細1_dgv.Columns(7).Visible = False 出庫明細1_dgv.Columns(8).Visible = False : 出庫明細1_dgv.Columns(9).FillWeight = 150 : 出庫明細1_dgv.Columns(10).Visible = False : 出庫明細1_dgv.Columns(11).FillWeight = 80 出庫明細1_dgv.Columns(12).FillWeight = 150 : 出庫明細1_dgv.Columns("State").FillWeight = 85 : 出庫明細1_dgv.Columns("State").Visible = True 出庫明細1_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 出庫明細1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" 出庫明細1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細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 : 出庫明細1_dgv.Columns(9).ReadOnly = True : 出庫明細1_dgv.Columns(11).ReadOnly = True : 出庫明細1_dgv.Columns(12).ReadOnly = True 出庫明細1_dgv.Columns("State").ReadOnly = True If 顯示料號2_ch.Checked = True Then : 出庫明細1_dgv.Columns(表頭(77)).Visible = True : Else : 出庫明細1_dgv.Columns(表頭(77)).Visible = False : End If 出庫明細1_dgv.EditMode = DataGridViewEditMode.EditOnEnter '------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 出庫明細1_dgv.Rows.Count - 1 If 系統語言 = "繁體中文" Then : Else If 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "領料出庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Produk Out" ElseIf 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "轉移出庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Transfer Out" ElseIf 出庫明細1_dgv.Rows(i).Cells("State").Value.ToString = "轉移入庫" Then : 出庫明細1_dgv.Rows(i).Cells("State").Value = "Transfer In" End If End If PA3 = 出庫明細1_dgv.Rows(i).Cells(表頭(13)).Value : 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() Dim ds3 As New DataSet : 規格合併_dgv.DataSource = Nothing : ds3.Clear() PA4 = 出庫明細1_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : SQL_規格庫抬頭讀取二() da.Fill(ds3) : 規格合併_dgv.DataSource = ds3.Tables(0) : conn.Close() Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = "" If 詳細資料2_ch.Checked = True Then If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 規格合併_dgv.Rows(0).Cells("A2").Value If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 規格合併_dgv.Rows(0).Cells("A3").Value If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 規格合併_dgv.Rows(0).Cells("A4").Value If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 規格合併_dgv.Rows(0).Cells("A5").Value If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 規格合併_dgv.Rows(0).Cells("A6").Value If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 規格合併_dgv.Rows(0).Cells("A7").Value If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 規格合併_dgv.Rows(0).Cells("A8").Value If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If Else If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then : ZA1 = 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then ZA2 = 規格合併_dgv.Rows(0).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then ZA3 = 規格合併_dgv.Rows(0).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then ZA4 = 規格合併_dgv.Rows(0).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then ZA5 = 規格合併_dgv.Rows(0).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then ZA6 = 規格合併_dgv.Rows(0).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then ZA7 = 規格合併_dgv.Rows(0).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then ZA8 = 規格合併_dgv.Rows(0).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If End If 出庫明細1_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格 Next End Sub Private Sub Set_清單2() Dim ds1 As New DataSet : 出庫明細_dgv.DataSource = Nothing : ds1.Clear() 出庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 出庫明細_dgv.ColumnHeadersHeight = 40 : 出庫明細_dgv.AllowUserToAddRows = False If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 出庫明細_dgv.RowTemplate.Height = 75 ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 出庫明細_dgv.RowTemplate.Height = 45 ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 出庫明細_dgv.RowTemplate.Height = 25 : End If PA49 = 執行單號_tb.Text SQL_倉儲領料申請_明細() da.Fill(ds1) : 出庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close() If 低網速模式 = False Then 出庫明細_dgv.Columns(14).FillWeight = 60 : 出庫明細_dgv.Columns(14).Visible = True Dim mycol As DataGridViewImageColumn = 出庫明細_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom Else If 出庫明細_dgv.Columns.Count = 15 Then : 出庫明細_dgv.Columns(14).Visible = False : End If End If 出庫明細_dgv.Columns(0).Visible = False : 出庫明細_dgv.Columns(1).FillWeight = 252 : 出庫明細_dgv.Columns(2).FillWeight = 252 : 出庫明細_dgv.Columns(3).FillWeight = 80 出庫明細_dgv.Columns(4).FillWeight = 80 : 出庫明細_dgv.Columns(5).FillWeight = 90 : 出庫明細_dgv.Columns(6).FillWeight = 201 : 出庫明細_dgv.Columns(7).Visible = False 出庫明細_dgv.Columns(8).Visible = False : 出庫明細_dgv.Columns(9).FillWeight = 150 : 出庫明細_dgv.Columns(10).Visible = False : 出庫明細_dgv.Columns(11).FillWeight = 80 出庫明細_dgv.Columns(12).FillWeight = 150 : 出庫明細_dgv.Columns("State").FillWeight = 85 : 出庫明細_dgv.Columns("State").Visible = True 出庫明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 出庫明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" 出庫明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 出庫明細_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(9).ReadOnly = True : 出庫明細_dgv.Columns(11).ReadOnly = True : 出庫明細_dgv.Columns(12).ReadOnly = True 出庫明細_dgv.Columns("State").ReadOnly = True If 顯示料號2_ch.Checked = True Then : 出庫明細_dgv.Columns(表頭(77)).Visible = True : Else : 出庫明細_dgv.Columns(表頭(77)).Visible = False : End If 出庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter '------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1 If 系統語言 = "繁體中文" Then : Else If 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "領料出庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Produk Out" ElseIf 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "轉移出庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Transfer Out" ElseIf 出庫明細_dgv.Rows(i).Cells("State").Value.ToString = "轉移入庫" Then : 出庫明細_dgv.Rows(i).Cells("State").Value = "Transfer In" End If End If PA3 = 出庫明細_dgv.Rows(i).Cells(表頭(13)).Value : 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() Dim ds3 As New DataSet : 規格合併_dgv.DataSource = Nothing : ds3.Clear() PA4 = 出庫明細_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : SQL_規格庫抬頭讀取二() da.Fill(ds3) : 規格合併_dgv.DataSource = ds3.Tables(0) : conn.Close() Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = "" If 詳細資料2_ch.Checked = True Then If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 規格合併_dgv.Rows(0).Cells("A2").Value If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 規格合併_dgv.Rows(0).Cells("A3").Value If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 規格合併_dgv.Rows(0).Cells("A4").Value If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 規格合併_dgv.Rows(0).Cells("A5").Value If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 規格合併_dgv.Rows(0).Cells("A6").Value If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 規格合併_dgv.Rows(0).Cells("A7").Value If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 規格合併_dgv.Rows(0).Cells("A8").Value If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If Else If 規格合併_dgv.Rows(0).Cells("A1").Value.ToString <> "" Then : ZA1 = 規格合併_dgv.Rows(0).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If If 規格合併_dgv.Rows(0).Cells("A2").Value.ToString <> "" Then ZA2 = 規格合併_dgv.Rows(0).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If If 規格合併_dgv.Rows(0).Cells("A3").Value.ToString <> "" Then ZA3 = 規格合併_dgv.Rows(0).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If If 規格合併_dgv.Rows(0).Cells("A4").Value.ToString <> "" Then ZA4 = 規格合併_dgv.Rows(0).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If If 規格合併_dgv.Rows(0).Cells("A5").Value.ToString <> "" Then ZA5 = 規格合併_dgv.Rows(0).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If If 規格合併_dgv.Rows(0).Cells("A6").Value.ToString <> "" Then ZA6 = 規格合併_dgv.Rows(0).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If If 規格合併_dgv.Rows(0).Cells("A7").Value.ToString <> "" Then ZA7 = 規格合併_dgv.Rows(0).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If If 規格合併_dgv.Rows(0).Cells("A8").Value.ToString <> "" Then ZA8 = 規格合併_dgv.Rows(0).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If End If 出庫明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格 Next : Set_清單2_1() End Sub Private Sub Set_清單1() Dim ds2 As New DataSet : 出庫單據_dgv.DataSource = Nothing : ds2.Clear() 出庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 出庫單據_dgv.ColumnHeadersHeight = 40 出庫單據_dgv.AllowUserToAddRows = False If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 出庫單據_dgv.RowTemplate.Height = 75 ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 出庫單據_dgv.RowTemplate.Height = 45 ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 出庫單據_dgv.RowTemplate.Height = 25 : End If If 已審核_ch.Checked = False Then : SQL_倉儲領料申請_單據() : Else : SQL_倉儲領料申請_單據1() : End If da.Fill(ds2) : 出庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close() 出庫單據_dgv.Columns(0).FillWeight = 105 : 出庫單據_dgv.Columns(1).FillWeight = 50 : 出庫單據_dgv.Columns(2).FillWeight = 100 出庫單據_dgv.Columns(3).Visible = False : 出庫單據_dgv.Columns(4).Visible = False : 出庫單據_dgv.Columns(5).Visible = False : 出庫單據_dgv.Columns(6).Visible = False 倉儲車號與司機紀錄() End Sub Private Sub 語言轉換讀取() If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If Me.Text = 系統語言字典("H001-187-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) 作廢_tsm.Text = 系統語言字典("H507-100-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H507-101-" & 語言) : 表頭(45) = 系統語言字典("H507-102-" & 語言) 表頭(46) = 系統語言字典("H507-103-" & 語言) : 表頭(86) = 系統語言字典("H507-104-" & 語言) : 表頭(12) = 系統語言字典("H507-105-" & 語言) 表頭(48) = 系統語言字典("H507-106-" & 語言) : 表頭(47) = 系統語言字典("H507-107-" & 語言) : 表頭(77) = 系統語言字典("H507-108-" & 語言) 表頭(13) = 系統語言字典("H507-109-" & 語言) : 表頭(14) = 系統語言字典("H507-110-" & 語言) : 表頭(16) = 系統語言字典("H507-111-" & 語言) 對話框(0) = 系統語言字典("H507-112-" & 語言) : 對話框(1) = 系統語言字典("H507-113-" & 語言) : 對話框(2) = 系統語言字典("H507-114-" & 語言) 對話框(3) = 系統語言字典("H507-115-" & 語言) : 對話框(4) = 系統語言字典("H507-116-" & 語言) : 領料單號_lb.Text = 系統語言字典("H507-117-" & 語言) 審核_tsm.Text = 系統語言字典("H507-118-" & 語言) : 詳細資料2_ch.Text = 系統語言字典("H507-119-" & 語言) : 顯示料號2_ch.Text = 系統語言字典("H507-120-" & 語言) 已審核_ch.Text = 系統語言字典("H507-121-" & 語言) : 詳細清單_ch.Text = 系統語言字典("H507-122-" & 語言) : 預先指派_ch.Text = 系統語言字典("H507-123-" & 語言) 車號_lb.Text = 系統語言字典("H507-124-" & 語言) : 司機_lb.Text = 系統語言字典("H507-125-" & 語言) : 對話框(5) = 系統語言字典("H508-122-" & 語言) 對話框(6) = 系統語言字典("H508-121-" & 語言) End Sub Private Sub 審核_bt_MouseEnter(sender As Object, e As EventArgs) Handles 審核_bt.MouseEnter ToolTip1.SetToolTip(Me.審核_bt, 系統語言字典("H507-118-" & 語言)) End Sub Private Sub 列印成EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.MouseEnter ToolTip1.SetToolTip(Me.列印成EXCEL_bt, 系統語言字典("G000-114-" & 語言)) End Sub Private Sub 作廢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 作廢_bt.MouseEnter ToolTip1.SetToolTip(Me.作廢_bt, 系統語言字典("H507-100-" & 語言)) End Sub Private Sub 倉儲車號與司機紀錄() 車號_cb.Items.Clear() : 司機_cb.Items.Clear() SQL_倉儲車號紀錄() : While (dr.Read()) : 車號_cb.Items.Add(dr("車號")) : End While : conn.Close() SQL_倉儲司機紀錄() : While (dr.Read()) : 司機_cb.Items.Add(dr("司機")) : End While : conn.Close() End Sub Private Sub 倉儲領料審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 風格() : H(507) = True : 介面 = "H507" : 語言轉換讀取() : 顯示說明(999, False) SQL_清單欄位查詢() If Acdr.Read() Then 小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1") 小間距1_ch.Checked = Acdr("L_1_2") : 中間距1_ch.Checked = Acdr("L_2_2") : 大間距1_ch.Checked = Acdr("L_3_2") End If : Access1.Close() 出庫明細_dgv.SendToBack() : 出庫明細1_dgv.BringToFront() : 規格合併_dgv.Visible = False : Panel1.SendToBack() : Set_清單1() 倉儲領料審核_Size() End Sub Private Sub 倉儲領料審核_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged 倉儲領料審核_Size() End Sub Private Sub 倉儲領料審核_Size() MyMod.清單字體大小調整() 出庫明細_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) 出庫單據_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(507) = False : MyMod.虛擬桌面開啟() End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H507" : 語言轉換讀取() : Set_清單1() : Set_清單2() 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 出庫明細1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 出庫明細1_dgv.CellClick If e.RowIndex = -1 Then : Else : 圖片檔1_pb.Image = Nothing : PA2 = 出庫明細1_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一() While dr.Read() = True Dim unused As Byte() = New Byte(-1) {} Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte()) Dim oStream As New MemoryStream(bytes) 圖片檔1_pb.Image = Bitmap.FromStream(oStream) End While : conn.Close() : 圖片檔1_pb.SizeMode = 4 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.Rows(e.RowIndex).Cells("" & 表頭(47) & "").Value : PA14 = 執行單號_tb.Text SQL_倉儲領料查詢() : If dr.Read Then : 倉儲審核_tb.Text = dr("審核人").ToString : 申請人_tb.Text = dr("申請人").ToString : End If : Set_清單2() End If End Sub Private Sub 車號_cb_Click(sender As Object, e As EventArgs) Handles 車號_cb.Click CB選擇清單(車號_cb, 車號_cb.Text) End Sub Private Sub 司機_cb_Click(sender As Object, e As EventArgs) Handles 司機_cb.Click CB選擇清單(司機_cb, 司機_cb.Text) End Sub Private Sub Set_日期格式轉換() DTP = Strings.Format(Today(), "yyyy/MM/dd") End Sub Private Sub 審核_bt_Click(sender As Object, e As EventArgs) Handles 審核_bt.Click Set_日期格式轉換() If 執行單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else PA10 = 執行單號_tb.Text : PA12 = 車號_cb.Text : PA13 = 司機_cb.Text : SQL_倉儲明細表_審核確認() : conn.Close() 通知訊息 = 對話框(1) & 執行單號_tb.Text & 對話框(2) : 訊息類型 = "1" : 通知視窗.ShowDialog() 執行單號_tb.Text = "" : 出庫明細_dgv.DataSource = Nothing : 出庫明細1_dgv.DataSource = Nothing : Set_清單1() End If End Sub Private Sub 作廢_bt_Click(sender As Object, e As EventArgs) Handles 作廢_bt.Click Set_日期格式轉換() If 執行單號_tb.Text = "" Then : MGB(對話框(0), 1) : Else MGB(對話框(4), 2) If 訊息回應 = "YES" Then PA10 = 執行單號_tb.Text : PA11 = 倉儲倉級7 : SQL_倉儲明細表_審核作廢() : conn.Close() 通知訊息 = 對話框(1) & 執行單號_tb.Text & 對話框(3) : 訊息類型 = "1" : 通知視窗.ShowDialog() : 執行單號_tb.Text = "" 出庫明細_dgv.DataSource = Nothing : 出庫明細1_dgv.DataSource = Nothing : Set_清單1() 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 : MyMod.間距設定存檔_1() : Set_清單2() End Sub Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_清單2() End Sub Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_清單2() 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 : MyMod.間距設定存檔_4() : Set_清單1() 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 : MyMod.間距設定存檔_5() : Set_清單1() 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 : MyMod.間距設定存檔_6() : Set_清單1() End Sub Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click If IsNothing(圖片檔1_pb.Image) = False Then : 圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog() : End If End Sub Private Sub 顯示料號2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示料號2_ch.Click If 顯示料號2_ch.Checked = True Then : 顯示料號2_ch.Checked = True : 出庫明細_dgv.Columns(表頭(77)).Visible = True Else : 顯示料號2_ch.Checked = False : 出庫明細_dgv.Columns(表頭(77)).Visible = False : End If End Sub Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click If 詳細資料2_ch.Checked = False Then : 詳細資料2_ch.Checked = False : Else : 詳細資料2_ch.Checked = True : End If : Set_清單2() End Sub Private Sub 已審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_ch.Click Set_清單1() End Sub Private Sub 詳細清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細清單_ch.Click If 詳細清單_ch.Checked = False Then 出庫明細_dgv.SendToBack() : 出庫明細1_dgv.BringToFront() Else 出庫明細1_dgv.SendToBack() : 出庫明細_dgv.BringToFront() End If End Sub Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click If 領料單號_lb.Text = "" Then : MGB(對話框(5), 1) : Else xlApp = CType(CreateObject("Excel.Application"), Application) xlBook = xlApp.Workbooks.Add xlApp.DisplayAlerts = True xlBook.Activate() xlSheet = NewMethod(xlBook) xlSheet.Activate() xlApp.Visible = True xlApp.Application.WindowState = xlMaximized BB(xlApp, xlSheet) xlSheet.Cells(2, 2) = 領料單號_lb.Text : xlSheet.Cells(2, 3) = 執行單號_tb.Text If 系統語言 = "繁體中文" Then xlSheet.Cells(2, 5) = "司機 : " : xlSheet.Cells(2, 8) = "車牌號碼 : " : xlSheet.Cells(4, 1) = "項次" : xlSheet.Cells(4, 4) = "數量" : xlSheet.Cells(4, 7) = "合約號" Else xlSheet.Cells(2, 4) = "Pengemudi : " : xlSheet.Cells(2, 8) = "Plat Nomor : " : xlSheet.Cells(4, 1) = "Item" : xlSheet.Cells(4, 4) = "kuantitas" xlSheet.Cells(4, 7) = "kontrak No" End If xlSheet.Cells(4, 2) = 表頭(12) : xlSheet.Cells(4, 3) = 表頭(13) : xlSheet.Cells(4, 5) = 表頭(16) : xlSheet.Cells(4, 6) = 表頭(14) : xlSheet.Cells(4, 8) = 表頭(48) xlSheet.Cells(4, 9) = 表頭(86) : xlSheet.Cells(2, 5) = 司機_cb.Text : xlSheet.Cells(2, 9) = 車號_cb.Text NN1 = 0 For i As Integer = 0 To 出庫明細1_dgv.Rows.Count - 1 xlSheet.Cells(i + 5, 1) = i + 1 : xlSheet.Cells(i + 5, 2) = 出庫明細1_dgv.Rows(i).Cells(表頭(12)).Value.ToString xlSheet.Cells(i + 5, 3) = 出庫明細1_dgv.Rows(i).Cells(表頭(13)).Value : xlSheet.Cells(i + 5, 4) = 出庫明細1_dgv.Rows(i).Cells(表頭(46)).Value xlSheet.Cells(i + 5, 5) = 出庫明細1_dgv.Rows(i).Cells(表頭(16)).Value : xlSheet.Cells(i + 5, 6) = 出庫明細1_dgv.Rows(i).Cells(表頭(14)).Value xlSheet.Cells(i + 5, 7) = 出庫明細1_dgv.Rows(i).Cells("No").Value : xlSheet.Cells(i + 5, 8) = 出庫明細1_dgv.Rows(i).Cells(表頭(48)).Value xlSheet.Cells(i + 5, 9) = 出庫明細1_dgv.Rows(i).Cells(表頭(86)).Value NN1 += 1 Next i If 系統語言 = "繁體中文" Then xlSheet.Cells(4 + NN1 + 2, 2) = "倉儲審核 : " : xlSheet.Cells(4 + NN1 + 2, 6) = "申請人 : " Else xlSheet.Cells(4 + NN1 + 2, 2) = "Audit Gudang : " : xlSheet.Cells(4 + NN1 + 2, 6) = "Pemohon : " End If : xlSheet.Cells(4 + NN1 + 2, 3) = 倉儲審核_tb.Text : xlSheet.Cells(4 + NN1 + 2, 7) = 申請人_tb.Text CC(xlApp, xlSheet) : AA(xlApp, xlSheet) : DD(xlApp, xlSheet) '-------------轉換成PDF--------------------------------------------------------------------- Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 執行單號_tb.Text & "出庫單.pdf", XlFixedFormatQuality.xlQualityStandard, True) '-------------關閉EXCEL--------------------------------------------------------------------- xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() xlApp.Application.WindowState = xlMinimized xlBook.Close(False) Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet) Runtime.InteropServices.Marshal.ReleaseComObject(xlBook) Runtime.InteropServices.Marshal.ReleaseComObject(xlApp) xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect() '-------------開啟PDF--------------------------------------------------------------------- Dim pdfFilePath As String = SERT & "\" & 執行單號_tb.Text & "出庫單.pdf" If IsChromeInstalled() Then Try Dim chromeProcess As New Process() chromeProcess.StartInfo.FileName = "chrome" chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """" chromeProcess.Start() Catch ex As Exception End Try Else Try System.Diagnostics.Process.Start("""" & pdfFilePath & """") Catch ex As Exception End Try End If MGB(對話框(6), 1) End If End Sub ' 檢查系統是否已安裝 Google Chrome Private Function IsChromeInstalled() As Boolean Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall") If key IsNot Nothing Then For Each subkeyName As String In key.GetSubKeyNames() Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName) Dim displayName As Object = subkey.GetValue("DisplayName") If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then Return True End If Next End If Return False End Function Private Shared Function NewMethod(xlBook As Workbook) As Worksheet Return CType(xlBook.Worksheets.Add, Worksheet) End Function Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet) xlSheet.Cells.Select() With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 85 xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 5 xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 35 xlSheet.Rows("4:4").Select With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("D2:E2").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False End With ': myExcel.Selection.Merge xlSheet.Range("A4:I4").Select() With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With xlSheet.Range("B2").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("H2").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("B" & 6 + NN1).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("F" & 6 + NN1).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("A5:A" & 4 + NN1).Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("H5:H" & 4 + NN1).Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("A5:I" & 4 + NN1).Select() With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone End With xlSheet.Columns("A:I").Select : xlSheet.Columns("A:I").EntireColumn.AutoFit xlSheet.Range("A4:I" & 4 + NN1).Select() myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With myExcel.ActiveWindow.DisplayGridlines = False xlSheet.Range("A5:I" & 4 + NN1).Select() With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With Dim 攔寬 As Single xlSheet.Rows("5:" & 4 + NN1).Select : xlSheet.Rows("5:" & 4 + NN1).EntireRow.AutoFit For i As Integer = 5 To 4 + NN1 xlSheet.Rows(i & ":" & i).Select 攔寬 = xlSheet.Rows(i & ":" & i).RowHeight xlSheet.Rows(i & ":" & i).Select : myExcel.Selection.RowHeight = 攔寬 + 15 Next End Sub Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet) xlSheet.Columns("C:C").Select : myExcel.Selection.NumberFormatLocal = "@" End Sub Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox1.Image) xlSheet.Range("A1").Select() myExcel.ActiveSheet.Pictures.Paste.Select myExcel.Selection.ShapeRange.Height = 75 myExcel.Selection.ShapeRange.IncrementLeft(50) myExcel.Selection.ShapeRange.IncrementTop(2) End Sub Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet) myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename = Str01 & "\HXBWLOG.png" myExcel.Application.PrintCommunication = False With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$4" : .PrintTitleColumns = "" : End With myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G" .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = "" .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945) .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992) .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126) .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = False : .CenterVertically = False : .Draft = False .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = "" End With : myExcel.Application.PrintCommunication = True End Sub '-----------------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------- Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click Set_清單1() End Sub Private Sub 審核_tsm_Click(sender As Object, e As EventArgs) Handles 審核_tsm.Click Me.審核_bt.PerformClick() End Sub Private Sub 作廢_tsm_Click(sender As Object, e As EventArgs) Handles 作廢_tsm.Click Me.作廢_bt.PerformClick() End Sub Private Sub 風格() If 深色風格 = False Then Me.BackColor = SystemColors.Control 已審核_ch.ForeColor = Color.Red : 小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black 顯示料號2_ch.ForeColor = Color.Black : 領料單號_lb.ForeColor = Color.Black : 詳細資料2_ch.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black : 詳細清單_ch.ForeColor = Color.Black : 預先指派_ch.ForeColor = Color.Red 車號_lb.ForeColor = Color.Black : 司機_lb.ForeColor = Color.Black 執行單號_tb.BackColor = Color.White : 執行單號_tb.ForeColor = Color.Black : 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black 車號_cb.BackColor = Color.White : 車號_cb.ForeColor = Color.Black : 司機_cb.BackColor = Color.White : 司機_cb.ForeColor = Color.Black 審核_bt.BackColor = Color.White : 列印成EXCEL_bt.BackColor = Color.White : 作廢_bt.BackColor = Color.White 出庫單據_dgv.EnableHeadersVisualStyles = True : 出庫單據_dgv.BackgroundColor = Color.White : 出庫單據_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 出庫單據_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink 出庫單據_dgv.DefaultCellStyle.BackColor = Color.White : 出庫單據_dgv.DefaultCellStyle.ForeColor = Color.Black 出庫明細_dgv.EnableHeadersVisualStyles = True : 出庫明細_dgv.BackgroundColor = Color.White : 出庫明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 出庫明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue 出庫明細_dgv.DefaultCellStyle.BackColor = Color.White : 出庫明細_dgv.DefaultCellStyle.ForeColor = Color.Black 出庫明細1_dgv.EnableHeadersVisualStyles = True : 出庫明細1_dgv.BackgroundColor = Color.White : 出庫明細1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 出庫明細1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray 出庫明細1_dgv.DefaultCellStyle.BackColor = Color.White : 出庫明細1_dgv.DefaultCellStyle.ForeColor = Color.Black Else Me.BackColor = Color.Black 已審核_ch.ForeColor = Color.LightPink : 小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White 顯示料號2_ch.ForeColor = Color.White : 領料單號_lb.ForeColor = Color.White : 詳細資料2_ch.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White : 詳細清單_ch.ForeColor = Color.White : 預先指派_ch.ForeColor = Color.LightPink 車號_lb.ForeColor = Color.White : 司機_lb.ForeColor = Color.White 執行單號_tb.BackColor = Color.DimGray : 執行單號_tb.ForeColor = Color.White : 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White 車號_cb.BackColor = Color.DimGray : 車號_cb.ForeColor = Color.White : 司機_cb.BackColor = Color.DimGray : 司機_cb.ForeColor = Color.White 審核_bt.BackColor = Color.DimGray : 列印成EXCEL_bt.BackColor = Color.DimGray : 作廢_bt.BackColor = Color.DimGray 出庫單據_dgv.EnableHeadersVisualStyles = False : 出庫單據_dgv.BackgroundColor = Color.DimGray : 出庫單據_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 出庫單據_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 出庫單據_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 出庫單據_dgv.DefaultCellStyle.BackColor = Color.Black : 出庫單據_dgv.DefaultCellStyle.ForeColor = Color.White 出庫明細_dgv.EnableHeadersVisualStyles = False : 出庫明細_dgv.BackgroundColor = Color.DimGray : 出庫明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 出庫明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 出庫明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 出庫明細_dgv.DefaultCellStyle.BackColor = Color.Black : 出庫明細_dgv.DefaultCellStyle.ForeColor = Color.White 出庫明細1_dgv.EnableHeadersVisualStyles = False : 出庫明細1_dgv.BackgroundColor = Color.DimGray : 出庫明細1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 出庫明細1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 出庫明細1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 出庫明細1_dgv.DefaultCellStyle.BackColor = Color.Black : 出庫明細1_dgv.DefaultCellStyle.ForeColor = Color.White End If End Sub End Class