20210125備份

MaoOrange-Hongji/LoginForm1.vb

     End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        SQL_連線字串_正式()
+        If 伺服器區域_ch.Text = "設計線路" Then
+            SQL_連線字串_測試()
+        Else
+            SQL_連線字串_正式()
+        End If
+
         驗證_tb.Text = "1" : g_conn_type = 伺服器區域_ch.Text & "伺服器"
         '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
         SQL_系統版本號驗證()

MaoOrange-Hongji/Module/全域變數.vb

     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 內外網 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021010101"
+    Public 版本 As String = "2021010501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

MaoOrange-Hongji/倉儲系統管理/物料資料庫.vb

             conn.Close()
             物料圖_pb.SizeMode = 4
             '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            檔案名稱_tb.Text = "" : 圖片用料號_tb.Text = "" : Set_物料清單() : Set_未配置圖片的物料清單()
+            檔案名稱_tb.Text = "" : 圖片用料號_tb.Text = "" : PA = "" : Set_物料清單() : Set_未配置圖片的物料清單()
+
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改圖片_bt.Click