版本號 : 2020081301

新增內容 :
1、物料檔案新增批量刪除功能。
2、刪除按鈕點擊後多一個再確認的動作，確保誤觸刪除資料。

Signed-off-by: B70340 <b70340@gmail.com>

YD-ERP-SYS/LoginForm1.vb

@@ -110,22 +110,23 @@ Public Class LoginForm1
         Else : End If
     End Sub
     Private Sub 自動更新1()
-        Dim aa1 As MsgBoxResult
-        aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請開發人員注意是否有其他人員修改。並決定是否下載最新的執行檔?", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
-            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
-            SaveFileDialog1.FileName = "YD-ERP-SYS - " & 版本號 & ".exe"
-            SaveFileDialog1.ShowDialog()
-            If Strings.Right(SaveFileDialog1.FileName, 27) = "YD-ERP-SYS - " & 版本號 & ".exe" Then
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "YD-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
-                MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
-                Me.Close()
-            Else
-                MsgBox("操作不正確，請用手動方式下載更新。")
-            End If
-        Else
-            登入程序()
-        End If
+        'Dim aa1 As MsgBoxResult
+        'aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請開發人員注意是否有其他人員修改。並決定是否下載最新的執行檔?", MsgBoxStyle.OkCancel)
+        'If aa1 = MsgBoxResult.Ok Then
+        '    With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
+        '    SaveFileDialog1.FileName = "YD-ERP-SYS - " & 版本號 & ".exe"
+        '    SaveFileDialog1.ShowDialog()
+        '    If Strings.Right(SaveFileDialog1.FileName, 27) = "YD-ERP-SYS - " & 版本號 & ".exe" Then
+        '        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "YD-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
+        '        MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
+        '        Me.Close()
+        '    Else
+        '        MsgBox("操作不正確，請用手動方式下載更新。")
+        '    End If
+        'Else
+        '    登入程序()
+        'End If
+        登入程序()
     End Sub
     Private Sub 自動更新2()
         Dim aa1 As MsgBoxResult

YD-ERP-SYS/Module/SQL_Module.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Module SQL_Module
-    Public ConString As String : Public SQL1 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
+    Public ConString As String : Public SQL1 As String : Public SQL2 As String
+    Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, 職稱, 級別 "
     Public 權限數量 As Integer = 0

YD-ERP-SYS/Module/SQL_倉儲系統管理.vb

@@ -4,18 +4,21 @@
         ConnOpen()
         If 物料檔案.查詢_tb.Text = "" Then
             If 物料檔案.供應商編碼_cb.Text = "" Then
-                SQL1 = "SELECT 料號, 供應商編號, 成本, 品名, 停用 FROM 物料資料庫 ORDER BY 料號"
+                SQL2 = ""
             Else
-                SQL1 = "SELECT 料號, 供應商編號, 成本, 品名, 停用 FROM 物料資料庫 WHERE 供應商編號 LIKE '" & 物料檔案.供應商編碼_cb.Text & "' ORDER BY 料號"
+                SQL2 = " WHERE 物料資料庫.供應商編號 LIKE '" & 物料檔案.供應商編碼_cb.Text & "' "
             End If
         Else
             If 物料檔案.供應商編碼_cb.Text = "" Then
-                SQL1 = "SELECT 料號, 供應商編號, 成本, 品名, 停用 FROM 物料資料庫 WHERE (料號 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%') ORDER BY 料號"
+                SQL2 = " WHERE (物料資料庫.料號 LIKE N'%" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
             Else
