20240622備份

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

   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\",
   "Documents": [
     {
-      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\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\\yd\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "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\\yd\\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\\YD\\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}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\yd\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "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}|Form"
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\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\\YD\\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}"
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "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}|Form"
     }
   ],
   "DocumentGroupContainers": [
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 2,
               "Title": "SQL_Module.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SQL_Module.vb",
               "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-11T09:50:33.747Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-06-11T09:50:33.747Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 1,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwA0AAAAIAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2023-08-10T04:18:47.33Z",
-              "EditorCaption": ""
+              "WhenOpened": "2023-08-10T04:18:47.33Z"
             },
             {
               "$type": "Document",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAABEAAAAIAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAABEAAABMAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2023-02-03T03:33:51.429Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 3,
               "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2023-02-03T03:33:40.936Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2023-02-03T03:33:40.936Z"
             }
           ]
         }

SYS-UPDATE.sln

 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
-VisualStudioVersion = 16.0.30011.22
+# Visual Studio Version 17
+VisualStudioVersion = 17.10.34916.146
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SYS-UPDATE", "SYS-UPDATE\SYS-UPDATE.vbproj", "{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}"
 EndProject

SYS-UPDATE/SYS-UPDATE.vb

 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
     Dim Str As String = Application.StartupPath
-    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
-        '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        登入人IP = "180.218.212.245,4567" : SQL_連線字串_ERP() : 資料數 = 14
-        MyModule1.進度條() : 伺服器區域_cb.Text = "雅邸" : g_conn_type = 伺服器區域_cb.Text & "伺服器"
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-        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) & "/"
+        資料數 = 6
+        MyModule1.進度條() : Target = "https://gcm-smart.com/ERP/YD-ERP/"
     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 + "\YD-ERP-SYS - 2021091601.exe") Then : File.Delete(Str + "\YD-ERP-SYS - 2021091601.exe") : End If
         Timer1.Enabled = True
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
             If 已開啟 = False Then
                 Timer1.Enabled = False
                 MyModule1.進度條() : If File.Exists(Str + "\YD-ERP-SYS.exe") Then : File.Delete(Str + "\YD-ERP-SYS.exe") : End If
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "YD-ERP-SYS.exe", Str + "\YD-ERP-SYS.exe")
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "YD-ERP-SYS.exe", Str + "\YD-ERP-SYS.exe")
                 MyModule1.進度條() : Shell(Str + "\YD-ERP-SYS.exe", vbNormalFocus)
                 Me.Close()
             End If
             If 已開啟 = False Then
                 Timer1.Enabled = False
                 MyModule1.進度條() : If File.Exists(Str + "\YD-ERP-SYS.exe") Then : File.Delete(Str + "\YD-ERP-SYS.exe") : End If
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "YD-ERP-SYS.exe", Str + "\YD-ERP-SYS.exe")
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "/" & "YD-ERP-SYS.exe", Str + "\YD-ERP-SYS.exe")
                 MyModule1.進度條() : Shell(Str + "\YD-ERP-SYS.exe", vbNormalFocus)
                 Me.Close()
             End If