20220430備份

.editorconfig

 
 # BC42322: 對介面類型進行來回轉換時可能發生執行階段錯誤
 dotnet_diagnostic.BC42322.severity = none
+
+# BC42353: 函式在所有程式碼路徑上皆不會傳回值
+dotnet_diagnostic.BC42353.severity = suggestion

SHENKANG-MES-SYS/LoginForm1.vb

     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
         刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False
-        執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
-        TextBox4.Text = "1"
+        執行檔版本號_lb.Text = "執行檔版本號 : " & 版本 : TextBox4.Text = "1"
         網段.ShowDialog()
-        If 登入判斷 = True Then
-            伺服器區域選擇_cb.Text = "巨益線路"
-            OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
-        ElseIf 登入判斷 = False Then
-            伺服器區域選擇_cb.Text = "開發線路"
-            OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
-        End If
         '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
         Me.Size = New Size(466, 279)
         If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(727, 401)
         End If
         Timer1.Enabled = True
     End Sub
+    Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 登入判斷 = True Then
+            伺服器區域選擇_cb.Text = "巨益線路"
+            OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
+        ElseIf 登入判斷 = False Then
+            伺服器區域選擇_cb.Text = "開發線路"
+            OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
+        End If
+    End Sub
     <Obsolete>
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域選擇_cb.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域選擇_cb.Text = "巨益線路" Then
-            登入人IP = "192.168.10.5"
-            登入()
-            OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
+            If SQL_連線狀態模組.ConnectTest("192.168.10.5") = True Then
+                登入人IP = "192.168.10.5" : 登入()
+                OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
+            Else
+                MsgBox("巨益伺服器無法連線，自動轉跳測試線路，請聯繫系統管理員!!")
+                伺服器區域選擇_cb.Text = "開發線路"
+                登入人IP = "106.1.48.106,4567" : 登入()
+                OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
+            End If
         ElseIf 伺服器區域選擇_cb.Text = "開發線路" Then
-            登入人IP = "106.1.48.106,4567"
-            登入()
+            登入人IP = "106.1.48.106,4567" : 登入()
             OK.Enabled = True : Cancel.Enabled = True : 刷卡登入_ch.Checked = True
         End If
         UsernameTextBox.Focus()

SHENKANG-MES-SYS/My Project/AssemblyInfo.vb

 ' 指定為預設值: 
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>

SHENKANG-MES-SYS/MyModule/SQL_樣品訂單管理.vb

     '---------------------樣品進度表------------------------------------------
     Friend Sub SQL_樣品訂單控制表1()
         ConnOpen()
-        SQL1 = "SELECT SO, 版次 FROM 樣品訂單控制表 WHERE 季節 LIKE N'" & 樣品進度表.SEASON_cb.Text & "' AND 客戶 LIKE N'" & 樣品進度表.CUST_cb.Text & "' AND 狀態 LIKE N'" & 樣品進度表分類1 & "' ORDER BY 型體號碼, SO, 版次 DESC"
+        SQL1 = "SELECT   樣品訂單控制表.SO, 樣品訂單控制表.版次
+                FROM     樣品訂單控制表 INNER JOIN
+                         樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO INNER JOIN
+                         樣品訂單部件表 ON 樣品訂單控制表.SO = 樣品訂單部件表.SO
+                WHERE   (樣品訂單控制表.季節 LIKE N'" & 樣品進度表.SEASON_cb.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & 樣品進度表.CUST_cb.Text & "') AND 
+                        (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類1 & "')
+                GROUP BY 樣品訂單控制表.型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次
+                ORDER BY 樣品訂單控制表.型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_樣品訂單控制表2()

SHENKANG-MES-SYS/MyModule/SQL_登入.vb → SHENKANG-MES-SYS/MyModule/SQL_登入與主程式.vb

-Module SQL_登入
+Module SQL_登入與主程式
     Friend Sub SQL_資料夾名稱清單()
         ConnOpen()
         SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理 WHERE (指定 NOT LIKE 'NA') ORDER BY 指定"

SHENKANG-MES-SYS/MyModule/SQL_連線狀態模組.vb

+Module SQL_連線狀態模組
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 3) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 3
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=METO-MES-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+End Module