-                SQL1 = "SELECT 料號, 供應商編號, 成本, 品名, 停用 FROM 物料資料庫 
-                        WHERE (供應商編號 LIKE '" & 物料檔案.供應商編碼_cb.Text & "') AND (料號 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%') ORDER BY 料號"
+                SQL2 = " WHERE (物料資料庫.供應商編號 LIKE '" & 物料檔案.供應商編碼_cb.Text & "') AND (物料資料庫.料號 LIKE N'%" & PA & "%' OR 物料資料庫.品名 LIKE N'%" & PA & "%') "
             End If
         End If
+        SQL1 = "SELECT 物料資料庫.料號, 物料資料庫.供應商編號 AS 供應商, 物料資料庫.成本, 物料資料庫.品名, 物料資料庫.停用, 物料資料庫.是否有圖 AS 圖片, 系統選擇按鈕.選擇 AS 刪除
+                FROM   物料資料庫 LEFT OUTER JOIN 系統選擇按鈕 ON 物料資料庫.料號 = 系統選擇按鈕.按鈕
+                " & SQL2 & "
+                ORDER BY 物料資料庫.料號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_供應商_下拉清單()
@@ -52,13 +55,10 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_物料檔案_修改()
-        ConnOpen()
-        SQL1 = "UPDATE 物料資料庫 SET 成本 = N'" & 物料檔案.成本_nud.Value & "', 品名 = N'" & 物料檔案.品名_tb.Text & "', 停用 = N'" & 物料檔案.停用_ch.Checked & "'
-                WHERE (料號 = N'" & 物料檔案.料號_tb.Text & "')"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET 成本 = N'" & NU1 & "', 品名 = N'" & PA1 & "', 停用 = N'" & BL1 & "' WHERE (料號 = N'" & PA2 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_物料檔案_刪除()
-        ConnOpen() : SQL1 = "DELETE 物料資料庫 WHERE (料號 = N'" & 物料檔案.料號_tb.Text & "')" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE 物料資料庫 WHERE (料號 = N'" & PA20 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_物料檔案_是否有圖()
         ConnOpen() : SQL1 = "SELECT  是否有圖 FROM 物料資料庫 WHERE (料號 LIKE N'" & 物料檔案.料號_tb.Text & "%')" : CmdSet_For_dr()

YD-ERP-SYS/Module/全域變數.vb

@@ -4,12 +4,27 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020080501"
+    Public 版本 As String = "2020081401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String
-
+    '----全域字串變數
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
-    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""
+    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
+    '----全域數字變數
+    Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
+    '----全域布林含數
+    Public BL1 As Boolean : Public BL2 As Boolean : Public BL3 As Boolean : Public BL4 As Boolean : Public BL5 As Boolean
+
+    '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+    Public Class MyModule1
+        Friend Shared Sub 進度條()
+            平均數 = 10000 / 資料數
+            最終數 += 平均數
+            If 最終數 > 10000 Then : 最終數 = 10000 : End If
+            YD_ERP_SYS.ToolStripProgressBar1.Value = 最終數
+        End Sub
+    End Class
 End Module

YD-ERP-SYS/人事系統管理/人事資料表.vb

@@ -117,8 +117,11 @@ Public Class 人事資料表
         If 流水號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
             MsgBox("沒有選擇要刪除的資料")
         Else
-            SQL_人事資料表_刪除() '--------------------資料刪除
-            Set_清單() '--------------------資料修改後重新讀取清單
+            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                SQL_人事資料表_刪除() '--------------------資料刪除
+                Set_清單() '--------------------資料修改後重新讀取清單
+            End If
         End If
     End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/倉儲系統管理/物料檔案.Designer.vb

@@ -23,8 +23,7 @@ Partial Class 物料檔案
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.物料清單_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.資料筆數_tb = New System.Windows.Forms.TextBox()
@@ -53,11 +52,11 @@ Partial Class 物料檔案
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.新增準備_bt = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.新增準備ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.刪除ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.新增準備_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.存檔_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.刪除_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.下載圖檔_bt = New System.Windows.Forms.Button()
         Me.圖檔入系統_bt = New System.Windows.Forms.Button()
         Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
@@ -73,6 +72,11 @@ Partial Class 物料檔案
         Me.檔名讀取_tb = New System.Windows.Forms.TextBox()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
+        Me.啟用批改_ch = New System.Windows.Forms.CheckBox()
+        Me.批輛停用選擇_ch = New System.Windows.Forms.CheckBox()
+        Me.批量刪除選擇_ch = New System.Windows.Forms.CheckBox()
+        Me.批量刪除_bt = New System.Windows.Forms.Button()
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -81,19 +85,17 @@ Partial Class 物料檔案
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.物料清單_dgv.Location = New System.Drawing.Point(12, 83)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(12, 84)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.物料清單_dgv.RowTemplate.Height = 24
-        Me.物料清單_dgv.Size = New System.Drawing.Size(570, 600)
+        Me.物料清單_dgv.Size = New System.Drawing.Size(570, 564)
         Me.物料清單_dgv.TabIndex = 668
         '
         'Label3
@@ -108,9 +110,9 @@ Partial Class 物料檔案
         '
         '資料筆數_tb
         '
-        Me.資料筆數_tb.Location = New System.Drawing.Point(471, 57)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(437, 57)
         Me.資料筆數_tb.Name = "資料筆數_tb"
-        Me.資料筆數_tb.Size = New System.Drawing.Size(67, 23)
+        Me.資料筆數_tb.Size = New System.Drawing.Size(96, 23)
         Me.資料筆數_tb.TabIndex = 1016
         Me.資料筆數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -118,7 +120,7 @@ Partial Class 物料檔案
         '
         Me.Label4.AutoSize = True
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(449, 60)
+        Me.Label4.Location = New System.Drawing.Point(411, 60)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1015
@@ -267,17 +269,17 @@ Partial Class 物料檔案
         '
         '成本_nud
         '
-        Me.成本_nud.Location = New System.Drawing.Point(491, 5)
+        Me.成本_nud.Location = New System.Drawing.Point(437, 31)
         Me.成本_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
         Me.成本_nud.Name = "成本_nud"
-        Me.成本_nud.Size = New System.Drawing.Size(91, 23)
+        Me.成本_nud.Size = New System.Drawing.Size(96, 23)
         Me.成本_nud.TabIndex = 1094
         Me.成本_nud.ThousandsSeparator = True
         '
         'Label25
         '
         Me.Label25.AutoSize = True
-        Me.Label25.Location = New System.Drawing.Point(459, 8)
+        Me.Label25.Location = New System.Drawing.Point(405, 34)
         Me.Label25.Name = "Label25"
         Me.Label25.Size = New System.Drawing.Size(32, 16)
         Me.Label25.TabIndex = 1095
@@ -287,16 +289,16 @@ Partial Class 物料檔案
         '
         Me.停用_ch.AutoSize = True
         Me.停用_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.停用_ch.Location = New System.Drawing.Point(405, 7)
+        Me.停用_ch.Location = New System.Drawing.Point(412, 7)
         Me.停用_ch.Name = "停用_ch"
-        Me.停用_ch.Size = New System.Drawing.Size(51, 20)
+        Me.停用_ch.Size = New System.Drawing.Size(123, 20)
         Me.停用_ch.TabIndex = 1096
-        Me.停用_ch.Text = "停用"
+        Me.停用_ch.Text = "此料號為停用狀態"
         Me.停用_ch.UseVisualStyleBackColor = True
         '
         '供應商編碼_tb
         '
-        Me.供應商編碼_tb.Location = New System.Drawing.Point(898, 4)
+        Me.供應商編碼_tb.Location = New System.Drawing.Point(133, 111)
         Me.供應商編碼_tb.Name = "供應商編碼_tb"
         Me.供應商編碼_tb.Size = New System.Drawing.Size(67, 23)
         Me.供應商編碼_tb.TabIndex = 1097
@@ -304,12 +306,12 @@ Partial Class 物料檔案
         '狀態_lb
         '
         Me.狀態_lb.AutoSize = True
-        Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!)
+        Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.狀態_lb.ForeColor = System.Drawing.Color.Red
         Me.狀態_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.狀態_lb.Location = New System.Drawing.Point(405, 31)
+        Me.狀態_lb.Location = New System.Drawing.Point(864, 9)
         Me.狀態_lb.Name = "狀態_lb"
-        Me.狀態_lb.Size = New System.Drawing.Size(86, 24)
+        Me.狀態_lb.Size = New System.Drawing.Size(145, 40)
         Me.狀態_lb.TabIndex = 1102
         Me.狀態_lb.Text = "編輯狀態"
         '
@@ -317,9 +319,9 @@ Partial Class 物料檔案
         '
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
         Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.刪除_bt.Location = New System.Drawing.Point(746, 4)
+        Me.刪除_bt.Location = New System.Drawing.Point(718, 4)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(73, 51)
+        Me.刪除_bt.Size = New System.Drawing.Size(64, 51)
         Me.刪除_bt.TabIndex = 1101
         Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
@@ -328,9 +330,9 @@ Partial Class 物料檔案
         '
         Me.存檔_bt.ForeColor = System.Drawing.Color.Green
         Me.存檔_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.存檔_bt.Location = New System.Drawing.Point(667, 4)
+        Me.存檔_bt.Location = New System.Drawing.Point(653, 4)
         Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(73, 51)
+        Me.存檔_bt.Size = New System.Drawing.Size(64, 51)
         Me.存檔_bt.TabIndex = 1100
         Me.存檔_bt.Text = "存檔"
         Me.存檔_bt.UseVisualStyleBackColor = True
@@ -341,48 +343,48 @@ Partial Class 物料檔案
         Me.新增準備_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.新增準備_bt.Location = New System.Drawing.Point(588, 4)
         Me.新增準備_bt.Name = "新增準備_bt"
-        Me.新增準備_bt.Size = New System.Drawing.Size(73, 51)
+        Me.新增準備_bt.Size = New System.Drawing.Size(64, 51)
         Me.新增準備_bt.TabIndex = 1099
         Me.新增準備_bt.Text = "新增準備"
         Me.新增準備_bt.UseVisualStyleBackColor = True
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator3, Me.新增準備ToolStripMenuItem, Me.存檔ToolStripMenuItem, Me.刪除ToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理_tsm, Me.ToolStripSeparator3, Me.新增準備_tsm, Me.存檔_tsm, Me.刪除_tsm})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 98)
         '
