20220517重大更新備份

.editorconfig

@@ -1,4 +1,4 @@
 [*.vb]
 
 # BC42353: 函式在所有程式碼路徑上皆不會傳回值
-dotnet_diagnostic.BC42353.severity = suggestion
+dotnet_diagnostic.BC42353.severity = none

TENDEN-MES-SYS/LoginForm1vb.vb

@@ -55,11 +55,7 @@ Public Class LoginForm1vb
     End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        If ComboBox1.Text = "雲端伺服器" Then
-            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
-        Else
-            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
-        End If
+        If ComboBox1.Text = "雲端伺服器" Then : SQL_連線字串_測試() : SQL密碼 = "Lee0911274990" : Else : SQL_連線字串_正式() : SQL密碼 = "0911274990" : End If
         g_conn_type = ComboBox1.Text
         '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
         ConnOpen()

TENDEN-MES-SYS/Module/DGV進度條.vb

@@ -0,0 +1,62 @@
+Imports System.ComponentModel
+Module DGV進度條
+    Public Class DataGridViewProgressColumn
+        Inherits DataGridViewImageColumn
+        Public Sub New()
+            Me.CellTemplate = New DataGridViewProgressCell
+        End Sub
+    End Class
+    Public Class DataGridViewProgressCell
+        Inherits DataGridViewImageCell
+        Sub New()
+            ValueType = Type.GetType("Integer")
+        End Sub
+        ' 使進度單元與默認圖像單元一致所需的方法。
+        ' 默認圖像單元將圖像作為值，儘管進度單元的值是整數。
+        Protected Overrides Function GetFormattedValue(
+            ByVal value As Object,
+            ByVal rowIndex As Integer,
+            ByRef cellStyle As DataGridViewCellStyle,
+            ByVal valueTypeConverter As TypeConverter,
+            ByVal formattedValueTypeConverter As TypeConverter,
+            ByVal context As DataGridViewDataErrorContexts) As Object
+            Static emptyImage As Bitmap = New Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
+            GetFormattedValue = emptyImage
+        End Function
+        Protected Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle,
+                                      ByVal cellBounds As System.Drawing.Rectangle,
+                                      ByVal rowIndex As Integer, ByVal cellState As System.Windows.Forms.DataGridViewElementStates,
+                                      ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String,
+                                      ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle,
+                                      ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle,
+                                      ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
+            Dim progressVal As Double = CType(value, Double)
+            Dim percentage As Single = CType(progressVal / 分母, Single)
+            Dim backBrush As Brush = New SolidBrush(cellStyle.BackColor)
+            Dim foreBrush As Brush = New SolidBrush(cellStyle.ForeColor)
+            ' 調用基類方法來繪製默認單元格外觀。
+            MyBase.Paint(g, clipBounds, cellBounds, rowIndex, cellState,
+                value, formattedValue, errorText, cellStyle,
+                advancedBorderStyle, paintParts)
+            If percentage > 0.0 And percentage < 分段1 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightBlue), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段2 And percentage < 分段3 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightGreen), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            ElseIf percentage > 分段4 Then
+                ' 繪製進度條和文字
+                g.FillRectangle(New SolidBrush(Color.LightPink), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+            Else
+                '繪製文本
+                If Not Me.DataGridView.CurrentCell Is Nothing AndAlso Me.DataGridView.CurrentCell.RowIndex = rowIndex Then
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, New SolidBrush(cellStyle.SelectionForeColor), cellBounds.X + 6, cellBounds.Y + 2)
+                Else : g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2) : End If
+            End If
+        End Sub
+    End Class
+End Module
+

TENDEN-MES-SYS/Module/SQL_Module.vb

@@ -1,6 +1,6 @@
 Imports System.Data.SqlClient
 Module SQL_Module
-    Public ConString As String : Public SQL1 As String : Public SQL2 As String
+    Public ConString, ConString2, SQL1, SQL2 As String
     Public conn As New SqlConnection : Public conn1 As New SqlConnection : Public cmd As New SqlCommand : Public cmd1 As New SqlCommand
     Public dr As SqlDataReader : Public dr1 As SqlDataReader : Public da As New SqlDataAdapter : Public da1 As New SqlDataAdapter
     Public DTP, DTP1, DTP2, DTP3, DTP4, DTP5, DTP6 As String
@@ -8,6 +8,9 @@ Module SQL_Module
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub
+    Friend Sub ConnOpen_工程圖庫SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString2 : conn.Open() : End If
+    End Sub
     Friend Sub CmdSet_For_DGV()
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
     End Sub

TENDEN-MES-SYS/Module/SQL_圖片資料庫管理.vb

@@ -1,13 +1,13 @@
 Module SQL_圖片資料庫管理
     '----------------------驗貨報告資料庫修正-----------------------------
     Friend Sub SQL_驗貨報告圖庫()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "SELECT 客戶訂單號, 型體名稱, 驗貨報告編號 FROM 驗貨報告圖庫 WHERE (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%')"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_訂單控制表1()
         ConnOpen()
-        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 驗貨報告圖片 FROM 訂單控制表
+        SQL1 = "SELECT   訂單流水號, 年份季度, 客戶訂單號, 形體號, 驗貨報告圖片 FROM " & 訂單資料表(1) & "
                 WHERE   (客戶訂單號 LIKE '%" & 驗貨報告資料庫修正.客戶訂單號_tb.Text & "%') AND (形體號 LIKE N'" & 驗貨報告資料庫修正.型體名稱_tb.Text & "')"
         CmdSet_For_DGV()
     End Sub
@@ -18,6 +18,9 @@
         CmdSet_For_dr()
     End Sub
     '---------------------------驗貨報告圖片導入資料庫--------------------------------------------------------------
+    Friend Sub SQL_資料庫選擇()
+        ConnOpen() : SQL1 = "SELECT  TOP (1) 圖片資料庫  FROM  圖片資料庫管理  WHERE  (是否可用 = 0)  ORDER BY  圖片資料庫" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_訂單清單()
         SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 生產工廠, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 驗貨報告圖片, 力威訂單號 FROM " & 訂單資料表(1) & " 
                 WHERE (CXL = 0 OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (驗貨時間 LIKE '') ORDER BY   SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
@@ -29,19 +32,19 @@
                 ORDER BY SUBSTRING(訂單流水號, 4, 6), 客戶訂單號, 形體號"
     End Sub
     Friend Sub SQL_查詢最後一筆驗貨報告編號()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "SELECT TOP (1) 驗貨報告編號 FROM 驗貨報告圖庫 ORDER BY 驗貨報告編號 DESC"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_新增驗貨報告編號_測試()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                         SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
                         BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_新增驗貨報告圖庫_正式()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                         SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
                         BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
@@ -49,44 +52,47 @@
     End Sub
     Friend Sub SQL_修改驗貨報告圖庫()
         ConnOpen()
-        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "' 
+        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 驗貨時間 = '" & DTP & "', 驗貨報告圖片 = '" & 驗貨報告圖片導入資料庫.TextBox3.Text & "', 驗報圖庫 = '" & PA20 & "'
                 WHERE (訂單流水號 LIKE '" & 驗貨報告圖片導入資料庫.天盾訂單號_tb.Text & "' AND 客戶訂單號 = '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "' AND 
                        形體號 = '" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     '------------------------------------------------驗貨報告資料庫-------------------------------------
     Friend Sub SQL_驗貨報告圖庫清單()
-        SQL1 = "SELECT     " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
-                FROM       驗貨報告圖庫 INNER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
-                GROUP BY   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
-                ORDER BY   驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
+        SQL1 = "SELECT     " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱, 
+                           " & 訂單資料表(1) & ".顏色,  " & PA20 & ".dbo.驗貨報告圖庫.驗貨報告編號 
+                FROM       " & PA20 & ".dbo.驗貨報告圖庫 INNER JOIN " & 訂單資料表(1) & " ON " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
+                GROUP BY   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱, 
+                           " & 訂單資料表(1) & ".顏色, " & PA20 & ".dbo.驗貨報告圖庫.驗貨報告編號 
+                ORDER BY   " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱"
     End Sub
     Friend Sub SQL_驗貨報告圖庫查詢()
-        ConnOpen()
-        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_驗貨報告圖庫查詢1()
-        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色,  驗貨報告圖庫.驗貨報告編號 
-                FROM     驗貨報告圖庫 LEFT OUTER JOIN " & 訂單資料表(1) & " ON 驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
-                WHERE    " & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%' OR " &
-                             "" & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%' OR 驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR 驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%' 
-                GROUP BY " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱, " & 訂單資料表(1) & ".顏色, 驗貨報告圖庫.驗貨報告編號 
-                ORDER BY 驗貨報告圖庫.客戶訂單號, 驗貨報告圖庫.型體名稱"
+        SQL1 = "SELECT   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱, 
+                         " & 訂單資料表(1) & ".顏色,  " & PA20 & ".dbo.驗貨報告圖庫.驗貨報告編號 
+                FROM     " & PA20 & ".dbo.驗貨報告圖庫 LEFT OUTER JOIN " & 訂單資料表(1) & " ON " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號 = " & 訂單資料表(1) & ".客戶訂單號 
+                WHERE    " & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%' OR 
+                         " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號 LIKE '%" & PA & "%' OR " & PA20 & ".dbo.驗貨報告圖庫.型體名稱 LIKE '%" & PA & "%' 
+                GROUP BY " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".年份季度, " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱, 
+                         " & 訂單資料表(1) & ".顏色, " & PA20 & ".dbo.驗貨報告圖庫.驗貨報告編號 
+                ORDER BY " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號, " & PA20 & ".dbo.驗貨報告圖庫.型體名稱"
     End Sub
     Friend Sub SQL_驗貨報告圖庫3()
-        ConnOpen()
-        SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'"
-        CmdSet_For_DGV()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "'" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_修改驗貨報告圖庫1_測試()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                         WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改驗貨報告圖庫1_正式()
-        ConnOpen()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                         WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
         CmdSet_For_dr()
@@ -94,22 +100,22 @@
     '--------------------保證書出貨統計資料---------------------------------------------------------
     Friend Sub SQL_保證書出貨清單()
         ConnOpen()
-        SQL1 = "SELECT 驗貨報告圖庫.操作人, 訂單控制表.訂單流水號, 訂單控制表.年份季度, 訂單控制表.客戶訂單號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.TVW AS 形體號碼, 訂單控制表.顏色, " &
-                   "訂單控制表.楦型, 訂單控制表.訂單數量, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.裁斷時間, 訂單控制表.針車時間, 訂單控制表.成型時間, " &
-                   "訂單控制表.驗貨時間, 訂單控制表.實際離廠日, 訂單控制表.東莞業務備註, 訂單控制表.驗貨報告圖片 FROM 驗貨報告圖庫 LEFT OUTER JOIN 訂單控制表 ON 驗貨報告圖庫.型體名稱 = " &
-                   "訂單控制表.形體號 AND 驗貨報告圖庫.客戶訂單號 = 訂單控制表.客戶訂單號 WHERE (驗貨報告圖庫.操作人 LIKE 'Sammi') ORDER BY   訂單控制表.客戶訂單號 DESC, 型體名稱"
+        SQL1 = "SELECT      " & PA20 & ".dbo.驗貨報告圖庫.操作人, 訂單控制表.訂單流水號, 訂單控制表.年份季度, 
+                            訂單控制表.客戶訂單號, 訂單控制表.形體號 AS 型體名稱, 訂單控制表.TVW AS 形體號碼, 訂單控制表.顏色, 
+                            訂單控制表.楦型, 訂單控制表.訂單數量, 訂單控制表.生產工廠 AS 工廠, 訂單控制表.訂單種類, 
+                            訂單控制表.工廠回復交期, 訂單控制表.裁斷時間, 訂單控制表.針車時間, 訂單控制表.成型時間, 訂單控制表.驗貨時間, 
+                            訂單控制表.實際離廠日, 訂單控制表.東莞業務備註, 訂單控制表.驗貨報告圖片
+                FROM        訂單控制表 RIGHT OUTER JOIN
+                            " & PA20 & ".dbo.驗貨報告圖庫 ON 
+                            訂單控制表.客戶訂單號 = " & PA20 & ".dbo.驗貨報告圖庫.客戶訂單號 AND 
+                            訂單控制表.形體號 = " & PA20 & ".dbo.驗貨報告圖庫.型體名稱
+                WHERE      (" & PA20 & ".dbo.驗貨報告圖庫.操作人 LIKE 'Sammi')
+                ORDER BY    訂單控制表.客戶訂單號 DESC, 型體名稱"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_驗貨報告()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA & "'"
-        CmdSet_For_dr()
-    End Sub
-    '-------------------------驗貨報告大圖---------------------------------------------------
-    Friend Sub SQL_驗貨報告1()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 驗貨報告 & "'"
-        CmdSet_For_dr()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
     End Sub
     '----------------------鞋型圖片導入資料庫---------------------------------------------------
     Friend Sub SQL_季節清單()
@@ -320,4 +326,53 @@
                     BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
+    '---------------------------包裝資料圖片導入資料庫--------------------------------------------------------------
+    Friend Sub SQL_形體清單()
+        ConnOpen() : SQL1 = "SELECT  建立季節, Style, ProductName, ItemNumber  FROM  STYLELIST  WHERE  (包裝圖號 LIKE '') OR (包裝圖號 IS NULL)  ORDER BY  Style, 建立季節 DESC" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_形體清單1()
+        ConnOpen()
+        SQL1 = "SELECT    建立季節, Style, ProductName, ItemNumber  FROM  STYLELIST  
+                WHERE   ((包裝圖號 LIKE '') OR (包裝圖號 IS NULL)) AND 
+                          (建立季節 LIKE N'%" & PA & "%' OR Style LIKE N'%" & PA & "%' OR ProductName LIKE N'%" & PA & "%' OR ItemNumber LIKE N'%" & PA & "%')   
+                ORDER BY  Style, 建立季節 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_查詢最後一筆包裝資料編號()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
+        SQL1 = "SELECT TOP (1) 流水號 FROM 包裝資料圖庫 ORDER BY 流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增包裝編號_測試()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
+        SQL1 = "INSERT INTO 包裝資料圖庫 (流水號, 季節, 型體名稱, 型體號碼, 項目編號, 圖片) 
+                        SELECT '" & 包裝資料圖片導入資料庫.流水號_tb.Text & "','" & 包裝資料圖片導入資料庫.建立季節_tb.Text & "','" & 包裝資料圖片導入資料庫.型體名稱_tb.Text & "',
+                               '" & 包裝資料圖片導入資料庫.型體號碼_tb.Text & "', '" & 包裝資料圖片導入資料庫.項目編號_tb.Text & "',  
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'D:\FTP\TENDENZA\0004\" & 包裝資料圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_新增包裝編號_正式()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
+        SQL1 = "INSERT INTO 包裝資料圖庫 (流水號, 季節, 型體名稱, 型體號碼, 項目編號, 圖片) 
+                        SELECT '" & 包裝資料圖片導入資料庫.流水號_tb.Text & "','" & 包裝資料圖片導入資料庫.建立季節_tb.Text & "','" & 包裝資料圖片導入資料庫.型體名稱_tb.Text & "',
+                               '" & 包裝資料圖片導入資料庫.型體號碼_tb.Text & "', '" & 包裝資料圖片導入資料庫.項目編號_tb.Text & "',  
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 包裝資料圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_修改STYLELIST包裝圖號()
+        ConnOpen()
+        SQL1 = "UPDATE STYLELIST SET 包裝圖號 = '" & 包裝資料圖片導入資料庫.流水號_tb.Text & "', 包裝圖庫 = '" & PA1 & "'
+                WHERE  (ItemNumber LIKE N'" & 包裝資料圖片導入資料庫.項目編號_tb.Text & "' AND ProductName LIKE N'" & 包裝資料圖片導入資料庫.型體名稱_tb.Text & "' AND 
+                        Style LIKE N'" & 包裝資料圖片導入資料庫.型體號碼_tb.Text & "' AND 建立季節 LIKE N'" & 包裝資料圖片導入資料庫.建立季節_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_包裝圖片清單()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
+        SQL1 = "SELECT  流水號, 季節, 型體名稱, 型體號碼, 項目編號  FROM  包裝資料圖庫  ORDER BY  流水號 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_包裝圖片()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 圖片 FROM 包裝資料圖庫 WHERE 流水號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
+    End Sub
 End Module

TENDEN-MES-SYS/Module/SQL_製鞋技術管理.vb

@@ -274,7 +274,7 @@
     '---------------------------------STYLE_資料管理---------------------------------------------------------------------
     Friend Sub SQL_STYLE()
         SQL1 = "SELECT   STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, 
-                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認, STYLELIST.T1, STYLELIST.T2, STYLELIST.WEAR_TEST, STYLELIST.T3, STYLELIST.T4
+                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認, STYLELIST.T1, STYLELIST.T2, STYLELIST.WEAR_TEST, STYLELIST.T3, STYLELIST.T4, STYLELIST.包裝圖號, STYLELIST.包裝圖庫
                 FROM    (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY    形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = STYLELIST.ProductName 
                          FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
                 ORDER BY Q.總雙數 DESC, RIGHT(STYLELIST.建立季節,2) DESC, 形體號碼 DESC"
@@ -449,7 +449,7 @@
     End Sub
     Friend Sub SQL_查詢訂單控制表()
         SQL1 = "SELECT   STYLELIST.建立季節, 訂單控制表形體號清單.形體號 AS 形體名稱, STYLELIST.ProductName, STYLELIST.ItemNumber, STYLELIST.Style AS 形體號碼, STYLELIST.Description, Q.形體號, 
-                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認 
+                         Q.訂單數量 AS 訂單筆數, Q.總雙數, STYLELIST.APMA確認, STYLELIST.包裝圖號, STYLELIST.包裝圖庫 
                 FROM    (SELECT 形體號, COUNT(形體號) AS 訂單數量, SUM(訂單數量) AS 總雙數 FROM 訂單控制表 GROUP BY 形體號) AS Q RIGHT OUTER JOIN STYLELIST ON Q.形體號 = 
                          STYLELIST.ProductName FULL OUTER JOIN 訂單控制表形體號清單 ON STYLELIST.ProductName = 訂單控制表形體號清單.形體號 
                 WHERE    訂單控制表形體號清單.形體號 LIKE '%" & PA & "%' OR STYLELIST.ItemNumber LIKE '%" & PA & "%' OR STYLELIST.Style LIKE '%" & PA & "%' OR STYLELIST.Description LIKE '%" & PA & "%' 

TENDEN-MES-SYS/Module/SQL_資料庫系統管理.vb

@@ -124,4 +124,46 @@
         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
         CmdSet_For_dr()
     End Sub
+    '----------------------系統編碼原則------------------------------------------------------------------------------------
+    Friend Sub SQL_主資料庫LOG檔案截斷()
+        ConnOpen() : SQL1 = "USE [" & PA & "] ALTER DATABASE [" & PA & "]
+                             SET RECOVERY SIMPLE; DBCC SHRINKFILE([" & PA & "_Log], 1); 
+                             ALTER DATABASE [" & PA & "]
+                             SET RECOVERY FULL;" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_伺服器1清單()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE '天盾%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_資料庫狀態()
+        ConnOpen()
+        SQL1 = "SELECT  DB_NAME(database_id) AS [資料庫名稱], physical_name AS [磁碟路徑], type_desc AS [類型描述], 
+                        state_desc  AS [狀態描述], size * 8.0 / 1024  AS [使用容量]
+                FROM    sys.master_files
+                WHERE  (DB_NAME(database_id) LIKE N'天盾%')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_圖片資料庫管理查詢()
+        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用  FROM 圖片資料庫管理 ORDER BY 圖片資料庫" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_系統預測值修改()
+        ConnOpen() : SQL1 = "UPDATE 版本號管理 SET 圖片伺服器上限 = '" & 系統編碼原則.MAX_nud.Value & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_系統預設值()
+        ConnOpen() : SQL1 = "SELECT  圖片伺服器上限 FROM 版本號管理" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_圖片資料庫管理查詢1()
+        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 圖片資料庫 LIKE N'" & 系統編碼原則.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工程圖片資料庫管理查詢新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 圖片資料庫管理 (圖片資料庫, 是否可用) VALUES ('" & 系統編碼原則.圖片資料庫名稱_tb.Text & "','" & 系統編碼原則.是否可用_ch.Checked & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工程圖片資料庫管理查詢修改()
+        ConnOpen()
+        SQL1 = "UPDATE 圖片資料庫管理 SET 是否可用 = '" & 系統編碼原則.是否可用_ch.Checked & "' WHERE 圖片資料庫 LIKE N'" & 系統編碼原則.圖片資料庫名稱_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
 End Module

TENDEN-MES-SYS/Module/SQL_連線字串.vb

@@ -0,0 +1,11 @@
+Module SQL_連線字串
+    Friend Sub SQL_連線字串_測試()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_正式()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_圖片資料庫()
+        ConString2 = "Data Source=" & 登入人IP & ";Initial Catalog=" & 圖片庫 & ";Persist Security Info=True;User ID=b70340;Password=" & SQL密碼 & ";Max pool size = 200;Connection Timeout=0"
+    End Sub
+End Module

TENDEN-MES-SYS/Module/SQL_連線狀態模組.vb

@@ -1,7 +1,7 @@
 Module SQL_連線狀態模組
 #Region "——连接测试：避免等待时间过长——"
     Dim bConnect As Boolean
-    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    ReadOnly BgWorker1 As New System.ComponentModel.BackgroundWorker
     Dim ServerIP As String
     ''' <summary>
     ''' 测试连接：True-连接成功，False-连接失败
@@ -49,8 +49,8 @@
     End Sub
     '--连接数据库
     Private Function ConnectMSSQLServer() As Boolean
-        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
-        sqlConTest = New Data.SqlClient.SqlConnection
+        Dim sqlConTest As SqlClient.SqlConnection ' 连接   
+        sqlConTest = New SqlClient.SqlConnection
         sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
         Try
             sqlConTest.Open()

TENDEN-MES-SYS/Module/SQL_量產訂單系統.vb

@@ -342,7 +342,7 @@
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
                             " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
                             " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
-                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
                     FROM    貨款匯入出款明細表 INNER JOIN
                             " & 訂單資料表(1) & " ON 貨款匯入出款明細表.顏色 = " & 訂單資料表(1) & ".顏色 AND 
                             貨款匯入出款明細表.楦型 = " & 訂單資料表(1) & ".楦型 AND 
@@ -353,7 +353,7 @@
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
                             " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
                             " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
-                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
                     ORDER BY   貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                             貨款匯入出款明細表.楦型"
     End Sub
@@ -363,7 +363,7 @@
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
                             " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
                             " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
-                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
                     FROM    貨款匯入出款明細表 INNER JOIN
                             " & 訂單資料表(1) & " ON 貨款匯入出款明細表.顏色 = " & 訂單資料表(1) & ".顏色 AND 
                             貨款匯入出款明細表.楦型 = " & 訂單資料表(1) & ".楦型 AND 
@@ -376,7 +376,7 @@
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
                             " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
                             " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
-                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
                     ORDER BY   貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                             貨款匯入出款明細表.楦型"
     End Sub
@@ -430,8 +430,8 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取訂單明細表圖片2()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA1 & "'"
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
+        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'"
         CmdSet_For_dr()
     End Sub
     '--------------------------生產進度表----------------------------------------------
@@ -439,7 +439,7 @@
         SQL1 = "SELECT PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 
                            工廠回復交期 AS 工廠交期, 七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 
                            鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 
-                           力威訂單號 AS 力威單號, 驗貨報告圖片 
+                           力威訂單號 AS 力威單號, 驗貨報告圖片, 驗報圖庫
                     FROM  " & 訂單資料表(1) & " 
                     WHERE ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) ORDER BY   訂單流水號, 客戶交期, 形體號, 顏色, 楦型"
     End Sub
@@ -447,7 +447,7 @@
         SQL1 = "SELECT PO_S_Date AS 接單日, 出貨地, 訂單流水號 AS 天盾PO, 客戶訂單號 AS 客戶PO, 形體號, TVW, 楦頭號, 楦型, 材質, 顏色, 訂單數量 AS 訂單數, 
                            工廠回復交期 AS 工廠交期, 七號模具, TRIAL1, TRIAL2, 長期試穿, CFMSAMPLE AS CFM, TRIAL3, TRIAL4, CFMSPEC AS TEST, 面料, 副料, 中底, 
                            鞋墊, 大底, 跟, 包裝確認時間 AS 包裝, 裁斷時間 AS 裁斷, 針車時間 AS 針車, 成型時間 AS 成型, 驗貨時間 AS 驗貨, 工廠進度表備註1 AS 備註1, 
-                           力威訂單號 AS 力威單號, 驗貨報告圖片 
+                           力威訂單號 AS 力威單號, 驗貨報告圖片, 驗報圖庫
                     FROM " & 訂單資料表(1) & " 
                     WHERE ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (訂單流水號 LIKE '%" & PA & "%') OR 
                           ((CXL = 0) OR CXL IS NULL) AND (訂單數量 - 出貨數量 <> 0) AND (年份季度 LIKE '%" & PA & "%') OR 
@@ -487,22 +487,21 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取生產進度表圖片2()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'"
-        CmdSet_For_dr()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
     End Sub
     '------------------周進度表-------------------------------------------
     Friend Sub SQL_讀取周進度表()
         SQL1 = "SELECT 訂單種類 AS Order_type, PO_S_Date , 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
                            訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, 
-                           Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號 ,TVW
+                           Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號 ,TVW, 驗報圖庫
                     FROM   " & 訂單資料表(1) & " 
                     WHERE (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) ORDER BY   訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH "
     End Sub
     Friend Sub SQL_讀取周進度表1()
         SQL1 = "SELECT 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 訂單數量 AS QTY, 
                            Requested_XF, Confirm_XF,  Revised_XF, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 
-                           驗貨報告圖片, 力威訂單號,TVW 
+                           驗貨報告圖片, 力威訂單號,TVW, 驗報圖庫
                     FROM   " & 訂單資料表(1) & " 
                     WHERE (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (訂單流水號 LIKE '%" & PA & "%') OR 
                           (CXL Is NULL Or (CXL = 0)) And (訂單數量 - 出貨數量 <> 0) And (年份季度 Like '%" & PA & "%') OR 
@@ -552,9 +551,8 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取訂單種類圖片3()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA3 & "'"
-        CmdSet_For_dr()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改日期存檔()
         SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & PA & "', 
@@ -602,14 +600,14 @@
     Friend Sub SQL_讀取周進度表T1_T4()
         SQL1 = "SELECT 年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 
                            訂單數量 AS QTY, Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 
-                           成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號,TVW 
+                           成型時間 AS Lasting, Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號,TVW, 驗報圖庫
                     FROM   " & 訂單資料表(1) & " 
                     WHERE (CXL IS NULL OR CXL = 0) AND (訂單數量 - 出貨數量 <> 0) ORDER BY 訂單流水號 DESC, STYLE_NAME, COLOR, WIDTH"
     End Sub
     Friend Sub SQL_讀取周進度表T1_T4_1()
         SQL1 = "SELECT 年份季度 AS SEASON, 訂單種類 AS Order_type, PO_S_Date, 生產工廠 AS Plant, 客戶訂單號 AS PO#, 形體號 AS Style_Name, 顏色 AS Color, 楦型 AS Width, 訂單數量 AS QTY, 
                            Requested_XF, Confirm_XF, Revised_XF, TRIAL1 AS T1, CFMSAMPLE AS CFM, TRIAL4 AS T4, 裁斷時間 AS Cutting, 針車時間 AS Stitching, 成型時間 AS Lasting, 
-                           Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號,TVW 
+                           Special_Packaging, Remarks, 訂單流水號, 驗貨報告圖片, 力威訂單號,TVW, 驗報圖庫 
                     FROM   " & 訂單資料表(1) & " WHERE (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (訂單流水號 LIKE '%" & PA & "%') OR 
                           (CXL IS NULL OR (CXL = 0)) AND (訂單數量 - 出貨數量 <> 0) AND (年份季度 LIKE '%" & PA & "%') OR 
                           (CXL Is NULL Or (CXL = 0)) And (訂單數量 - 出貨數量 <> 0) And (客戶訂單號 Like '%" & PA & "%') OR 
@@ -634,9 +632,8 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取周進度表圖片2()
-        ConnOpen()
-        SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA3 & "'"
-        CmdSet_For_dr()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
     End Sub
     '----------------------------訂單改量差異查詢---------------------------------------------------------
     Friend Sub SQL_讀取訂單改量差異查詢()
@@ -849,7 +846,7 @@
         ConnOpen()
         SQL1 = "UPDATE 訂單控制表 SET 客戶交期 = N'" & PA1 & "', 工廠回復交期 = N'" & PA1 & "', Requested_XF = N'" & PA1 & "', 
                                                 Confirm_XF = N'" & PA1 & "', Revised_XF = N'" & PA1 & "' 
-                            WHERE (力威訂單號 LIKE N'" & PA & "')"
+                WHERE (力威訂單號 LIKE N'" & PA & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_訂單交期批量修改工具1()
@@ -859,7 +856,7 @@
         ConnOpen()
         SQL1 = "UPDATE 訂單控制表_非VIONIC SET 客戶交期 = N'" & PA1 & "', 工廠回復交期 = N'" & PA1 & "', Requested_XF = N'" & PA1 & "', 
                                                              Confirm_XF = N'" & PA1 & "', Revised_XF = N'" & PA1 & "' 
-                                WHERE (力威訂單號 LIKE N'" & PA & "')"
+                WHERE (力威訂單號 LIKE N'" & PA & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取訂單交期批量修改工具()
@@ -869,7 +866,7 @@
         ConnOpen()
         SQL1 = "UPDATE 訂單明細表抬頭 SET OrgShipDate = N'" & PA1 & "', ShipDate = N'" & PA1 & "', 交期 = N'" & PA1 & "', 
                                                     ETADate = N'" & PA1 & "' 
-                            WHERE (CustomerRequisition LIKE N'" & PA & "')"
+                WHERE (CustomerRequisition LIKE N'" & PA & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_讀取訂單交期批量修改工具1()
@@ -879,8 +876,19 @@
         ConnOpen()
         SQL1 = "UPDATE 訂單明細表抬頭_非VIONIC SET OrgShipDate = N'" & PA1 & "', ShipDate = N'" & PA1 & "', 交期 = N'" & PA1 & "', 
                                                                  ETADate = N'" & PA1 & "'
-                                WHERE (CustomerRequisition LIKE N'" & PA & "')"
+                WHERE (CustomerRequisition LIKE N'" & PA & "')"
+        CmdSet_For_dr()
+    End Sub
+    '-------------------訂單控制表-----------------------------------------------
+    Friend Sub SQL_包裝資訊圖片連結查詢()
+        ConnOpen()
+        SQL1 = "SELECT  包裝圖號, 包裝圖庫  FROM  STYLELIST
+                WHERE  (ProductName LIKE N'" & 訂單控制表.風格_cb.Text & "') AND (Style LIKE N'" & 訂單控制表.TVW_tb.Text & "') AND 
+                       (包裝圖號 IS NOT NULL) AND (包裝圖號 NOT LIKE '')"
         CmdSet_For_dr()
     End Sub
-
+    Friend Sub SQL_訂單驗貨報告圖片讀取()
+        圖片庫 = PA1 : SQL_連線字串_圖片資料庫()
+        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & PA2 & "'" : CmdSet_For_dr()
+    End Sub
 End Module

TENDEN-MES-SYS/Module/全域變數.vb

@@ -1,25 +1,28 @@
 Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type As String = "" : Public gUserName As String : Public 版本號 As String
-    Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
-    Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
+    Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
+    Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022050401"
+    Public 版本 As String = "2022051701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
-
-    Public 開發部門 As Boolean = False : Public 確認部門 As Boolean = False : Public frmOpenFlag As Boolean = False : Public 匯入列表開啟 As Boolean : Public 力威匯入列表 As Boolean
-    Public 財務列印(3) As Boolean : Public 修改清單(16) As Boolean : Public 中文樣品單開啟修改 As Boolean : Public 量產樣品匯入列表開啟 As Boolean
-    Public PPBB(3000), 排序(1), OD(42), 訂單資料表(10), PB(60) As String
+    '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public 圖片傳遞 As Image
+    Public 進度條後墜 As String
+    '--------------整數變數
+    Public 比例1, 比例2, 比例3, 分母 As Integer
+    '--------------雙精變數
+    Public 分段1, 分段2, 分段3, 分段4 As Double : Public DN(3) As Double
+    '--------------布林函數
+    Public 財務列印(3), 修改清單(16), 中文樣品單開啟修改, 量產樣品匯入列表開啟, BL(1), 暫存模式, 開發部門, 確認部門, 匯入列表開啟, 力威匯入列表, frmOpenFlag As Boolean
+    '--------------字串變數
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26,
-           PA27, PA28, PA29, WW, 條件, WWD1, WWD2, WWD3, 流水號2, EDFR, 日期(1), QQWEE, 樣品單流水號變數1, 樣品單流水號變數2, 樣品單流水號變數3, 部門, QWWE, ZXC As String
-    Public kkk1, kkk2, kkk3, kkk4, kkk5, kkk6, YR, YS, YD, ASDF As String
-    Public PA30 As String = "" : Public PP As String = "" : Public 品牌V_R判斷 As String = ""
-    Public QA, PP1, PP2, PP3, PP4, PP5, PP6, PP7, PP8, ASD, 列印用SQL, 驗貨報告, 訂單紀錄流水號, PPAA As String
-    Public BL(1), 暫存模式 As Boolean : Public DN(3) As Double
-    Public 平均數, NN1, NUM2, NUM3, ERT As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+           PA27, PA28, PA29, PA30, WW, 條件, WWD1, WWD2, WWD3, 流水號2, EDFR, 日期(1), QQWEE, 樣品單流水號變數1, 樣品單流水號變數2, 樣品單流水號變數3, 部門, QWWE, ZXC,
+           kkk1, kkk2, kkk3, kkk4, kkk5, kkk6, YR, YS, YD, ASDF, PP, 品牌V_R判斷, QA, PP1, PP2, PP3, PP4, PP5, PP6, PP7, PP8, ASD, 列印用SQL, 驗貨報告, 訂單紀錄流水號,
+           PPAA, PPBB(3000), 排序(1), OD(42), 訂單資料表(10), PB(60) As String
+    '--------------整數變數
+    Public 平均數, NN1, NUM2, NUM3, ERT, 最終數, 資料數, 圖庫限制 As Integer
     Public YM As Integer = -1
-
     '-------------------------------------------進度條------------------------------------------------------------------
     Public Class MyModule1
         Friend Shared Sub 進度條()

TENDEN-MES-SYS/TENDEN_MES_SYS.Designer.vb

@@ -139,6 +139,7 @@ Partial Class TENDEN_MES_SYS
         Me.系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator22 = New System.Windows.Forms.ToolStripSeparator()
+        Me.系統編碼原則_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
@@ -149,6 +150,9 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.包裝資料圖片導入資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.包裝資料圖片資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
@@ -274,7 +278,7 @@ Partial Class TENDEN_MES_SYS
         '
         '圖片資料庫管理_tsm
         '
-        Me.圖片資料庫管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.鞋型圖片導入資料庫_tsm, Me.圖片資料庫_tsm, Me.ToolStripSeparator17, Me.楦頭圖片導入資料庫_tsm, Me.楦頭圖片資料庫_tsm})
+        Me.圖片資料庫管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.鞋型圖片導入資料庫_tsm, Me.圖片資料庫_tsm, Me.ToolStripSeparator17, Me.楦頭圖片導入資料庫_tsm, Me.楦頭圖片資料庫_tsm, Me.ToolStripSeparator26, Me.包裝資料圖片導入資料庫_tsm, Me.包裝資料圖片資料庫_tsm})
         Me.圖片資料庫管理_tsm.ForeColor = System.Drawing.Color.Purple
         Me.圖片資料庫管理_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.shoe
         Me.圖片資料庫管理_tsm.Name = "圖片資料庫管理_tsm"
@@ -286,7 +290,7 @@ Partial Class TENDEN_MES_SYS
         Me.鞋型圖片導入資料庫_tsm.ForeColor = System.Drawing.Color.Purple
         Me.鞋型圖片導入資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
         Me.鞋型圖片導入資料庫_tsm.Name = "鞋型圖片導入資料庫_tsm"
-        Me.鞋型圖片導入資料庫_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.鞋型圖片導入資料庫_tsm.Size = New System.Drawing.Size(206, 22)
         Me.鞋型圖片導入資料庫_tsm.Text = "鞋型圖片導入資料庫"
         '
         '圖片資料庫_tsm
@@ -294,20 +298,20 @@ Partial Class TENDEN_MES_SYS
         Me.圖片資料庫_tsm.ForeColor = System.Drawing.Color.Purple
         Me.圖片資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.document_accept
         Me.圖片資料庫_tsm.Name = "圖片資料庫_tsm"
-        Me.圖片資料庫_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
         Me.圖片資料庫_tsm.Text = "鞋型圖片資料庫"
         '
         'ToolStripSeparator17
         '
         Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
-        Me.ToolStripSeparator17.Size = New System.Drawing.Size(179, 6)
+        Me.ToolStripSeparator17.Size = New System.Drawing.Size(203, 6)
         '
         '楦頭圖片導入資料庫_tsm
         '
         Me.楦頭圖片導入資料庫_tsm.ForeColor = System.Drawing.Color.Purple
         Me.楦頭圖片導入資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
         Me.楦頭圖片導入資料庫_tsm.Name = "楦頭圖片導入資料庫_tsm"
-        Me.楦頭圖片導入資料庫_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.楦頭圖片導入資料庫_tsm.Size = New System.Drawing.Size(206, 22)
         Me.楦頭圖片導入資料庫_tsm.Text = "楦頭圖片導入資料庫"
         '
         '楦頭圖片資料庫_tsm
@@ -315,7 +319,7 @@ Partial Class TENDEN_MES_SYS
         Me.楦頭圖片資料庫_tsm.ForeColor = System.Drawing.Color.Purple
         Me.楦頭圖片資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.document_accept
         Me.楦頭圖片資料庫_tsm.Name = "楦頭圖片資料庫_tsm"
-        Me.楦頭圖片資料庫_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.楦頭圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
         Me.楦頭圖片資料庫_tsm.Text = "楦頭圖片資料庫"
         '
         '製鞋技術資料管理_tsm
@@ -957,7 +961,7 @@ Partial Class TENDEN_MES_SYS
         '
         '系統管理_tsm
         '
-        Me.系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator22, Me.FTP資料夾管理_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator23})
+        Me.系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator22, Me.系統編碼原則_tsm, Me.FTP資料夾管理_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator23})
         Me.系統管理_tsm.ForeColor = System.Drawing.Color.Red
         Me.系統管理_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Sys_Command
         Me.系統管理_tsm.Name = "系統管理_tsm"