SHENKANG-MES-SYS/MyModule/全域變數.vb

                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021102001"
+    Public 版本 As String = "2022041801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""

SHENKANG-MES-SYS/WINPROFIT-ERP-SYS.vbproj

     <Compile Include="MyModule\SQL_成本管理系統.vb" />
     <Compile Include="MyModule\SQL_採購系統管理.vb" />
     <Compile Include="MyModule\SQL_樣品訂單管理.vb" />
-    <Compile Include="MyModule\SQL_登入.vb" />
+    <Compile Include="MyModule\SQL_登入與主程式.vb" />
     <Compile Include="MyModule\SQL_製鞋系統管理.vb" />
     <Compile Include="MyModule\SQL_資料庫系統.vb" />
+    <Compile Include="MyModule\SQL_連線狀態模組.vb" />
     <Compile Include="MyModule\SQL_量產訂單管理系統.vb" />
     <Compile Include="SplashScreen1.Designer.vb">
       <DependentUpon>SplashScreen1.vb</DependentUpon>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>m89nRaRclWjieRR0Jua8D+nsGNlBgVo99G1syUK0zjg=</dsig:DigestValue>
+        <dsig:DigestValue>+OQAxi13uH9eVXk1MJpvqnernwHvYewa+YpOqEjNM5U=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

   <description asmv2:iconFile="SHENKANG.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
   <application />
   <entryPoint>
-    <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+    <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
     <commandLine file="WINPROFIT-ERP-SYS.exe" parameters="" />
   </entryPoint>
   <trustInfo>
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5627392">
-      <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5630464">
+      <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>hO2Vcij7W0pmog4isMcrhNehHleozBqGl4qSCERMABg=</dsig:DigestValue>
+        <dsig:DigestValue>ZXd2DehjNi2/VfKchliwZQFQKo8nDxXgEgYwAtoqW1I=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.xml

   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="M:WINPROFIT_ERP_SYS.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>m89nRaRclWjieRR0Jua8D+nsGNlBgVo99G1syUK0zjg=</dsig:DigestValue>
+        <dsig:DigestValue>+OQAxi13uH9eVXk1MJpvqnernwHvYewa+YpOqEjNM5U=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

   <description asmv2:iconFile="SHENKANG.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
   <application />
   <entryPoint>
-    <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+    <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
     <commandLine file="WINPROFIT-ERP-SYS.exe" parameters="" />
   </entryPoint>
   <trustInfo>
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5627392">
-      <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5630464">
+      <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>hO2Vcij7W0pmog4isMcrhNehHleozBqGl4qSCERMABg=</dsig:DigestValue>
+        <dsig:DigestValue>ZXd2DehjNi2/VfKchliwZQFQKo8nDxXgEgYwAtoqW1I=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.CoreCompileInputs.cache

-6855e067415fc0a60745078f280177a00d63aa62
+b05eb67811b07a4e5cec9cae0d353305bffb6e45

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.FileListAbsolute.txt

 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.exe
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.pdb
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.xml
-D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbprojAssemblyReference.cache
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.SplashScreen1.resources
+D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.輸入密碼.resources
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.列印_量產訂單控制表.resources
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.成本資料庫管理.resources
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.網段.resources
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.exe
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.xml
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.pdb
-D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.輸入密碼.resources
+D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbprojAssemblyReference.cache

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.xml

   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="M:WINPROFIT_ERP_SYS.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

SHENKANG-MES-SYS/人事管理系統/人員入職資料表.vb

         DTP1 = Format(DateTimePicker2.Value, "yyyy/MM/dd")
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 人事資料建檔_bt.Click
+        Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
         If 檔案名稱_tb.Text = "" Or 登入姓名_tb.Text = "" Or 姓名_tb.Text = "" Then
             MsgBox("請確定人事資料表的圖片檔已準備完成，並且有選擇未建檔的人事清單資料、人員中文姓名有填寫等")
         Else
             Else
 
                 Dim 驗證 As String = "" : Dim 取變數 As String