-        '重新整理ToolStripMenuItem
+        '重新整理_tsm
         '
-        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
-        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        Me.重新整理_tsm.Name = "重新整理_tsm"
+        Me.重新整理_tsm.Size = New System.Drawing.Size(122, 22)
+        Me.重新整理_tsm.Text = "重新整理"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
         Me.ToolStripSeparator3.Size = New System.Drawing.Size(119, 6)
         '
-        '新增準備ToolStripMenuItem
+        '新增準備_tsm
         '
-        Me.新增準備ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.新增準備ToolStripMenuItem.Name = "新增準備ToolStripMenuItem"
-        Me.新增準備ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
-        Me.新增準備ToolStripMenuItem.Text = "新增準備"
+        Me.新增準備_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增準備_tsm.Name = "新增準備_tsm"
+        Me.新增準備_tsm.Size = New System.Drawing.Size(122, 22)
+        Me.新增準備_tsm.Text = "新增準備"
         '
-        '存檔ToolStripMenuItem
+        '存檔_tsm
         '
-        Me.存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
-        Me.存檔ToolStripMenuItem.Name = "存檔ToolStripMenuItem"
-        Me.存檔ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
-        Me.存檔ToolStripMenuItem.Text = "存檔"
+        Me.存檔_tsm.ForeColor = System.Drawing.Color.Green
+        Me.存檔_tsm.Name = "存檔_tsm"
+        Me.存檔_tsm.Size = New System.Drawing.Size(122, 22)
+        Me.存檔_tsm.Text = "存檔"
         '