@@ -977,6 +981,14 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripSeparator22.Name = "ToolStripSeparator22"
         Me.ToolStripSeparator22.Size = New System.Drawing.Size(179, 6)
         '
+        '系統編碼原則_tsm
+        '
+        Me.系統編碼原則_tsm.ForeColor = System.Drawing.Color.Red
+        Me.系統編碼原則_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Sys_Command
+        Me.系統編碼原則_tsm.Name = "系統編碼原則_tsm"
+        Me.系統編碼原則_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.系統編碼原則_tsm.Text = "系統編碼原則"
+        '
         'FTP資料夾管理_tsm
         '
         Me.FTP資料夾管理_tsm.ForeColor = System.Drawing.Color.Red
@@ -1046,6 +1058,27 @@ Partial Class TENDEN_MES_SYS
         Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
         Me.合計_TSSL.Text = "合計 : 0"
         '
+        '包裝資料圖片導入資料庫_tsm
+        '
+        Me.包裝資料圖片導入資料庫_tsm.ForeColor = System.Drawing.Color.Purple
+        Me.包裝資料圖片導入資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
+        Me.包裝資料圖片導入資料庫_tsm.Name = "包裝資料圖片導入資料庫_tsm"
+        Me.包裝資料圖片導入資料庫_tsm.Size = New System.Drawing.Size(206, 22)
+        Me.包裝資料圖片導入資料庫_tsm.Text = "包裝資料圖片導入資料庫"
+        '
+        '包裝資料圖片資料庫_tsm
+        '
+        Me.包裝資料圖片資料庫_tsm.ForeColor = System.Drawing.Color.Purple
+        Me.包裝資料圖片資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Shoebox
+        Me.包裝資料圖片資料庫_tsm.Name = "包裝資料圖片資料庫_tsm"
+        Me.包裝資料圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
+        Me.包裝資料圖片資料庫_tsm.Text = "包裝資料圖片資料庫"
+        '
+        'ToolStripSeparator26
+        '
+        Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
+        Me.ToolStripSeparator26.Size = New System.Drawing.Size(203, 6)
+        '
         'TENDEN_MES_SYS
         '
         Me.AllowDrop = True
@@ -1195,4 +1228,8 @@ Partial Class TENDEN_MES_SYS
     Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
     Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
     Friend WithEvents 合計_TSSL As ToolStripStatusLabel
+    Friend WithEvents 系統編碼原則_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator26 As ToolStripSeparator
+    Friend WithEvents 包裝資料圖片導入資料庫_tsm As ToolStripMenuItem
+    Friend WithEvents 包裝資料圖片資料庫_tsm As ToolStripMenuItem
 End Class

TENDEN-MES-SYS/TENDEN_MES_SYS.vb

@@ -25,6 +25,7 @@
     Private ReadOnly m_ChildFormNumber As Integer
     Private Sub MDIParent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
+        SQL_系統預設值() : If dr.Read() Then : 圖庫限制 = dr("圖片伺服器上限") : End If
 
         Dim screenWidth = Screen.PrimaryScreen.Bounds.Width
         Dim screenHeight = Screen.PrimaryScreen.Bounds.Height
@@ -380,4 +381,16 @@
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 訂單交期批量修改工具.ShowDialog()
     End Sub
+    Private Sub 系統編碼原則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼原則_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 系統編碼原則.Show() : 系統編碼原則.BringToFront()
+    End Sub
+    Private Sub 包裝資料圖片導入資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 包裝資料圖片導入資料庫_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 包裝資料圖片導入資料庫.Show() : 包裝資料圖片導入資料庫.BringToFront()
+    End Sub
+    Private Sub 包裝資料圖片資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 包裝資料圖片資料庫_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 包裝資料圖片資料庫.Show() : 包裝資料圖片資料庫.BringToFront()
+    End Sub
 End Class

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-faf913a810261d1ca276697c3a73648b9bc8c807
+2a390db857e55cf1c8e6b907ca95c517144d0016

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -567,126 +567,6 @@ D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe.config
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.pdb
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.xml
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Microsoft.Web.Infrastructure.dll
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.dll
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.dll
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\WebActivatorEx.dll
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.xml
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.xml
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.力威發票明細轉換工具.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單交期批量修改工具.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_力威.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.模具控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料日期除錯.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_力威.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.網段.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.形體分析報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單改量差異查詢.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.人員ID卡系統配置設定.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Customer_Information_資料管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.CXL訂單紀錄表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DELIVERY_ADDRESS__資料管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FACTORY_資料管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FTP資料夾管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.INVOICE_確認部門.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SAMPLE_TRACKER.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_形體下單數量統計.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理_對應訂單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單批量列印.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單清單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單階段.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.保證書出貨統計資料.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.出貨明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_INVOICE.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_SAMPLE_TRACKER.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_中文樣品單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_出貨明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_吊牌.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表T1_T4.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_測試報告.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_生產進度表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_確認樣品確認通知單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單價格利潤表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析1.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_費用報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_量產樣品控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單執行資訊輸入.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表T1_T4.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳務資料庫管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳號管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.LoginForm1vb.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.TENDEN_MES_SYS.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Resources.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SplashScreen1.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.成本資料庫管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表批量輸入.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片導入資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭規格表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料庫管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品吊牌管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品資料庫管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.清單修改.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告報告到期管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告新配色管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.現有訂單鞋盒資訊查詢.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.生產進度表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.皮料資料紀錄表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文確認樣品確認通知單.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統使用者管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統執行檔版本管理.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單價格利潤明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OrderTypeAnalysis.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OldUnitComparison.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.NewUnitComparison.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DeadlineReport.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表修改紀錄.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表修改紀錄.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單流水號.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_Vionic.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_收款報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.費用報表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品明細表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品流水號.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單CXL紀錄表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單出貨紀錄表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單匯入.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片導入資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料庫選擇.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料比對與修改_力威.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒訂單紀錄表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒資料控制表.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告圖片導入資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告大圖.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫修正.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.GenerateResource.cache
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CoreCompileInputs.cache
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CopyComplete
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe.config
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.pdb
@@ -951,5 +831,127 @@ C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\天盾系統.v
 C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
 C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 C:\Users\USER\Downloads\FANG-master\fang\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe.config
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.pdb
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.xml
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Microsoft.Web.Infrastructure.dll
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.dll
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.dll
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\WebActivatorEx.dll
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.xml
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.xml
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.包裝資料圖片導入資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.包裝資料圖片資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.力威發票明細轉換工具.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單交期批量修改工具.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_力威.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.模具控制表.resources
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.下拉清單_1.resources
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbprojAssemblyReference.cache
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統編碼原則.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料日期除錯.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_力威.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.網段.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.形體分析報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單改量差異查詢.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.人員ID卡系統配置設定.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Customer_Information_資料管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.CXL訂單紀錄表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DELIVERY_ADDRESS__資料管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FACTORY_資料管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FTP資料夾管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.INVOICE_確認部門.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SAMPLE_TRACKER.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_形體下單數量統計.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理_對應訂單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單批量列印.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單清單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單階段.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.保證書出貨統計資料.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.出貨明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_INVOICE.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_SAMPLE_TRACKER.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_中文樣品單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_出貨明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_吊牌.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表T1_T4.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_測試報告.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_生產進度表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_確認樣品確認通知單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單價格利潤表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析1.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_費用報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_量產樣品控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單執行資訊輸入.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表T1_T4.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳務資料庫管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳號管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.LoginForm1vb.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.TENDEN_MES_SYS.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Resources.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SplashScreen1.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.成本資料庫管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表批量輸入.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片導入資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭規格表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料庫管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品吊牌管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品資料庫管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.清單修改.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告報告到期管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告新配色管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.現有訂單鞋盒資訊查詢.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.生產進度表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.皮料資料紀錄表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文確認樣品確認通知單.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統使用者管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統執行檔版本管理.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單價格利潤明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OrderTypeAnalysis.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OldUnitComparison.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.NewUnitComparison.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DeadlineReport.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表修改紀錄.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表修改紀錄.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單流水號.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_Vionic.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_收款報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.費用報表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品明細表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品流水號.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單CXL紀錄表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單出貨紀錄表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單匯入.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片導入資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料庫選擇.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料比對與修改_力威.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒訂單紀錄表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒資料控制表.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告圖片導入資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告大圖.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫修正.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.GenerateResource.cache
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CoreCompileInputs.cache
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CopyComplete
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片導入資料庫.Designer.vb

@@ -0,0 +1,366 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 包裝資料圖片導入資料庫
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.查詢_bt = New System.Windows.Forms.Button()
+        Me.項目編號_tb = New System.Windows.Forms.TextBox()
+        Me.天盾訂單號_lb = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.伺服器FTP文件夾_lb = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.讀取料夾路徑_bt = New System.Windows.Forms.Button()
+        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.確認儲存_bt = New System.Windows.Forms.Button()
+        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
+        Me.型體號碼_tb = New System.Windows.Forms.TextBox()
+        Me.建立季節_tb = New System.Windows.Forms.TextBox()
+        Me.型體名稱_lb = New System.Windows.Forms.Label()
+        Me.客戶訂單號_lb = New System.Windows.Forms.Label()
+        Me.型體清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.檔案名稱_lb = New System.Windows.Forms.Label()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.型體名稱_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.型體清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(751, 30)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
+        Me.字體_NUD.TabIndex = 1661
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, 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(693, 33)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.TabIndex = 1662
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '查詢_bt
+        '
+        Me.查詢_bt.ForeColor = System.Drawing.Color.Black
+        Me.查詢_bt.Location = New System.Drawing.Point(795, 29)
+        Me.查詢_bt.Name = "查詢_bt"
+        Me.查詢_bt.Size = New System.Drawing.Size(149, 25)
+        Me.查詢_bt.TabIndex = 1642
+        Me.查詢_bt.Text = "查詢"
+        Me.查詢_bt.UseVisualStyleBackColor = True
+        '
+        '項目編號_tb
+        '
+        Me.項目編號_tb.ForeColor = System.Drawing.Color.Black
+        Me.項目編號_tb.Location = New System.Drawing.Point(795, 5)
+        Me.項目編號_tb.Name = "項目編號_tb"
+        Me.項目編號_tb.Size = New System.Drawing.Size(149, 23)
+        Me.項目編號_tb.TabIndex = 1658
+        '
+        '天盾訂單號_lb
+        '
+        Me.天盾訂單號_lb.AutoSize = True
+        Me.天盾訂單號_lb.Location = New System.Drawing.Point(738, 8)
+        Me.天盾訂單號_lb.Name = "天盾訂單號_lb"
+        Me.天盾訂單號_lb.Size = New System.Drawing.Size(56, 16)
+        Me.天盾訂單號_lb.TabIndex = 1657
+        Me.天盾訂單號_lb.Text = "項目編號"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Red
+        Me.Label5.Location = New System.Drawing.Point(220, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(424, 16)
+        Me.Label5.TabIndex = 1655
+        Me.Label5.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱不要帶有中文字或是符號"
+        '
+        '伺服器FTP文件夾_lb
+        '
+        Me.伺服器FTP文件夾_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.伺服器FTP文件夾_lb.AutoSize = True
+        Me.伺服器FTP文件夾_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.伺服器FTP文件夾_lb.Location = New System.Drawing.Point(6, 534)
+        Me.伺服器FTP文件夾_lb.Name = "伺服器FTP文件夾_lb"
+        Me.伺服器FTP文件夾_lb.Size = New System.Drawing.Size(156, 24)
+        Me.伺服器FTP文件夾_lb.TabIndex = 1653
+        Me.伺服器FTP文件夾_lb.Text = "伺服器FTP文件夾"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.AllowDrop = True
+        Me.TextBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox7.ForeColor = System.Drawing.Color.Black
+        Me.TextBox7.Location = New System.Drawing.Point(1057, 4)
+        Me.TextBox7.Multiline = True
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(149, 23)
+        Me.TextBox7.TabIndex = 1652
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label4.Location = New System.Drawing.Point(6, 29)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(86, 24)
+        Me.Label4.TabIndex = 1651
+        Me.Label4.Text = "我的電腦"
+        '
+        '讀取料夾路徑_bt
+        '
+        Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
+        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(98, 29)
+        Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt"
+        Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(119, 24)
+        Me.讀取料夾路徑_bt.TabIndex = 1650
+        Me.讀取料夾路徑_bt.Text = "讀取料夾路徑"
+        Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True
+        '
+        'WebBrowser2
+        '
+        Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser2.Location = New System.Drawing.Point(9, 56)
+        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser2.Name = "WebBrowser2"
+        Me.WebBrowser2.Size = New System.Drawing.Size(681, 448)
+        Me.WebBrowser2.TabIndex = 1649
+        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.流水號_tb.ForeColor = System.Drawing.Color.Black
+        Me.流水號_tb.Location = New System.Drawing.Point(1057, 30)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(149, 23)
+        Me.流水號_tb.TabIndex = 1648
+        '
+        '確認儲存_bt
+        '
+        Me.確認儲存_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.確認儲存_bt.ForeColor = System.Drawing.Color.Blue
+        Me.確認儲存_bt.Location = New System.Drawing.Point(947, 2)
+        Me.確認儲存_bt.Name = "確認儲存_bt"
+        Me.確認儲存_bt.Size = New System.Drawing.Size(107, 52)
+        Me.確認儲存_bt.TabIndex = 1645
+        Me.確認儲存_bt.Text = "確認儲存"
+        Me.確認儲存_bt.UseVisualStyleBackColor = True
+        '
+        '檔案名稱_tb
+        '
+        Me.檔案名稱_tb.AllowDrop = True
+        Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(62, 507)
+        Me.檔案名稱_tb.Multiline = True
+        Me.檔案名稱_tb.Name = "檔案名稱_tb"
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(628, 23)
+        Me.檔案名稱_tb.TabIndex = 1643
+        '
+        '型體號碼_tb
+        '
+        Me.型體號碼_tb.ForeColor = System.Drawing.Color.Black
+        Me.型體號碼_tb.Location = New System.Drawing.Point(272, 4)
+        Me.型體號碼_tb.Name = "型體號碼_tb"
+        Me.型體號碼_tb.Size = New System.Drawing.Size(97, 23)
+        Me.型體號碼_tb.TabIndex = 1641
+        '
+        '建立季節_tb
+        '
+        Me.建立季節_tb.ForeColor = System.Drawing.Color.Black
+        Me.建立季節_tb.Location = New System.Drawing.Point(62, 4)
+        Me.建立季節_tb.Name = "建立季節_tb"
+        Me.建立季節_tb.Size = New System.Drawing.Size(149, 23)
+        Me.建立季節_tb.TabIndex = 1640
+        '
+        '型體名稱_lb
+        '
+        Me.型體名稱_lb.AutoSize = True
+        Me.型體名稱_lb.Location = New System.Drawing.Point(215, 7)
+        Me.型體名稱_lb.Name = "型體名稱_lb"
+        Me.型體名稱_lb.Size = New System.Drawing.Size(56, 16)
+        Me.型體名稱_lb.TabIndex = 1639
+        Me.型體名稱_lb.Text = "型體號碼"
+        '
+        '客戶訂單號_lb
+        '
+        Me.客戶訂單號_lb.AutoSize = True
+        Me.客戶訂單號_lb.Location = New System.Drawing.Point(6, 7)
+        Me.客戶訂單號_lb.Name = "客戶訂單號_lb"
+        Me.客戶訂單號_lb.Size = New System.Drawing.Size(56, 16)
+        Me.客戶訂單號_lb.TabIndex = 1638
+        Me.客戶訂單號_lb.Text = "建立季節"
+        '
+        '型體清單_dgv
+        '
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.型體清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.型體清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.型體清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.型體清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.型體清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.型體清單_dgv.Location = New System.Drawing.Point(696, 56)
+        Me.型體清單_dgv.Name = "型體清單_dgv"
+        Me.型體清單_dgv.RowHeadersWidth = 5
+        Me.型體清單_dgv.RowTemplate.Height = 24
+        Me.型體清單_dgv.Size = New System.Drawing.Size(648, 641)
+        Me.型體清單_dgv.TabIndex = 1637
+        '
+        'WebBrowser1
+        '
+        Me.WebBrowser1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser1.Location = New System.Drawing.Point(9, 561)
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser1.Name = "WebBrowser1"
+        Me.WebBrowser1.Size = New System.Drawing.Size(681, 135)
+        Me.WebBrowser1.TabIndex = 1636
+        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label7.ForeColor = System.Drawing.Color.Red
+        Me.Label7.Location = New System.Drawing.Point(168, 526)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(46, 37)
+        Me.Label7.TabIndex = 1654
+        Me.Label7.Text = "↓"
+        '
+        '檔案名稱_lb
+        '
+        Me.檔案名稱_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.檔案名稱_lb.AutoSize = True
+        Me.檔案名稱_lb.Location = New System.Drawing.Point(7, 509)
+        Me.檔案名稱_lb.Name = "檔案名稱_lb"
+        Me.檔案名稱_lb.Size = New System.Drawing.Size(56, 16)
+        Me.檔案名稱_lb.TabIndex = 1644
+        Me.檔案名稱_lb.Text = "檔案名稱"
+        '
+        '型體名稱_tb
+        '
+        Me.型體名稱_tb.ForeColor = System.Drawing.Color.Black
+        Me.型體名稱_tb.Location = New System.Drawing.Point(429, 5)
+        Me.型體名稱_tb.Name = "型體名稱_tb"
+        Me.型體名稱_tb.Size = New System.Drawing.Size(307, 23)
+        Me.型體名稱_tb.TabIndex = 1664
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(373, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1663
+        Me.Label1.Text = "型體名稱"
+        '
+        '包裝資料圖片導入資料庫
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.型體名稱_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.查詢_bt)
+        Me.Controls.Add(Me.項目編號_tb)
+        Me.Controls.Add(Me.天盾訂單號_lb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.伺服器FTP文件夾_lb)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.讀取料夾路徑_bt)
+        Me.Controls.Add(Me.WebBrowser2)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.確認儲存_bt)
+        Me.Controls.Add(Me.檔案名稱_tb)
+        Me.Controls.Add(Me.型體號碼_tb)
+        Me.Controls.Add(Me.建立季節_tb)
+        Me.Controls.Add(Me.型體名稱_lb)
+        Me.Controls.Add(Me.客戶訂單號_lb)
+        Me.Controls.Add(Me.型體清單_dgv)
+        Me.Controls.Add(Me.WebBrowser1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.檔案名稱_lb)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "包裝資料圖片導入資料庫"
+        Me.Text = "包裝資料圖片導入資料庫"
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.型體清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 查詢_bt As Button
+    Friend WithEvents 項目編號_tb As TextBox
+    Friend WithEvents 天盾訂單號_lb As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 伺服器FTP文件夾_lb As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 讀取料夾路徑_bt As Button
+    Friend WithEvents WebBrowser2 As WebBrowser
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 確認儲存_bt As Button
+    Friend WithEvents 檔案名稱_tb As TextBox
+    Friend WithEvents 型體號碼_tb As TextBox
+    Friend WithEvents 建立季節_tb As TextBox
+    Friend WithEvents 型體名稱_lb As Label
+    Friend WithEvents 客戶訂單號_lb As Label
+    Friend WithEvents 型體清單_dgv As DataGridView
+    Friend WithEvents WebBrowser1 As WebBrowser
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 檔案名稱_lb As Label
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents 型體名稱_tb As TextBox
+    Friend WithEvents Label1 As Label
+End Class

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片導入資料庫.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 5</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>33</value>
+  </metadata>
+</root>

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片導入資料庫.vb