-                Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
                 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
                 For i As Integer = 1 To 10
                     If i = 1 Then
                     ElseIf NUM1 > 9999999 Then : 員工編號_tb.Text = "EN" & NUM1
                     End If
 
-                    Set_日期格式轉換()
-                    SQL_新增人事資料表()
-                    conn.Close() : dr.Close()
+                    Set_日期格式轉換() : SQL_新增人事資料表() : conn.Close() : dr.Close()
                     MsgBox("新增完成")
                     '---------------------------------------------------------------------------------------------------------------------------------
-                    檔案名稱_tb.Text = ""
-
-                    SQL_更改使用者權限管理表()
-                    conn.Close() : dr.Close()
-                    MsgBox("更改完成")
-                    Set_使用者清單() : Set_人員清單()
-                    讀取圖片()
+                    SQL_更改使用者權限管理表() : conn.Close() : dr.Close()
+                    Set_使用者清單() : Set_人員清單() : 讀取圖片()
                     '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                     frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
                     fcr = New NetworkCredential(FTP帳號, FTP密碼)

SHENKANG-MES-SYS/成本管理系統/列印_樣品報價單.vb

                            "' AND 形體名 LIKE N'" & DataGridView1.Rows(i).Cells("STYLENAME").Value & "' AND 類別 LIKE N'設計圖'"
                     CmdSet_For_dr()
                     While dr.Read() = True
-                        Dim bytes As Byte() = New Byte(-1) {} : bytes = DirectCast(dr.Item("圖片"), Byte()) : Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
+                        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() : GG(xlApp, xlSheet)
                 Else

SHENKANG-MES-SYS/樣品訂單管理系統/樣品單控制表.Designer.vb

         '樣品訂單清單_lb
         '
         Me.樣品訂單清單_lb.AutoSize = True
-        Me.樣品訂單清單_lb.Location = New System.Drawing.Point(14, 13)
+        Me.樣品訂單清單_lb.Location = New System.Drawing.Point(14, 5)
         Me.樣品訂單清單_lb.Name = "樣品訂單清單_lb"
         Me.樣品訂單清單_lb.Size = New System.Drawing.Size(80, 16)
         Me.樣品訂單清單_lb.TabIndex = 677
         '
         '樣品單_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(12, 39)
+        Me.樣品單_dgv.Location = New System.Drawing.Point(12, 26)
         Me.樣品單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.樣品單_dgv.Name = "樣品單_dgv"
         Me.樣品單_dgv.RowHeadersWidth = 5
         '
         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(381, 8)
+        Me.搜尋_bt.Location = New System.Drawing.Point(381, 0)
         Me.搜尋_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.搜尋_bt.Name = "搜尋_bt"
         Me.搜尋_bt.Size = New System.Drawing.Size(50, 24)
         '
         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(437, 8)
+        Me.返回_bt.Location = New System.Drawing.Point(437, 0)
         Me.返回_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.返回_bt.Name = "返回_bt"
         Me.返回_bt.Size = New System.Drawing.Size(50, 24)
         '
         '明細3_dgv
         '
+        Me.明細3_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.明細3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細3_dgv.Location = New System.Drawing.Point(493, 292)
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.明細4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.明細4_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.明細4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細4_dgv.Location = New System.Drawing.Point(493, 823)
         '樣品訂單轉制預告訂單_bt
         '
         Me.樣品訂單轉制預告訂單_bt.ForeColor = System.Drawing.Color.Red
-        Me.樣品訂單轉制預告訂單_bt.Location = New System.Drawing.Point(100, 8)
+        Me.樣品訂單轉制預告訂單_bt.Location = New System.Drawing.Point(100, 0)
         Me.樣品訂單轉制預告訂單_bt.Name = "樣品訂單轉制預告訂單_bt"
         Me.樣品訂單轉制預告訂單_bt.Size = New System.Drawing.Size(158, 24)
         Me.樣品訂單轉制預告訂單_bt.TabIndex = 747
         '清單伸展_ch
         '
         Me.清單伸展_ch.AutoSize = True