-        '刪除ToolStripMenuItem
+        '刪除_tsm
         '
-        Me.刪除ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
-        Me.刪除ToolStripMenuItem.Name = "刪除ToolStripMenuItem"
-        Me.刪除ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
-        Me.刪除ToolStripMenuItem.Text = "刪除"
+        Me.刪除_tsm.ForeColor = System.Drawing.Color.Red
+        Me.刪除_tsm.Name = "刪除_tsm"
+        Me.刪除_tsm.Size = New System.Drawing.Size(122, 22)
+        Me.刪除_tsm.Text = "刪除"
         '
         '下載圖檔_bt
         '
@@ -491,10 +493,10 @@ Partial Class 物料檔案
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(588, 56)
+        Me.物料圖_pb.Location = New System.Drawing.Point(588, 84)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(421, 627)
+        Me.物料圖_pb.Size = New System.Drawing.Size(421, 599)
         Me.物料圖_pb.TabIndex = 1112
         Me.物料圖_pb.TabStop = False
         '
@@ -512,7 +514,7 @@ Partial Class 物料檔案
         '
         Me.下載檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下載檔名_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下載檔名_tb.Location = New System.Drawing.Point(825, 4)
+        Me.下載檔名_tb.Location = New System.Drawing.Point(60, 111)
         Me.下載檔名_tb.Name = "下載檔名_tb"
         Me.下載檔名_tb.Size = New System.Drawing.Size(67, 23)
         Me.下載檔名_tb.TabIndex = 1125