@@ -0,0 +1,130 @@
+Option Strict Off
+Imports System.Net
+Public Class 包裝資料圖片導入資料庫
+    Public Property Credentials As ICredentials
+    ReadOnly ds As New DataSet
+    Private Sub Set_DGV1載入前設定()
+        型體清單_dgv.DataSource = Nothing : ds.Clear()
+        型體清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        型體清單_dgv.ColumnHeadersHeight = 25 : 型體清單_dgv.AllowUserToAddRows = False
+    End Sub
+    Private Sub Set_DGV1載入後設定()
+        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 型體清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+    End Sub
+    Private Sub Set_清單1()
+        Set_DGV1載入前設定() : SQL_形體清單() : Set_DGV1載入後設定()
+    End Sub
+    Private Sub Set_grid1()
+        型體清單_dgv.Columns(0).FillWeight = 100 : 型體清單_dgv.Columns(1).FillWeight = 100 : 型體清單_dgv.Columns(2).FillWeight = 250 : 型體清單_dgv.Columns(3).FillWeight = 100
+    End Sub
+    Private Sub 包裝資料圖片導入資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Target1 = Target & AA(3) & "/" : WebBrowser1.Url = New Uri(Target1)
+        Set_清單1() : Set_grid1()
+        流水號_tb.Visible = False : TextBox7.Visible = False
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
+    End Sub
+    Private Sub 驗貨報告圖片導入資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
+    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 型體清單_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("Style", e.RowIndex).Value.ToString
+            型體名稱_tb.Text = 型體清單_dgv("ProductName", e.RowIndex).Value.ToString : 項目編號_tb.Text = 型體清單_dgv("ItemNumber", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+        PA = InputBox("請輸入要查詢的資料") : Set_DGV1載入前設定() : SQL_形體清單1() : Set_DGV1載入後設定() : Set_grid1() : PA = ""
+    End Sub
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim files As String()
+            Try
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
+                檔案名稱_tb.Text = files(files.Length - 1)
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+                Return
+            End Try
+        End If
+
+        Dim STR2 As Integer = 0
+        TextBox7.Text = 檔案名稱_tb.Text
+        If 檔案名稱_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To 9999
+                Dim STR1 As Integer = Strings.Len(TextBox7.Text)
+                If Strings.Right((TextBox7.Text), 1) <> "\" Then
+                    STR1 -= 1 : STR2 += 1
+                    If STR1 = 0 Then
+                        TextBox7.Text = ""
+                        檔案名稱_tb.Text = ""
+                        i = 9999
+                    Else
+                        TextBox7.Text = Strings.Left((TextBox7.Text), STR1)
+                    End If
+                Else
+                    TextBox7.Text = Strings.Right((檔案名稱_tb.Text), STR2)
+                    檔案名稱_tb.Text = TextBox7.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 : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
+        End If
+    End Sub
+    Private Sub 確認儲存_bt_Click(sender As Object, e As EventArgs) Handles 確認儲存_bt.Click
+        If 建立季節_tb.Text = "" Or 型體號碼_tb.Text = "" Or 型體名稱_tb.Text = "" Or 項目編號_tb.Text = "" Or 檔案名稱_tb.Text = "" Then
+            MsgBox("檔案名稱或資料不可空白")
+        Else
+            SQL_資料庫選擇() : If dr.Read() Then : PA1 = dr("圖片資料庫").ToString : PA20 = PA1 : End If
+            SQL_查詢最後一筆包裝資料編號()
+            If dr.Read() Then : 流水號_tb.Text = dr("流水號").ToString : Else : 流水號_tb.Text = "0" : End If
+            conn.Close()
+            Dim NUM1 As Integer
+            NUM1 = Double.Parse(Strings.Right(流水號_tb.Text, 8)) + 1
+            If NUM1 < 10 Then : 流水號_tb.Text = "PK" & "0000000" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號_tb.Text = "PK" & "000000" & NUM1
+            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號_tb.Text = "PK" & "00000" & NUM1
+            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號_tb.Text = "PK" & "0000" & NUM1
+            ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 流水號_tb.Text = "PK" & "000" & NUM1
+            ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 流水號_tb.Text = "PK" & "00" & NUM1
+            ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 流水號_tb.Text = "PK" & "0" & NUM1
+            ElseIf NUM1 > 9999999 Then : 流水號_tb.Text = "PK" & NUM1
+            End If
+
+            If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增包裝編號_測試()
+            Else : SQL_新增包裝編號_正式() : End If : conn.Close()
+
+            SQL_修改STYLELIST包裝圖號() : conn.Close()
+            '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+            frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+            fcr = New NetworkCredential(FTP帳號, FTP密碼)
+            frq.Credentials = fcr
+            frq.Method = WebRequestMethods.Ftp.DeleteFile
+            frq.UseBinary = True
+            frp = CType(frq.GetResponse, FtpWebResponse)
+            frp.Close()
+            WebBrowser1.Refresh()
+            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            建立季節_tb.Text = "" : 型體號碼_tb.Text = "" : 型體名稱_tb.Text = "" : 項目編號_tb.Text = ""
+            Set_清單1() : Set_grid1()
+            MsgBox("新增完成")
+        End If
+    End Sub
+End Class

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片資料庫.Designer.vb

@@ -0,0 +1,227 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 包裝資料圖片資料庫
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.圖片資料庫管理_dgv = New System.Windows.Forms.DataGridView()
+        Me.包裝資料圖庫_dgv = New System.Windows.Forms.DataGridView()
+        Me.順時鐘90度旋轉_bt = New System.Windows.Forms.Button()
+        Me.逆時鐘90度旋轉_bt = New System.Windows.Forms.Button()
+        Me.水平翻轉_bt = New System.Windows.Forms.Button()
+        Me.垂直翻轉_bt = New System.Windows.Forms.Button()
+        Me.放大_bt = New System.Windows.Forms.Button()
+        Me.復原_bt = New System.Windows.Forms.Button()
+        Me.包裝資料_pb = New System.Windows.Forms.PictureBox()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.Panel1.SuspendLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.包裝資料圖庫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Label38)
+        Me.Panel1.Controls.Add(Me.圖片資料庫管理_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(539, 177)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(205, 303)
+        Me.Panel1.TabIndex = 1645
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(11, 10)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(176, 16)
+        Me.Label38.TabIndex = 708
+        Me.Label38.Text = "起先選擇要開啟哪個圖片資料庫"
+        '
+        '圖片資料庫管理_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
+        Me.圖片資料庫管理_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.圖片資料庫管理_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.圖片資料庫管理_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片資料庫管理_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.圖片資料庫管理_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.圖片資料庫管理_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.圖片資料庫管理_dgv.Name = "圖片資料庫管理_dgv"
+        Me.圖片資料庫管理_dgv.RowHeadersWidth = 5
+        Me.圖片資料庫管理_dgv.RowTemplate.Height = 24
+        Me.圖片資料庫管理_dgv.Size = New System.Drawing.Size(195, 269)
+        Me.圖片資料庫管理_dgv.TabIndex = 707
+        '
+        '包裝資料圖庫_dgv
+        '
+        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(3, 3)
+        Me.包裝資料圖庫_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.包裝資料圖庫_dgv.Name = "包裝資料圖庫_dgv"
+        Me.包裝資料圖庫_dgv.RowHeadersWidth = 5
+        Me.包裝資料圖庫_dgv.RowTemplate.Height = 24
+        Me.包裝資料圖庫_dgv.Size = New System.Drawing.Size(556, 692)
+        Me.包裝資料圖庫_dgv.TabIndex = 1635
+        '
+        '順時鐘90度旋轉_bt
+        '
+        Me.順時鐘90度旋轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.順時鐘90度旋轉_bt.Location = New System.Drawing.Point(700, 3)
+        Me.順時鐘90度旋轉_bt.Name = "順時鐘90度旋轉_bt"
+        Me.順時鐘90度旋轉_bt.Size = New System.Drawing.Size(117, 25)
+        Me.順時鐘90度旋轉_bt.TabIndex = 1639
+        Me.順時鐘90度旋轉_bt.Text = "順時鐘90度旋轉"
+        Me.順時鐘90度旋轉_bt.UseVisualStyleBackColor = True
+        '
+        '逆時鐘90度旋轉_bt
+        '
+        Me.逆時鐘90度旋轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.逆時鐘90度旋轉_bt.Location = New System.Drawing.Point(817, 3)
+        Me.逆時鐘90度旋轉_bt.Name = "逆時鐘90度旋轉_bt"
+        Me.逆時鐘90度旋轉_bt.Size = New System.Drawing.Size(117, 25)
+        Me.逆時鐘90度旋轉_bt.TabIndex = 1640
+        Me.逆時鐘90度旋轉_bt.Text = "逆時鐘90度旋轉"
+        Me.逆時鐘90度旋轉_bt.UseVisualStyleBackColor = True
+        '
+        '水平翻轉_bt
+        '
+        Me.水平翻轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.水平翻轉_bt.Location = New System.Drawing.Point(564, 3)
+        Me.水平翻轉_bt.Name = "水平翻轉_bt"
+        Me.水平翻轉_bt.Size = New System.Drawing.Size(68, 25)
+        Me.水平翻轉_bt.TabIndex = 1641
+        Me.水平翻轉_bt.Text = "水平翻轉"
+        Me.水平翻轉_bt.UseVisualStyleBackColor = True
+        '
+        '垂直翻轉_bt
+        '
+        Me.垂直翻轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.垂直翻轉_bt.Location = New System.Drawing.Point(632, 3)
+        Me.垂直翻轉_bt.Name = "垂直翻轉_bt"
+        Me.垂直翻轉_bt.Size = New System.Drawing.Size(68, 25)
+        Me.垂直翻轉_bt.TabIndex = 1642
+        Me.垂直翻轉_bt.Text = "垂直翻轉"
+        Me.垂直翻轉_bt.UseVisualStyleBackColor = True
+        '
+        '放大_bt
+        '
+        Me.放大_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.放大_bt.Location = New System.Drawing.Point(936, 3)
+        Me.放大_bt.Name = "放大_bt"
+        Me.放大_bt.Size = New System.Drawing.Size(48, 25)
+        Me.放大_bt.TabIndex = 1643
+        Me.放大_bt.Text = "放大"
+        Me.放大_bt.UseVisualStyleBackColor = True
+        '
+        '復原_bt
+        '
+        Me.復原_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.復原_bt.Location = New System.Drawing.Point(985, 3)
+        Me.復原_bt.Name = "復原_bt"
+        Me.復原_bt.Size = New System.Drawing.Size(48, 25)
+        Me.復原_bt.TabIndex = 1644
+        Me.復原_bt.Text = "復原"
+        Me.復原_bt.UseVisualStyleBackColor = True
+        '
+        '包裝資料_pb
+        '
+        Me.包裝資料_pb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.包裝資料_pb.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572465
+        Me.包裝資料_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.包裝資料_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.包裝資料_pb.Location = New System.Drawing.Point(565, 31)
+        Me.包裝資料_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.包裝資料_pb.Name = "包裝資料_pb"
+        Me.包裝資料_pb.Size = New System.Drawing.Size(782, 664)
+        Me.包裝資料_pb.TabIndex = 1636
+        Me.包裝資料_pb.TabStop = False
+        '
+        'SaveFileDialog1
+        '
+        Me.SaveFileDialog1.DefaultExt = "jpg"
+        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
+        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
+        '
+        '包裝資料圖片資料庫
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.順時鐘90度旋轉_bt)
+        Me.Controls.Add(Me.逆時鐘90度旋轉_bt)
+        Me.Controls.Add(Me.水平翻轉_bt)
+        Me.Controls.Add(Me.垂直翻轉_bt)
+        Me.Controls.Add(Me.放大_bt)
+        Me.Controls.Add(Me.復原_bt)
+        Me.Controls.Add(Me.包裝資料_pb)
+        Me.Controls.Add(Me.包裝資料圖庫_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "包裝資料圖片資料庫"
+        Me.Text = "包裝資料圖片資料庫"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.包裝資料圖庫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label38 As Label
+    Friend WithEvents 圖片資料庫管理_dgv As DataGridView
+    Friend WithEvents 包裝資料圖庫_dgv As DataGridView
+    Friend WithEvents 順時鐘90度旋轉_bt As Button
+    Friend WithEvents 逆時鐘90度旋轉_bt As Button
+    Friend WithEvents 水平翻轉_bt As Button
+    Friend WithEvents 垂直翻轉_bt As Button
+    Friend WithEvents 放大_bt As Button
+    Friend WithEvents 復原_bt As Button
+    Friend WithEvents 包裝資料_pb As PictureBox
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片資料庫.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>18, 4</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>198, 4</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>35</value>
+  </metadata>
+</root>

TENDEN-MES-SYS/圖片資料庫管理/包裝圖片系統/包裝資料圖片資料庫.vb

@@ -0,0 +1,115 @@
+Option Strict Off
+Imports System.IO
+Imports System.Net
+Public Class 包裝資料圖片資料庫
+    Public Property Credentials As ICredentials
+    ReadOnly ds As New DataSet
+    Private m_Leftx As Integer = 152
+    Private m_Lefty As Integer = 0
+    Dim m_MousePosX As Integer
+    Dim m_MousePosY As Integer
+    Dim m_DeltaX As Integer
+    Dim m_DeltaY As Integer
+    Private Sub Set_工程圖片資料庫狀態()
+        Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
+        圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫管理_dgv.ColumnHeadersHeight = 25
+        圖片資料庫管理_dgv.AllowUserToAddRows = False
+        SQL_圖片資料庫管理查詢()
+        da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).Visible = False
+    End Sub
+    Private Sub Set_圖片清單()
+        包裝資料圖庫_dgv.DataSource = Nothing : ds.Clear()
+        包裝資料圖庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        包裝資料圖庫_dgv.ColumnHeadersHeight = 25 : 包裝資料圖庫_dgv.AllowUserToAddRows = False
+        SQL_包裝圖片清單()
+        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 包裝資料圖庫_dgv.DataSource = ds.Tables(0) : conn.Close()
+        包裝資料圖庫_dgv.Columns(0).Visible = False : 包裝資料圖庫_dgv.Columns(1).FillWeight = 100 : 包裝資料圖庫_dgv.Columns(2).FillWeight = 250
+    End Sub
+    Private Sub 包裝資料圖片資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        Set_工程圖片資料庫狀態()
+    End Sub
+    Private Sub 圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            PA20 = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : PA1 = PA20 : Set_圖片清單() : Panel1.Visible = False
+        End If
+    End Sub
+    Private Sub 驗貨報告圖庫_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 包裝資料圖庫_dgv.CellClick
+        Try
+            If e.RowIndex = -1 Then : Else
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = PA20 : PA2 = 包裝資料圖庫_dgv("流水號", e.RowIndex).Value.ToString
+                SQL_包裝圖片() : 包裝資料_pb.Image = Nothing
+                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 : 圖片傳遞 = 包裝資料_pb.Image
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
+        包裝資料_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 包裝資料_pb.Refresh() : 包裝資料_pb.SizeMode = 4
+    End Sub
+    Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
+        包裝資料_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 包裝資料_pb.Refresh() : 包裝資料_pb.SizeMode = 4
+    End Sub
+    Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
+        包裝資料_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 包裝資料_pb.Refresh() : 包裝資料_pb.SizeMode = 4
+    End Sub
+    Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
+        包裝資料_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 包裝資料_pb.Refresh() : 包裝資料_pb.SizeMode = 4
+    End Sub
+    Private Sub 放大_bt_Click(sender As Object, e As EventArgs) Handles 放大_bt.Click
+        Try
+            Dim image = 包裝資料_pb.Image
+            Dim g As Graphics = 包裝資料_pb.CreateGraphics
+            g.DrawImage(image, New Rectangle(0, 0, image.Width * 1.01, image.Height * 1.01))
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub 復原_bt_Click(sender As Object, e As EventArgs) Handles 復原_bt.Click
+        包裝資料_pb.Refresh()
+    End Sub
+    '@#处理鼠标按键抬起的事件，根据鼠标按下时保存的鼠标位置，和当前鼠标的位置， 
+    '计算鼠标移动偏移量，借此调用移动图片的函数，移动图片 
+    Private Sub 驗貨報告_pb_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 包裝資料_pb.MouseUp
+        Try
+            m_DeltaX = m_MousePosX - e.X
+            m_DeltaY = m_MousePosY - e.Y
+            m_Leftx -= m_DeltaX
+            m_Lefty -= m_DeltaY
+            Picturemove(sender, e)
+            Me.Cursor = Cursors.Arrow
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    '@#当鼠标按下时，将鼠标变成手形，并且记录下当前鼠标的位置 
+    Private Sub 驗貨報告_pb_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 包裝資料_pb.MouseDown
+        Try
+            Me.Cursor = Cursors.Hand
+            m_MousePosX = e.X
+            m_MousePosY = e.Y
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    '@#根据偏移量计算出的图片位置，重画图片 
+    Private Sub Picturemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        Try
+            Dim myBit As New Bitmap(包裝資料_pb.Image)
+            Dim myPicGrh As Graphics = Me.包裝資料_pb.CreateGraphics
+            myPicGrh.Clear(Me.包裝資料_pb.BackColor)
+            myPicGrh.DrawImageUnscaled(myBit, m_Leftx - 152, m_Lefty)
+            myBit.Dispose()
+            myPicGrh.Dispose()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+End Class

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片導入資料庫.Designer.vb

@@ -22,62 +22,62 @@ Partial Class 鞋型圖片導入資料庫
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
-        Me.訂單控制表_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.訂單控制表顏色清單_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.訂單控制表TVW清單_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
-        Me.TextBox7 = New System.Windows.Forms.TextBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.讀取料夾路徑_tb = New System.Windows.Forms.Button()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
         Me.Style新增清單_bt = New System.Windows.Forms.Button()
         Me.Style查詢_bt = New System.Windows.Forms.Button()
         Me.Color新增清單_bt = New System.Windows.Forms.Button()
         Me.Color查詢_bt = New System.Windows.Forms.Button()
+        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Category_cb = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
         Me.確認儲存_bt = New System.Windows.Forms.Button()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.中底或其他LOGO_ch = New System.Windows.Forms.CheckBox()
         Me.中底_其他LOGO_tb = New System.Windows.Forms.TextBox()
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+        Me.訂單控制表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
         Me.Style_tb = New System.Windows.Forms.TextBox()
         Me.Style刷新_bt = New System.Windows.Forms.Button()
         Me.TVW_tb = New System.Windows.Forms.TextBox()
+        Me.訂單控制表顏色清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label7 = New System.Windows.Forms.Label()
         Me.Color刷新_bt = New System.Windows.Forms.Button()
         Me.Color_tb = New System.Windows.Forms.TextBox()
         Me.Style清空_bt = New System.Windows.Forms.Button()
         Me.Color清空_bt = New System.Windows.Forms.Button()
-        Me.Button23 = New System.Windows.Forms.Button()
-        Me.Button8 = New System.Windows.Forms.Button()
-        Me.檔案刪除_bt = New System.Windows.Forms.Button()
+        Me.訂單控制表TVW清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label11 = New System.Windows.Forms.Label()
         Me.TVW查詢_bt = New System.Windows.Forms.Button()
         Me.TVW刷新_bt = New System.Windows.Forms.Button()
         Me.TVW新增清單_bt = New System.Windows.Forms.Button()
-        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.讀取料夾路徑_tb = New System.Windows.Forms.Button()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
-        Me.Label8 = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.季節_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.檔案刪除_bt = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button23 = New System.Windows.Forms.Button()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.季節_tb = New System.Windows.Forms.TextBox()
-        Me.季節清空_bt = New System.Windows.Forms.Button()
-        Me.季節刷新_bt = New System.Windows.Forms.Button()
-        Me.季節查詢_bt = New System.Windows.Forms.Button()
         Me.季節新增清單_bt = New System.Windows.Forms.Button()
+        Me.季節查詢_bt = New System.Windows.Forms.Button()
+        Me.季節刷新_bt = New System.Windows.Forms.Button()
+        Me.季節清空_bt = New System.Windows.Forms.Button()
         CType(Me.訂單控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單控制表顏色清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單控制表TVW清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -86,6 +86,15 @@ Partial Class 鞋型圖片導入資料庫
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 101)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(63, 16)
+        Me.Label5.TabIndex = 509
+        Me.Label5.Text = "Category "
+        '
         'Label9
         '
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -96,159 +105,6 @@ Partial Class 鞋型圖片導入資料庫
         Me.Label9.TabIndex = 504
         Me.Label9.Text = "檔案名稱"
         '
-        '檔案名稱_tb
-        '
-        Me.檔案名稱_tb.AllowDrop = True
-        Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(60, 515)
-        Me.檔案名稱_tb.Name = "檔案名稱_tb"
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(654, 23)
-        Me.檔案名稱_tb.TabIndex = 503
-        '
-        'WebBrowser1
-        '
-        Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(5, 539)
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(709, 158)
-        Me.WebBrowser1.TabIndex = 520
-        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        '訂單控制表_dgv
-        '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.訂單控制表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.訂單控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.訂單控制表_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.訂單控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表_dgv.Location = New System.Drawing.Point(861, 20)
-        Me.訂單控制表_dgv.Name = "訂單控制表_dgv"
-        Me.訂單控制表_dgv.RowHeadersWidth = 5
-        Me.訂單控制表_dgv.RowTemplate.Height = 24
-        Me.訂單控制表_dgv.Size = New System.Drawing.Size(165, 677)
-        Me.訂單控制表_dgv.TabIndex = 521
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(862, 2)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(35, 16)
-        Me.Label1.TabIndex = 522
-        Me.Label1.Text = "Style"
-        '
-        '訂單控制表顏色清單_dgv
-        '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表顏色清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.訂單控制表顏色清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.訂單控制表顏色清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.訂單控制表顏色清單_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.訂單控制表顏色清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表顏色清單_dgv.Location = New System.Drawing.Point(1173, 20)
-        Me.訂單控制表顏色清單_dgv.Name = "訂單控制表顏色清單_dgv"
-        Me.訂單控制表顏色清單_dgv.RowHeadersWidth = 5
-        Me.訂單控制表顏色清單_dgv.RowTemplate.Height = 24
-        Me.訂單控制表顏色清單_dgv.Size = New System.Drawing.Size(175, 677)
-        Me.訂單控制表顏色清單_dgv.TabIndex = 526
-        '
-        'Label7
-        '
-        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(1172, 2)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(39, 16)
-        Me.Label7.TabIndex = 527
-        Me.Label7.Text = "Color"
-        '
-        '訂單控制表TVW清單_dgv
-        '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.訂單控制表TVW清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
-        Me.訂單控制表TVW清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.訂單控制表TVW清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.訂單控制表TVW清單_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.訂單控制表TVW清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.訂單控制表TVW清單_dgv.Location = New System.Drawing.Point(1027, 20)
-        Me.訂單控制表TVW清單_dgv.Name = "訂單控制表TVW清單_dgv"
-        Me.訂單控制表TVW清單_dgv.RowHeadersWidth = 5
-        Me.訂單控制表TVW清單_dgv.RowTemplate.Height = 24
-        Me.訂單控制表TVW清單_dgv.Size = New System.Drawing.Size(145, 677)
-        Me.訂單控制表TVW清單_dgv.TabIndex = 535
-        '
-        'Label11
-        '
-        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(1029, 2)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(43, 16)
-        Me.Label11.TabIndex = 536
-        Me.Label11.Text = "TVW#"
-        '
-        'WebBrowser2
-        '
-        Me.WebBrowser2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser2.Location = New System.Drawing.Point(5, 148)
-        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(709, 365)
-        Me.WebBrowser2.TabIndex = 540
-        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'TextBox7
-        '
-        Me.TextBox7.AllowDrop = True
-        Me.TextBox7.ForeColor = System.Drawing.Color.Black
-        Me.TextBox7.Location = New System.Drawing.Point(3, 3)
-        Me.TextBox7.Multiline = True
-        Me.TextBox7.Name = "TextBox7"
-        Me.TextBox7.Size = New System.Drawing.Size(115, 23)
-        Me.TextBox7.TabIndex = 564
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(1, 122)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(86, 24)
-        Me.Label13.TabIndex = 562
-        Me.Label13.Text = "我的電腦"
-        '
-        '讀取料夾路徑_tb
-        '
-        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.Blue
-        Me.讀取料夾路徑_tb.Location = New System.Drawing.Point(86, 122)
-        Me.讀取料夾路徑_tb.Name = "讀取料夾路徑_tb"
-        Me.讀取料夾路徑_tb.Size = New System.Drawing.Size(96, 24)
-        Me.讀取料夾路徑_tb.TabIndex = 561
-        Me.讀取料夾路徑_tb.Text = "讀取料夾路徑"
-        Me.讀取料夾路徑_tb.UseVisualStyleBackColor = True
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.ForeColor = System.Drawing.Color.Red
-        Me.Label6.Location = New System.Drawing.Point(183, 125)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(424, 16)
-        Me.Label6.TabIndex = 570
-        Me.Label6.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱不要帶有中文字或是符號"
-        '
         'Style新增清單_bt
         '
         Me.Style新增清單_bt.ForeColor = System.Drawing.Color.Olive
@@ -289,6 +145,17 @@ Partial Class 鞋型圖片導入資料庫
         Me.Color查詢_bt.Text = "查詢"
         Me.Color查詢_bt.UseVisualStyleBackColor = True
         '
+        '檔案名稱_tb
+        '
+        Me.檔案名稱_tb.AllowDrop = True
+        Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(60, 515)
+        Me.檔案名稱_tb.Name = "檔案名稱_tb"
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(654, 23)
+        Me.檔案名稱_tb.TabIndex = 503
+        '
         'Label2
         '
         Me.Label2.AutoSize = True
@@ -326,15 +193,6 @@ Partial Class 鞋型圖片導入資料庫
         Me.Category_cb.Size = New System.Drawing.Size(149, 24)
         Me.Category_cb.TabIndex = 508
         '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(6, 101)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(63, 16)
-        Me.Label5.TabIndex = 509
-        Me.Label5.Text = "Category "
-        '
         '確認儲存_bt
         '
         Me.確認儲存_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -346,14 +204,6 @@ Partial Class 鞋型圖片導入資料庫
         Me.確認儲存_bt.Text = "確認儲存"
         Me.確認儲存_bt.UseVisualStyleBackColor = True
         '
-        'TextBox1
-        '
-        Me.TextBox1.ForeColor = System.Drawing.Color.Black
-        Me.TextBox1.Location = New System.Drawing.Point(3, 32)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(82, 23)
-        Me.TextBox1.TabIndex = 513
-        '
         '中底或其他LOGO_ch
         '
         Me.中底或其他LOGO_ch.AutoSize = True
@@ -372,6 +222,43 @@ Partial Class 鞋型圖片導入資料庫
         Me.中底_其他LOGO_tb.Size = New System.Drawing.Size(113, 23)
         Me.中底_其他LOGO_tb.TabIndex = 515
         '
+        'WebBrowser1
+        '
+        Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser1.Location = New System.Drawing.Point(5, 539)
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser1.Name = "WebBrowser1"
+        Me.WebBrowser1.Size = New System.Drawing.Size(709, 158)
+        Me.WebBrowser1.TabIndex = 520
+        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        '訂單控制表_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.訂單控制表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.訂單控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.訂單控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.訂單控制表_dgv.Location = New System.Drawing.Point(861, 20)
+        Me.訂單控制表_dgv.Name = "訂單控制表_dgv"
+        Me.訂單控制表_dgv.RowHeadersWidth = 5
+        Me.訂單控制表_dgv.RowTemplate.Height = 24
+        Me.訂單控制表_dgv.Size = New System.Drawing.Size(165, 677)
+        Me.訂單控制表_dgv.TabIndex = 521
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(862, 2)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(35, 16)
+        Me.Label1.TabIndex = 522
+        Me.Label1.Text = "Style"
+        '
         'Style_tb
         '
         Me.Style_tb.ForeColor = System.Drawing.Color.Black
