LEEHSIEHJUI 10 月之前
父節點
當前提交
ea148d0fbf

二進制
.vs/SYS-UPDATE/FileContentIndex/889bfa84-4398-4ab9-8a10-e2896b3bc7ec.vsidx 查看文件


二進制
.vs/SYS-UPDATE/FileContentIndex/ba69d7e9-2e38-44c4-97b3-4ee6a2fcbbae.vsidx 查看文件


二進制
.vs/SYS-UPDATE/FileContentIndex/c33c410f-3ba6-42e9-9728-298419f91f0d.vsidx 查看文件


+ 0
- 0
.vs/SYS-UPDATE/FileContentIndex/read.lock 查看文件


二進制
.vs/SYS-UPDATE/v17/.suo 查看文件


+ 104
- 0
.vs/SYS-UPDATE/v17/DocumentLayout.json 查看文件

@@ -0,0 +1,104 @@
1
+{
2
+  "Version": 1,
3
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\",
4
+  "Documents": [
5
+    {
6
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\gcm\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "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}"
8
+    },
9
+    {
10
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
+      "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"
12
+    },
13
+    {
14
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\sys-update\\app.manifest||{FA3CD31E-987B-443A-9B81-186104E8DAC1}",
15
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\app.manifest||{FA3CD31E-987B-443A-9B81-186104E8DAC1}"
16
+    },
17
+    {
18
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
+      "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}"
20
+    },
21
+    {
22
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
+      "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}"
24
+    }
25
+  ],
26
+  "DocumentGroupContainers": [
27
+    {
28
+      "Orientation": 0,
29
+      "VerticalTabListWidth": 256,
30
+      "DocumentGroups": [
31
+        {
32
+          "DockedWidth": 200,
33
+          "SelectedChildIndex": 4,
34
+          "Children": [
35
+            {
36
+              "$type": "Bookmark",
37
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
38
+            },
39
+            {
40
+              "$type": "Document",
41
+              "DocumentIndex": 2,
42
+              "Title": "app.manifest",
43
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\app.manifest",
44
+              "RelativeDocumentMoniker": "SYS-UPDATE\\app.manifest",
45
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\app.manifest",
46
+              "RelativeToolTip": "SYS-UPDATE\\app.manifest",
47
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAA8AAAAcAAAA",
48
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.001203|",
49
+              "WhenOpened": "2023-11-26T03:13:07.666Z"
50
+            },
51
+            {
52
+              "$type": "Document",
53
+              "DocumentIndex": 3,
54
+              "Title": "SQL_Module.vb",
55
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
56
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SQL_Module.vb",
57
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
58
+              "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
59
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
60
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
61
+              "WhenOpened": "2023-11-20T02:14:23.039Z"
62
+            },
63
+            {
64
+              "$type": "Document",
65
+              "DocumentIndex": 4,
66
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
67
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
68
+              "RelativeDocumentMoniker": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
69
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
70
+              "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
71
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAQAAACBAAAA",
72
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
73
+              "WhenOpened": "2023-11-20T02:14:05.708Z"
74
+            },
75
+            {
76
+              "$type": "Document",
77
+              "DocumentIndex": 0,
78
+              "Title": "SYS-UPDATE.vb",
79
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
80
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
81
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
82
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
83
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAYAAAAEAAAA",
84
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
85
+              "WhenOpened": "2023-04-24T08:05:19.616Z",
86
+              "EditorCaption": ""
87
+            },
88
+            {
89
+              "$type": "Document",
90
+              "DocumentIndex": 1,
91
+              "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
92
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
93
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
94
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GCM\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
95
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
96
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
97
+              "WhenOpened": "2023-04-24T08:05:17.322Z"
98
+            }
99
+          ]
100
+        }
101
+      ]
102
+    }
103
+  ]
104
+}

+ 3
- 28
SYS-UPDATE/SYS-UPDATE.vb 查看文件

@@ -1,41 +1,16 @@
1 1
 Imports System.IO
2 2
 Public Class SYS_UPDATE
3 3
     ReadOnly ds2 As New DataSet
4
-    Private Sub Set_清單1()
5
-        FDT_dgv.DataSource = Nothing : ds2.Clear()
6
-        FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
7
-        FDT_dgv.ColumnHeadersHeight = 25
8
-        FDT_dgv.AllowUserToAddRows = False
9
-        SQL_FTP資料夾路徑分配()
10
-        da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
11
-    End Sub
12 4
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
13 5
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
14
-        資料數 = 17
15
-        MyModule1.進度條() : 登入人IP = "mssql-147629-0.cloudclusters.net,12711"
16
-        MyModule1.進度條() : SQL_連線字串_ERP()
17
-        MyModule1.進度條() : 伺服器區域_cb.Text = "工巧明外網"
18
-        MyModule1.進度條() : g_conn_type = 伺服器區域_cb.Text & "伺服器"
19
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
20
-        MyModule1.進度條() : SQL_版本號()
21
-        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
22
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
23
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
24
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
25
-        MyModule1.進度條() : Set_清單1()
26
-        MyModule1.進度條() : Dim HH As String = ""
27
-        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
28
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
29
-            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
30
-        Next
31
-        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
6
+        資料數 = 5
7
+        Target = "https://gcm-smart.com/ERP/GCM-ERP/"
32 8
     End Sub
33 9
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
34 10
         MyModule1.進度條() : Delay(30000)
35 11
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
36
-        MyModule1.進度條() : If File.Exists(Str + "\GCM-ERP-SYS - " & 版本號 & ".exe") Then : File.Delete(Str + "\GCM-ERP-SYS - " & 版本號 & ".exe") : End If
37 12
         MyModule1.進度條() : If File.Exists(Str + "\GCM-ERP-SYS.exe") Then : File.Delete(Str + "\GCM-ERP-SYS.exe") : End If
38
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GCM-ERP-SYS.exe", Str + "\GCM-ERP-SYS.exe")
13
+        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "GCM-ERP-SYS.exe", Str + "\GCM-ERP-SYS.exe")
39 14
         MyModule1.進度條() : Shell(Str + "\GCM-ERP-SYS.exe", vbNormalFocus)
40 15
         Me.Close()
41 16
     End Sub

二進制
SYS-UPDATE/bin/Debug/SYS-UPDATE.exe 查看文件


二進制
SYS-UPDATE/bin/Debug/SYS-UPDATE.pdb 查看文件


二進制
SYS-UPDATE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache 查看文件


二進制
SYS-UPDATE/obj/Debug/SYS-UPDATE.exe 查看文件


二進制
SYS-UPDATE/obj/Debug/SYS-UPDATE.pdb 查看文件


二進制
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.AssemblyReference.cache 查看文件


+ 1
- 1
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache 查看文件

@@ -1 +1 @@
1
-f7bf0ccb484b8b6b002ac292c9038830c025f75f
1
+4a3c3154b1467f0d2844e57a605b84fe7f59c3e6ff78c93fc28db23391792bb1

+ 0
- 1
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.FileListAbsolute.txt 查看文件

@@ -10,4 +10,3 @@ D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
10 10
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
11 11
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
12 12
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
13
-D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache

二進制
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.GenerateResource.cache 查看文件


+ 0
- 0
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache 查看文件


Loading…
取消
儲存