@@ -522,7 +524,7 @@ Partial Class 物料檔案
         '
         Me.檔名讀取_tb.AllowDrop = True
         Me.檔名讀取_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔名讀取_tb.Location = New System.Drawing.Point(825, 31)
+        Me.檔名讀取_tb.Location = New System.Drawing.Point(60, 138)
         Me.檔名讀取_tb.Multiline = True
         Me.檔名讀取_tb.Name = "檔名讀取_tb"
         Me.檔名讀取_tb.Size = New System.Drawing.Size(67, 23)
@@ -534,12 +536,70 @@ Partial Class 物料檔案
         Me.SaveFileDialog1.SupportMultiDottedExtensions = True
         Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
         '
+        '批量存檔_bt
+        '
+        Me.批量存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.批量存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.批量存檔_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.批量存檔_bt.Location = New System.Drawing.Point(13, 653)
+        Me.批量存檔_bt.Name = "批量存檔_bt"
+        Me.批量存檔_bt.Size = New System.Drawing.Size(569, 30)
+        Me.批量存檔_bt.TabIndex = 1126
+        Me.批量存檔_bt.Text = "批量存檔"
+        Me.批量存檔_bt.UseVisualStyleBackColor = True
+        '
+        '啟用批改_ch
+        '
+        Me.啟用批改_ch.AutoSize = True
+        Me.啟用批改_ch.Location = New System.Drawing.Point(588, 59)
+        Me.啟用批改_ch.Name = "啟用批改_ch"
+        Me.啟用批改_ch.Size = New System.Drawing.Size(75, 20)
+        Me.啟用批改_ch.TabIndex = 1127
+        Me.啟用批改_ch.Text = "啟用批改"
+        Me.啟用批改_ch.UseVisualStyleBackColor = True
+        '
+        '批輛停用選擇_ch
+        '
+        Me.批輛停用選擇_ch.AutoSize = True
+        Me.批輛停用選擇_ch.Location = New System.Drawing.Point(669, 59)
+        Me.批輛停用選擇_ch.Name = "批輛停用選擇_ch"
+        Me.批輛停用選擇_ch.Size = New System.Drawing.Size(99, 20)
+        Me.批輛停用選擇_ch.TabIndex = 1128
+        Me.批輛停用選擇_ch.Text = "批量停用選擇"
+        Me.批輛停用選擇_ch.UseVisualStyleBackColor = True
+        '
+        '批量刪除選擇_ch
+        '
+        Me.批量刪除選擇_ch.AutoSize = True
+        Me.批量刪除選擇_ch.Location = New System.Drawing.Point(774, 59)
+        Me.批量刪除選擇_ch.Name = "批量刪除選擇_ch"
+        Me.批量刪除選擇_ch.Size = New System.Drawing.Size(99, 20)
+        Me.批量刪除選擇_ch.TabIndex = 1129
+        Me.批量刪除選擇_ch.Text = "批量刪除選擇"
+        Me.批量刪除選擇_ch.UseVisualStyleBackColor = True
+        '
+        '批量刪除_bt
+        '
+        Me.批量刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.批量刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.批量刪除_bt.Location = New System.Drawing.Point(784, 4)
+        Me.批量刪除_bt.Name = "批量刪除_bt"
+        Me.批量刪除_bt.Size = New System.Drawing.Size(64, 51)
+        Me.批量刪除_bt.TabIndex = 1130
+        Me.批量刪除_bt.Text = "批量刪除"
+        Me.批量刪除_bt.UseVisualStyleBackColor = True
+        '
         '物料檔案
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1312, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.批量刪除_bt)
+        Me.Controls.Add(Me.批量刪除選擇_ch)
+        Me.Controls.Add(Me.批輛停用選擇_ch)
+        Me.Controls.Add(Me.啟用批改_ch)
+        Me.Controls.Add(Me.批量存檔_bt)
         Me.Controls.Add(Me.下載檔名_tb)
         Me.Controls.Add(Me.檔名讀取_tb)
         Me.Controls.Add(Me.下載圖檔_bt)