@@ -398,6 +285,32 @@ Partial Class 鞋型圖片導入資料庫
         Me.TVW_tb.Size = New System.Drawing.Size(149, 23)
         Me.TVW_tb.TabIndex = 525
         '
+        '訂單控制表顏色清單_dgv
+        '
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表顏色清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.訂單控制表顏色清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.訂單控制表顏色清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表顏色清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.訂單控制表顏色清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.訂單控制表顏色清單_dgv.Location = New System.Drawing.Point(1173, 20)
+        Me.訂單控制表顏色清單_dgv.Name = "訂單控制表顏色清單_dgv"
+        Me.訂單控制表顏色清單_dgv.RowHeadersWidth = 5
+        Me.訂單控制表顏色清單_dgv.RowTemplate.Height = 24
+        Me.訂單控制表顏色清單_dgv.Size = New System.Drawing.Size(175, 677)
+        Me.訂單控制表顏色清單_dgv.TabIndex = 526
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(1172, 2)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.TabIndex = 527
+        Me.Label7.Text = "Color"
+        '
         'Color刷新_bt
         '
         Me.Color刷新_bt.ForeColor = System.Drawing.Color.Red
@@ -436,35 +349,31 @@ Partial Class 鞋型圖片導入資料庫
         Me.Color清空_bt.Text = "清空"
         Me.Color清空_bt.UseVisualStyleBackColor = True
         '
-        'Button23
-        '
-        Me.Button23.ForeColor = System.Drawing.Color.Olive
-        Me.Button23.Location = New System.Drawing.Point(119, 3)
-        Me.Button23.Name = "Button23"
-        Me.Button23.Size = New System.Drawing.Size(25, 25)
-        Me.Button23.TabIndex = 532
-        Me.Button23.Text = "再"
-        Me.Button23.UseVisualStyleBackColor = True
-        '
-        'Button8
-        '
-        Me.Button8.ForeColor = System.Drawing.Color.Olive
-        Me.Button8.Location = New System.Drawing.Point(145, 3)
-        Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(25, 25)
-        Me.Button8.TabIndex = 533
-        Me.Button8.Text = "再"
-        Me.Button8.UseVisualStyleBackColor = True
+        '訂單控制表TVW清單_dgv
         '
-        '檔案刪除_bt
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂單控制表TVW清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.訂單控制表TVW清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.訂單控制表TVW清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單控制表TVW清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.訂單控制表TVW清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.訂單控制表TVW清單_dgv.Location = New System.Drawing.Point(1027, 20)
+        Me.訂單控制表TVW清單_dgv.Name = "訂單控制表TVW清單_dgv"
+        Me.訂單控制表TVW清單_dgv.RowHeadersWidth = 5
+        Me.訂單控制表TVW清單_dgv.RowTemplate.Height = 24
+        Me.訂單控制表TVW清單_dgv.Size = New System.Drawing.Size(145, 677)
+        Me.訂單控制表TVW清單_dgv.TabIndex = 535
         '
-        Me.檔案刪除_bt.Location = New System.Drawing.Point(91, 30)
-        Me.檔案刪除_bt.Name = "檔案刪除_bt"
-        Me.檔案刪除_bt.Size = New System.Drawing.Size(79, 25)
-        Me.檔案刪除_bt.TabIndex = 534
-        Me.檔案刪除_bt.Text = "檔案刪除"
-        Me.檔案刪除_bt.UseVisualStyleBackColor = True
-        Me.檔案刪除_bt.Visible = False
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(1029, 2)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(43, 16)
+        Me.Label11.TabIndex = 536
+        Me.Label11.Text = "TVW#"
         '
         'TVW查詢_bt
         '
@@ -496,17 +405,36 @@ Partial Class 鞋型圖片導入資料庫
         Me.TVW新增清單_bt.Text = "新增清單"
         Me.TVW新增清單_bt.UseVisualStyleBackColor = True
         '
-        '字體_NUD
+        '讀取料夾路徑_tb
         '
-        Me.字體_NUD.DecimalPlaces = 1
-        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(674, 122)
-        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
-        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
-        Me.字體_NUD.Name = "字體_NUD"
-        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
-        Me.字體_NUD.TabIndex = 1634
-        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        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.Blue
+        Me.讀取料夾路徑_tb.Location = New System.Drawing.Point(86, 122)
+        Me.讀取料夾路徑_tb.Name = "讀取料夾路徑_tb"
+        Me.讀取料夾路徑_tb.Size = New System.Drawing.Size(96, 24)
+        Me.讀取料夾路徑_tb.TabIndex = 561
+        Me.讀取料夾路徑_tb.Text = "讀取料夾路徑"
+        Me.讀取料夾路徑_tb.UseVisualStyleBackColor = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.Location = New System.Drawing.Point(1, 122)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(86, 24)
+        Me.Label13.TabIndex = 562
+        Me.Label13.Text = "我的電腦"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Red
+        Me.Label6.Location = New System.Drawing.Point(183, 125)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(424, 16)
+        Me.Label6.TabIndex = 570
+        Me.Label6.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱不要帶有中文字或是符號"
         '
         '字體大小調整_lb
         '
@@ -520,20 +448,22 @@ Partial Class 鞋型圖片導入資料庫
         Me.字體大小調整_lb.TabIndex = 1635
         Me.字體大小調整_lb.Text = "字體調整"
         '
-        'Label8
+        '字體_NUD
         '
-        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(718, 2)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(49, 16)
-        Me.Label8.TabIndex = 1637
-        Me.Label8.Text = "Season"
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(674, 122)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
+        Me.字體_NUD.TabIndex = 1634
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
         '季節_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.季節_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.季節_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.季節_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.季節_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -546,6 +476,64 @@ Partial Class 鞋型圖片導入資料庫
         Me.季節_dgv.Size = New System.Drawing.Size(143, 677)
         Me.季節_dgv.TabIndex = 1636
         '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(718, 2)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(49, 16)
+        Me.Label8.TabIndex = 1637
+        Me.Label8.Text = "Season"
+        '
+        '檔案刪除_bt
+        '
+        Me.檔案刪除_bt.Location = New System.Drawing.Point(91, 30)
+        Me.檔案刪除_bt.Name = "檔案刪除_bt"
+        Me.檔案刪除_bt.Size = New System.Drawing.Size(79, 25)
+        Me.檔案刪除_bt.TabIndex = 534
+        Me.檔案刪除_bt.Text = "檔案刪除"
+        Me.檔案刪除_bt.UseVisualStyleBackColor = True
+        Me.檔案刪除_bt.Visible = False
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.Black
+        Me.TextBox1.Location = New System.Drawing.Point(3, 32)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(82, 23)
+        Me.TextBox1.TabIndex = 513
+        '
+        'Button8
+        '
+        Me.Button8.ForeColor = System.Drawing.Color.Olive
+        Me.Button8.Location = New System.Drawing.Point(145, 3)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(25, 25)
+        Me.Button8.TabIndex = 533
+        Me.Button8.Text = "再"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'Button23
+        '
+        Me.Button23.ForeColor = System.Drawing.Color.Olive
+        Me.Button23.Location = New System.Drawing.Point(119, 3)
+        Me.Button23.Name = "Button23"
+        Me.Button23.Size = New System.Drawing.Size(25, 25)
+        Me.Button23.TabIndex = 532
+        Me.Button23.Text = "再"
+        Me.Button23.UseVisualStyleBackColor = True
+        '
+        'TextBox7
+        '
+        Me.TextBox7.AllowDrop = True
+        Me.TextBox7.ForeColor = System.Drawing.Color.Black
+        Me.TextBox7.Location = New System.Drawing.Point(3, 3)
+        Me.TextBox7.Multiline = True
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(115, 23)
+        Me.TextBox7.TabIndex = 564
+        '
         'Panel1
         '
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -559,6 +547,18 @@ Partial Class 鞋型圖片導入資料庫
         Me.Panel1.Size = New System.Drawing.Size(188, 68)
         Me.Panel1.TabIndex = 1638
         '
+        'WebBrowser2
+        '
+        Me.WebBrowser2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.WebBrowser2.Location = New System.Drawing.Point(5, 148)
+        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser2.Name = "WebBrowser2"
+        Me.WebBrowser2.Size = New System.Drawing.Size(709, 365)
+        Me.WebBrowser2.TabIndex = 540
+        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
+        '
         'Label10
         '
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -577,25 +577,15 @@ Partial Class 鞋型圖片導入資料庫
         Me.季節_tb.Size = New System.Drawing.Size(149, 23)
         Me.季節_tb.TabIndex = 1640
         '
-        '季節清空_bt
-        '
-        Me.季節清空_bt.ForeColor = System.Drawing.Color.Blue
-        Me.季節清空_bt.Location = New System.Drawing.Point(217, 2)
-        Me.季節清空_bt.Name = "季節清空_bt"
-        Me.季節清空_bt.Size = New System.Drawing.Size(76, 24)
-        Me.季節清空_bt.TabIndex = 1644
-        Me.季節清空_bt.Text = "清空"
-        Me.季節清空_bt.UseVisualStyleBackColor = True
-        '
-        '季節刷新_bt
+        '季節新增清單_bt
         '
-        Me.季節刷新_bt.ForeColor = System.Drawing.Color.Red
-        Me.季節刷新_bt.Location = New System.Drawing.Point(371, 2)
-        Me.季節刷新_bt.Name = "季節刷新_bt"
-        Me.季節刷新_bt.Size = New System.Drawing.Size(76, 24)
-        Me.季節刷新_bt.TabIndex = 1643
-        Me.季節刷新_bt.Text = "刷新"
-        Me.季節刷新_bt.UseVisualStyleBackColor = True
+        Me.季節新增清單_bt.ForeColor = System.Drawing.Color.Olive
+        Me.季節新增清單_bt.Location = New System.Drawing.Point(448, 2)
+        Me.季節新增清單_bt.Name = "季節新增清單_bt"
+        Me.季節新增清單_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節新增清單_bt.TabIndex = 1641
+        Me.季節新增清單_bt.Text = "新增清單"
+        Me.季節新增清單_bt.UseVisualStyleBackColor = True
         '
         '季節查詢_bt
         '
@@ -607,15 +597,25 @@ Partial Class 鞋型圖片導入資料庫
         Me.季節查詢_bt.Text = "查詢"
         Me.季節查詢_bt.UseVisualStyleBackColor = True
         '
-        '季節新增清單_bt
+        '季節刷新_bt
         '
-        Me.季節新增清單_bt.ForeColor = System.Drawing.Color.Olive
-        Me.季節新增清單_bt.Location = New System.Drawing.Point(448, 2)
-        Me.季節新增清單_bt.Name = "季節新增清單_bt"
-        Me.季節新增清單_bt.Size = New System.Drawing.Size(76, 24)
-        Me.季節新增清單_bt.TabIndex = 1641
-        Me.季節新增清單_bt.Text = "新增清單"
-        Me.季節新增清單_bt.UseVisualStyleBackColor = True
+        Me.季節刷新_bt.ForeColor = System.Drawing.Color.Red
+        Me.季節刷新_bt.Location = New System.Drawing.Point(371, 2)
+        Me.季節刷新_bt.Name = "季節刷新_bt"
+        Me.季節刷新_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節刷新_bt.TabIndex = 1643
+        Me.季節刷新_bt.Text = "刷新"
+        Me.季節刷新_bt.UseVisualStyleBackColor = True
+        '
+        '季節清空_bt
+        '
+        Me.季節清空_bt.ForeColor = System.Drawing.Color.Blue
+        Me.季節清空_bt.Location = New System.Drawing.Point(217, 2)
+        Me.季節清空_bt.Name = "季節清空_bt"
+        Me.季節清空_bt.Size = New System.Drawing.Size(76, 24)
+        Me.季節清空_bt.TabIndex = 1644
+        Me.季節清空_bt.Text = "清空"
+        Me.季節清空_bt.UseVisualStyleBackColor = True
         '
         '鞋型圖片導入資料庫
         '
@@ -684,58 +684,58 @@ Partial Class 鞋型圖片導入資料庫
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents Label9 As Label
-    Friend WithEvents 檔案名稱_tb As TextBox
-    Friend WithEvents WebBrowser1 As WebBrowser
-    Friend WithEvents 訂單控制表_dgv As DataGridView
-    Friend WithEvents Label1 As Label
-    Friend WithEvents 訂單控制表顏色清單_dgv As DataGridView
-    Friend WithEvents Label7 As Label
-    Friend WithEvents 訂單控制表TVW清單_dgv As DataGridView
-    Friend WithEvents Label11 As Label
-    Friend WithEvents WebBrowser2 As WebBrowser
-    Friend WithEvents TextBox7 As TextBox
-    Friend WithEvents Label13 As Label
-    Friend WithEvents 讀取料夾路徑_tb As Button
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
-    Friend WithEvents Label6 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label9 As Label
     Friend WithEvents Style新增清單_bt As Button
     Friend WithEvents Style查詢_bt As Button
     Friend WithEvents Color新增清單_bt As Button
     Friend WithEvents Color查詢_bt As Button
+    Friend WithEvents 檔案名稱_tb As TextBox
     Friend WithEvents Label2 As Label
     Friend WithEvents Label3 As Label
     Friend WithEvents Label4 As Label
     Friend WithEvents Category_cb As ComboBox
-    Friend WithEvents Label5 As Label
     Friend WithEvents 確認儲存_bt As Button
-    Friend WithEvents TextBox1 As TextBox
     Friend WithEvents 中底或其他LOGO_ch As CheckBox
     Friend WithEvents 中底_其他LOGO_tb As TextBox
+    Friend WithEvents WebBrowser1 As WebBrowser
+    Friend WithEvents 訂單控制表_dgv As DataGridView
+    Friend WithEvents Label1 As Label
     Friend WithEvents Style_tb As TextBox
     Friend WithEvents Style刷新_bt As Button
     Friend WithEvents TVW_tb As TextBox
+    Friend WithEvents 訂單控制表顏色清單_dgv As DataGridView
+    Friend WithEvents Label7 As Label
     Friend WithEvents Color刷新_bt As Button
     Friend WithEvents Color_tb As TextBox
     Friend WithEvents Style清空_bt As Button
     Friend WithEvents Color清空_bt As Button
-    Friend WithEvents Button23 As Button
-    Friend WithEvents Button8 As Button
-    Friend WithEvents 檔案刪除_bt As Button
+    Friend WithEvents 訂單控制表TVW清單_dgv As DataGridView
+    Friend WithEvents Label11 As Label
     Friend WithEvents TVW查詢_bt As Button
     Friend WithEvents TVW刷新_bt As Button
     Friend WithEvents TVW新增清單_bt As Button
-    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 讀取料夾路徑_tb As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label6 As Label
     Friend WithEvents 字體大小調整_lb As Label
-    Friend WithEvents Label8 As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 季節_dgv As DataGridView
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 檔案刪除_bt As Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button8 As Button
+    Friend WithEvents Button23 As Button
+    Friend WithEvents TextBox7 As TextBox
     Friend WithEvents Panel1 As Panel
+    Friend WithEvents WebBrowser2 As WebBrowser
     Friend WithEvents Label10 As Label
     Friend WithEvents 季節_tb As TextBox
-    Friend WithEvents 季節清空_bt As Button
-    Friend WithEvents 季節刷新_bt As Button
-    Friend WithEvents 季節查詢_bt As Button
     Friend WithEvents 季節新增清單_bt As Button
+    Friend WithEvents 季節查詢_bt As Button
+    Friend WithEvents 季節刷新_bt As Button
+    Friend WithEvents 季節清空_bt As Button
 End Class
 
 

TENDEN-MES-SYS/圖片資料庫管理/鞋型圖片系統/鞋型圖片導入資料庫.vb

@@ -228,6 +228,15 @@ Public Class 鞋型圖片導入資料庫
             MsgBox(ex.Message)
         End Try
     End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+
+    End Sub
+
+    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
+
+    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()

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/保證書出貨統計資料.Designer.vb

@@ -22,6 +22,8 @@ Partial Class 保證書出貨統計資料
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.驗貨報告圖庫_dgv = New System.Windows.Forms.DataGridView()
         Me.出貨保證書大圖_bt = New System.Windows.Forms.Button()
         Me.垂直翻轉_bt = New System.Windows.Forms.Button()
@@ -80,10 +82,15 @@ Partial Class 保證書出貨統計資料
         Me.Label37 = New System.Windows.Forms.Label()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.驗貨報告_pb = New System.Windows.Forms.PictureBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.圖片資料庫管理_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '驗貨報告圖庫_dgv
@@ -711,24 +718,71 @@ Partial Class 保證書出貨統計資料
         Me.字體_NUD.TabIndex = 1630
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
-        'PictureBox1
+        '驗貨報告_pb
         '
-        Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.驗貨報告_pb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572466
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox1.Location = New System.Drawing.Point(5, 28)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(271, 271)
-        Me.PictureBox1.TabIndex = 502
-        Me.PictureBox1.TabStop = False
+        Me.驗貨報告_pb.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572466
+        Me.驗貨報告_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.驗貨報告_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.驗貨報告_pb.Location = New System.Drawing.Point(5, 28)
+        Me.驗貨報告_pb.Name = "驗貨報告_pb"
+        Me.驗貨報告_pb.Size = New System.Drawing.Size(271, 271)
+        Me.驗貨報告_pb.TabIndex = 502
+        Me.驗貨報告_pb.TabStop = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Label38)
+        Me.Panel1.Controls.Add(Me.圖片資料庫管理_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(657, 182)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(205, 303)
+        Me.Panel1.TabIndex = 1632
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(11, 7)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(176, 16)
+        Me.Label38.TabIndex = 708
+        Me.Label38.Text = "起先選擇要開啟哪個圖片資料庫"
+        '
+        '圖片資料庫管理_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
+        Me.圖片資料庫管理_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.圖片資料庫管理_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.圖片資料庫管理_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片資料庫管理_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.圖片資料庫管理_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.圖片資料庫管理_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.圖片資料庫管理_dgv.Name = "圖片資料庫管理_dgv"
+        Me.圖片資料庫管理_dgv.RowHeadersWidth = 5
+        Me.圖片資料庫管理_dgv.RowTemplate.Height = 24
+        Me.圖片資料庫管理_dgv.Size = New System.Drawing.Size(195, 269)
+        Me.圖片資料庫管理_dgv.TabIndex = 707
         '
         '保證書出貨統計資料
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.Label37)
         Me.Controls.Add(Me.Label36)
@@ -785,7 +839,7 @@ Partial Class 保證書出貨統計資料
         Me.Controls.Add(Me.逆時鐘90度旋轉_bt)
         Me.Controls.Add(Me.順時鐘90度旋轉_bt)
         Me.Controls.Add(Me.出貨保證書大圖_bt)
-        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.驗貨報告_pb)
         Me.Controls.Add(Me.驗貨報告圖庫_dgv)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -794,14 +848,17 @@ Partial Class 保證書出貨統計資料
         Me.Text = "保證書出貨統計資料"
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents 驗貨報告圖庫_dgv As DataGridView
-    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents 驗貨報告_pb As PictureBox
     Friend WithEvents 出貨保證書大圖_bt As Button
     Friend WithEvents 垂直翻轉_bt As Button
     Friend WithEvents 水平翻轉_bt As Button
@@ -859,5 +916,8 @@ Partial Class 保證書出貨統計資料
     Friend WithEvents Label37 As Label
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label38 As Label
+    Friend WithEvents 圖片資料庫管理_dgv As DataGridView
 End Class
 

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/保證書出貨統計資料.vb

@@ -2,6 +2,15 @@
 Imports System.IO
 Public Class 保證書出貨統計資料
     ReadOnly ds As New DataSet
+    Private Sub Set_工程圖片資料庫狀態()
+        Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
+        圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫管理_dgv.ColumnHeadersHeight = 25
+        圖片資料庫管理_dgv.AllowUserToAddRows = False
+        SQL_圖片資料庫管理查詢()
+        da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).Visible = False
+    End Sub
     Private Sub Set_保證書出貨清單清單()
         Try
             驗貨報告圖庫_dgv.DataSource = Nothing : ds.Clear()
@@ -54,8 +63,8 @@ Public Class 保證書出貨統計資料
     Private Sub 保證書出貨統計資料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            Set_保證書出貨清單清單()
-            Set_自動彙總()
+            Set_工程圖片資料庫狀態()
+
             If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
                 字體_NUD.Value = 9
             ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
@@ -79,21 +88,23 @@ Public Class 保證書出貨統計資料
     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 DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
+    Private Sub 圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            PA20 = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : Set_保證書出貨清單清單() : Set_自動彙總() : Panel1.Visible = False
+        End If
+    End Sub
+    Private Sub 驗貨報告圖庫_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
         Try
             If e.RowIndex = -1 Then : Else
-                PictureBox1.Image = Nothing
-                PA = 驗貨報告圖庫_dgv(18, e.RowIndex).Value.ToString : SQL_驗貨報告()
-                PictureBox1.BackgroundImage = Nothing
-                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)
-                    PictureBox1.Image = Bitmap.FromStream(oStream)
-                End While
-                conn.Close()
-                PictureBox1.SizeMode = 4
-                驗貨報告 = 驗貨報告圖庫_dgv(18, e.RowIndex).Value.ToString
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = PA20 : PA2 = 驗貨報告圖庫_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                If 驗貨報告圖庫_dgv("驗貨報告圖片", e.RowIndex).Value.ToString = "" Then : 驗貨報告_pb.Image = Nothing : Else
+                    SQL_驗貨報告() : 驗貨報告_pb.Image = Nothing
+                    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
+                End If : 圖片傳遞 = 驗貨報告_pb.Image
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -121,15 +132,15 @@ Public Class 保證書出貨統計資料
         驗貨報告大圖.ShowDialog()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
 End Class

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告圖片導入資料庫.vb

@@ -4,96 +4,53 @@ Public Class 驗貨報告圖片導入資料庫
     Public Property Credentials As ICredentials
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Private Sub Set_DGV1載入前設定()
-        Try
-            訂單清單_dgv.DataSource = Nothing : ds.Clear()
-            訂單清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂單清單_dgv.ColumnHeadersHeight = 25
-            訂單清單_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單清單_dgv.DataSource = Nothing : ds.Clear()
+        訂單清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單清單_dgv.ColumnHeadersHeight = 25
+        訂單清單_dgv.AllowUserToAddRows = False : ConnOpen()
     End Sub
     Private  Sub Set_DGV1載入後設定()
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單清單_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_清單1()
-        Try
-            Set_DGV1載入前設定()
-            SQL_訂單清單()
-            Set_DGV1載入後設定()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Set_DGV1載入前設定() : SQL_訂單清單() : Set_DGV1載入後設定()
     End Sub
     Private Sub Set_grid1()
-        Try
-            訂單清單_dgv.Columns(0).FillWeight = 80 : 訂單清單_dgv.Columns(1).FillWeight = 70 : 訂單清單_dgv.Columns(2).FillWeight = 120 : 訂單清單_dgv.Columns(3).FillWeight = 140
-            訂單清單_dgv.Columns(4).FillWeight = 100 : 訂單清單_dgv.Columns(5).FillWeight = 80 : 訂單清單_dgv.Columns(6).FillWeight = 100 : 訂單清單_dgv.Columns(7).FillWeight = 100
-            訂單清單_dgv.Columns(8).FillWeight = 100 : 訂單清單_dgv.Columns(9).Visible = False : 訂單清單_dgv.Columns(10).Visible = False
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單清單_dgv.Columns(0).FillWeight = 80 : 訂單清單_dgv.Columns(1).FillWeight = 70 : 訂單清單_dgv.Columns(2).FillWeight = 120 : 訂單清單_dgv.Columns(3).FillWeight = 140
+        訂單清單_dgv.Columns(4).FillWeight = 100 : 訂單清單_dgv.Columns(5).FillWeight = 80 : 訂單清單_dgv.Columns(6).FillWeight = 100 : 訂單清單_dgv.Columns(7).FillWeight = 100
+        訂單清單_dgv.Columns(8).FillWeight = 100 : 訂單清單_dgv.Columns(9).Visible = False : 訂單清單_dgv.Columns(10).Visible = False
     End Sub
     Private Sub 驗貨報告圖片導入資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            訂單資料庫選擇.ShowDialog()
-            Target1 = Target & AA(3) & "/"
-            WebBrowser1.Url = New Uri(Target1)
-            Set_清單1() : Set_grid1()
-            TextBox3.Visible = False : TextBox7.Visible = False
-            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-                WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-            End If
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        訂單資料庫選擇.ShowDialog() : Target1 = Target & AA(3) & "/" : WebBrowser1.Url = New Uri(Target1)
+        Set_清單1() : Set_grid1()
+        TextBox3.Visible = False : TextBox7.Visible = False
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     End Sub
     Private Sub 驗貨報告圖片導入資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        Try
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+        ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
     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 DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單清單_dgv.CellClick
-        Try
-            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
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    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
+        End If
     End Sub
-    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
-        Try
-            PA = InputBox("請輸入要查詢的資料")
-            Set_DGV1載入前設定()
-            SQL_訂單清單查詢()
-            Set_DGV1載入後設定() : Set_grid1()
-            PA = ""
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+        PA = InputBox("請輸入要查詢的資料") : Set_DGV1載入前設定() : SQL_訂單清單查詢() : Set_DGV1載入後設定() : Set_grid1()
+        PA = ""
     End Sub
     Private  Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認儲存_bt.Click
         If 客戶訂單號_tb.Text = "" Or 型體名稱_tb.Text = "" Or 檔案名稱_tb.Text = "" Then
             MsgBox("檔案名稱或資料不可空白")
         Else
+            SQL_資料庫選擇() : If dr.Read() Then : PA1 = dr("圖片資料庫").ToString : PA20 = PA1 : End If
             SQL_查詢最後一筆驗貨報告編號()
             If dr.Read() Then : TextBox3.Text = dr("驗貨報告編號").ToString : Else : TextBox3.Text = "0" : End If
             conn.Close()
@@ -109,7 +66,6 @@ Public Class 驗貨報告圖片導入資料庫
             ElseIf NUM1 > 9999999 Then : TextBox3.Text = "IR" & NUM1
             End If
 
-
             If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_新增驗貨報告編號_測試()
             Else : SQL_新增驗貨報告圖庫_正式() : End If : conn.Close()
 
@@ -131,7 +87,7 @@ Public Class 驗貨報告圖片導入資料庫
             MsgBox("新增完成")
         End If
     End Sub
-    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
             Dim files As String()
             Try
@@ -166,15 +122,14 @@ Public Class 驗貨報告圖片導入資料庫
             Next
         End If
     End Sub
-    Private  Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
+    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 Button4_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
+    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
         End If
     End Sub
     Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告大圖.vb

@@ -12,14 +12,15 @@ Public Class 驗貨報告大圖
     Private Sub 驗貨報告大圖_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             FormBorderStyle = FormBorderStyle.SizableToolWindow  'ControlBox = False
-            SQL_驗貨報告()
-            PictureBox1.Image = Nothing
-            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)
-                PictureBox1.Image = Bitmap.FromStream(oStream)
-            End While
-            conn.Close() : PictureBox1.SizeMode = 4
+            PictureBox1.Image = 圖片傳遞 : PictureBox1.SizeMode = 4
+            'SQL_驗貨報告()
+            'PictureBox1.Image = Nothing
+            '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)
+            '    PictureBox1.Image = Bitmap.FromStream(oStream)
+            'End While
+            'conn.Close() : PictureBox1.SizeMode = 4
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告資料庫.Designer.vb

@@ -22,8 +22,10 @@ Partial Class 驗貨報告資料庫
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.驗貨報告圖庫_dgv = New System.Windows.Forms.DataGridView()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.驗貨報告_pb = New System.Windows.Forms.PictureBox()
         Me.驗貨報告編號_tb = New System.Windows.Forms.TextBox()
         Me.下載圖片_bt = New System.Windows.Forms.Button()
         Me.查詢_bt = New System.Windows.Forms.Button()
@@ -58,12 +60,17 @@ Partial Class 驗貨報告資料庫
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.圖片資料庫管理_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.TabPage2.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '驗貨報告圖庫_dgv
@@ -80,20 +87,20 @@ Partial Class 驗貨報告資料庫
         Me.驗貨報告圖庫_dgv.Size = New System.Drawing.Size(615, 664)
         Me.驗貨報告圖庫_dgv.TabIndex = 4
         '