-        Me.清單伸展_ch.Location = New System.Drawing.Point(264, 11)
+        Me.清單伸展_ch.Location = New System.Drawing.Point(264, 3)
         Me.清單伸展_ch.Name = "清單伸展_ch"
         Me.清單伸展_ch.Size = New System.Drawing.Size(75, 20)
         Me.清單伸展_ch.TabIndex = 749

SHENKANG-MES-SYS/樣品訂單管理系統/樣品單控制表.vb

     Private Sub 新增準備4_1()
         For i As Integer = 0 To 明細2_dgv.Rows.Count - 1
             資料數 = 明細2_dgv.Rows.Count : MyModule1.進度條()
-            PA = 明細2_dgv.Rows(i).Cells("顏色").Value : PA1 = 明細2_dgv.Rows(i).Cells("架號").Value
-            PA2 = 明細2_dgv.Rows(i).Cells("數量").Value : PA3 = 明細2_dgv.Rows(i).Cells("SIZE").Value
-            PA4 = 明細2_dgv.Rows(i).Cells("KEEP").Value : PA5 = 明細2_dgv.Rows(i).Cells("借出者").Value
-            PA6 = 明細4_dgv.Rows(i).Cells("備註").Value : PA10 = 明細2_dgv.Rows(i).Cells("項次").Value
-            PA11 = 明細2_dgv.Rows(i).Cells("版次").Value
+            PA = 明細2_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 明細2_dgv.Rows(i).Cells("架號").Value.ToString
+            PA2 = 明細2_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 明細2_dgv.Rows(i).Cells("SIZE").Value.ToString
+            PA4 = 明細2_dgv.Rows(i).Cells("KEEP").Value.ToString : PA5 = 明細2_dgv.Rows(i).Cells("借出者").Value.ToString
+            PA6 = 明細4_dgv.Rows(i).Cells("備註").Value.ToString : PA10 = 明細2_dgv.Rows(i).Cells("項次").Value.ToString
+            PA11 = 明細2_dgv.Rows(i).Cells("版次").Value.ToString
             SQL_修改樣品訂單清單() : conn.Close()
         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
     Private Sub 新增準備4_2()
         For i As Integer = 0 To 明細3_dgv.Rows.Count - 1
             資料數 = 明細3_dgv.Rows.Count : MyModule1.進度條()
-            PA = 明細3_dgv.Rows(i).Cells("材料名稱").Value : PA1 = 明細3_dgv.Rows(i).Cells("顏色").Value
-            PA2 = 明細3_dgv.Rows(i).Cells("備註").Value : PA3 = 明細3_dgv.Rows(i).Cells("廠商").Value
-            PA4 = 明細3_dgv.Rows(i).Cells("排列").Value : PA5 = 明細3_dgv.Rows(i).Cells("流水號").Value
-            PA6 = 明細3_dgv.Rows(i).Cells("部件").Value
+            PA = 明細3_dgv.Rows(i).Cells("材料名稱").Value.ToString : PA1 = 明細3_dgv.Rows(i).Cells("顏色").Value.ToString
+            PA2 = 明細3_dgv.Rows(i).Cells("備註").Value.ToString : PA3 = 明細3_dgv.Rows(i).Cells("廠商").Value.ToString
+            PA4 = 明細3_dgv.Rows(i).Cells("排列").Value.ToString : PA5 = 明細3_dgv.Rows(i).Cells("流水號").Value.ToString
+            PA6 = 明細3_dgv.Rows(i).Cells("部件").Value.ToString
             SQL_修改樣品訂單部件表() : conn.Close()
         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
             新增文件 = False : Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
             一般新增_bt.Enabled = True : 複製新增_bt.Enabled = True : 修改模式_bt.Enabled = True : REVISED_bt.Enabled = True
             存檔_bt.Enabled = False : 新增_bt.Enabled = False : 新增1_bt.Enabled = False : 刪除_bt.Enabled = False : 刪除1_bt.Enabled = False
