GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/03.倉儲管理系統/物料資料庫.vb

Option Strict Off
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
Imports System.IO
Imports System.Net

Public Class 物料資料庫
    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
    Dim 資料新增判斷 As Boolean : Dim EDR, N1 As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False : Dim str As String
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_清單()
        物料清單_dgv.DataSource = Nothing : ds1.Clear() : 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料清單_dgv.ColumnHeadersHeight = 40
        物料清單_dgv.AllowUserToAddRows = False
        物料清單_dgv.RowTemplate.Height = 30

        SQL_物料檔案_清單()
        da.Fill(ds1) : 物料清單_dgv.DataSource = ds1.Tables(0) : conn.Close()

        物料清單_dgv.Columns("料號").FillWeight = 45 : 物料清單_dgv.Columns("廠商").FillWeight = 60 : 物料清單_dgv.Columns("成本").FillWeight = 30
        物料清單_dgv.Columns("品名").FillWeight = 120 : 物料清單_dgv.Columns("停用").FillWeight = 20 : 物料清單_dgv.Columns("圖片").Visible = False
        物料清單_dgv.Columns("最低庫存量").Visible = False : 物料清單_dgv.Columns("供應商").Visible = False : 物料清單_dgv.Columns("刪除").FillWeight = 20
        物料清單_dgv.Columns("廠牌").FillWeight = 25 : 物料清單_dgv.Columns("車種年份").FillWeight = 80 : 物料清單_dgv.Columns("單位").FillWeight = 20
        物料清單_dgv.Columns("倉庫").FillWeight = 15 : 物料清單_dgv.Columns("狀態").FillWeight = 25
        物料清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0.##"
        物料清單_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        物料清單_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        物料清單_dgv.Columns("料號").ReadOnly = True : 物料清單_dgv.Columns("供應商").ReadOnly = True : 物料清單_dgv.Columns("成本").ReadOnly = True
        物料清單_dgv.Columns("圖片").ReadOnly = True : 物料清單_dgv.Columns("品名").ReadOnly = True : 物料清單_dgv.Columns("廠牌").ReadOnly = True
        物料清單_dgv.Columns("車種年份").ReadOnly = True : 物料清單_dgv.Columns("單位").ReadOnly = True
        物料清單_dgv.Columns("倉庫").ReadOnly = True : 物料清單_dgv.Columns("廠商").ReadOnly = True : 物料清單_dgv.Columns("狀態").ReadOnly = True
        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
            物料清單_dgv("刪除", i).Value = False
        Next

    End Sub
    Private Sub 單位_cb_下拉表單資料載入()
        SQL_物料資料庫單位_下拉清單() : 單位_cb.Items.Clear()
        單位_cb.Items.Add("")
        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 = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Dim type0 As Type = 物料清單_dgv.GetType()
        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi0.SetValue(物料清單_dgv, True, Nothing)

        地區編碼_cb.Enabled = False : 下載檔名_tb.Visible = False : 檔名讀取_tb.Visible = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
        料號_tb.Enabled = False : 批量存檔_bt.Enabled = False : 批輛停用選擇_ch.Enabled = False : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False : 狀態_lb.Text = "預覽狀態"

        If Val(登入人級別) <= 2 Then '--------------------刪除資料權限
            刪除_tsm.Enabled = True : 刪除_bt.Enabled = True : 批量刪除_bt.Enabled = False
        Else
            刪除_tsm.Enabled = False : 刪除_bt.Enabled = False : 批量刪除_bt.Enabled = False
        End If

        首次開啟 = False : Set_清單() : 首次開啟 = True '--------------------資料讀取

        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If '--------------------讀取本機資料夾位置
        Target1 = Target & AA(1) & "/"

        If ICS_ASMS_ERP_SYS.Size.Width > 1440 And ICS_ASMS_ERP_SYS.Size.Height > 900 Then
            字體_NUD.Value = 12
        ElseIf ICS_ASMS_ERP_SYS.Size.Width <= 1440 And ICS_ASMS_ERP_SYS.Size.Height <= 900 Then
            字體_NUD.Value = 7.6
        End If
        單位_cb_下拉表單資料載入()
        SQL_物料資料庫_類別_下拉清單() : 地區_cb.Items.Clear()
        While (dr.Read()) : 地區_cb.Items.Add(dr("類別")) : End While : conn.Close()
    End Sub
    Private Sub 物料檔案_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        If ICS_ASMS_ERP_SYS.Size.Width > 1440 And ICS_ASMS_ERP_SYS.Size.Height > 900 Then
            字體_NUD.Value = 12
        ElseIf ICS_ASMS_ERP_SYS.Size.Width <= 1440 And ICS_ASMS_ERP_SYS.Size.Height <= 900 Then
            字體_NUD.Value = 8
        End If
    End Sub
    Private Sub 供應商資料表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        If 資料新增判斷 = True Then '--------------------如果再關閉介面時，資料新增判斷是開啟的，就無條件刪除控件上的那筆資料
            PA20 = 料號_tb.Text : SQL_物料檔案_刪除() '--------------------資料刪除
        End If
    End Sub
    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
        If 首次開啟 = True Then
            If e.RowIndex = -1 Then : Else
                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
                成本_nud.Value = 物料清單_dgv("成本", e.RowIndex).Value : 品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString
                停用_ch.Checked = 物料清單_dgv("停用", e.RowIndex).Value : 低量_nud.Value = 物料清單_dgv("最低庫存量", e.RowIndex).Value
                車種年份_tb.Text = 物料清單_dgv("車種年份", e.RowIndex).Value.ToString : 廠牌_tb.Text = 物料清單_dgv("廠牌", e.RowIndex).Value.ToString
                單位_cb.Text = 物料清單_dgv("單位", e.RowIndex).Value.ToString : 倉庫_tb.Text = 物料清單_dgv("倉庫", e.RowIndex).Value.ToString
                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖() : 狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString
                If dr.Read() Then
                    If dr("是否有圖") = True Then
                        物料圖_pb.BackgroundImage = Nothing
                        PA = 料號_tb.Text : 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)
                            物料圖_pb.Image = Bitmap.FromStream(oStream)
                        End While
                        conn.Close()
                        物料圖_pb.SizeMode = 4
                    Else
                        '物料圖_pb.BackgroundImage = My.Resources.底圖1 : 物料圖_pb.BackgroundImageLayout = 3
                        物料圖_pb.Image = Nothing
                    End If
                End If : conn.Close()

                If 批輛停用選擇_ch.Checked = True Then '--------------------批輛停用選擇功能
                    If 物料清單_dgv("停用", e.RowIndex).Value = False Then
                        物料清單_dgv("停用", e.RowIndex).Value = True
                    ElseIf 物料清單_dgv("停用", e.RowIndex).Value = True Then
                        物料清單_dgv("停用", e.RowIndex).Value = False
                    End If
                End If

                If 批量刪除選擇_ch.Checked = True Then '--------------------批輛停用選擇功能
                    If 物料清單_dgv("刪除", e.RowIndex).Value = False Then
                        物料清單_dgv("刪除", e.RowIndex).Value = True
                    ElseIf 物料清單_dgv("刪除", e.RowIndex).Value = True Then
                        物料清單_dgv("刪除", e.RowIndex).Value = False
                    End If
                End If
            End If
        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("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", 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
            For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
                If 物料清單_dgv("圖片", i).Value = True And 物料清單_dgv("停用", i).Value = False Then : 物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
                If 物料清單_dgv("圖片", i).Value = False And 物料清單_dgv("停用", i).Value = False Then : 物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : End If
                If 物料清單_dgv("停用", i).Value = True Then : 物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
                If 物料清單_dgv("刪除", i).Value = True Then : 物料清單_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red : End If
                If 物料清單_dgv("刪除", i).Value = False Then : 物料清單_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black : End If
            Next
        End If
    End Sub
    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
        If 查詢_tb.Text = "" Then
            供應商編碼_cb.Items.Clear() : 供應商_cb.Items.Clear() : 供應商_下拉表單資料載入()
            'ElseIf 地區_cb.Text = "" Then
            ' 查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
            ' ElseIf 地區_cb.Text <> "" Then
            '查詢_tb.Text = "" : 
        End If

    End Sub
    Private Sub 供應商_下拉表單資料載入()
        BL1 = False : PA3 = 地區_cb.Text : PA4 = 供應商編碼_cb.Text
        SQL_物料資料庫_供應商_下拉清單()
        While (dr.Read()) : 供應商編碼_cb.Items.Add(dr("供應商編碼")) : 供應商_cb.Items.Add(dr("公司名")) : End While : conn.Close()
    End Sub
    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
        If 地區_cb.Text <> "" Then
            查詢_tb.Text = "" : 供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
            Set_清單()
        End If
    End Sub
    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
        If 地區_cb.Text <> "" Then
            查詢_tb.Text = "" : 供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex
            Set_清單()
        End If
    End Sub
    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
        查詢_tb.Text = "" : Set_清單()
    End Sub
    Private Sub 查詢_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢_tb.KeyPress
        If e.KeyChar = Chr(13) Then
            '供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
            PA = 查詢_tb.Text : Set_清單() ': 地區_cb.Text = ""
        End If
    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()
            files = CType(e.Data.GetData(DataFormats.FileDrop), String())
            檔案名稱_tb.Text = files(files.Length - 1)
        End If
        Dim STR2 As Integer = 0
        str = 檔案名稱_tb.Text
        檔名讀取_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 讀取資料夾路徑_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 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        If 料號_tb.Text = "" Then : MsgBox("請先選擇未指定圖片的物料料號") : Else
            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
                PA49 = str : PA = 料號_tb.Text : SQL_物料資料庫_圖檔入系統() : conn.Close() : MsgBox("上傳完畢")
                物料圖_pb.Image = Nothing : PA = 料號_tb.Text : 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)
                    物料圖_pb.Image = Bitmap.FromStream(oStream)
                End While
                conn.Close()
                物料圖_pb.SizeMode = 4
            Else : MsgBox("上傳文件並非常用圖片格式， 文件已自動刪除， 請專換成常用圖片檔案再行操作。") : End If : 檔案名稱_tb.Text = ""
            Set_清單()
        End If
    End Sub
    Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
        If 物料圖_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。") : Else
            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
            SaveFileDialog1.FileName = 料號_tb.Text & "-" & Strings.Format(Today(), "yyyyMMdd") & ".jpg"
            Dim result As DialogResult = SaveFileDialog1.ShowDialog()
            下載檔名_tb.Text = SaveFileDialog1.FileName
            If result = System.Windows.Forms.DialogResult.Cancel Then
                Exit Sub
            End If

            conn.Close() : ds2.Clear() : SQL_物料圖庫_圖片下載() : da.Fill(ds2)
            If ds2.Tables(0).Rows.Count > 0 Then
                Dim imgData() As Byte
                imgData = ds2.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("下載完成")
        End If
    End Sub
    Private Sub 新增準備_bt_Click(sender As Object, e As EventArgs) Handles 新增準備_bt.Click
        If 供應商編碼_cb.Text = "" Then '--------------------設定條件讓業務控件不為空
            MsgBox("沒有選擇供應商")
        Else
            料號_tb.Text = "" : 供應商編碼_tb.Text = "" : 成本_nud.Value = 0 : 品名_tb.Text = "" : 停用_ch.Checked = False '--------------------控件清空
            查詢_tb.Text = "" : 車種年份_tb.Text = "" : 廠牌_tb.Text = "" : 單位_cb.Text = "" : 倉庫_tb.Text = ""
            資料新增判斷 = True '--------------------目前的編輯狀態
            狀態_lb.Text = "編輯狀態"
            物料清單_dgv.Enabled = False : 查詢_tb.Enabled = False '--------------------關閉DGV與關鍵字查詢控件的點選控制功能

            SQL_物料資料庫_料號_最後一筆()
            If dr.Read() Then : 料號_tb.Text = dr("料號").ToString : Else : 料號_tb.Text = "MT00000000" : End If : conn.Close()
            Dim NUM1 As Integer = Double.Parse(Strings.Right(料號_tb.Text, 8)) + 1
            If NUM1 < 10 Then : 料號_tb.Text = "MT" & "0000000" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 料號_tb.Text = "MT" & "000000" & NUM1
            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 料號_tb.Text = "MT" & "00000" & NUM1
            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 料號_tb.Text = "MT" & "0000" & NUM1
            ElseIf NUM1 > 9999 And NUM1 < 10000 Then : 料號_tb.Text = "MT" & "000" & NUM1
            ElseIf NUM1 > 99999 And NUM1 < 10000 Then : 料號_tb.Text = "MT" & "00" & NUM1
            ElseIf NUM1 > 999999 And NUM1 < 10000 Then : 料號_tb.Text = "MT" & "0" & NUM1
            ElseIf NUM1 > 9999999 Then : 料號_tb.Text = "MT" & NUM1
            End If
            SQL_物料檔案_新增() '--------------------人事資料表中寫入一筆資料
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 品名_tb.Text = "" Then '--------------------設定條件讓地區編碼_cb控件不為空
            MsgBox("物品一定要有名稱。")
        Else
            If 狀態_cb.Text = "" Then '--------------------設定條件讓地區編碼_cb控件不為空
                MsgBox("未選擇狀態。")
            Else
                資料新增判斷 = False '--------------------目前的編輯狀態
                狀態_lb.Text = "預覽狀態"
                物料清單_dgv.Enabled = True : 查詢_tb.Enabled = True '--------------------開啟DGV與關鍵字查詢控件的點選控制功能
                NU1 = 成本_nud.Value : PA1 = 品名_tb.Text : BL1 = 停用_ch.Checked : PA2 = 料號_tb.Text : NU2 = 低量_nud.Value
                SQL_物料檔案_修改() '--------------------資料修改
                Set_清單() '--------------------資料修改後重新讀取清單
            End If
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 料號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
            MsgBox("沒有選擇要刪除的資料")
        Else
            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
            If aa1 = MsgBoxResult.Ok Then
                PA20 = 料號_tb.Text : SQL_物料檔案_刪除() '--------------------資料刪除
                Set_清單() '--------------------資料修改後重新讀取清單
            End If
        End If
    End Sub
    Private Sub 啟用批改_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 啟用批改_ch.Click
        If 啟用批改_ch.Checked = True Then
            批量存檔_bt.Enabled = True : 新增準備_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = False
            批輛停用選擇_ch.Enabled = True : 啟用批改_ch.Checked = True : 重新整理_tsm.Enabled = False
            新增準備_tsm.Enabled = False : 存檔_tsm.Enabled = False : 刪除_tsm.Enabled = False : 批量刪除選擇_ch.Enabled = True : 批量刪除_bt.Enabled = True
            物料清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 狀態_lb.Text = "批改狀態" '--------------------控件隱藏、操作許可設定與其他基本顯示設定
            MsgBox("已啟用批改模式。")
        ElseIf 啟用批改_ch.Checked = False Then
            批量存檔_bt.Enabled = False : 新增準備_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = True
            批輛停用選擇_ch.Enabled = False : 批輛停用選擇_ch.Checked = False : 啟用批改_ch.Checked = False : 批量刪除選擇_ch.Checked = False : 重新整理_tsm.Enabled = True
            新增準備_tsm.Enabled = True : 存檔_tsm.Enabled = True : 刪除_tsm.Enabled = True : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False
            物料清單_dgv.EditMode = DataGridViewEditMode.EditOnF2 : 狀態_lb.Text = "預覽狀態" '--------------------控件隱藏、操作許可設定與其他基本顯示設定
        End If
    End Sub
    Private Sub 批量存檔_bt_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
        批量存檔_bt.Enabled = False : 新增準備_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = True
        批輛停用選擇_ch.Enabled = False : 批輛停用選擇_ch.Checked = False : 啟用批改_ch.Checked = False : 重新整理_tsm.Enabled = True
        新增準備_tsm.Enabled = True : 存檔_tsm.Enabled = True : 刪除_tsm.Enabled = True : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False
        物料清單_dgv.EditMode = DataGridViewEditMode.EditOnF2 : 狀態_lb.Text = "預覽狀態" '--------------------控件隱藏、操作許可設定與其他基本顯示設定

        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
            NU1 = 物料清單_dgv("成本", i).Value : PA1 = 物料清單_dgv("品名", i).Value
            BL1 = 物料清單_dgv("停用", i).Value : PA2 = 物料清單_dgv("料號", i).Value
            NU2 = 物料清單_dgv("最低庫存量", i).Value
            SQL_物料檔案_修改() '--------------------資料修改
        Next : conn.Close() : ICS_ASMS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("存檔完成。")
    End Sub
    Private Sub 批量刪除_bt_Click(sender As Object, e As EventArgs) Handles 批量刪除_bt.Click
        If 批量刪除選擇_ch.Checked = False Then
            MsgBox("批量刪除選擇的功能要先打勾，並正確選擇要刪除的料號。")
        Else
            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
            If aa1 = MsgBoxResult.Ok Then
                批量存檔_bt.Enabled = False : 新增準備_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = True
                批輛停用選擇_ch.Enabled = False : 批輛停用選擇_ch.Checked = False : 啟用批改_ch.Checked = False : 重新整理_tsm.Enabled = True
                新增準備_tsm.Enabled = True : 存檔_tsm.Enabled = True : 刪除_tsm.Enabled = True : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False
                物料清單_dgv.EditMode = DataGridViewEditMode.EditOnF2 : 狀態_lb.Text = "預覽狀態" '--------------------控件隱藏、操作許可設定與其他基本顯示設定

                For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
                    資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
                    If 物料清單_dgv("刪除", i).Value = True Then
                        PA20 = 物料清單_dgv("料號", i).Value : SQL_物料檔案_刪除() '--------------------資料刪除
                    End If
                Next : conn.Close() : ICS_ASMS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

                MsgBox("刪除完成。") : Set_清單() '--------------------資料修改後重新讀取清單
            End If
        End If
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        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

        xlSheet.Cells(1, 3) = "XXXXX-物料清單"
        xlSheet.Cells(2, 1) = "料號" : xlSheet.Cells(2, 2) = "廠商編號" : xlSheet.Cells(2, 3) = "廠商"
        xlSheet.Cells(2, 4) = "品名" : xlSheet.Cells(2, 5) = "盤點數量" : xlSheet.Cells(2, 6) = "備註"
        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
            xlSheet.Cells(i + 3, 1) = 物料清單_dgv.Rows(i).Cells("料號").Value
            xlSheet.Cells(i + 3, 2) = 物料清單_dgv.Rows(i).Cells("供應商").Value
            xlSheet.Cells(i + 3, 3) = 物料清單_dgv.Rows(i).Cells("廠商").Value
            xlSheet.Cells(i + 3, 4) = 物料清單_dgv.Rows(i).Cells("品名").Value
            N1 = i + 3
        Next
        BB(xlApp, xlSheet)
        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlSheet.Range("B1").Select()
        xlApp.Application.WindowState = xlMinimized
        xlSheet.Cells.Select()
        MsgBox("列印完成。")
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.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.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.Columns("A:F").EntireColumn.AutoFit
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 20
        xlSheet.Cells.Select() : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("2:2").Select : myExcel.Selection.AutoFilter
        xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True

        xlSheet.Range("A1:F1").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("A1:F" & N1).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
    End Sub
    '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
        供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : 查詢_tb.Text = "" : Set_清單()
    End Sub
    Private Sub 新增準備_tsm_Click(sender As Object, e As EventArgs) Handles 新增準備_tsm.Click
        新增準備_bt.PerformClick()
    End Sub
    Private Sub 存檔_tsm_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
        存檔_bt.PerformClick()
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        物料清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub 刪除_tsm_Click(sender As Object, e As EventArgs) Handles 刪除_tsm.Click
        刪除_bt.PerformClick()
    End Sub
    Private Sub 新增準備_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增準備_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增準備_bt, "新增準備")
    End Sub
    Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔_bt, "存檔")
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
    End Sub
    Private Sub 批量存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 批量存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.批量存檔_bt, "新增準備")
    End Sub
    Private Sub 批量刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 批量刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.批量刪除_bt, "新增準備")
    End Sub
    Private Sub 列印_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印_bt.MouseEnter
        ToolTip1.SetToolTip(Me.列印_bt, "新增準備")
    End Sub
    Private Sub 新讀取資料夾路徑_bt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.MouseEnter
        ToolTip1.SetToolTip(Me.讀取資料夾路徑_bt, "讀取資料夾路徑")
    End Sub
    Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_bt, "圖檔入系統或修改")
    End Sub



    Private Sub 下載圖檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 下載圖檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.下載圖檔_bt, "下載圖檔")
    End Sub
End Class