-        'PictureBox1
+        '驗貨報告_pb
         '
-        Me.PictureBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.驗貨報告_pb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.PictureBox1.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572465
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox1.Location = New System.Drawing.Point(6, 52)
-        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(782, 606)
-        Me.PictureBox1.TabIndex = 502
-        Me.PictureBox1.TabStop = False
+        Me.驗貨報告_pb.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources._9572465
+        Me.驗貨報告_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.驗貨報告_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.驗貨報告_pb.Location = New System.Drawing.Point(6, 52)
+        Me.驗貨報告_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.驗貨報告_pb.Name = "驗貨報告_pb"
+        Me.驗貨報告_pb.Size = New System.Drawing.Size(782, 606)
+        Me.驗貨報告_pb.TabIndex = 502
+        Me.驗貨報告_pb.TabStop = False
         '
         '驗貨報告編號_tb
         '
@@ -246,7 +253,7 @@ Partial Class 驗貨報告資料庫
         Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label6.Location = New System.Drawing.Point(6, 727)
+        Me.Label6.Location = New System.Drawing.Point(1, 439)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(156, 24)
         Me.Label6.TabIndex = 583
@@ -257,7 +264,7 @@ Partial Class 驗貨報告資料庫
         Me.TextBox7.AllowDrop = True
         Me.TextBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.TextBox7.ForeColor = System.Drawing.Color.Black
-        Me.TextBox7.Location = New System.Drawing.Point(157, 778)
+        Me.TextBox7.Location = New System.Drawing.Point(485, 9)
         Me.TextBox7.Multiline = True
         Me.TextBox7.Name = "TextBox7"
         Me.TextBox7.Size = New System.Drawing.Size(73, 23)
@@ -289,10 +296,10 @@ Partial Class 驗貨報告資料庫
         Me.WebBrowser2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser2.Location = New System.Drawing.Point(6, 37)
+        Me.WebBrowser2.Location = New System.Drawing.Point(3, 38)
         Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(1269, 661)
+        Me.WebBrowser2.Size = New System.Drawing.Size(782, 372)
         Me.WebBrowser2.TabIndex = 579
         Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
         '
@@ -300,7 +307,7 @@ Partial Class 驗貨報告資料庫
         '
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(1, 707)
+        Me.Label9.Location = New System.Drawing.Point(2, 417)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(56, 16)
         Me.Label9.TabIndex = 577
@@ -312,29 +319,26 @@ Partial Class 驗貨報告資料庫
         Me.TextBox6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox6.ForeColor = System.Drawing.Color.Black
-        Me.TextBox6.Location = New System.Drawing.Point(57, 704)
+        Me.TextBox6.Location = New System.Drawing.Point(56, 414)
         Me.TextBox6.Name = "TextBox6"
-        Me.TextBox6.Size = New System.Drawing.Size(1223, 23)
+        Me.TextBox6.Size = New System.Drawing.Size(732, 23)
         Me.TextBox6.TabIndex = 576
         '
         'WebBrowser1
         '
         Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(6, 754)
+        Me.WebBrowser1.Location = New System.Drawing.Point(3, 466)
         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(1269, 190)
+        Me.WebBrowser1.Size = New System.Drawing.Size(782, 190)
         Me.WebBrowser1.TabIndex = 575
         Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
         '
         'Button24
         '
-        Me.Button24.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button24.ForeColor = System.Drawing.Color.Green
-        Me.Button24.Location = New System.Drawing.Point(1160, 728)
+        Me.Button24.Location = New System.Drawing.Point(564, 8)
         Me.Button24.Name = "Button24"
         Me.Button24.Size = New System.Drawing.Size(120, 25)
         Me.Button24.TabIndex = 574
@@ -347,7 +351,7 @@ Partial Class 驗貨報告資料庫
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.Red
-        Me.Label7.Location = New System.Drawing.Point(168, 728)
+        Me.Label7.Location = New System.Drawing.Point(151, 439)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(29, 24)
         Me.Label7.TabIndex = 584
@@ -401,7 +405,7 @@ Partial Class 驗貨報告資料庫
         Me.TabPage1.Controls.Add(Me.垂直翻轉_bt)
         Me.TabPage1.Controls.Add(Me.放大_bt)
         Me.TabPage1.Controls.Add(Me.復原_bt)
-        Me.TabPage1.Controls.Add(Me.PictureBox1)
+        Me.TabPage1.Controls.Add(Me.驗貨報告_pb)
         Me.TabPage1.Location = New System.Drawing.Point(4, 28)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
@@ -413,11 +417,11 @@ Partial Class 驗貨報告資料庫
         'TabPage2
         '
         Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.TabPage2.Controls.Add(Me.Label6)
         Me.TabPage2.Controls.Add(Me.Label2)
         Me.TabPage2.Controls.Add(Me.Label7)
         Me.TabPage2.Controls.Add(Me.Button24)
         Me.TabPage2.Controls.Add(Me.Label10)
-        Me.TabPage2.Controls.Add(Me.Label6)
         Me.TabPage2.Controls.Add(Me.TextBox6)
         Me.TabPage2.Controls.Add(Me.TextBox7)
         Me.TabPage2.Controls.Add(Me.Label9)
@@ -456,11 +460,58 @@ Partial Class 驗貨報告資料庫
         Me.字體大小調整_lb.TabIndex = 1633
         Me.字體大小調整_lb.Text = "字體調整"
         '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Label38)
+        Me.Panel1.Controls.Add(Me.圖片資料庫管理_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(572, 164)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(205, 303)
+        Me.Panel1.TabIndex = 1634
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(11, 10)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(176, 16)
+        Me.Label38.TabIndex = 708
+        Me.Label38.Text = "起先選擇要開啟哪個圖片資料庫"
+        '
+        '圖片資料庫管理_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
+        Me.圖片資料庫管理_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.圖片資料庫管理_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.圖片資料庫管理_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片資料庫管理_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.圖片資料庫管理_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.圖片資料庫管理_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.圖片資料庫管理_dgv.Name = "圖片資料庫管理_dgv"
+        Me.圖片資料庫管理_dgv.RowHeadersWidth = 5
+        Me.圖片資料庫管理_dgv.RowTemplate.Height = 24
+        Me.圖片資料庫管理_dgv.Size = New System.Drawing.Size(195, 269)
+        Me.圖片資料庫管理_dgv.TabIndex = 707
+        '
         '驗貨報告資料庫
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1422, 701)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.字體_NUD)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.Label1)
@@ -473,20 +524,23 @@ Partial Class 驗貨報告資料庫
         Me.Name = "驗貨報告資料庫"
         Me.Text = "驗貨報告資料庫"
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents 驗貨報告圖庫_dgv As DataGridView
-    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents 驗貨報告_pb As PictureBox
     Friend WithEvents 驗貨報告編號_tb As TextBox
     Friend WithEvents 下載圖片_bt As Button
     Friend WithEvents 查詢_bt As Button
@@ -521,4 +575,7 @@ Partial Class 驗貨報告資料庫
     Friend WithEvents TabPage2 As TabPage
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label38 As Label
+    Friend WithEvents 圖片資料庫管理_dgv As DataGridView
 End Class

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告資料庫.vb

@@ -13,13 +13,20 @@ Public Class 驗貨報告資料庫
     Dim m_DeltaY As Integer
     ReadOnly m_StrecthX As Double
     ReadOnly m_StrecthY As Double
+    Private Sub Set_工程圖片資料庫狀態()
+        Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
+        圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫管理_dgv.ColumnHeadersHeight = 25
+        圖片資料庫管理_dgv.AllowUserToAddRows = False
+        SQL_圖片資料庫管理查詢()
+        da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).Visible = False
+    End Sub
     Private Sub Set_DGV1載入前設定()
         Try
             驗貨報告圖庫_dgv.DataSource = Nothing : ds.Clear()
             驗貨報告圖庫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            驗貨報告圖庫_dgv.ColumnHeadersHeight = 25
-            驗貨報告圖庫_dgv.AllowUserToAddRows = False
-            ConnOpen()
+            驗貨報告圖庫_dgv.ColumnHeadersHeight = 25 : 驗貨報告圖庫_dgv.AllowUserToAddRows = False : ConnOpen()
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -28,9 +35,7 @@ Public Class 驗貨報告資料庫
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 驗貨報告圖庫_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_圖片清單()
-        Set_DGV1載入前設定()
-        SQL_驗貨報告圖庫清單()
-        Set_DGV1載入後設定()
+        Set_DGV1載入前設定() : SQL_驗貨報告圖庫清單() : Set_DGV1載入後設定()
     End Sub
     Private Sub Set_grid()
         Try
@@ -43,31 +48,22 @@ Public Class 驗貨報告資料庫
     Private Sub 驗貨報告資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            訂單資料庫選擇.ShowDialog()
-            Target1 = Target & AA(3) & "/"
-            WebBrowser1.Url = New Uri(Target1)
-            驗貨報告編號_tb.Enabled = False : 年份季度_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 型體名稱_tb.Enabled = False : TextBox5.Visible = False : TextBox7.Visible = False : Button24.Enabled = False
+            訂單資料庫選擇.ShowDialog() : Target1 = Target & AA(3) & "/" : WebBrowser1.Url = New Uri(Target1)
+            驗貨報告編號_tb.Enabled = False : 年份季度_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 型體名稱_tb.Enabled = False
+            TextBox5.Visible = False : TextBox7.Visible = False : Button24.Enabled = False
             If CC(92) = True Then : Button24.Enabled = True : End If
-            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-                WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-            End If
-            Set_圖片清單() : Set_grid()
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
+            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+            Set_工程圖片資料庫狀態()
+            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
     Private Sub 驗貨報告資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         Try
-            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
+            If TENDEN_MES_SYS.Size.Width > 1440 And TENDEN_MES_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
+            ElseIf TENDEN_MES_SYS.Size.Width <= 1440 And TENDEN_MES_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -75,55 +71,48 @@ Public Class 驗貨報告資料庫
     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 DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
+    Private Sub 圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            PA20 = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : Set_圖片清單() : Set_grid() : Panel1.Visible = False
+        End If
+    End Sub
+    Private Sub 驗貨報告圖庫_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
         Try
             If e.RowIndex = -1 Then : Else
-                驗貨報告編號_tb.Text = 驗貨報告圖庫_dgv(5, e.RowIndex).Value.ToString
-                年份季度_tb.Text = 驗貨報告圖庫_dgv(1, e.RowIndex).Value.ToString
-                客戶訂單號_tb.Text = 驗貨報告圖庫_dgv(2, e.RowIndex).Value.ToString
-                型體名稱_tb.Text = 驗貨報告圖庫_dgv(3, e.RowIndex).Value.ToString
-                SQL_驗貨報告圖庫查詢()
-                PictureBox1.BackgroundImage = Nothing
-                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)
-                    PictureBox1.Image = Bitmap.FromStream(oStream)
-                End While
-                conn.Close()
-                PictureBox1.SizeMode = 4
+                驗貨報告編號_tb.Text = 驗貨報告圖庫_dgv(5, e.RowIndex).Value.ToString : 年份季度_tb.Text = 驗貨報告圖庫_dgv(1, e.RowIndex).Value.ToString
+                客戶訂單號_tb.Text = 驗貨報告圖庫_dgv(2, e.RowIndex).Value.ToString : 型體名稱_tb.Text = 驗貨報告圖庫_dgv(3, e.RowIndex).Value.ToString
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = PA20 : PA2 = 驗貨報告圖庫_dgv("驗貨報告編號", e.RowIndex).Value.ToString
+                If 驗貨報告圖庫_dgv("驗貨報告編號", e.RowIndex).Value.ToString = "" Then : 驗貨報告_pb.Image = Nothing : Else
+                    SQL_驗貨報告() : 驗貨報告_pb.Image = Nothing
+                    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
+                End If : 圖片傳遞 = 驗貨報告_pb.Image
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 驗貨報告圖庫_dgv.RowPostPaint
-        Try
-            Dim linePen As New Pen(Color.Blue, 2)
-            If e.RowIndex = 驗貨報告圖庫_dgv.Rows.Count - 1 Then
+    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(2, e.RowIndex).Value.ToString <> 驗貨報告圖庫_dgv(2, 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
-            Else
-                If 驗貨報告圖庫_dgv(2, e.RowIndex).Value.ToString <> 驗貨報告圖庫_dgv(2, e.RowIndex + 1).Value.ToString Then
-                    Dim startX As Integer = IIf(驗貨報告圖庫_dgv.RowHeadersVisible, 驗貨報告圖庫_dgv.RowHeadersWidth, 0)
-                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                    Dim endX As Integer = startX + 驗貨報告圖庫_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 驗貨報告圖庫_dgv.HorizontalScrollingOffset
-                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
-                    Exit Sub
-                End If
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        End If
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
+    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
         Try
-            PA = InputBox("請輸入關鍵字")
-            Set_DGV1載入前設定()
-            SQL_驗貨報告圖庫查詢1()
-            Set_DGV1載入後設定() : Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+            PA = InputBox("請輸入關鍵字") : Set_DGV1載入前設定() : SQL_驗貨報告圖庫查詢1() : Set_DGV1載入後設定() : Set_grid()
+        Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 下載圖片_bt.Click
         Try
@@ -135,9 +124,9 @@ Public Class 驗貨報告資料庫
 
                 SaveFileDialog1.FileName = TT & "-" & 年份季度_tb.Text & "-" & 客戶訂單號_tb.Text & "-" & 型體名稱_tb.Text & ".jpg"
 
-                SaveFileDialog1.ShowDialog() : TextBox5.Text = SaveFileDialog1.FileName
-                ds1.Clear()
-                SQL_驗貨報告圖庫3()
+                SaveFileDialog1.ShowDialog() : TextBox5.Text = SaveFileDialog1.FileName : ds1.Clear()
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = PA20 : SQL_驗貨報告圖庫3()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : conn.Close()
                 If ds1.Tables(0).Rows.Count > 0 Then
                     Dim imgData() As Byte
@@ -154,33 +143,33 @@ Public Class 驗貨報告資料庫
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+    Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
-    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+    Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+    Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
-        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4
+    Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 放大_bt.Click
+    Private Sub 放大_bt_Click(sender As Object, e As EventArgs) Handles 放大_bt.Click
         Try
-            Dim image = PictureBox1.Image
-            Dim g As Graphics = PictureBox1.CreateGraphics
+            Dim image = 驗貨報告_pb.Image
+            Dim g As Graphics = 驗貨報告_pb.CreateGraphics
             g.DrawImage(image, New Rectangle(0, 0, image.Width * 1.01, image.Height * 1.01))
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 復原_bt.Click
-        PictureBox1.Refresh()
+    Private Sub 復原_bt_Click(sender As Object, e As EventArgs) Handles 復原_bt.Click
+        驗貨報告_pb.Refresh()
     End Sub
     '@#处理鼠标按键抬起的事件，根据鼠标按下时保存的鼠标位置，和当前鼠标的位置， 
     '计算鼠标移动偏移量，借此调用移动图片的函数，移动图片 
-    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseUp
+    Private Sub 驗貨報告_pb_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 驗貨報告_pb.MouseUp
         Try
             m_DeltaX = m_MousePosX - e.X
             m_DeltaY = m_MousePosY - e.Y
@@ -193,7 +182,7 @@ Public Class 驗貨報告資料庫
         End Try
     End Sub
     '@#当鼠标按下时，将鼠标变成手形，并且记录下当前鼠标的位置 
-    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown
+    Private Sub 驗貨報告_pb_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 驗貨報告_pb.MouseDown
         Try
             Me.Cursor = Cursors.Hand
             m_MousePosX = e.X
@@ -205,9 +194,9 @@ Public Class 驗貨報告資料庫
     '@#根据偏移量计算出的图片位置，重画图片 
     Private Sub Picturemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
         Try
-            Dim myBit As New Bitmap(PictureBox1.Image)
-            Dim myPicGrh As Graphics = Me.PictureBox1.CreateGraphics
-            myPicGrh.Clear(Me.PictureBox1.BackColor)
+            Dim myBit As New Bitmap(驗貨報告_pb.Image)
+            Dim myPicGrh As Graphics = Me.驗貨報告_pb.CreateGraphics
+            myPicGrh.Clear(Me.驗貨報告_pb.BackColor)
             myPicGrh.DrawImageUnscaled(myBit, m_Leftx - 152, m_Lefty)
             myBit.Dispose()
             myPicGrh.Dispose()
@@ -282,8 +271,7 @@ Public Class 驗貨報告資料庫
                 If TextBox6.Text = "" Then
                     MsgBox("請確認圖片已準備完畢")
                 Else
-                    If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_修改驗貨報告圖庫1_測試()
-                    Else : SQL_修改驗貨報告圖庫1_正式() : End If : conn.Close()
+                    PA1 = PA20 : If Strings.Left(Target1, 18) = "ftp://106.1.48.106" Then : SQL_修改驗貨報告圖庫1_測試() : Else : SQL_修改驗貨報告圖庫1_正式() : End If : conn.Close()
                     '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                     Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                     frq = CType(WebRequest.Create(New Uri(Target1 & TextBox6.Text)), FtpWebRequest)

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告資料庫修正.Designer.vb

@@ -24,6 +24,8 @@ Partial Class 驗貨報告資料庫修正
     Private Sub InitializeComponent()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.驗貨報告圖庫_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶訂單號_tb = New System.Windows.Forms.TextBox()
         Me.客戶訂單號_lb = New System.Windows.Forms.Label()
@@ -33,8 +35,16 @@ Partial Class 驗貨報告資料庫修正
         Me.驗貨報告編號_tb = New System.Windows.Forms.TextBox()
         Me.驗貨報告編號_lb = New System.Windows.Forms.Label()
         Me.重新配對_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label38 = New System.Windows.Forms.Label()
+        Me.圖片資料庫管理_dgv = New System.Windows.Forms.DataGridView()
+        Me.重選資料庫_bt = New System.Windows.Forms.Button()
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '驗貨報告圖庫_dgv
@@ -55,7 +65,7 @@ Partial Class 驗貨報告資料庫修正
         '客戶訂單號_tb
         '
         Me.客戶訂單號_tb.ForeColor = System.Drawing.Color.Black
-        Me.客戶訂單號_tb.Location = New System.Drawing.Point(78, 6)
+        Me.客戶訂單號_tb.Location = New System.Drawing.Point(258, 6)
         Me.客戶訂單號_tb.Name = "客戶訂單號_tb"
         Me.客戶訂單號_tb.Size = New System.Drawing.Size(149, 23)
         Me.客戶訂單號_tb.TabIndex = 532
@@ -63,7 +73,7 @@ Partial Class 驗貨報告資料庫修正
         '客戶訂單號_lb
         '
         Me.客戶訂單號_lb.AutoSize = True
-        Me.客戶訂單號_lb.Location = New System.Drawing.Point(4, 9)
+        Me.客戶訂單號_lb.Location = New System.Drawing.Point(184, 9)
         Me.客戶訂單號_lb.Name = "客戶訂單號_lb"
         Me.客戶訂單號_lb.Size = New System.Drawing.Size(68, 16)
         Me.客戶訂單號_lb.TabIndex = 531
@@ -72,7 +82,7 @@ Partial Class 驗貨報告資料庫修正
         '型體名稱_tb
         '
         Me.型體名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.型體名稱_tb.Location = New System.Drawing.Point(295, 6)
+        Me.型體名稱_tb.Location = New System.Drawing.Point(475, 6)
         Me.型體名稱_tb.Name = "型體名稱_tb"
         Me.型體名稱_tb.Size = New System.Drawing.Size(149, 23)
         Me.型體名稱_tb.TabIndex = 534
@@ -80,7 +90,7 @@ Partial Class 驗貨報告資料庫修正
         '型體名稱_lb
         '
         Me.型體名稱_lb.AutoSize = True
-        Me.型體名稱_lb.Location = New System.Drawing.Point(233, 9)
+        Me.型體名稱_lb.Location = New System.Drawing.Point(413, 9)
         Me.型體名稱_lb.Name = "型體名稱_lb"
         Me.型體名稱_lb.Size = New System.Drawing.Size(56, 16)
         Me.型體名稱_lb.TabIndex = 533
@@ -104,7 +114,7 @@ Partial Class 驗貨報告資料庫修正
         '驗貨報告編號_tb
         '
         Me.驗貨報告編號_tb.ForeColor = System.Drawing.Color.Black
-        Me.驗貨報告編號_tb.Location = New System.Drawing.Point(536, 6)
+        Me.驗貨報告編號_tb.Location = New System.Drawing.Point(716, 6)
         Me.驗貨報告編號_tb.Name = "驗貨報告編號_tb"
         Me.驗貨報告編號_tb.Size = New System.Drawing.Size(149, 23)
         Me.驗貨報告編號_tb.TabIndex = 537
@@ -112,7 +122,7 @@ Partial Class 驗貨報告資料庫修正
         '驗貨報告編號_lb
         '
         Me.驗貨報告編號_lb.AutoSize = True
-        Me.驗貨報告編號_lb.Location = New System.Drawing.Point(450, 9)
+        Me.驗貨報告編號_lb.Location = New System.Drawing.Point(630, 9)
         Me.驗貨報告編號_lb.Name = "驗貨報告編號_lb"
         Me.驗貨報告編號_lb.Size = New System.Drawing.Size(80, 16)
         Me.驗貨報告編號_lb.TabIndex = 536
@@ -127,11 +137,88 @@ Partial Class 驗貨報告資料庫修正
         Me.重新配對_bt.Text = "重新配對"
         Me.重新配對_bt.UseVisualStyleBackColor = True
         '
+        '資料庫選擇2_bt
+        '
+        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(82, 4)
+        Me.資料庫選擇2_bt.Name = "資料庫選擇2_bt"
+        Me.資料庫選擇2_bt.Size = New System.Drawing.Size(75, 26)
+        Me.資料庫選擇2_bt.TabIndex = 589
+        Me.資料庫選擇2_bt.Text = "DRS/ LIF"
+        Me.資料庫選擇2_bt.UseVisualStyleBackColor = True
+        '
+        '資料庫選擇1_bt
+        '
+        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(7, 4)
+        Me.資料庫選擇1_bt.Name = "資料庫選擇1_bt"
+        Me.資料庫選擇1_bt.Size = New System.Drawing.Size(75, 26)
+        Me.資料庫選擇1_bt.TabIndex = 588
+        Me.資料庫選擇1_bt.Text = "VIONIC"
+        Me.資料庫選擇1_bt.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Label38)
+        Me.Panel1.Controls.Add(Me.圖片資料庫管理_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(525, 122)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(205, 303)
+        Me.Panel1.TabIndex = 1635
+        '
+        'Label38
+        '
+        Me.Label38.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label38.AutoSize = True
+        Me.Label38.ForeColor = System.Drawing.Color.Black
+        Me.Label38.Location = New System.Drawing.Point(11, 10)
+        Me.Label38.Name = "Label38"
+        Me.Label38.Size = New System.Drawing.Size(176, 16)
+        Me.Label38.TabIndex = 708
+        Me.Label38.Text = "起先選擇要開啟哪個圖片資料庫"
+        '
+        '圖片資料庫管理_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
+        Me.圖片資料庫管理_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.圖片資料庫管理_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.圖片資料庫管理_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片資料庫管理_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.圖片資料庫管理_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.圖片資料庫管理_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.圖片資料庫管理_dgv.Name = "圖片資料庫管理_dgv"
+        Me.圖片資料庫管理_dgv.RowHeadersWidth = 5
+        Me.圖片資料庫管理_dgv.RowTemplate.Height = 24
+        Me.圖片資料庫管理_dgv.Size = New System.Drawing.Size(195, 269)
+        Me.圖片資料庫管理_dgv.TabIndex = 707
+        '
+        '重選資料庫_bt
+        '
+        Me.重選資料庫_bt.Location = New System.Drawing.Point(871, 4)
+        Me.重選資料庫_bt.Name = "重選資料庫_bt"
+        Me.重選資料庫_bt.Size = New System.Drawing.Size(85, 26)
+        Me.重選資料庫_bt.TabIndex = 1636
+        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(1254, 547)
+        Me.Controls.Add(Me.重選資料庫_bt)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.資料庫選擇2_bt)
+        Me.Controls.Add(Me.資料庫選擇1_bt)
         Me.Controls.Add(Me.重新配對_bt)
         Me.Controls.Add(Me.驗貨報告編號_tb)
         Me.Controls.Add(Me.驗貨報告編號_lb)
@@ -148,6 +235,9 @@ Partial Class 驗貨報告資料庫修正
         Me.Text = "驗貨報告資料庫修正"
         CType(Me.驗貨報告圖庫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.訂單控制表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -162,4 +252,10 @@ Partial Class 驗貨報告資料庫修正
     Friend WithEvents 驗貨報告編號_tb As TextBox
     Friend WithEvents 驗貨報告編號_lb As Label
     Friend WithEvents 重新配對_bt As Button
+    Friend WithEvents 資料庫選擇2_bt As Button
+    Friend WithEvents 資料庫選擇1_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label38 As Label
+    Friend WithEvents 圖片資料庫管理_dgv As DataGridView
+    Friend WithEvents 重選資料庫_bt As Button
 End Class

TENDEN-MES-SYS/圖片資料庫管理/驗貨報告系統/驗貨報告資料庫修正.vb

@@ -1,6 +1,15 @@
 Option Strict Off
 Public Class 驗貨報告資料庫修正
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Private Sub Set_工程圖片資料庫狀態()
+        Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
+        圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫管理_dgv.ColumnHeadersHeight = 25
+        圖片資料庫管理_dgv.AllowUserToAddRows = False
+        SQL_圖片資料庫管理查詢()
+        da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).Visible = False
+    End Sub
     Private Sub Set_清單1()
         Try
             驗貨報告圖庫_dgv.DataSource = Nothing : ds.Clear()
@@ -27,13 +36,17 @@ Public Class 驗貨報告資料庫修正
         End Try
     End Sub
     Private Sub 驗貨報告資料庫修正_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Set_清單1()
+        Set_工程圖片資料庫狀態() : SQL_訂單資料表選擇_VIONIC()
+    End Sub
+    Private Sub 圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            PA1 = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : Set_清單1() : Panel1.Visible = False
+        End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
+    Private Sub 驗貨報告圖庫_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗貨報告圖庫_dgv.CellClick
         Try
             If e.RowIndex = -1 Then : Else
-                型體名稱_tb.Text = 驗貨報告圖庫_dgv(1, e.RowIndex).Value.ToString
-                驗貨報告編號_tb.Text = 驗貨報告圖庫_dgv(2, e.RowIndex).Value.ToString
+                型體名稱_tb.Text = 驗貨報告圖庫_dgv(1, e.RowIndex).Value.ToString : 驗貨報告編號_tb.Text = 驗貨報告圖庫_dgv(2, e.RowIndex).Value.ToString
                 客戶訂單號_tb.Text = 驗貨報告圖庫_dgv(0, e.RowIndex).Value.ToString
                 Set_清單2()
             End If
@@ -41,10 +54,10 @@ Public Class 驗貨報告資料庫修正
             MsgBox(ex.Message)
         End Try
     End Sub
-    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles 客戶訂單號_tb.TextChanged
+    Private Sub 客戶訂單號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶訂單號_tb.TextChanged
         Set_清單1()
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新配對_bt.Click
+    Private Sub 重新配對_bt_Click(sender As Object, e As EventArgs) Handles 重新配對_bt.Click
         Try
             For i As Integer = 0 To 訂單控制表_dgv.Rows.Count - 1
                 PA = 訂單控制表_dgv.Rows(i).Cells("客戶訂單號").Value : PA1 = 訂單控制表_dgv.Rows(i).Cells("形體號").Value
@@ -55,4 +68,14 @@ Public Class 驗貨報告資料庫修正
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
+        SQL_訂單資料表選擇_VIONIC() : Set_清單2()
+    End Sub
+
+    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
+        SQL_訂單資料表選擇_非VIONIC() : Set_清單2()
+    End Sub
+    Private Sub 重選資料庫_bt_Click(sender As Object, e As EventArgs) Handles 重選資料庫_bt.Click
+        Panel1.Visible = True
+    End Sub
 End Class

TENDEN-MES-SYS/天盾系統.vbproj

@@ -99,10 +99,12 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Module\DGV進度條.vb" />
     <Compile Include="Module\SQL_Module.vb" />
     <Compile Include="Module\SQL_人事系統管理.vb" />
     <Compile Include="Module\SQL_成本系統管理.vb" />
     <Compile Include="Module\SQL_資料庫系統管理.vb" />
