20230204備份

SYS-UPDATE/SYS-UPDATE.vb

             MyModule1.進度條() : Dim fileReader As String : fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\LIVE.txt")
             MyModule1.進度條() : If fileReader = "A" Then : 伺服器區域_cb.Text = "天盾伺服器" : Else : 伺服器區域_cb.Text = "雲端伺服器" : End If
             '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-            MyModule1.進度條() : If 伺服器區域_cb.Text = "天盾伺服器" Then : 登入人IP = "192.168.0.107" : ElseIf 伺服器區域_cb.Text = "雲端伺服器" Then : 登入人IP = "106.1.50.79" : End If
+            MyModule1.進度條() : If 伺服器區域_cb.Text = "天盾伺服器" Then : 登入人IP = "192.168.0.107" : ElseIf 伺服器區域_cb.Text = "雲端伺服器" Then : 登入人IP = "106.1.48.106,4567" : End If
             MyModule1.進度條() : SQL_連線字串_ERP()
             '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
             MyModule1.進度條() : SQL_版本號()