-            MsgBox("存檔完成") : Set_清單()
+            MsgBox("存檔完成") : 返回_bt.PerformClick()
         End If
     End Sub
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 刪除3_bt.Click
         ComboBox6下拉表單資料載入()
     End Sub
     Private Sub Button30_Click(sender As Object, e As EventArgs) Handles 指定資料寫入_bt.Click
-        明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("廠商").Value = 供應商_cb.Text
-        明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("材料名稱").Value = 供應商2_cb.Text
-        明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("顏色").Value = 供應商3_cb.Text
+        If 筆資料中的_tb.Text = "" Then
+            MsgBox("資料寫入前須先選擇清單中的哪一筆")
+        Else
+            明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("廠商").Value = 供應商_cb.Text
+            明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("材料名稱").Value = 供應商2_cb.Text
+            明細3_dgv.Rows(Val(筆資料中的_tb.Text) - 1).Cells("顏色").Value = 供應商3_cb.Text
+        End If
     End Sub
     Private Sub ComboBox12_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
         ComboBox13下拉表單資料載入() : ComboBox14下拉表單資料載入()

SHENKANG-MES-SYS/樣品訂單管理系統/樣品進度表.Designer.vb

         Me.文字提醒_lb = New System.Windows.Forms.Label()
         Me.全部列印自動框線_cb = New System.Windows.Forms.CheckBox()
         Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
         CType(Me.進度表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.版本_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.部件A_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         CType(Me.季節客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '清除_bt
         '
         '進度表_dgv
         '
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.進度表_dgv.Location = New System.Drawing.Point(9, 37)
         '部件C_dgv
         '
         Me.部件C_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.部件C_dgv.Location = New System.Drawing.Point(842, 76)
+        Me.部件C_dgv.Location = New System.Drawing.Point(75, 418)
         Me.部件C_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.部件C_dgv.Name = "部件C_dgv"
         Me.部件C_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.部件C_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.部件C_dgv.RowTemplate.Height = 24
-        Me.部件C_dgv.Size = New System.Drawing.Size(252, 158)
+        Me.部件C_dgv.Size = New System.Drawing.Size(264, 158)
         Me.部件C_dgv.TabIndex = 702
         '
         '部件D_dgv
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.部件F_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.部件F_dgv.RowTemplate.Height = 24
-        Me.部件F_dgv.Size = New System.Drawing.Size(233, 169)
+        Me.部件F_dgv.Size = New System.Drawing.Size(252, 169)
         Me.部件F_dgv.TabIndex = 705
         '
         '查看歷史進度表資料_bt
         '
         Me.GroupBox1.Controls.Add(Me.關閉_bt)
         Me.GroupBox1.Controls.Add(Me.季節客戶_dgv)
-        Me.GroupBox1.Location = New System.Drawing.Point(878, 109)
+        Me.GroupBox1.Location = New System.Drawing.Point(3, 3)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(439, 733)
         Me.GroupBox1.TabIndex = 707
         Me.季節客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.季節客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.季節客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.季節客戶_dgv.Location = New System.Drawing.Point(23, 54)
+        Me.季節客戶_dgv.Location = New System.Drawing.Point(6, 54)
         Me.季節客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.季節客戶_dgv.Name = "季節客戶_dgv"
         Me.季節客戶_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.季節客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.季節客戶_dgv.RowTemplate.Height = 24
-        Me.季節客戶_dgv.Size = New System.Drawing.Size(385, 658)
+        Me.季節客戶_dgv.Size = New System.Drawing.Size(427, 672)
         Me.季節客戶_dgv.TabIndex = 704
         '
         '列印_bt
         '
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox2.Location = New System.Drawing.Point(75, 418)
+        Me.PictureBox2.Location = New System.Drawing.Point(345, 418)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(285, 166)
         Me.PictureBox2.TabIndex = 784
         Me.重新讀取_bt.Text = "重新讀取"
         Me.重新讀取_bt.UseVisualStyleBackColor = True
         '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.GroupBox1)
+        Me.Panel1.Location = New System.Drawing.Point(720, 76)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(449, 741)
+        Me.Panel1.TabIndex = 790
+        '
         '樣品進度表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.重新讀取_bt)
         Me.Controls.Add(Me.全部列印自動框線_cb)
         Me.Controls.Add(Me.文字提醒_lb)
         Me.Controls.Add(Me.全部取消_bt)
         Me.Controls.Add(Me.全部選擇_bt)
         Me.Controls.Add(Me.列印_bt)
-        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.查看歷史進度表資料_bt)
+        Me.Controls.Add(Me.清除_bt)
+        Me.Controls.Add(Me.CUST_cb)
+        Me.Controls.Add(Me.CUST_lb)
+        Me.Controls.Add(Me.SEASON_cb)
+        Me.Controls.Add(Me.SEASON_lb)
+        Me.Controls.Add(Me.進度表_dgv)
         Me.Controls.Add(Me.部件F_dgv)
         Me.Controls.Add(Me.部件E_dgv)
         Me.Controls.Add(Me.部件D_dgv)
         Me.Controls.Add(Me.部件B_dgv)
         Me.Controls.Add(Me.部件A_dgv)
         Me.Controls.Add(Me.版本_dgv)
-        Me.Controls.Add(Me.清除_bt)
-        Me.Controls.Add(Me.CUST_cb)
-        Me.Controls.Add(Me.CUST_lb)
-        Me.Controls.Add(Me.SEASON_cb)
-        Me.Controls.Add(Me.SEASON_lb)
-        Me.Controls.Add(Me.進度表_dgv)
         Me.Controls.Add(Me.PictureBox2)
         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.GroupBox1.ResumeLayout(False)
         CType(Me.季節客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 文字提醒_lb As Label
     Friend WithEvents 全部列印自動框線_cb As CheckBox
     Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents Panel1 As Panel
 End Class

SHENKANG-MES-SYS/樣品訂單管理系統/樣品進度表.vb

 Public Class 樣品進度表
     Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
     Dim N1, N2, N3, N4, N5, N6, FFGG As Integer
-    Dim SSDD As String
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Private Sub Set_清單1()
         版本_dgv.DataSource = Nothing : ds1.Clear()
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()
         版本_dgv.Visible = False : 部件A_dgv.Visible = False : 部件B_dgv.Visible = False : 部件C_dgv.Visible = False : 部件D_dgv.Visible = False : 部件E_dgv.Visible = False
-        部件F_dgv.Visible = False : GroupBox1.Visible = False : SEASON_cb.Enabled = False : CUST_cb.Enabled = False
+        部件F_dgv.Visible = False : Panel1.Visible = False : SEASON_cb.Enabled = False : CUST_cb.Enabled = False
         查看歷史進度表資料_bt.PerformClick()
     End Sub
     Private Sub 進度表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 進度表_dgv.RowPostPaint
         SEASON_cb.Enabled = True : CUST_cb.Enabled = True : ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()
     End Sub
     Private Sub 關閉_bt_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
-        GroupBox1.Visible = False
+        Panel1.Visible = False
     End Sub
     Private Sub 查看歷史進度表資料_bt_Click(sender As Object, e As EventArgs) Handles 查看歷史進度表資料_bt.Click
-        Set_清單8() : GroupBox1.Visible = True
+        Set_清單8() : Panel1.Visible = True
     End Sub
     Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 : 進度表_dgv.Rows(i).Cells("選擇").Value = False : Next
         SQL_圖片導入2()
         PictureBox2.Image = Nothing
         While dr.Read() = True
-            Dim bytes As Byte() = New Byte(-1) {}
-            bytes = DirectCast(dr.Item("圖片"), Byte())
+            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)
+
+            'Dim bytes As Byte() = New Byte(-1) {}
+            'bytes = DirectCast(dr.Item("圖片"), Byte())
+            'Dim oStream As New MemoryStream(bytes)
+            'PictureBox2.Image = Bitmap.FromStream(oStream)
         End While
         conn.Close()
         PictureBox2.SizeMode = 4