+    <Compile Include="Module\SQL_連線字串.vb" />
     <Compile Include="Module\SQL_連線狀態模組.vb" />
     <Compile Include="Module\SQL_量產訂單資料庫切換.vb" />
     <Compile Include="Module\SQL_圖片資料庫管理.vb" />
@@ -112,6 +114,18 @@
     <Compile Include="Module\SQL_財務系統管理.vb" />
     <Compile Include="Module\SQL_量產樣品單系統.vb" />
     <Compile Include="Module\SQL_量產訂單系統.vb" />
+    <Compile Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片導入資料庫.Designer.vb">
+      <DependentUpon>包裝資料圖片導入資料庫.vb</DependentUpon>
+    </Compile>
+    <Compile Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片導入資料庫.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片資料庫.Designer.vb">
+      <DependentUpon>包裝資料圖片資料庫.vb</DependentUpon>
+    </Compile>
+    <Compile Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片資料庫.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="彙總報表管理\特殊工具\力威發票明細轉換工具.Designer.vb">
       <DependentUpon>力威發票明細轉換工具.vb</DependentUpon>
     </Compile>
@@ -142,6 +156,12 @@
     <Compile Include="資料庫系統管理\下拉清單_1.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="資料庫系統管理\系統編碼原則.Designer.vb">
+      <DependentUpon>系統編碼原則.vb</DependentUpon>
+    </Compile>
+    <Compile Include="資料庫系統管理\系統編碼原則.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="量產訂單管理\資料庫管理\業務資料日期除錯.Designer.vb">
       <DependentUpon>業務資料日期除錯.vb</DependentUpon>
     </Compile>
@@ -755,6 +775,12 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片導入資料庫.resx">
+      <DependentUpon>包裝資料圖片導入資料庫.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="圖片資料庫管理\包裝圖片系統\包裝資料圖片資料庫.resx">
+      <DependentUpon>包裝資料圖片資料庫.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="彙總報表管理\特殊工具\力威發票明細轉換工具.resx">
       <DependentUpon>力威發票明細轉換工具.vb</DependentUpon>
     </EmbeddedResource>
@@ -770,6 +796,9 @@
     <EmbeddedResource Include="資料庫系統管理\下拉清單_1.resx">
       <DependentUpon>下拉清單_1.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="資料庫系統管理\系統編碼原則.resx">
+      <DependentUpon>系統編碼原則.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="量產訂單管理\資料庫管理\業務資料日期除錯.resx">
       <DependentUpon>業務資料日期除錯.vb</DependentUpon>
     </EmbeddedResource>

TENDEN-MES-SYS/製鞋技術資料管理/STYLE_資料管理.Designer.vb

@@ -79,6 +79,12 @@ Partial Class STYLE_資料管理
         Me.Label16 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.包裝資訊_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.包裝資料_pb = New System.Windows.Forms.PictureBox()
+        Me.CanceL3_bt = New System.Windows.Forms.Button()
         CType(Me.STYLE_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.项目编号清单_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.订单形體號清单_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -88,6 +94,9 @@ Partial Class STYLE_資料管理
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'STYLE_dgv
@@ -171,7 +180,7 @@ Partial Class STYLE_資料管理
         '
         Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.新增_bt.ForeColor = System.Drawing.Color.Blue
-        Me.新增_bt.Location = New System.Drawing.Point(603, 53)
+        Me.新增_bt.Location = New System.Drawing.Point(599, 53)
         Me.新增_bt.Name = "新增_bt"
         Me.新增_bt.Size = New System.Drawing.Size(105, 48)
         Me.新增_bt.TabIndex = 339
@@ -182,7 +191,7 @@ Partial Class STYLE_資料管理
         '
         Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.修改_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.修改_bt.Location = New System.Drawing.Point(709, 53)
+        Me.修改_bt.Location = New System.Drawing.Point(703, 53)
         Me.修改_bt.Name = "修改_bt"
         Me.修改_bt.Size = New System.Drawing.Size(105, 48)
         Me.修改_bt.TabIndex = 340
@@ -193,9 +202,9 @@ Partial Class STYLE_資料管理
         '
         Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除_bt.Location = New System.Drawing.Point(815, 53)
+        Me.刪除_bt.Location = New System.Drawing.Point(730, 2)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(105, 48)
+        Me.刪除_bt.Size = New System.Drawing.Size(182, 48)
         Me.刪除_bt.TabIndex = 341
         Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
@@ -204,7 +213,7 @@ Partial Class STYLE_資料管理
         '
         Me.查詢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.查詢_bt.ForeColor = System.Drawing.Color.Black
-        Me.查詢_bt.Location = New System.Drawing.Point(497, 53)
+        Me.查詢_bt.Location = New System.Drawing.Point(495, 53)
         Me.查詢_bt.Name = "查詢_bt"
         Me.查詢_bt.Size = New System.Drawing.Size(105, 48)
         Me.查詢_bt.TabIndex = 343
@@ -276,10 +285,10 @@ Partial Class STYLE_資料管理
         '
         Me.更新分析資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.更新分析資料_bt.ForeColor = System.Drawing.Color.Blue
-        Me.更新分析資料_bt.Location = New System.Drawing.Point(732, 4)
+        Me.更新分析資料_bt.Location = New System.Drawing.Point(1240, 1)
         Me.更新分析資料_bt.Name = "更新分析資料_bt"
         Me.更新分析資料_bt.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.更新分析資料_bt.Size = New System.Drawing.Size(188, 48)
+        Me.更新分析資料_bt.Size = New System.Drawing.Size(60, 100)
         Me.更新分析資料_bt.TabIndex = 376
         Me.更新分析資料_bt.Text = "更新分析資料"
         Me.更新分析資料_bt.UseVisualStyleBackColor = True
@@ -605,7 +614,7 @@ Partial Class STYLE_資料管理
         '
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox1.Location = New System.Drawing.Point(921, 2)
+        Me.PictureBox1.Location = New System.Drawing.Point(914, 2)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(160, 99)
         Me.PictureBox1.TabIndex = 1659
@@ -615,17 +624,83 @@ Partial Class STYLE_資料管理
         '
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox2.Location = New System.Drawing.Point(1084, 2)
+        Me.PictureBox2.Location = New System.Drawing.Point(1077, 2)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(160, 99)
         Me.PictureBox2.TabIndex = 1660
         Me.PictureBox2.TabStop = False
         '
+        '包裝資訊_bt
+        '
+        Me.包裝資訊_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.包裝資訊_bt.ForeColor = System.Drawing.Color.Black
+        Me.包裝資訊_bt.Location = New System.Drawing.Point(807, 53)
+        Me.包裝資訊_bt.Name = "包裝資訊_bt"
+        Me.包裝資訊_bt.Size = New System.Drawing.Size(105, 48)
+        Me.包裝資訊_bt.TabIndex = 1661
+        Me.包裝資訊_bt.Text = "讀取包裝" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "資訊圖片"
+        Me.包裝資訊_bt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.Label18)
+        Me.Panel2.Controls.Add(Me.Panel3)
+        Me.Panel2.Controls.Add(Me.CanceL3_bt)
+        Me.Panel2.Location = New System.Drawing.Point(80, 161)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1188, 399)
+        Me.Panel2.TabIndex = 1662
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(7, 8)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(80, 16)
+        Me.Label18.TabIndex = 1377
+        Me.Label18.Text = "包裝資訊圖片"
+        '
+        'Panel3
+        '
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.包裝資料_pb)
+        Me.Panel3.Location = New System.Drawing.Point(3, 31)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1180, 363)
+        Me.Panel3.TabIndex = 1376
+        '
+        '包裝資料_pb
+        '
+        Me.包裝資料_pb.BackColor = System.Drawing.Color.White
+        Me.包裝資料_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.包裝資料_pb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.包裝資料_pb.Location = New System.Drawing.Point(-1, -1)
+        Me.包裝資料_pb.Name = "包裝資料_pb"
+        Me.包裝資料_pb.Size = New System.Drawing.Size(1179, 362)
+        Me.包裝資料_pb.TabIndex = 1660
+        Me.包裝資料_pb.TabStop = False
+        '
+        'CanceL3_bt
+        '
+        Me.CanceL3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL3_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL3_bt.Location = New System.Drawing.Point(1157, 3)
+        Me.CanceL3_bt.Name = "CanceL3_bt"
+        Me.CanceL3_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL3_bt.TabIndex = 1375
+        Me.CanceL3_bt.Text = "X"
+        Me.CanceL3_bt.UseVisualStyleBackColor = False
+        '
         'STYLE_資料管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1485, 701)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.包裝資訊_bt)
         Me.Controls.Add(Me.PictureBox2)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.WT清空_bt)
@@ -680,6 +755,10 @@ Partial Class STYLE_資料管理
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -737,5 +816,11 @@ Partial Class STYLE_資料管理
     Friend WithEvents Label16 As Label
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents 包裝資訊_bt As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label18 As Label
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents CanceL3_bt As Button
+    Friend WithEvents 包裝資料_pb As PictureBox
 End Class
 

TENDEN-MES-SYS/製鞋技術資料管理/STYLE_資料管理.vb

@@ -31,7 +31,7 @@ Public Class STYLE_資料管理
         Try
             STYLE_dgv.Columns(0).FillWeight = 70 : STYLE_dgv.Columns(1).Visible = False : STYLE_dgv.Columns(2).FillWeight = 180 : STYLE_dgv.Columns(3).FillWeight = 80
             STYLE_dgv.Columns(4).FillWeight = 80 : STYLE_dgv.Columns(5).FillWeight = 220 : STYLE_dgv.Columns(6).Visible = False : STYLE_dgv.Columns(7).FillWeight = 60
-            STYLE_dgv.Columns(8).FillWeight = 60 : STYLE_dgv.Columns(9).FillWeight = 90
+            STYLE_dgv.Columns(8).FillWeight = 60 : STYLE_dgv.Columns(9).FillWeight = 90 : STYLE_dgv.Columns("包裝圖號").Visible = False : STYLE_dgv.Columns("包裝圖庫").Visible = False
             STYLE_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : STYLE_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
             STYLE_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             STYLE_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -159,7 +159,7 @@ Public Class STYLE_資料管理
     Private Sub TENDENZA_STYLE_資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            日期_dtp.Visible = False
+            日期_dtp.Visible = False : Panel2.Visible = False
             Set_TENDENZASTYLE清單() : Set_grid1()
             Set_清單1() : Set_grid3() : Set_清單2() : Set_grid4() : Set_清單3() : Set_grid5()
             型體數1_tb.Text = 订单形體號清单_dgv.Rows.Count : 型體數2_tb.Text = 订单形體號清单1_dgv.Rows.Count : 型體數3_tb.Text = 订单形體號清单2_dgv.Rows.Count
@@ -247,7 +247,8 @@ Public Class STYLE_資料管理
         Try
             形體名稱_tb.Text = STYLE_dgv(1, e.RowIndex).Value.ToString : 项目编号_tb.Text = STYLE_dgv(3, e.RowIndex).Value.ToString
             形體號_bt.Text = STYLE_dgv(4, e.RowIndex).Value.ToString : 描述_tb.Text = STYLE_dgv(5, e.RowIndex).Value.ToString
-            季節_bt.Text = STYLE_dgv(0, e.RowIndex).Value.ToString
+            季節_bt.Text = STYLE_dgv(0, e.RowIndex).Value.ToString : PA20 = STYLE_dgv("包裝圖庫", e.RowIndex).Value.ToString
+            PA2 = STYLE_dgv("包裝圖號", e.RowIndex).Value.ToString
             If STYLE_dgv("T1", e.RowIndex).Value.ToString = "" Or STYLE_dgv("T1", e.RowIndex).Value.ToString = " " Then
                 T1_dtp.Format = DateTimePickerFormat.Custom : T1_dtp.CustomFormat = " "
             Else : T1_dtp.Format = DateTimePickerFormat.Short : T1_dtp.Value = STYLE_dgv("T1", e.RowIndex).Value.ToString : End If
@@ -557,4 +558,19 @@ Public Class STYLE_資料管理
     Private Sub T4_dtp_ValueChanged(sender As Object, e As EventArgs) Handles T4_dtp.MouseDown
         T4_dtp.Format = DateTimePickerFormat.Short
     End Sub
+    Private Sub CanceL3_bt_Click(sender As Object, e As EventArgs) Handles CanceL3_bt.Click
+        Panel2.Visible = False
+    End Sub
+    Private Sub 包裝資訊_bt_Click(sender As Object, e As EventArgs) Handles 包裝資訊_bt.Click
+        If PA20 = "" Or PA2 = "" Then
+            MsgBox("沒有包裝資訊圖!!!")
+        Else
+            Panel2.Visible = True : PA1 = PA20
+            SQL_包裝圖片() : 包裝資料_pb.Image = Nothing
+            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 : 圖片傳遞 = 包裝資料_pb.Image
+        End If
+    End Sub
 End Class

TENDEN-MES-SYS/資料庫系統管理/系統編碼原則.Designer.vb

@@ -0,0 +1,246 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 系統編碼原則
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.圖片資料庫管理修改_bt = New System.Windows.Forms.Button()
+        Me.圖片資料庫名稱_lb = New System.Windows.Forms.Label()
+        Me.圖片資料庫名稱_tb = New System.Windows.Forms.TextBox()
+        Me.圖片資料庫管理_dgv = New System.Windows.Forms.DataGridView()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.伺服器_lb = New System.Windows.Forms.Label()
+        Me.MAX_nud = New System.Windows.Forms.NumericUpDown()
+        Me.伺服器狀態_dgv = New System.Windows.Forms.DataGridView()
+        Me.是否可用_ch = New System.Windows.Forms.CheckBox()
+        Me.LOG檔截斷3_bt = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.資料庫清單1_dgv = New System.Windows.Forms.DataGridView()
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.伺服器狀態_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '圖片資料庫管理修改_bt
+        '
+        Me.圖片資料庫管理修改_bt.Location = New System.Drawing.Point(935, 297)
+        Me.圖片資料庫管理修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.圖片資料庫管理修改_bt.Name = "圖片資料庫管理修改_bt"
+        Me.圖片資料庫管理修改_bt.Size = New System.Drawing.Size(386, 31)
+        Me.圖片資料庫管理修改_bt.TabIndex = 710
+        Me.圖片資料庫管理修改_bt.Text = "修改"
+        '
+        '圖片資料庫名稱_lb
+        '
+        Me.圖片資料庫名稱_lb.AutoSize = True
+        Me.圖片資料庫名稱_lb.BackColor = System.Drawing.SystemColors.Control
+        Me.圖片資料庫名稱_lb.Location = New System.Drawing.Point(934, 5)
+        Me.圖片資料庫名稱_lb.Name = "圖片資料庫名稱_lb"
+        Me.圖片資料庫名稱_lb.Size = New System.Drawing.Size(92, 16)
+        Me.圖片資料庫名稱_lb.TabIndex = 708
+        Me.圖片資料庫名稱_lb.Text = "圖片資料庫名稱"
+        '
+        '圖片資料庫名稱_tb
+        '
+        Me.圖片資料庫名稱_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.圖片資料庫名稱_tb.Location = New System.Drawing.Point(1026, 2)
+        Me.圖片資料庫名稱_tb.Margin = New System.Windows.Forms.Padding(5)
+        Me.圖片資料庫名稱_tb.Name = "圖片資料庫名稱_tb"
+        Me.圖片資料庫名稱_tb.Size = New System.Drawing.Size(212, 23)
+        Me.圖片資料庫名稱_tb.TabIndex = 707
+        '
+        '圖片資料庫管理_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.White
+        Me.圖片資料庫管理_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.圖片資料庫管理_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.圖片資料庫管理_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.圖片資料庫管理_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.圖片資料庫管理_dgv.Location = New System.Drawing.Point(936, 27)
+        Me.圖片資料庫管理_dgv.Name = "圖片資料庫管理_dgv"
+        Me.圖片資料庫管理_dgv.RowHeadersWidth = 5
+        Me.圖片資料庫管理_dgv.RowTemplate.Height = 24
+        Me.圖片資料庫管理_dgv.Size = New System.Drawing.Size(385, 269)
+        Me.圖片資料庫管理_dgv.TabIndex = 706
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.重新讀取_bt.Location = New System.Drawing.Point(856, 3)
+        Me.重新讀取_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(72, 23)
+        Me.重新讀取_bt.TabIndex = 705
+        Me.重新讀取_bt.Text = "重新讀取"
+        '
+        '伺服器_lb
+        '
+        Me.伺服器_lb.AutoSize = True
+        Me.伺服器_lb.BackColor = System.Drawing.SystemColors.Control
+        Me.伺服器_lb.Location = New System.Drawing.Point(536, 6)
+        Me.伺服器_lb.Name = "伺服器_lb"
+        Me.伺服器_lb.Size = New System.Drawing.Size(230, 16)
+        Me.伺服器_lb.TabIndex = 704
+        Me.伺服器_lb.Text = "伺服器中資料庫極限容量監控設定值 (MB)"
+        '
+        'MAX_nud
+        '
+        Me.MAX_nud.Location = New System.Drawing.Point(772, 3)
+        Me.MAX_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.MAX_nud.Name = "MAX_nud"
+        Me.MAX_nud.Size = New System.Drawing.Size(83, 23)
+        Me.MAX_nud.TabIndex = 703
+        Me.MAX_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.MAX_nud.ThousandsSeparator = True
+        Me.MAX_nud.Value = New Decimal(New Integer() {5000, 0, 0, 0})
+        '
+        '伺服器狀態_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
+        Me.伺服器狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.伺服器狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.伺服器狀態_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.伺服器狀態_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.伺服器狀態_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.伺服器狀態_dgv.Location = New System.Drawing.Point(6, 27)
+        Me.伺服器狀態_dgv.Name = "伺服器狀態_dgv"
+        Me.伺服器狀態_dgv.RowHeadersWidth = 5
+        Me.伺服器狀態_dgv.RowTemplate.Height = 24
+        Me.伺服器狀態_dgv.Size = New System.Drawing.Size(924, 301)
+        Me.伺服器狀態_dgv.TabIndex = 688
+        '
+        '是否可用_ch
+        '
+        Me.是否可用_ch.AutoSize = True
+        Me.是否可用_ch.Location = New System.Drawing.Point(1246, 6)
+        Me.是否可用_ch.Name = "是否可用_ch"
+        Me.是否可用_ch.Size = New System.Drawing.Size(75, 20)
+        Me.是否可用_ch.TabIndex = 709
+        Me.是否可用_ch.Text = "是否鎖定"
+        Me.是否可用_ch.UseVisualStyleBackColor = True
+        '
+        'LOG檔截斷3_bt
+        '
+        Me.LOG檔截斷3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.LOG檔截斷3_bt.Location = New System.Drawing.Point(67, 332)
+        Me.LOG檔截斷3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.LOG檔截斷3_bt.Name = "LOG檔截斷3_bt"
+        Me.LOG檔截斷3_bt.Size = New System.Drawing.Size(123, 23)
+        Me.LOG檔截斷3_bt.TabIndex = 1505
+        Me.LOG檔截斷3_bt.Text = "LOG檔截斷"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.SystemColors.Control
+        Me.Label3.Location = New System.Drawing.Point(9, 335)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.TabIndex = 1504
+        Me.Label3.Text = "主伺服器"
+        '
+        '資料庫清單1_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
+        Me.資料庫清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.資料庫清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.資料庫清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.資料庫清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.資料庫清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.資料庫清單1_dgv.Location = New System.Drawing.Point(6, 357)
+        Me.資料庫清單1_dgv.Name = "資料庫清單1_dgv"
+        Me.資料庫清單1_dgv.RowHeadersWidth = 5
+        Me.資料庫清單1_dgv.RowTemplate.Height = 24
+        Me.資料庫清單1_dgv.Size = New System.Drawing.Size(184, 198)
+        Me.資料庫清單1_dgv.TabIndex = 1506
+        '
+        '系統編碼原則
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1333, 706)
+        Me.Controls.Add(Me.資料庫清單1_dgv)
+        Me.Controls.Add(Me.LOG檔截斷3_bt)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.伺服器狀態_dgv)
+        Me.Controls.Add(Me.圖片資料庫管理修改_bt)
+        Me.Controls.Add(Me.圖片資料庫名稱_lb)
+        Me.Controls.Add(Me.圖片資料庫名稱_tb)
+        Me.Controls.Add(Me.圖片資料庫管理_dgv)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.伺服器_lb)
+        Me.Controls.Add(Me.MAX_nud)
+        Me.Controls.Add(Me.是否可用_ch)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "系統編碼原則"
+        Me.Text = "系統編碼原則"
+        CType(Me.圖片資料庫管理_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.伺服器狀態_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 圖片資料庫管理修改_bt As Button
+    Friend WithEvents 圖片資料庫名稱_lb As Label
+    Friend WithEvents 圖片資料庫名稱_tb As TextBox
+    Friend WithEvents 圖片資料庫管理_dgv As DataGridView
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 伺服器_lb As Label
+    Friend WithEvents MAX_nud As NumericUpDown
+    Friend WithEvents 伺服器狀態_dgv As DataGridView
+    Friend WithEvents 是否可用_ch As CheckBox
+    Friend WithEvents LOG檔截斷3_bt As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 資料庫清單1_dgv As DataGridView
+End Class

TENDEN-MES-SYS/資料庫系統管理/系統編碼原則.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

TENDEN-MES-SYS/資料庫系統管理/系統編碼原則.vb

@@ -0,0 +1,96 @@
+Public Class 系統編碼原則
+    Private Sub Set_工程圖片資料庫狀態()
+        Dim ds9 As New DataSet : 圖片資料庫管理_dgv.DataSource = Nothing : ds9.Clear()
+        圖片資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        圖片資料庫管理_dgv.ColumnHeadersHeight = 25
+        圖片資料庫管理_dgv.AllowUserToAddRows = False
+        SQL_圖片資料庫管理查詢()
+        da.Fill(ds9) : 圖片資料庫管理_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        圖片資料庫管理_dgv.Columns(0).FillWeight = 100 : 圖片資料庫管理_dgv.Columns(1).FillWeight = 30
+    End Sub
+    Private Sub Set_伺服器1清單()
+        Try
+            Dim ds8 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds8.Clear()
+            資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+            資料庫清單1_dgv.ColumnHeadersHeight = 25
+            資料庫清單1_dgv.AllowUserToAddRows = False
+            SQL_伺服器1清單()
+            da.Fill(ds8) : 資料庫清單1_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+    Private Sub Set_伺服器狀態()
+        Dim ds8 As New DataSet : 伺服器狀態_dgv.DataSource = Nothing : ds8.Clear()
+        伺服器狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        伺服器狀態_dgv.ColumnHeadersHeight = 25
+        伺服器狀態_dgv.AllowUserToAddRows = False
+        SQL_資料庫狀態()
+        da.Fill(ds8) : 伺服器狀態_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        Set_進度條顯示()
+        伺服器狀態_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
+        伺服器狀態_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        伺服器狀態_dgv.Columns(0).FillWeight = 120 : 伺服器狀態_dgv.Columns(1).FillWeight = 180
+        伺服器狀態_dgv.Columns(2).FillWeight = 55 : 伺服器狀態_dgv.Columns(3).FillWeight = 70
+        伺服器狀態_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_進度條顯示()
+        Dim Col As New DataGridViewProgressColumn With {
+            .FillWeight = 100,
+            .DataPropertyName = "容量"
+        }
+        Col.HeaderText = "使用容量" : Col.Name = "容量" : Col.DataPropertyName = "使用容量"
+        伺服器狀態_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub 系統編碼原則_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        SQL_系統預設值()
+        If dr.Read() Then
+            MAX_nud.Value = dr("圖片伺服器上限") : 分母 = dr("圖片伺服器上限")
+        End If
+        Set_伺服器狀態() : Set_工程圖片資料庫狀態() : Set_伺服器1清單()
+    End Sub
+    Private Sub 伺服器狀態_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 伺服器狀態_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            圖片資料庫名稱_tb.Text = 伺服器狀態_dgv(0, e.RowIndex).Value.ToString : 是否可用_ch.Checked = False
+        End If
+    End Sub
+    Private Sub 圖片資料庫管理_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片資料庫管理_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            圖片資料庫名稱_tb.Text = 圖片資料庫管理_dgv(0, e.RowIndex).Value.ToString : 是否可用_ch.Checked = 圖片資料庫管理_dgv(1, e.RowIndex).Value
+        End If
+    End Sub
+    Private Sub 伺服器狀態_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 伺服器狀態_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 伺服器狀態_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 伺服器狀態_dgv(0, e.RowIndex).Value.ToString <> 伺服器狀態_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(伺服器狀態_dgv.RowHeadersVisible, 伺服器狀態_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 伺服器狀態_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 伺服器狀態_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        SQL_系統預測值修改() : 分母 = MAX_nud.Value : 圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
+    End Sub
+    Private Sub 圖片資料庫管理修改_bt_Click(sender As Object, e As EventArgs) Handles 圖片資料庫管理修改_bt.Click
+        SQL_圖片資料庫管理查詢1()
+        If dr.Read() Then
+            SQL_工程圖片資料庫管理查詢修改()
+        Else
+            SQL_工程圖片資料庫管理查詢新增()
+        End If : Set_工程圖片資料庫狀態() : MsgBox("修改完成!!!")
+    End Sub
+    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
+        For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
+            PA = 資料庫清單1_dgv(0, I).Value.ToString : SQL_主資料庫LOG檔案截斷()
+        Next
+        重新讀取_bt.PerformClick()
+    End Sub
+End Class

TENDEN-MES-SYS/量產訂單管理/量產管理報表/出貨明細表.vb

@@ -9,20 +9,11 @@ Public Class 出貨明細表
             訂單明細表_dgv.ColumnHeadersHeight = 25
             訂單明細表_dgv.AllowUserToAddRows = False
             ConnOpen()
-            If PA = "" Then
-                SQL_出貨明細表()
-            Else
-                SQL_出貨明細表1()
-            End If
+            If PA = "" Then : SQL_出貨明細表() : Else : SQL_出貨明細表1() : End If
             列印用SQL = SQL1
             CmdSet_For_DGV()
-            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單明細表_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-    Private Sub Set_grid()
-        Try
+            da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
             訂單明細表_dgv.Columns(0).Visible = False : 訂單明細表_dgv.Columns(1).FillWeight = 75 : 訂單明細表_dgv.Columns(2).FillWeight = 60 : 訂單明細表_dgv.Columns(3).FillWeight = 120
             訂單明細表_dgv.Columns(4).FillWeight = 150 : 訂單明細表_dgv.Columns(5).FillWeight = 130 : 訂單明細表_dgv.Columns(6).FillWeight = 60
 
@@ -36,7 +27,7 @@ Public Class 出貨明細表
 
             訂單明細表_dgv.Columns(9).Visible = False : 訂單明細表_dgv.Columns(10).FillWeight = 80 : 訂單明細表_dgv.Columns(11).FillWeight = 80 : 訂單明細表_dgv.Columns(12).FillWeight = 80
             訂單明細表_dgv.Columns(13).FillWeight = 80 : 訂單明細表_dgv.Columns(14).FillWeight = 80 : 訂單明細表_dgv.Columns(15).Visible = False
-            訂單明細表_dgv.Columns(16).Visible = False : 訂單明細表_dgv.Columns(17).Visible = False
+            訂單明細表_dgv.Columns(16).Visible = False : 訂單明細表_dgv.Columns(17).Visible = False : 訂單明細表_dgv.Columns(18).Visible = False
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -131,16 +122,13 @@ Public Class 出貨明細表
     Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單明細表_dgv.CellClick
         Try
             If e.RowIndex = -1 Then : Else
-                驗貨報告編號_tb.Text = 訂單明細表_dgv(1, e.RowIndex).Value.ToString
-                明細是否建檔_cb.Checked = 訂單明細表_dgv(15, e.RowIndex).Value.ToString
-                天盾訂單號_tb.Text = 訂單明細表_dgv("訂單流水號", e.RowIndex).Value.ToString
-                客戶訂單號_tb.Text = 訂單明細表_dgv("客戶訂單號", e.RowIndex).Value.ToString
+                驗貨報告編號_tb.Text = 訂單明細表_dgv(1, e.RowIndex).Value.ToString : 明細是否建檔_cb.Checked = 訂單明細表_dgv(15, e.RowIndex).Value.ToString
+                天盾訂單號_tb.Text = 訂單明細表_dgv("訂單流水號", e.RowIndex).Value.ToString : 客戶訂單號_tb.Text = 訂單明細表_dgv("客戶訂單號", e.RowIndex).Value.ToString
+
                 If 明細是否建檔_cb.Checked = False Then : 開啟訂單明細表_bt.Enabled = False : Else : 開啟訂單明細表_bt.Enabled = True : End If
-                PA = 訂單明細表_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString
-                PA2 = 訂單明細表_dgv(5, e.RowIndex).Value.ToString
+                PA = 訂單明細表_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv(5, e.RowIndex).Value.ToString
                 If 訂單明細表_dgv(5, e.RowIndex).Value = "" Then
-                    SQL_讀取訂單明細表圖片()
-                    驗貨報告_pb.Image = Nothing
+                    SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
                     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)
@@ -148,15 +136,13 @@ Public Class 出貨明細表
                 Else
                     SQL_讀取訂單明細表圖片1()
                     If dr.Read() Then
-                        SQL_讀取訂單明細表圖片1()
-                        驗貨報告_pb.Image = Nothing
+                        SQL_讀取訂單明細表圖片1() : 驗貨報告_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused2 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
                     Else
-                        SQL_讀取訂單明細表圖片()
-                        驗貨報告_pb.Image = Nothing
+                        SQL_讀取訂單明細表圖片() : 驗貨報告_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                             Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
@@ -164,16 +150,17 @@ Public Class 出貨明細表
                     End If
                 End If
                 conn.Close() : 驗貨報告_pb.SizeMode = 4
-                SQL_讀取訂單明細表圖片2()
-                驗貨報告圖庫_pb.Image = Nothing
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+
+                PA1 = 訂單明細表_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單明細表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                SQL_讀取訂單明細表圖片2() : 驗貨報告圖庫_pb.Image = Nothing
                 While dr.Read() = True
                     Dim unused3 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
+                conn.Close() : 驗貨報告圖庫_pb.SizeMode = 4 : 圖片傳遞 = 驗貨報告圖庫_pb.Image
 
-                驗貨報告 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString
-                Set_訂單明細()
+                驗貨報告 = 訂單明細表_dgv(16, e.RowIndex).Value.ToString : Set_訂單明細()
             End If
         Catch ex As Exception
             MsgBox(ex.Message)

TENDEN-MES-SYS/量產訂單管理/量產管理報表/周進度表.vb

@@ -12,14 +12,7 @@ Public Class 周進度表
             訂單種類_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
             訂單種類_dgv.ColumnHeadersHeight = 25
             訂單種類_dgv.AllowUserToAddRows = False
-
-            ConnOpen()
-            If PA = "" Then
-                SQL_讀取周進度表()
-            Else
-                SQL_讀取周進度表1()
-            End If
-            CmdSet_For_DGV()
+            ConnOpen() : If PA = "" Then : SQL_讀取周進度表() : Else : SQL_讀取周進度表1() : End If : CmdSet_For_DGV()
             da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單種類_dgv.DataSource = ds.Tables(0) : conn.Close()
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -31,17 +24,13 @@ Public Class 周進度表
             訂單種類_dgv.Columns(4).FillWeight = 200 : 訂單種類_dgv.Columns(5).FillWeight = 130 : 訂單種類_dgv.Columns(6).FillWeight = 55 : 訂單種類_dgv.Columns(7).FillWeight = 55
             訂單種類_dgv.Columns(8).FillWeight = 90 : 訂單種類_dgv.Columns(9).FillWeight = 80 : 訂單種類_dgv.Columns(10).FillWeight = 80 : 訂單種類_dgv.Columns(11).FillWeight = 75
             訂單種類_dgv.Columns(12).FillWeight = 75 : 訂單種類_dgv.Columns(13).FillWeight = 75 : 訂單種類_dgv.Columns(14).FillWeight = 150 : 訂單種類_dgv.Columns(15).FillWeight = 152
-            訂單種類_dgv.Columns(16).Visible = False : 訂單種類_dgv.Columns(19).Visible = False
-            訂單種類_dgv.Columns(17).Visible = False
+            訂單種類_dgv.Columns(16).Visible = False : 訂單種類_dgv.Columns(19).Visible = False : 訂單種類_dgv.Columns(17).Visible = False : 訂單種類_dgv.Columns(20).Visible = False
             訂單種類_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
             訂單種類_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             訂單種類_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            訂單種類_dgv.Columns(1).DefaultCellStyle.BackColor = Color.MistyRose
-            訂單種類_dgv.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
-            訂單種類_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
-            訂單種類_dgv.Columns(10).DefaultCellStyle.BackColor = Color.MistyRose
-            訂單種類_dgv.Columns(14).DefaultCellStyle.BackColor = Color.MistyRose
-            訂單種類_dgv.Columns(15).DefaultCellStyle.BackColor = Color.MistyRose
+            訂單種類_dgv.Columns(1).DefaultCellStyle.BackColor = Color.MistyRose : 訂單種類_dgv.Columns(8).DefaultCellStyle.BackColor = Color.MistyRose
+            訂單種類_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose : 訂單種類_dgv.Columns(10).DefaultCellStyle.BackColor = Color.MistyRose
+            訂單種類_dgv.Columns(14).DefaultCellStyle.BackColor = Color.MistyRose : 訂單種類_dgv.Columns(15).DefaultCellStyle.BackColor = Color.MistyRose
             訂單種類_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -117,8 +106,7 @@ Public Class 周進度表
             If e.RowIndex = -1 Then : Else
                 If 訂單種類_dgv(5, e.RowIndex).Value = "" Then
                     PA = 訂單種類_dgv(4, e.RowIndex).Value.ToString
-                    SQL_讀取訂單種類圖片()
-                    圖片_pb.Image = Nothing
+                    SQL_讀取訂單種類圖片() : 圖片_pb.Image = Nothing
                     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)
