LEEHSIEHJUI před 11 měsíci
rodič
revize
bb73e29191

binární
.vs/SYS-UPDATE/FileContentIndex/5b937835-9af6-4266-b606-4aa44378d994.vsidx Zobrazit soubor


binární
.vs/SYS-UPDATE/FileContentIndex/7f471518-3e39-4df5-b3f5-3252fe0b2130.vsidx Zobrazit soubor


binární
.vs/SYS-UPDATE/FileContentIndex/3a11cb0f-7766-44c8-a2d1-e6f244b2c6c3.vsidx → .vs/SYS-UPDATE/FileContentIndex/d1bfc963-e4d5-41d2-b43b-c1e5841b3ace.vsidx Zobrazit soubor


binární
.vs/SYS-UPDATE/v17/.suo Zobrazit soubor


+ 7
- 10
.vs/SYS-UPDATE/v17/DocumentLayout.json Zobrazit soubor

@@ -7,15 +7,15 @@
7 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 8
     },
9 9
     {
10
-      "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}",
10
+      "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}",
11 11
       "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}"
12 12
     },
13 13
     {
14
-      "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}",
14
+      "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}",
15 15
       "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}"
16 16
     },
17 17
     {
18
-      "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}",
18
+      "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}",
19 19
       "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}"
20 20
     },
21 21
     {
@@ -46,8 +46,7 @@
46 46
               "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
47 47
               "ViewState": "AQIAAAAAAAAAAAAAAAAwwAYAAAAcAAAA",
48 48
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
49
-              "WhenOpened": "2024-03-13T11:50:36.4Z",
50
-              "EditorCaption": ""
49
+              "WhenOpened": "2024-03-13T11:50:36.4Z"
51 50
             },
52 51
             {
53 52
               "$type": "Document",
@@ -59,8 +58,7 @@
59 58
               "RelativeToolTip": "SYS-UPDATE\\SQL_\u9023\u7DDA\u72C0\u614B\u6A21\u7D441.vb",
60 59
               "ViewState": "AQIAAAAAAAAAAAAAAAAAACsAAAAAAAAA",
61 60
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
62
-              "WhenOpened": "2024-03-13T11:46:41.726Z",
63
-              "EditorCaption": ""
61
+              "WhenOpened": "2024-03-13T11:46:41.726Z"
64 62
             },
65 63
             {
66 64
               "$type": "Document",
@@ -72,8 +70,7 @@
72 70
               "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
73 71
               "ViewState": "AQIAAAQAAAAAAAAAAIA2wBUAAABzAAAA",
74 72
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
75
-              "WhenOpened": "2024-03-13T11:38:42.727Z",
76
-              "EditorCaption": ""
73
+              "WhenOpened": "2024-03-13T11:38:42.727Z"
77 74
             },
78 75
             {
79 76
               "$type": "Document",
@@ -83,7 +80,7 @@
83 80
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
84 81
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\TENDEN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
85 82
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
86
-              "ViewState": "AQIAAAsAAAAAAAAAAAAAwBwAAAAvAAAA",
83
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAABwAAAAAAAAA",
87 84
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
88 85
               "WhenOpened": "2023-06-07T08:43:19.563Z",
89 86
               "EditorCaption": ""

+ 7
- 32
SYS-UPDATE/SYS-UPDATE.vb Zobrazit soubor

@@ -1,47 +1,22 @@
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
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("TENDEN-ERP-SYS.exe")
14 6
         For Each p As Process In pProcess1 : p.Kill() : Next
15 7
         Dim Strs As String = Application.StartupPath : 資料數 = 17
16
-
17
-        If SQL_連線狀態模組1.ConnectTest1("192.168.0.107") = True Then
18
-            MyModule1.進度條() : 登入人IP = "192.168.0.107" : SQL_連線字串_正式() : 伺服器區域_cb.Text = "天盾伺服器"
19
-        Else
20
-            MyModule1.進度條() : 登入人IP = "106.1.49.218,2433" : SQL_連線字串_測試() : 伺服器區域_cb.Text = "雲端伺服器"
21
-        End If
22
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
23
-        MyModule1.進度條() : SQL_版本號()
24
-        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
25
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
26
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
27
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
28
-        MyModule1.進度條() : Set_清單1()
29
-        MyModule1.進度條() : Dim HH As String = ""
30
-        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
31
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
32
-            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
33
-        Next
34
-        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
8
+        MyModule1.進度條() : Target = "https://gcm-smart.com/ERP/TENDEN/"
35 9
     End Sub
36 10
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
37 11
         MyModule1.進度條() : Delay(30000)
38 12
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
39
-        MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS - 2021092901.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS - 2021092901.exe") : End If
40
-        MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS - 2021092801.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS - 2021092801.exe") : End If
41 13
         MyModule1.進度條() : If File.Exists(Str + "\TENDEN-ERP-SYS.exe") Then : File.Delete(Str + "\TENDEN-ERP-SYS.exe") : End If
42
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
43
-        MyModule1.進度條() : Shell(Str + "\TENDEN-ERP-SYS.exe", vbNormalFocus)
44
-        Me.Close()
14
+        If 伺服器區域_cb.Text = "天盾伺服器" Then
15
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
16
+        Else
17
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "TENDEN-ERP-SYS.exe", Str + "\TENDEN-ERP-SYS.exe")
18
+        End If
19
+        MyModule1.進度條() : Shell(Str + "\TENDEN-ERP-SYS.exe", vbNormalFocus) : Me.Close()
45 20
     End Sub
46 21
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
47 22
         Dim time As DateTime = DateTime.Now

binární
SYS-UPDATE/bin/Debug/SYS-UPDATE.exe Zobrazit soubor


binární
SYS-UPDATE/bin/Debug/SYS-UPDATE.pdb Zobrazit soubor


binární
SYS-UPDATE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Zobrazit soubor


binární
SYS-UPDATE/obj/Debug/SYS-UPDATE.exe Zobrazit soubor


binární
SYS-UPDATE/obj/Debug/SYS-UPDATE.pdb Zobrazit soubor


binární
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.AssemblyReference.cache Zobrazit soubor


+ 1
- 1
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache Zobrazit soubor

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

binární
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.GenerateResource.cache Zobrazit soubor


Loading…
Zrušit
Uložit