20240622備份

.vs/SYS-UPDATE/v17/DocumentLayout.json

@@ -7,15 +7,15 @@
       "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\sql_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\sys-update\\sql_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sql_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\tenden\\sys-update\\sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
@@ -46,8 +46,7 @@
               "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAwwAYAAAAcAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-03-13T11:50:36.4Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-03-13T11:50:36.4Z"
             },
             {
               "$type": "Document",
@@ -59,8 +58,7 @@
               "RelativeToolTip": "SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAAACsAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-03-13T11:46:41.726Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-03-13T11:46:41.726Z"
             },
             {
               "$type": "Document",
@@ -72,8 +70,7 @@
               "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
               "ViewState": "AQIAAAQAAAAAAAAAAIA2wBUAAABzAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-03-13T11:38:42.727Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-03-13T11:38:42.727Z"
             },
             {
               "$type": "Document",
@@ -83,7 +80,7 @@
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAAAsAAAAAAAAAAAAAwBwAAAAvAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAABwAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2023-06-07T08:43:19.563Z",
               "EditorCaption": ""

SYS-UPDATE/SYS-UPDATE.vb

@@ -1,47 +1,22 @@
 Imports System.IO
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
-    Private Sub Set_清單1()
-        FDT_dgv.DataSource = Nothing : ds2.Clear()
-        FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        FDT_dgv.ColumnHeadersHeight = 25
-        FDT_dgv.AllowUserToAddRows = False
-        SQL_FTP資料夾路徑分配()
-        da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
-    End Sub
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("TENDEN-ERP-SYS.exe")
         For Each p As Process In pProcess1 : p.Kill() : Next
         Dim Strs As String = Application.StartupPath : 資料數 = 17
-
-        If SQL_連線狀態模組1.ConnectTest1("192.168.0.107") = True Then
-            MyModule1.進度條() : 登入人IP = "192.168.0.107" : SQL_連線字串_正式() : 伺服器區域_cb.Text = "天盾伺服器"
-        Else
-            MyModule1.進度條() : 登入人IP = "106.1.49.218,2433" : SQL_連線字串_測試() : 伺服器區域_cb.Text = "雲端伺服器"
-        End If
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_版本號()
-        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
-        MyModule1.進度條() : Set_清單1()
-        MyModule1.進度條() : Dim HH As String = ""
-        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
-            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
-        Next
-        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
+        MyModule1.進度條() : Target = "https://gcm-smart.com/ERP/TENDEN/"
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
-        MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS - 2021092901.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS - 2021092901.exe") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS - 2021092801.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS - 2021092801.exe") : End If
         MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS.exe") : End If
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
-        MyModule1.進度條() : Shell(Str + "\TENDEN-ERP-SYS.exe", vbNormalFocus)
-        Me.Close()
+        If 伺服器區域_cb.Text = "天盾伺服器" Then
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
+        Else
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
+        End If
+        MyModule1.進度條() : Shell(Str + "\TENDEN-ERP-SYS.exe", vbNormalFocus) : Me.Close()
     End Sub
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now

SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-e5b528b0002881bb6b04de9704eee6656a54038231ece3a779f32181c783e6bf
+e9271acb1cb95dd84b4608cef0d680200a3c264cd0674ffb980a4a59888239a9