@@ -128,16 +116,14 @@ Public Class 周進度表
                     SQL_讀取訂單種類圖片1()
                     If dr.Read() Then
                         PA1 = 訂單種類_dgv("TVW", e.RowIndex).Value.ToString : PA = 訂單種類_dgv(5, e.RowIndex).Value.ToString
-                        SQL_讀取訂單種類圖片1()
-                        圖片_pb.Image = Nothing
+                        SQL_讀取訂單種類圖片1() : 圖片_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused3 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
                     Else
                         PA1 = 訂單種類_dgv("TVW", e.RowIndex).Value.ToString
-                        SQL_讀取訂單種類圖片2()
-                        圖片_pb.Image = Nothing
+                        SQL_讀取訂單種類圖片2() : 圖片_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                             Dim oStream As New MemoryStream(bytes) : 圖片_pb.Image = Bitmap.FromStream(oStream)
@@ -145,15 +131,17 @@ Public Class 周進度表
                     End If
                 End If
                 conn.Close() : 圖片_pb.SizeMode = 4
-                PA3 = 訂單種類_dgv(17, e.RowIndex).Value.ToString
-                SQL_讀取訂單種類圖片3()
-                驗貨報告圖片_pb.Image = Nothing
-                While dr.Read() = True
-                    Dim unused2 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
 
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = 訂單種類_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單種類_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                If 訂單種類_dgv("驗報圖庫", e.RowIndex).Value.ToString = "" Then : 驗貨報告圖片_pb.Image = Nothing : Else
+                    SQL_讀取訂單種類圖片3() : 驗貨報告圖片_pb.Image = Nothing
+                    While dr.Read() = True
+                        Dim unused2 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
+                End If : 圖片傳遞 = 驗貨報告圖片_pb.Image
                 驗貨報告 = 訂單種類_dgv(17, e.RowIndex).Value.ToString
             End If
         Catch ex As Exception

TENDEN-MES-SYS/量產訂單管理/量產管理報表/周進度表T1_T4.vb

@@ -9,11 +9,7 @@ Public Class 周進度表T1_T4
             訂單清單_dgv.ColumnHeadersHeight = 25
             訂單清單_dgv.AllowUserToAddRows = False
             ConnOpen()
-            If PA = "" Then
-                SQL_讀取周進度表T1_T4()
-            Else
-                SQL_讀取周進度表T1_T4_1()
-            End If
+            If PA = "" Then : SQL_讀取周進度表T1_T4() : Else : SQL_讀取周進度表T1_T4_1() : End If
             CmdSet_For_DGV()
             da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 訂單清單_dgv.DataSource = ds.Tables(0) : conn.Close()
         Catch ex As Exception
@@ -27,7 +23,7 @@ Public Class 周進度表T1_T4
             訂單清單_dgv.Columns(8).FillWeight = 55 : 訂單清單_dgv.Columns(9).Visible = False : 訂單清單_dgv.Columns(10).FillWeight = 75 : 訂單清單_dgv.Columns(11).Visible = False
             訂單清單_dgv.Columns(12).FillWeight = 75 : 訂單清單_dgv.Columns(13).FillWeight = 75 : 訂單清單_dgv.Columns(14).FillWeight = 75 : 訂單清單_dgv.Columns(15).FillWeight = 75
             訂單清單_dgv.Columns(16).FillWeight = 75 : 訂單清單_dgv.Columns(17).FillWeight = 75 : 訂單清單_dgv.Columns(18).FillWeight = 120 : 訂單清單_dgv.Columns(19).FillWeight = 93
-            訂單清單_dgv.Columns(20).Visible = False : 訂單清單_dgv.Columns(21).Visible = False : 訂單清單_dgv.Columns(23).Visible = False
+            訂單清單_dgv.Columns(20).Visible = False : 訂單清單_dgv.Columns(21).Visible = False : 訂單清單_dgv.Columns(24).Visible = False
             訂單清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
             訂單清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 訂單清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
             訂單清單_dgv.Columns(2).DefaultCellStyle.BackColor = Color.MistyRose : 訂單清單_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
@@ -73,8 +69,7 @@ Public Class 周進度表T1_T4
             If e.RowIndex = -1 Then : Else
                 If 訂單清單_dgv(6, e.RowIndex).Value = "" Then
                     PA = 訂單清單_dgv("TVW", e.RowIndex).Value.ToString
-                    SQL_讀取周進度表圖片()
-                    圖片庫一_pb.Image = Nothing
+                    SQL_讀取周進度表圖片() : 圖片庫一_pb.Image = Nothing
                     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)
@@ -84,16 +79,14 @@ Public Class 周進度表T1_T4
                     SQL_讀取周進度表圖片1()
                     If dr.Read() Then
                         PA = 訂單清單_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單清單_dgv(6, e.RowIndex).Value.ToString
-                        SQL_讀取周進度表圖片1()
-                        圖片庫一_pb.Image = Nothing
+                        SQL_讀取周進度表圖片1() : 圖片庫一_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused2 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
                     Else
                         PA = 訂單清單_dgv("TVW", e.RowIndex).Value.ToString
-                        SQL_讀取周進度表圖片()
-                        圖片庫一_pb.Image = Nothing
+                        SQL_讀取周進度表圖片() : 圖片庫一_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                             Dim oStream As New MemoryStream(bytes) : 圖片庫一_pb.Image = Bitmap.FromStream(oStream)
@@ -101,16 +94,17 @@ Public Class 周進度表T1_T4
                     End If
                 End If
                 conn.Close() : 圖片庫一_pb.SizeMode = 4
-                PA3 = 訂單清單_dgv(21, e.RowIndex).Value.ToString
-                SQL_讀取周進度表圖片2()
-                驗貨報告圖片_pb.Image = Nothing
-                While dr.Read() = True
-                    Dim unused1 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
-
-                驗貨報告 = 訂單清單_dgv(21, e.RowIndex).Value.ToString
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = 訂單清單_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單清單_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                If 訂單清單_dgv("驗報圖庫", e.RowIndex).Value.ToString = "" Then : 驗貨報告圖片_pb.Image = Nothing : Else
+                    SQL_讀取周進度表圖片2() : 驗貨報告圖片_pb.Image = Nothing
+                    While dr.Read() = True
+                        Dim unused1 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 : 圖片傳遞 = 驗貨報告圖片_pb.Image
+                    驗貨報告 = 訂單清單_dgv(21, e.RowIndex).Value.ToString
+                End If : 圖片傳遞 = 驗貨報告圖片_pb.Image
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -137,30 +131,12 @@ Public Class 周進度表T1_T4
     Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單清單_dgv.CellEndEdit
         Try
             Dim EU(3) As String
-            EU(0) = 訂單清單_dgv(2, e.RowIndex).Value.ToString
-            EU(1) = 訂單清單_dgv(9, e.RowIndex).Value.ToString
-            EU(2) = 訂單清單_dgv(10, e.RowIndex).Value.ToString
-            EU(3) = 訂單清單_dgv(11, e.RowIndex).Value.ToString
-            If EU(0) = "" Then
-            Else
-                日期1_dtp.Text = EU(0)
-                訂單清單_dgv.Rows(e.RowIndex).Cells(2).Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
-            End If
-            If EU(1) = "" Then
-            Else
-                日期2_dtp.Text = EU(1)
-                訂單清單_dgv.Rows(e.RowIndex).Cells(9).Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
-            End If
-            If EU(2) = "" Then
-            Else
-                日期3_dtp.Text = EU(2)
-                訂單清單_dgv.Rows(e.RowIndex).Cells(10).Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
-            End If
-            If EU(3) = "" Then
-            Else
-                日期4_dtp.Text = EU(3)
-                訂單清單_dgv.Rows(e.RowIndex).Cells(11).Value = Format(日期4_dtp.Value, "yyyy/MM/dd")
-            End If
+            EU(0) = 訂單清單_dgv(2, e.RowIndex).Value.ToString : EU(1) = 訂單清單_dgv(9, e.RowIndex).Value.ToString
+            EU(2) = 訂單清單_dgv(10, e.RowIndex).Value.ToString : EU(3) = 訂單清單_dgv(11, e.RowIndex).Value.ToString
+            If EU(0) = "" Then : Else : 日期1_dtp.Text = EU(0) : 訂單清單_dgv.Rows(e.RowIndex).Cells(2).Value = Format(日期1_dtp.Value, "yyyy/MM/dd") : End If
+            If EU(1) = "" Then : Else : 日期2_dtp.Text = EU(1) : 訂單清單_dgv.Rows(e.RowIndex).Cells(9).Value = Format(日期2_dtp.Value, "yyyy/MM/dd") : End If
+            If EU(2) = "" Then : Else : 日期3_dtp.Text = EU(2) : 訂單清單_dgv.Rows(e.RowIndex).Cells(10).Value = Format(日期3_dtp.Value, "yyyy/MM/dd") : End If
+            If EU(3) = "" Then : Else : 日期4_dtp.Text = EU(3) : 訂單清單_dgv.Rows(e.RowIndex).Cells(11).Value = Format(日期4_dtp.Value, "yyyy/MM/dd") : End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try

TENDEN-MES-SYS/量產訂單管理/量產管理報表/生產進度表.Designer.vb

@@ -35,7 +35,7 @@ Partial Class 生產進度表
         Me.全套SIZE45天_bt = New System.Windows.Forms.Button()
         Me.樣品SIZE60天_bt = New System.Windows.Forms.Button()
         Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
-        Me.驗貨報告_pb = New System.Windows.Forms.PictureBox()
+        Me.鞋圖_pb = New System.Windows.Forms.PictureBox()
         Me.生產進度表_lb = New System.Windows.Forms.Label()
         Me.备注_lb = New System.Windows.Forms.Label()
         Me.驗貨報告大圖_bt = New System.Windows.Forms.Button()
@@ -49,7 +49,7 @@ Partial Class 生產進度表
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         CType(Me.訂單清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.鞋圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.驗貨報告圖庫_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -169,15 +169,15 @@ Partial Class 生產進度表
         Me.關鍵字查詢_bt.Text = "關鍵字查詢"
         Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
         '
-        '驗貨報告_pb
+        '鞋圖_pb
         '
-        Me.驗貨報告_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.驗貨報告_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.驗貨報告_pb.Location = New System.Drawing.Point(368, 3)
-        Me.驗貨報告_pb.Name = "驗貨報告_pb"
-        Me.驗貨報告_pb.Size = New System.Drawing.Size(103, 88)
-        Me.驗貨報告_pb.TabIndex = 500
-        Me.驗貨報告_pb.TabStop = False
+        Me.鞋圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.鞋圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.鞋圖_pb.Location = New System.Drawing.Point(368, 3)
+        Me.鞋圖_pb.Name = "鞋圖_pb"
+        Me.鞋圖_pb.Size = New System.Drawing.Size(103, 88)
+        Me.鞋圖_pb.TabIndex = 500
+        Me.鞋圖_pb.TabStop = False
         '
         '生產進度表_lb
         '
@@ -318,7 +318,7 @@ Partial Class 生產進度表
         Me.Controls.Add(Me.驗貨報告圖庫_pb)
         Me.Controls.Add(Me.备注_lb)
         Me.Controls.Add(Me.生產進度表_lb)
-        Me.Controls.Add(Me.驗貨報告_pb)
+        Me.Controls.Add(Me.鞋圖_pb)
         Me.Controls.Add(Me.關鍵字查詢_bt)
         Me.Controls.Add(Me.PRODUCTION30天分頁二_bt)
         Me.Controls.Add(Me.PRODUCTION30天分頁一_bt)
@@ -336,7 +336,7 @@ Partial Class 生產進度表
         Me.Name = "生產進度表"
         Me.Text = "生產進度表"
         CType(Me.訂單清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.鞋圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.驗貨報告圖庫_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -357,7 +357,7 @@ Partial Class 生產進度表
     Friend WithEvents 全套SIZE45天_bt As Button
     Friend WithEvents 樣品SIZE60天_bt As Button
     Friend WithEvents 關鍵字查詢_bt As Button
-    Friend WithEvents 驗貨報告_pb As PictureBox
+    Friend WithEvents 鞋圖_pb As PictureBox
     Friend WithEvents 生產進度表_lb As Label
     Friend WithEvents 备注_lb As Label
     Friend WithEvents 驗貨報告大圖_bt As Button

TENDEN-MES-SYS/量產訂單管理/量產管理報表/生產進度表.vb

@@ -35,7 +35,7 @@ Public Class 生產進度表
             訂單清單_dgv.Columns(20).FillWeight = 71 : 訂單清單_dgv.Columns(21).FillWeight = 71 : 訂單清單_dgv.Columns(22).FillWeight = 71 : 訂單清單_dgv.Columns(23).FillWeight = 71
             訂單清單_dgv.Columns(24).FillWeight = 71 : 訂單清單_dgv.Columns(25).FillWeight = 71 : 訂單清單_dgv.Columns(26).FillWeight = 70 : 訂單清單_dgv.Columns(27).FillWeight = 70
             訂單清單_dgv.Columns(28).FillWeight = 70 : 訂單清單_dgv.Columns(29).FillWeight = 70 : 訂單清單_dgv.Columns(30).FillWeight = 120 : 訂單清單_dgv.Columns(31).FillWeight = 250
-            訂單清單_dgv.Columns(32).FillWeight = 335 : 訂單清單_dgv.Columns(33).Visible = True
+            訂單清單_dgv.Columns(32).FillWeight = 335 : 訂單清單_dgv.Columns(33).Visible = True : 訂單清單_dgv.Columns(34).Visible = False
             訂單清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
             訂單清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
             訂單清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -155,46 +155,43 @@ Public Class 生產進度表
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單清單_dgv.CellClick
         Try
-            PA = 訂單清單_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單清單_dgv(9, e.RowIndex).Value.ToString
-            PA2 = 訂單清單_dgv(33, e.RowIndex).Value.ToString
+            PA = 訂單清單_dgv("TVW", e.RowIndex).Value.ToString : PA1 = 訂單清單_dgv(9, e.RowIndex).Value.ToString : PA2 = 訂單清單_dgv(33, e.RowIndex).Value.ToString
             If e.RowIndex = -1 Then : Else
                 If 訂單清單_dgv(9, e.RowIndex).Value = "" Then
-                    SQL_讀取生產進度表圖片()
-                    驗貨報告_pb.Image = Nothing
+                    SQL_讀取生產進度表圖片() : 鞋圖_pb.Image = Nothing
                     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)
+                        Dim oStream As New MemoryStream(bytes) : 鞋圖_pb.Image = Bitmap.FromStream(oStream)
                     End While
                 Else
                     SQL_讀取生產進度表圖片1()
                     If dr.Read() Then
-                        conn.Close()
-                        SQL_讀取生產進度表圖片1()
-                        驗貨報告_pb.Image = Nothing
+                        SQL_讀取生產進度表圖片1() : 鞋圖_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
-                            Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
+                            Dim oStream As New MemoryStream(bytes) : 鞋圖_pb.Image = Bitmap.FromStream(oStream)
                         End While
                     Else
-                        SQL_讀取生產進度表圖片()
-                        驗貨報告_pb.Image = Nothing
+                        SQL_讀取生產進度表圖片() : 鞋圖_pb.Image = Nothing
                         While dr.Read() = True
                             Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
-                            Dim oStream As New MemoryStream(bytes) : 驗貨報告_pb.Image = Bitmap.FromStream(oStream)
+                            Dim oStream As New MemoryStream(bytes) : 鞋圖_pb.Image = Bitmap.FromStream(oStream)
                         End While
                     End If
                 End If
-                conn.Close() : 驗貨報告_pb.SizeMode = 4
-
-                SQL_讀取生產進度表圖片2()
-                驗貨報告圖庫_pb.Image = Nothing
-                While dr.Read() = True
-                    Dim unused1 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
-
-                驗貨報告 = 訂單清單_dgv(33, e.RowIndex).Value.ToString
+                conn.Close() : 鞋圖_pb.SizeMode = 4
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = 訂單清單_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 訂單清單_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                If 訂單清單_dgv("驗報圖庫", e.RowIndex).Value.ToString = "" Then : 驗貨報告圖庫_pb.Image = Nothing : Else
+                    SQL_讀取生產進度表圖片2()
+                    驗貨報告圖庫_pb.Image = Nothing
+                    While dr.Read() = True
+                        Dim unused1 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
+                End If
+                驗貨報告 = 訂單清單_dgv(33, e.RowIndex).Value.ToString : 圖片傳遞 = 驗貨報告圖庫_pb.Image
             End If
         Catch ex As Exception
             MsgBox(ex.Message)

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.Designer.vb

@@ -22,13 +22,13 @@ Partial Class 訂單控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(訂單控制表))
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.客戶訂單號_tb = New System.Windows.Forms.TextBox()
@@ -147,7 +147,7 @@ Partial Class 訂單控制表
         Me.第九頁_bt = New System.Windows.Forms.Button()
         Me.第十頁_bt = New System.Windows.Forms.Button()
         Me.列印明細_bt = New System.Windows.Forms.Button()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.驗貨報告_pb = New System.Windows.Forms.PictureBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
         Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
@@ -249,11 +249,18 @@ Partial Class 訂單控制表
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         Me.清單全選_bt = New System.Windows.Forms.Button()
         Me.指定拆單_bt = New System.Windows.Forms.Button()
+        Me.包裝資訊_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label51 = New System.Windows.Forms.Label()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.包裝資料_pb = New System.Windows.Forms.PictureBox()
+        Me.CanceL3_bt = New System.Windows.Forms.Button()
+        Me.TVW_tb = New System.Windows.Forms.TextBox()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
@@ -264,12 +271,15 @@ Partial Class 訂單控制表
         CType(Me.裝箱明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.資訊_gb.SuspendLayout()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '控制表_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.控制表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1284,8 +1294,8 @@ Partial Class 訂單控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView2.Location = New System.Drawing.Point(91, 146)
         Me.DataGridView2.Name = "DataGridView2"
@@ -1390,15 +1400,15 @@ Partial Class 訂單控制表
         Me.列印明細_bt.Text = "列印明細"
         Me.列印明細_bt.UseVisualStyleBackColor = True
         '
-        'PictureBox2
+        '驗貨報告_pb
         '
-        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox2.Location = New System.Drawing.Point(1712, 35)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(190, 208)
-        Me.PictureBox2.TabIndex = 501
-        Me.PictureBox2.TabStop = False
+        Me.驗貨報告_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.驗貨報告_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.驗貨報告_pb.Location = New System.Drawing.Point(1712, 35)
+        Me.驗貨報告_pb.Name = "驗貨報告_pb"
+        Me.驗貨報告_pb.Size = New System.Drawing.Size(190, 208)
+        Me.驗貨報告_pb.TabIndex = 501
+        Me.驗貨報告_pb.TabStop = False
         '
         'PictureBox1
         '
@@ -1742,8 +1752,8 @@ Partial Class 訂單控制表
         '
         '除錯_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.除錯_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.除錯_dgv.Location = New System.Drawing.Point(48, 36)
         Me.除錯_dgv.Name = "除錯_dgv"
@@ -1755,8 +1765,8 @@ Partial Class 訂單控制表
         '
         '裝箱控制表_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         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
@@ -1770,8 +1780,8 @@ Partial Class 訂單控制表
         '
         '裝箱明細_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.裝箱明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2314,8 +2324,8 @@ Partial Class 訂單控制表
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2332,9 +2342,9 @@ Partial Class 訂單控制表
         '
         Me.訂單明細_bt.Enabled = False
         Me.訂單明細_bt.ForeColor = System.Drawing.Color.Red
-        Me.訂單明細_bt.Location = New System.Drawing.Point(1624, 173)
+        Me.訂單明細_bt.Location = New System.Drawing.Point(1624, 197)
         Me.訂單明細_bt.Name = "訂單明細_bt"
-        Me.訂單明細_bt.Size = New System.Drawing.Size(85, 35)
+        Me.訂單明細_bt.Size = New System.Drawing.Size(85, 30)
         Me.訂單明細_bt.TabIndex = 754
         Me.訂單明細_bt.Text = "訂單明細"
         Me.訂單明細_bt.UseVisualStyleBackColor = True
@@ -2342,9 +2352,9 @@ Partial Class 訂單控制表
         '裝箱明細_bt
         '
         Me.裝箱明細_bt.ForeColor = System.Drawing.Color.Red
-        Me.裝箱明細_bt.Location = New System.Drawing.Point(1624, 243)
+        Me.裝箱明細_bt.Location = New System.Drawing.Point(1624, 255)
         Me.裝箱明細_bt.Name = "裝箱明細_bt"
-        Me.裝箱明細_bt.Size = New System.Drawing.Size(85, 35)
+        Me.裝箱明細_bt.Size = New System.Drawing.Size(85, 30)
         Me.裝箱明細_bt.TabIndex = 755
         Me.裝箱明細_bt.Text = "裝箱明細"
         Me.裝箱明細_bt.UseVisualStyleBackColor = True
@@ -2352,9 +2362,9 @@ Partial Class 訂單控制表
         '裝箱資訊_bt
         '
         Me.裝箱資訊_bt.ForeColor = System.Drawing.Color.Red
-        Me.裝箱資訊_bt.Location = New System.Drawing.Point(1624, 208)
+        Me.裝箱資訊_bt.Location = New System.Drawing.Point(1624, 226)
         Me.裝箱資訊_bt.Name = "裝箱資訊_bt"
-        Me.裝箱資訊_bt.Size = New System.Drawing.Size(85, 35)
+        Me.裝箱資訊_bt.Size = New System.Drawing.Size(85, 30)
         Me.裝箱資訊_bt.TabIndex = 756
         Me.裝箱資訊_bt.Text = "裝箱資訊"
         Me.裝箱資訊_bt.UseVisualStyleBackColor = True
@@ -2364,7 +2374,7 @@ Partial Class 訂單控制表
         Me.ProgressBar1.Location = New System.Drawing.Point(1109, 149)
         Me.ProgressBar1.Maximum = 10000
         Me.ProgressBar1.Name = "ProgressBar1"
-        Me.ProgressBar1.Size = New System.Drawing.Size(294, 20)
+        Me.ProgressBar1.Size = New System.Drawing.Size(197, 20)
         Me.ProgressBar1.TabIndex = 757
         '
         '清單全選_bt
@@ -2380,19 +2390,95 @@ Partial Class 訂單控制表
         '指定拆單_bt
         '
         Me.指定拆單_bt.ForeColor = System.Drawing.Color.Purple
-        Me.指定拆單_bt.Location = New System.Drawing.Point(1624, 279)
+        Me.指定拆單_bt.Location = New System.Drawing.Point(1624, 284)
         Me.指定拆單_bt.Name = "指定拆單_bt"
-        Me.指定拆單_bt.Size = New System.Drawing.Size(85, 33)
+        Me.指定拆單_bt.Size = New System.Drawing.Size(85, 28)
         Me.指定拆單_bt.TabIndex = 759
         Me.指定拆單_bt.Text = "指定拆單"
         Me.指定拆單_bt.UseVisualStyleBackColor = True
         '
+        '包裝資訊_bt
+        '
+        Me.包裝資訊_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.包裝資訊_bt.ForeColor = System.Drawing.Color.Black
+        Me.包裝資訊_bt.Location = New System.Drawing.Point(1307, 148)
+        Me.包裝資訊_bt.Name = "包裝資訊_bt"
+        Me.包裝資訊_bt.Size = New System.Drawing.Size(98, 22)
+        Me.包裝資訊_bt.TabIndex = 1662
+        Me.包裝資訊_bt.Text = "讀取包裝資訊"
+        Me.包裝資訊_bt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.Label51)
+        Me.Panel2.Controls.Add(Me.Panel3)
+        Me.Panel2.Controls.Add(Me.CanceL3_bt)
+        Me.Panel2.Location = New System.Drawing.Point(376, 226)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1188, 399)
+        Me.Panel2.TabIndex = 1663
+        '
+        'Label51
+        '
+        Me.Label51.AutoSize = True
+        Me.Label51.Location = New System.Drawing.Point(7, 8)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(73, 15)
+        Me.Label51.TabIndex = 1377
+        Me.Label51.Text = "包裝資訊圖片"
+        '
+        'Panel3
+        '
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.包裝資料_pb)
+        Me.Panel3.Location = New System.Drawing.Point(3, 31)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1180, 363)
+        Me.Panel3.TabIndex = 1376
+        '
+        '包裝資料_pb
+        '
+        Me.包裝資料_pb.BackColor = System.Drawing.Color.White
+        Me.包裝資料_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.包裝資料_pb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.包裝資料_pb.Location = New System.Drawing.Point(-1, -1)
+        Me.包裝資料_pb.Name = "包裝資料_pb"
+        Me.包裝資料_pb.Size = New System.Drawing.Size(1179, 362)
+        Me.包裝資料_pb.TabIndex = 1660
+        Me.包裝資料_pb.TabStop = False
+        '
+        'CanceL3_bt
+        '
+        Me.CanceL3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL3_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL3_bt.Location = New System.Drawing.Point(1157, 3)
+        Me.CanceL3_bt.Name = "CanceL3_bt"
+        Me.CanceL3_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL3_bt.TabIndex = 1375
+        Me.CanceL3_bt.Text = "X"
+        Me.CanceL3_bt.UseVisualStyleBackColor = False
+        '
+        'TVW_tb
+        '
+        Me.TVW_tb.ForeColor = System.Drawing.Color.Red
+        Me.TVW_tb.Location = New System.Drawing.Point(1626, 174)
+        Me.TVW_tb.Name = "TVW_tb"
+        Me.TVW_tb.Size = New System.Drawing.Size(79, 22)
+        Me.TVW_tb.TabIndex = 1664
+        Me.TVW_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
         '訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.ClientSize = New System.Drawing.Size(1914, 966)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.TVW_tb)