@@ -621,11 +681,11 @@ Partial Class 物料檔案
     Friend WithEvents 存檔_bt As Windows.Forms.Button
     Friend WithEvents 新增準備_bt As Windows.Forms.Button
     Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip
-    Friend WithEvents 重新整理ToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 重新整理_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator3 As Windows.Forms.ToolStripSeparator
-    Friend WithEvents 新增準備ToolStripMenuItem As Windows.Forms.ToolStripMenuItem
-    Friend WithEvents 存檔ToolStripMenuItem As Windows.Forms.ToolStripMenuItem
-    Friend WithEvents 刪除ToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 新增準備_tsm As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 存檔_tsm As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents 刪除_tsm As Windows.Forms.ToolStripMenuItem
     Friend WithEvents 下載圖檔_bt As Windows.Forms.Button
     Friend WithEvents 圖檔入系統_bt As Windows.Forms.Button
     Friend WithEvents 檔案名稱_tb As Windows.Forms.TextBox
@@ -641,4 +701,9 @@ Partial Class 物料檔案
     Friend WithEvents 檔名讀取_tb As Windows.Forms.TextBox
     Friend WithEvents FolderBrowserDialog1 As Windows.Forms.FolderBrowserDialog
     Friend WithEvents SaveFileDialog1 As Windows.Forms.SaveFileDialog
+    Friend WithEvents 批量存檔_bt As Windows.Forms.Button
+    Friend WithEvents 啟用批改_ch As Windows.Forms.CheckBox
+    Friend WithEvents 批輛停用選擇_ch As Windows.Forms.CheckBox
+    Friend WithEvents 批量刪除選擇_ch As Windows.Forms.CheckBox
+    Friend WithEvents 批量刪除_bt As Windows.Forms.Button
 End Class

YD-ERP-SYS/倉儲系統管理/物料檔案.vb

@@ -14,13 +14,20 @@ Public Class 物料檔案
         SQL_物料檔案_清單()
         da.Fill(ds1) : 物料清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-        物料清單_dgv.Columns("料號").FillWeight = 70 : 物料清單_dgv.Columns("供應商編號").FillWeight = 50 : 物料清單_dgv.Columns("成本").FillWeight = 50
-        物料清單_dgv.Columns("品名").FillWeight = 200 : 物料清單_dgv.Columns("停用").FillWeight = 40
+        物料清單_dgv.Columns("料號").FillWeight = 70 : 物料清單_dgv.Columns("供應商").FillWeight = 40 : 物料清單_dgv.Columns("成本").FillWeight = 50
+        物料清單_dgv.Columns("品名").FillWeight = 170 : 物料清單_dgv.Columns("停用").FillWeight = 40 : 物料清單_dgv.Columns("圖片").FillWeight = 40
+        物料清單_dgv.Columns("刪除").FillWeight = 40
 
         物料清單_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
         資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            物料清單_dgv("刪除", i).Value = False
+        Next
     End Sub
     Private Sub 地區碼_下拉表單資料載入()
         SQL_地區碼_下拉清單() : 地區_cb.Items.Clear() : 地區編碼_cb.Items.Clear()
@@ -33,12 +40,12 @@ Public Class 物料檔案
     Private Sub 物料檔案_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         地區編碼_cb.Enabled = False : 下載檔名_tb.Visible = False : 檔名讀取_tb.Visible = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
-        料號_tb.Enabled = False : 狀態_lb.Text = "預覽狀態"
+        料號_tb.Enabled = False : 批量存檔_bt.Enabled = False : 批輛停用選擇_ch.Enabled = False : 批量刪除選擇_ch.Enabled = False : 批量刪除_bt.Enabled = False : 狀態_lb.Text = "預覽狀態"
 
         If Val(登入人級別) <= 2 Then '--------------------刪除資料權限
-            刪除ToolStripMenuItem.Enabled = True : 刪除_bt.Enabled = True
+            刪除_tsm.Enabled = True : 刪除_bt.Enabled = True : 批量刪除_bt.Enabled = True
         Else
-            刪除ToolStripMenuItem.Enabled = False : 刪除_bt.Enabled = False
+            刪除_tsm.Enabled = False : 刪除_bt.Enabled = False : 批量刪除_bt.Enabled = False
         End If
 
         地區碼_下拉表單資料載入() : Set_清單() '--------------------資料讀取
@@ -48,12 +55,12 @@ Public Class 物料檔案
     End Sub
     Private Sub 供應商資料表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         If 資料新增判斷 = True Then '--------------------如果再關閉介面時，資料新增判斷是開啟的，就無條件刪除控件上的那筆資料
-            SQL_物料檔案_刪除() '--------------------資料刪除
+            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 e.RowIndex = -1 Then : Else
-            料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商編號", e.RowIndex).Value.ToString
+            料號_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
 
@@ -73,6 +80,39 @@ Public Class 物料檔案
                     物料圖_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 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
@@ -211,6 +251,7 @@ Public Class 物料檔案
             資料新增判斷 = False '--------------------目前的編輯狀態
             狀態_lb.Text = "預覽狀態"
             物料清單_dgv.Enabled = True : 查詢_tb.Enabled = True '--------------------開啟DGV與關鍵字查詢控件的點選控制功能
+            NU1 = 成本_nud.Value : PA1 = 品名_tb.Text : BL1 = 停用_ch.Checked : PA2 = 料號_tb.Text
             SQL_物料檔案_修改() '--------------------資料修改
             Set_清單() '--------------------資料修改後重新讀取清單
         End If
@@ -219,21 +260,73 @@ Public Class 物料檔案
         If 料號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
             MsgBox("沒有選擇要刪除的資料")
         Else
-            SQL_物料檔案_刪除() '--------------------資料刪除
-            Set_清單() '--------------------資料修改後重新讀取清單
+            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 : 重新整理_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
+            SQL_物料檔案_修改() '--------------------資料修改
+        Next : conn.Close : YD_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.進度條()
+                    PA20 = 物料清單_dgv("料號", i).Value : SQL_物料檔案_刪除() '--------------------資料刪除
+                Next : conn.Close() : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+                MsgBox("刪除完成。") : Set_清單() '--------------------資料修改後重新讀取清單
+            End If
         End If
     End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
+    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 新增準備ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增準備ToolStripMenuItem.Click
+    Private Sub 新增準備_tsm_Click(sender As Object, e As EventArgs) Handles 新增準備_tsm.Click
         新增準備_bt.PerformClick()
     End Sub
-    Private Sub 存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 存檔ToolStripMenuItem.Click
+    Private Sub 存檔_tsm_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
         存檔_bt.PerformClick()
     End Sub
-    Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除ToolStripMenuItem.Click
+    Private Sub 刪除_tsm_Click(sender As Object, e As EventArgs) Handles 刪除_tsm.Click
         刪除_bt.PerformClick()
     End Sub
 End Class

YD-ERP-SYS/採購系統管理/供應商資料表.vb

@@ -141,8 +141,11 @@ Public Class 供應商資料表
         If 編號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
             MsgBox("沒有選擇要刪除的資料")
         Else
-            SQL_供應商資料表_刪除() '--------------------資料刪除
-            Set_清單() '--------------------資料修改後重新讀取清單
+            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                SQL_供應商資料表_刪除() '--------------------資料刪除
+                Set_清單() '--------------------資料修改後重新讀取清單
+            End If
         End If
     End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/業務系統管理/客戶資料表.vb

@@ -120,8 +120,11 @@ Public Class 客戶資料表
         If 流水號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
             MsgBox("沒有選擇要刪除的資料")
         Else
-            SQL_客戶資料表_刪除() '--------------------資料刪除
-            Set_清單() '--------------------資料修改後重新讀取清單
+            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                SQL_客戶資料表_刪除() '--------------------資料刪除
+                Set_清單() '--------------------資料修改後重新讀取清單
+            End If
         End If
     End Sub
     '-------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------------------------------------