+        Me.Controls.Add(Me.包裝資訊_bt)
         Me.Controls.Add(Me.指定拆單_bt)
         Me.Controls.Add(Me.清單全選_bt)
         Me.Controls.Add(Me.ProgressBar1)
@@ -2433,7 +2519,6 @@ Partial Class 訂單控制表
         Me.Controls.Add(Me.AA10_lb)
         Me.Controls.Add(Me.地址二_tb)
         Me.Controls.Add(Me.AA11_lb)
-        Me.Controls.Add(Me.地址1_tb)
         Me.Controls.Add(Me.AA8_lb)
         Me.Controls.Add(Me.資料庫選擇2_bt)
         Me.Controls.Add(Me.資料庫選擇1_bt)
@@ -2446,7 +2531,7 @@ Partial Class 訂單控制表
         Me.Controls.Add(Me.逆時鐘90度旋轉_tb)
         Me.Controls.Add(Me.順時鐘90度旋轉_bt)
         Me.Controls.Add(Me.驗貨報告大圖_bt)
-        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.驗貨報告_pb)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.DataGridView2)
         Me.Controls.Add(Me.第八頁_bt)
@@ -2539,6 +2624,7 @@ Partial Class 訂單控制表
         Me.Controls.Add(Me.Label16)
         Me.Controls.Add(Me.DateTimePicker1)
         Me.Controls.Add(Me.AA4_lb)
+        Me.Controls.Add(Me.地址1_tb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "訂單控制表"
@@ -2549,7 +2635,7 @@ Partial Class 訂單控制表
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.驗貨報告_pb, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.Panel1.ResumeLayout(False)
         Me.SplitContainer1.Panel2.ResumeLayout(False)
@@ -2561,6 +2647,10 @@ Partial Class 訂單控制表
         Me.資訊_gb.ResumeLayout(False)
         Me.資訊_gb.PerformLayout()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        CType(Me.包裝資料_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2672,7 +2762,7 @@ Partial Class 訂單控制表
     Friend WithEvents 第八頁_bt As Button
     Friend WithEvents 第七頁_bt As Button
     Friend WithEvents PictureBox1 As PictureBox
-    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents 驗貨報告_pb As PictureBox
     Friend WithEvents 驗貨報告大圖_bt As Button
     Friend WithEvents 垂直翻轉_bt As Button
     Friend WithEvents 水平翻轉_bt As Button
@@ -2786,5 +2876,12 @@ Partial Class 訂單控制表
     Friend WithEvents ProgressBar1 As ProgressBar
     Friend WithEvents 清單全選_bt As Button
     Friend WithEvents 指定拆單_bt As Button
+    Friend WithEvents 包裝資訊_bt As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label51 As Label
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents 包裝資料_pb As PictureBox
+    Friend WithEvents CanceL3_bt As Button
+    Friend WithEvents TVW_tb As TextBox
 End Class
 

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.vb

@@ -40,17 +40,18 @@ Public Class 訂單控制表
     Private ReadOnly BB(9) As Boolean
     Dim aa As MsgBoxResult
     Private Sub SQL宣告()
-        SQL字串1 = "SELECT                訂單流水號,               年份季度,               力威訂單號,            形體號,             顏色,                  楦型,                 訂單數量, " &
-                                           "客戶交期,                   單價,                   總金額,              備註,         生產工廠,              訂單種類,             工廠回復交期, " &
-                                            "CFMSPEC,              CFMSAMPLE,                   TRIAL1,            TRIAL2,           TRIAL3,                TRIAL4,             包裝確認時間, " &
-                                           "貼標時間,               裁斷時間,                 針車時間,          成型時間,         驗貨時間,            實際離廠日,               資料流水號, " &
-                                           "明細建檔,                GOODBOX,                  LEATHER,          LEA_Note,         出貨數量,   PO_S_Date AS 接單日, Requested_XF AS 需求日期, " &
-                             "Confirm_XF AS 確認日期, Revised_XF AS 修訂日期, 工廠回復交期 AS 工廠交期, Special_Packaging,          Remarks,                出貨地,                      TVW, " &
-                                             "楦頭號,                   材質,                 七號模具,      TRIAL1 AS T1,     TRIAL2 AS T2, 長期試穿 AS WEAR_TEST,         CFMSAMPLE AS CFM, " &
-                                       "TRIAL3 AS T3,           TRIAL4 AS T4,          CFMSPEC AS TEST,              面料,             副料,                  中底,                     鞋墊, " &
-                                               "大底,                     跟,     包裝確認時間 AS 包裝,  裁斷時間 AS 裁斷, 針車時間 AS 針車,      成型時間 AS 成型,         驗貨時間 AS 驗貨, " &
-                                    "工廠進度表備註1,        工廠進度表備註2,             客戶包裝確認,      東莞業務備註,     驗貨報告圖片,              工廠確認,                 利威確認, 
-                                              結關日,                SMS簽回,                  FRS簽回,     MASTER_SWATCH,       客戶訂單號,             ProductID,                      UoM
+        SQL字串1 = "SELECT                訂單流水號,               年份季度,               力威訂單號,            形體號,             顏色,                  楦型,                 訂單數量, 
+                                            客戶交期,                   單價,                   總金額,              備註,         生產工廠,              訂單種類,             工廠回復交期, 
+                                             CFMSPEC,              CFMSAMPLE,                   TRIAL1,            TRIAL2,           TRIAL3,                TRIAL4,             包裝確認時間, 
+                                            貼標時間,               裁斷時間,                 針車時間,          成型時間,         驗貨時間,            實際離廠日,               資料流水號, 
+                                            明細建檔,                GOODBOX,                  LEATHER,          LEA_Note,         出貨數量,   PO_S_Date AS 接單日, Requested_XF AS 需求日期, 
+                              Confirm_XF AS 確認日期, Revised_XF AS 修訂日期, 工廠回復交期 AS 工廠交期, Special_Packaging,          Remarks,                出貨地,                      TVW, 
+                                              楦頭號,                   材質,                 七號模具,      TRIAL1 AS T1,     TRIAL2 AS T2, 長期試穿 AS WEAR_TEST,         CFMSAMPLE AS CFM, 
+                                        TRIAL3 AS T3,           TRIAL4 AS T4,          CFMSPEC AS TEST,              面料,             副料,                  中底,                     鞋墊, 
+                                                大底,                     跟,     包裝確認時間 AS 包裝,  裁斷時間 AS 裁斷, 針車時間 AS 針車,      成型時間 AS 成型,         驗貨時間 AS 驗貨, 
+                                     工廠進度表備註1,        工廠進度表備註2,             客戶包裝確認,      東莞業務備註,     驗貨報告圖片,              工廠確認,                 利威確認, 
+                                              結關日,                SMS簽回,                  FRS簽回,     MASTER_SWATCH,       客戶訂單號,             ProductID,                      UoM,
+                                            驗報圖庫
                     FROM " & 訂單資料表(1) & ""
     End Sub
     Private Sub Set_控制表_dgv_插入勾選控件清單()
@@ -63,7 +64,7 @@ Public Class 訂單控制表
     End Sub
     Private Sub Set_grid()
         '--變動格攔框總和  685
-        If 控制表_dgv.Columns.Count.ToString > 77 Then
+        If 控制表_dgv.Columns.Count.ToString > 78 Then
             控制表_dgv.Columns.Remove("選擇")
         End If
         Set_控制表_dgv_插入勾選控件清單()
@@ -115,7 +116,7 @@ Public Class 訂單控制表
 
             For i As Integer = 14 To 28 : 控制表_dgv.Columns(i).Visible = False : Next
 
-            控制表_dgv.Columns(29).Visible = True
+            控制表_dgv.Columns(29).Visible = True : 控制表_dgv.Columns(78).Visible = False
 
             For i As Integer = 30 To 63 : 控制表_dgv.Columns(i).Visible = False : Next
             For i As Integer = 68 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
@@ -942,7 +943,7 @@ Public Class 訂單控制表
         AA6_lb.Text = "Version" : AA7_lb.Text = "Vendor" : AA8_lb.Text = "Company Code" : AA9_lb.Text = "Shipping Method" : AA10_lb.Text = "Ship To"
         AA11_lb.Text = "Factory No" : AA12_lb.Text = "Final Customer Ship To"
         明細表_dgv.Visible = True : 裝箱明細_dgv.Visible = False : 資訊_gb.Visible = False : 開啟訂單明細表_bt.Visible = False : 批量出貨_bt.Enabled = False
-
+        Panel2.Visible = False
         訂單資料庫選擇.ShowDialog()
 
         SQL宣告()
@@ -1020,7 +1021,7 @@ Public Class 訂單控制表
             TT23_lb.Text = 裝箱控制表_dgv("FinalCustomerShipTo", e.RowIndex).Value.ToString : TT24_lb.Text = 裝箱控制表_dgv("ProductDescription", e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
+    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
         If 啟用批量出貨_ch.Checked = True Then
             控制表_dgv("選擇", e.RowIndex).Value = True
         Else
@@ -1035,7 +1036,7 @@ Public Class 訂單控制表
                 客戶訂單號_tb.Text = 控制表_dgv("客戶訂單號", e.RowIndex).Value.ToString : 風格_cb.Text = 控制表_dgv("形體號", e.RowIndex).Value.ToString
                 顏色_cb.Text = 控制表_dgv("顏色", e.RowIndex).Value.ToString : DM_cb.Text = 控制表_dgv("楦型", e.RowIndex).Value.ToString
                 訂單數量 = 控制表_dgv("訂單數量", e.RowIndex).Value.ToString : PRS_tb.Text = Format(Val(訂單數量), "#,##0")
-
+                TVW_tb.Text = 控制表_dgv("TVW", e.RowIndex).Value.ToString
                 整單出貨可出貨數量_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單數量").Value - 控制表_dgv.Rows(e.RowIndex).Cells("出貨數量").Value
                 整單出貨可出貨數量_tb.Text = Format(Val(整單出貨可出貨數量_tb.Text), "###0")
 
@@ -1097,12 +1098,7 @@ Public Class 訂單控制表
                 ConnOpen()
                 SQL1 = "SELECT Style FROM STYLELIST WHERE (ProductName LIKE '" & 風格_cb.Text & "')"
                 CmdSet_For_dr()
-                If dr.Read() Then
-                    Tendenzat_Style_tb.Text = dr("Style").ToString
-                Else
-                    Tendenzat_Style_tb.Text = ""
-                End If
-                conn.Close()
+                If dr.Read() Then : Tendenzat_Style_tb.Text = dr("Style").ToString : Else : Tendenzat_Style_tb.Text = "" : End If : conn.Close()
 
                 If 控制表_dgv("顏色", e.RowIndex).Value = "" Then
                     ConnOpen()
@@ -1120,7 +1116,6 @@ Public Class 訂單控制表
                             顏色 LIKE '" & 控制表_dgv("顏色", e.RowIndex).Value.ToString & "' AND (類型 NOT LIKE '確認-產地標') AND (類型 NOT LIKE '%LOGO') ORDER BY 類型 DESC"
                     CmdSet_For_dr()
                     If dr.Read() Then
-                        conn.Close()
                         ConnOpen()
                         SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體號 LIKE '" & 控制表_dgv("TVW", e.RowIndex).Value.ToString & "' AND 
                                 顏色 LIKE '" & 控制表_dgv("顏色", e.RowIndex).Value.ToString & "' AND (類型 NOT LIKE '確認-產地標') AND (類型 NOT LIKE '%LOGO') ORDER BY 類型 DESC"
@@ -1131,7 +1126,6 @@ Public Class 訂單控制表
                             Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
                         End While
                     Else
-                        conn.Close()
                         ConnOpen()
                         SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 
                                 WHERE 形體號 LIKE '" & 控制表_dgv("TVW", e.RowIndex).Value.ToString & "' AND (類型 NOT LIKE '確認-產地標') AND (類型 NOT LIKE '%LOGO') ORDER BY 類型 DESC"
@@ -1144,85 +1138,38 @@ Public Class 訂單控制表
                     End If
                 End If
                 conn.Close() : PictureBox1.SizeMode = 4
-
-                ConnOpen()
-                SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString & "'"
-                CmdSet_For_dr()
-                PictureBox2.Image = Nothing
-                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) : PictureBox2.Image = Bitmap.FromStream(oStream)
-                End While
-                conn.Close() : PictureBox2.SizeMode = 4
-
-                驗貨報告 = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
-
-                PB(0) = 控制表_dgv("訂單流水號", e.RowIndex).Value.ToString
-                PB(1) = 控制表_dgv("年份季度", e.RowIndex).Value.ToString
-                PB(2) = 控制表_dgv("客戶訂單號", e.RowIndex).Value.ToString
-                PB(4) = 控制表_dgv("形體號", e.RowIndex).Value.ToString
-                PB(5) = 控制表_dgv("顏色", e.RowIndex).Value.ToString
-                PB(6) = 控制表_dgv("楦型", e.RowIndex).Value.ToString
-                DN(0) = 控制表_dgv("訂單數量", e.RowIndex).Value.ToString
-                PB(7) = 控制表_dgv("客戶交期", e.RowIndex).Value.ToString
-                DN(1) = 控制表_dgv("單價", e.RowIndex).Value.ToString
-                DN(2) = 控制表_dgv("總金額", e.RowIndex).Value.ToString
-                PB(8) = 控制表_dgv("備註", e.RowIndex).Value.ToString
-                PB(9) = 控制表_dgv("生產工廠", e.RowIndex).Value.ToString
-                PB(10) = 控制表_dgv("訂單種類", e.RowIndex).Value.ToString
-                PB(11) = 控制表_dgv("工廠回復交期", e.RowIndex).Value.ToString
-                PB(12) = 控制表_dgv("CFMSPEC", e.RowIndex).Value.ToString
-                PB(13) = 控制表_dgv("CFMSAMPLE", e.RowIndex).Value.ToString
-                PB(14) = 控制表_dgv("TRIAL1", e.RowIndex).Value.ToString
-                PB(15) = 控制表_dgv("TRIAL2", e.RowIndex).Value.ToString
-                PB(16) = 控制表_dgv("TRIAL3", e.RowIndex).Value.ToString
-                PB(17) = 控制表_dgv("TRIAL4", e.RowIndex).Value.ToString
-                PB(18) = 控制表_dgv("包裝確認時間", e.RowIndex).Value.ToString
-                PB(19) = 控制表_dgv("貼標時間", e.RowIndex).Value.ToString
-                PB(20) = 控制表_dgv("裁斷時間", e.RowIndex).Value.ToString
-                PB(21) = 控制表_dgv("針車時間", e.RowIndex).Value.ToString
-                PB(22) = 控制表_dgv("成型時間", e.RowIndex).Value.ToString
-                PB(23) = 控制表_dgv("驗貨時間", e.RowIndex).Value.ToString
-                PB(24) = 控制表_dgv("實際離廠日", e.RowIndex).Value.ToString
-                PB(25) = 控制表_dgv("資料流水號", e.RowIndex).Value.ToString
-                BL(0) = 控制表_dgv("明細建檔", e.RowIndex).Value
-                PB(26) = 控制表_dgv("GOODBOX", e.RowIndex).Value.ToString
-                PB(27) = 控制表_dgv("LEATHER", e.RowIndex).Value.ToString
-                PB(28) = 控制表_dgv("LEA_Note", e.RowIndex).Value.ToString
-                DN(3) = 控制表_dgv("出貨數量", e.RowIndex).Value.ToString
-                PB(29) = 控制表_dgv("接單日", e.RowIndex).Value.ToString
-                PB(30) = 控制表_dgv("需求日期", e.RowIndex).Value.ToString
-                PB(31) = 控制表_dgv("確認日期", e.RowIndex).Value.ToString
-                PB(32) = 控制表_dgv("修訂日期", e.RowIndex).Value.ToString
-                PB(33) = 控制表_dgv("Special_Packaging", e.RowIndex).Value.ToString
-                PB(34) = 控制表_dgv("Remarks", e.RowIndex).Value.ToString
-                PB(35) = 控制表_dgv("出貨地", e.RowIndex).Value.ToString
-                PB(36) = 控制表_dgv("TVW", e.RowIndex).Value.ToString
-                PB(37) = 控制表_dgv("楦頭號", e.RowIndex).Value.ToString
-                PB(38) = 控制表_dgv("材質", e.RowIndex).Value.ToString
-                PB(39) = 控制表_dgv("WEAR_TEST", e.RowIndex).Value.ToString
-                PB(40) = 控制表_dgv("面料", e.RowIndex).Value.ToString
-                PB(41) = 控制表_dgv("副料", e.RowIndex).Value.ToString
-                PB(42) = 控制表_dgv("中底", e.RowIndex).Value.ToString
-                PB(43) = 控制表_dgv("鞋墊", e.RowIndex).Value.ToString
-                PB(44) = 控制表_dgv("大底", e.RowIndex).Value.ToString
-                PB(45) = 控制表_dgv("跟", e.RowIndex).Value.ToString
-                PB(46) = 控制表_dgv("工廠進度表備註1", e.RowIndex).Value.ToString
-                PB(47) = 控制表_dgv("七號模具", e.RowIndex).Value.ToString
-                PB(48) = 控制表_dgv("工廠進度表備註2", e.RowIndex).Value.ToString
-                BL(1) = 0
-                PB(49) = 控制表_dgv("客戶包裝確認", e.RowIndex).Value.ToString
-                PB(50) = 控制表_dgv("東莞業務備註", e.RowIndex).Value.ToString
-                PB(51) = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
-                PB(52) = 控制表_dgv("工廠確認", e.RowIndex).Value.ToString
-                PB(53) = 控制表_dgv("利威確認", e.RowIndex).Value.ToString
-                PB(54) = 控制表_dgv("結關日", e.RowIndex).Value.ToString
-                PB(55) = 控制表_dgv("SMS簽回", e.RowIndex).Value.ToString
-                PB(56) = 控制表_dgv("FRS簽回", e.RowIndex).Value.ToString
-                PB(57) = 控制表_dgv("MASTER_SWATCH", e.RowIndex).Value.ToString
-                PB(58) = 控制表_dgv("力威訂單號", e.RowIndex).Value.ToString
-                PB(59) = 控制表_dgv("ProductID", e.RowIndex).Value.ToString
-                PB(60) = 控制表_dgv("UoM", e.RowIndex).Value.ToString
+                '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                PA1 = 控制表_dgv("驗報圖庫", e.RowIndex).Value.ToString : PA2 = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                If 控制表_dgv("驗報圖庫", e.RowIndex).Value.ToString = "" Then : 驗貨報告_pb.Image = Nothing : Else
+                    SQL_訂單驗貨報告圖片讀取() : 驗貨報告_pb.Image = Nothing
+                    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
+                End If : 圖片傳遞 = 驗貨報告_pb.Image
+                驗貨報告 = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString : PB(0) = 控制表_dgv("訂單流水號", e.RowIndex).Value.ToString
+                PB(1) = 控制表_dgv("年份季度", e.RowIndex).Value.ToString : PB(2) = 控制表_dgv("客戶訂單號", e.RowIndex).Value.ToString : PB(4) = 控制表_dgv("形體號", e.RowIndex).Value.ToString
+                PB(5) = 控制表_dgv("顏色", e.RowIndex).Value.ToString : PB(6) = 控制表_dgv("楦型", e.RowIndex).Value.ToString : DN(0) = 控制表_dgv("訂單數量", e.RowIndex).Value.ToString
+                PB(7) = 控制表_dgv("客戶交期", e.RowIndex).Value.ToString : DN(1) = 控制表_dgv("單價", e.RowIndex).Value.ToString : DN(2) = 控制表_dgv("總金額", e.RowIndex).Value.ToString
+                PB(8) = 控制表_dgv("備註", e.RowIndex).Value.ToString : PB(9) = 控制表_dgv("生產工廠", e.RowIndex).Value.ToString : PB(10) = 控制表_dgv("訂單種類", e.RowIndex).Value.ToString
+                PB(11) = 控制表_dgv("工廠回復交期", e.RowIndex).Value.ToString : PB(12) = 控制表_dgv("CFMSPEC", e.RowIndex).Value.ToString : PB(13) = 控制表_dgv("CFMSAMPLE", e.RowIndex).Value.ToString
+                PB(14) = 控制表_dgv("TRIAL1", e.RowIndex).Value.ToString : PB(15) = 控制表_dgv("TRIAL2", e.RowIndex).Value.ToString : PB(16) = 控制表_dgv("TRIAL3", e.RowIndex).Value.ToString
+                PB(17) = 控制表_dgv("TRIAL4", e.RowIndex).Value.ToString : PB(18) = 控制表_dgv("包裝確認時間", e.RowIndex).Value.ToString : PB(19) = 控制表_dgv("貼標時間", e.RowIndex).Value.ToString
+                PB(20) = 控制表_dgv("裁斷時間", e.RowIndex).Value.ToString : PB(21) = 控制表_dgv("針車時間", e.RowIndex).Value.ToString : PB(22) = 控制表_dgv("成型時間", e.RowIndex).Value.ToString
+                PB(23) = 控制表_dgv("驗貨時間", e.RowIndex).Value.ToString : PB(24) = 控制表_dgv("實際離廠日", e.RowIndex).Value.ToString : PB(25) = 控制表_dgv("資料流水號", e.RowIndex).Value.ToString
+                BL(0) = 控制表_dgv("明細建檔", e.RowIndex).Value : PB(26) = 控制表_dgv("GOODBOX", e.RowIndex).Value.ToString : PB(27) = 控制表_dgv("LEATHER", e.RowIndex).Value.ToString
+                PB(28) = 控制表_dgv("LEA_Note", e.RowIndex).Value.ToString : DN(3) = 控制表_dgv("出貨數量", e.RowIndex).Value.ToString : PB(29) = 控制表_dgv("接單日", e.RowIndex).Value.ToString
+                PB(30) = 控制表_dgv("需求日期", e.RowIndex).Value.ToString : PB(31) = 控制表_dgv("確認日期", e.RowIndex).Value.ToString : PB(32) = 控制表_dgv("修訂日期", e.RowIndex).Value.ToString
+                PB(33) = 控制表_dgv("Special_Packaging", e.RowIndex).Value.ToString : PB(34) = 控制表_dgv("Remarks", e.RowIndex).Value.ToString : PB(35) = 控制表_dgv("出貨地", e.RowIndex).Value.ToString
+                PB(36) = 控制表_dgv("TVW", e.RowIndex).Value.ToString : PB(37) = 控制表_dgv("楦頭號", e.RowIndex).Value.ToString : PB(38) = 控制表_dgv("材質", e.RowIndex).Value.ToString
+                PB(39) = 控制表_dgv("WEAR_TEST", e.RowIndex).Value.ToString : PB(40) = 控制表_dgv("面料", e.RowIndex).Value.ToString : PB(41) = 控制表_dgv("副料", e.RowIndex).Value.ToString
+                PB(42) = 控制表_dgv("中底", e.RowIndex).Value.ToString : PB(43) = 控制表_dgv("鞋墊", e.RowIndex).Value.ToString : PB(44) = 控制表_dgv("大底", e.RowIndex).Value.ToString
+                PB(45) = 控制表_dgv("跟", e.RowIndex).Value.ToString : PB(46) = 控制表_dgv("工廠進度表備註1", e.RowIndex).Value.ToString : PB(47) = 控制表_dgv("七號模具", e.RowIndex).Value.ToString
+                PB(48) = 控制表_dgv("工廠進度表備註2", e.RowIndex).Value.ToString : BL(1) = 0 : PB(49) = 控制表_dgv("客戶包裝確認", e.RowIndex).Value.ToString
+                PB(50) = 控制表_dgv("東莞業務備註", e.RowIndex).Value.ToString : PB(51) = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString : PB(52) = 控制表_dgv("工廠確認", e.RowIndex).Value.ToString
+                PB(53) = 控制表_dgv("利威確認", e.RowIndex).Value.ToString : PB(54) = 控制表_dgv("結關日", e.RowIndex).Value.ToString : PB(55) = 控制表_dgv("SMS簽回", e.RowIndex).Value.ToString
+                PB(56) = 控制表_dgv("FRS簽回", e.RowIndex).Value.ToString : PB(57) = 控制表_dgv("MASTER_SWATCH", e.RowIndex).Value.ToString : PB(58) = 控制表_dgv("力威訂單號", e.RowIndex).Value.ToString
+                PB(59) = 控制表_dgv("ProductID", e.RowIndex).Value.ToString : PB(60) = 控制表_dgv("UoM", e.RowIndex).Value.ToString
             End If
         End If
     End Sub
@@ -1820,16 +1767,16 @@ Public Class 訂單控制表
         驗貨報告大圖.ShowDialog()
     End Sub
     Private Sub Button25_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
-        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_tb.Click
-        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button23_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
-        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub Button21_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
-        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
+        驗貨報告_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 驗貨報告_pb.Refresh() : 驗貨報告_pb.SizeMode = 4
     End Sub
     Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles 拆單出貨出貨數量_tb.TextChanged
         If Val(拆單出貨出貨數量_tb.Text) > Val(整單出貨可出貨數量_tb.Text) Then
@@ -1976,4 +1923,19 @@ Public Class 訂單控制表
         End If
 
     End Sub
+    Private Sub CanceL3_bt_Click(sender As Object, e As EventArgs) Handles CanceL3_bt.Click
+        Panel2.Visible = False
+    End Sub
+    Private Sub 包裝資訊_bt_Click(sender As Object, e As EventArgs) Handles 包裝資訊_bt.Click
+        SQL_包裝資訊圖片連結查詢()
+        If dr.Read() Then : PA20 = dr("包裝圖庫").ToString : PA2 = dr("包裝圖號").ToString : Else : PA20 = "" : PA2 = "" : End If
+        If PA20 = "" Or PA2 = "" Then : MsgBox("沒有包裝資訊圖!!!") : Else
+            Panel2.Visible = True : PA1 = PA20
+            SQL_包裝圖片() : 包裝資料_pb.Image = Nothing
+            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 : 圖片傳遞 = 包裝資料_pb.Image
+        End If
+    End Sub
 End Class