20240622備份

.vs/BIFENG-ERP-SYS/v17/DocumentLayout.json

@@ -3,21 +3,21 @@
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\",
   "Documents": [
     {
-      "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\bifeng-erp-sys\\bifeng-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\bifeng\\bifeng-erp-sys\\bifeng-erp-sys\\bifeng-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\bifeng-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\bifeng-erp-sys\\bifeng-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\bifeng-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
-    {
-      "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\bifeng\\bifeng-erp-sys\\bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    },
     {
       "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
+    {
+      "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
     {
       "AbsoluteMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\bifeng-erp-sys\\0.mymodule\\\u901A\u7528\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{4ACC41E5-D310-481A-9092-458B6EB8B0CA}|BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vbproj|solutionrelative:bifeng-erp-sys\\0.mymodule\\\u901A\u7528\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -134,27 +134,28 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 3,
               "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "RelativeToolTip": "BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAA8AAAAmAAAA",
+              "ViewState": "AQIAAAcAAAAAAAAAAAAAwB4AAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-06-08T10:17:28.138Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 2,
               "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "BIFENG-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-08T10:17:23.069Z"
+              "WhenOpened": "2024-06-08T10:17:23.069Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
             },
             {
               "$type": "Document",
@@ -223,7 +224,7 @@
               "RelativeDocumentMoniker": "BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vb",
               "RelativeToolTip": "BIFENG-ERP-SYS\\BIFENG-ERP-SYS.vb",
-              "ViewState": "AQIAAFUAAAAAAAAAAAAswG0AAAAYAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAcAAAAWAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2023-12-20T02:16:12.689Z",
               "EditorCaption": ""
@@ -352,7 +353,8 @@
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\BIFENG-ERP-SYS\\BIFENG-ERP-SYS\\4.\u547D\\\u6D41\u5E74(\u8CC7\u6599\u5C0E\u5165).vb [\u8A2D\u8A08]",
               "RelativeToolTip": "BIFENG-ERP-SYS\\4.\u547D\\\u6D41\u5E74(\u8CC7\u6599\u5C0E\u5165).vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2023-02-24T13:02:22.02Z"
+              "WhenOpened": "2023-02-24T13:02:22.02Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
             },
             {
               "$type": "Document",

BIFENG-ERP-SYS/BIFENG-ERP-SYS.Designer.vb

@@ -68,7 +68,7 @@ Partial Class BIFENG_ERP_SYS
         Me.卜卦ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統執行檔版本管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FTP資料夾管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.系統對應電腦註冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.圖書資料導入ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
@@ -78,7 +78,6 @@ Partial Class BIFENG_ERP_SYS
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.開啟 = New System.Windows.Forms.Timer(Me.components)
-        Me.系統對應電腦註冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.StatusStrip1.SuspendLayout()
@@ -388,7 +387,7 @@ Partial Class BIFENG_ERP_SYS
         '
         '資料庫系統管理ToolStripMenuItem
         '
-        Me.資料庫系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統執行檔版本管理ToolStripMenuItem, Me.系統對應電腦註冊_tsm, Me.FTP資料夾管理ToolStripMenuItem, Me.ToolStripSeparator4, Me.圖書資料導入ToolStripMenuItem1})
+        Me.資料庫系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統執行檔版本管理ToolStripMenuItem, Me.系統對應電腦註冊_tsm, Me.ToolStripSeparator4, Me.圖書資料導入ToolStripMenuItem1})
         Me.資料庫系統管理ToolStripMenuItem.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
         Me.資料庫系統管理ToolStripMenuItem.Name = "資料庫系統管理ToolStripMenuItem"
         Me.資料庫系統管理ToolStripMenuItem.Size = New System.Drawing.Size(119, 20)
@@ -401,12 +400,12 @@ Partial Class BIFENG_ERP_SYS
         Me.系統執行檔版本管理ToolStripMenuItem.Size = New System.Drawing.Size(182, 22)
         Me.系統執行檔版本管理ToolStripMenuItem.Text = "系統執行檔版本管理"
         '
-        'FTP資料夾管理ToolStripMenuItem
+        '系統對應電腦註冊_tsm
         '
-        Me.FTP資料夾管理ToolStripMenuItem.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
-        Me.FTP資料夾管理ToolStripMenuItem.Name = "FTP資料夾管理ToolStripMenuItem"
-        Me.FTP資料夾管理ToolStripMenuItem.Size = New System.Drawing.Size(182, 22)
-        Me.FTP資料夾管理ToolStripMenuItem.Text = "FTP資料夾管理"
+        Me.系統對應電腦註冊_tsm.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
+        Me.系統對應電腦註冊_tsm.Name = "系統對應電腦註冊_tsm"
+        Me.系統對應電腦註冊_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.系統對應電腦註冊_tsm.Text = "系統對應電腦註冊"
         '
         'ToolStripSeparator4
         '
@@ -466,13 +465,6 @@ Partial Class BIFENG_ERP_SYS
         '
         Me.開啟.Interval = 500
         '
-        '系統對應電腦註冊_tsm
-        '
-        Me.系統對應電腦註冊_tsm.Image = Global.BIFENG_ERP_SYS.My.Resources.Resources.system
-        Me.系統對應電腦註冊_tsm.Name = "系統對應電腦註冊_tsm"
-        Me.系統對應電腦註冊_tsm.Size = New System.Drawing.Size(182, 22)
-        Me.系統對應電腦註冊_tsm.Text = "系統對應電腦註冊"
-        '
         'BIFENG_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -516,7 +508,6 @@ Partial Class BIFENG_ERP_SYS
     Friend WithEvents 卜ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 資料庫系統管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 系統執行檔版本管理ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents FTP資料夾管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DataGridView1 As DataGridView
     Friend WithEvents 卜卦ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 客戶資料管理ToolStripMenuItem As ToolStripMenuItem

BIFENG-ERP-SYS/BIFENG-ERP-SYS.vb

@@ -43,21 +43,6 @@ Public Class BIFENG_ERP_SYS
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
     End Sub
     Private m_ChildFormNumber As Integer
-    Private Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds2.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da1.SelectCommand = cmd : da1.Fill(ds2) : DataGridView1.DataSource = ds2.Tables(0) : conn.Close()
-    End Sub
-    Private Sub Set_清單1()
-        Set_DGV1載入前設定()
-        SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理"
-        Set_DGV1載入後設定()
-    End Sub
     Private Sub BIFENG_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         PA = RndNum.Next(11)
         If CInt(PA) = 0 Then : Me.BackgroundImage = My.Resources._22147396_MotionElements_mountain_range_in_the
@@ -119,18 +104,7 @@ Public Class BIFENG_ERP_SYS
             TT1 = "資料庫版本號 : " & dr("系統認證版本號") : TT2 = "執行檔版本號 : " & 版本 : 版本號 = dr("系統認證版本號")
         End If : conn.Close()
         '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP資料夾 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & 登入人IP & "'"
-        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-        If dr.Read() Then
-            Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP資料夾 = dr("FTP資料夾")
-        End If : conn.Close()
-        Set_清單1()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1(1, i).Value.ToString = "AA00" Then : AA(0) = DataGridView1(0, i).Value.ToString : End If
-            If DataGridView1(1, i).Value.ToString = "AA01" Then : AA(1) = DataGridView1(0, i).Value.ToString : End If
-            If DataGridView1(1, i).Value.ToString = "AA02" Then : AA(2) = DataGridView1(0, i).Value.ToString : End If
-        Next
+        Target = "https://gcm-smart.com/ERP/BIFENG/"
         '-----------------------父表單抬頭資料--------------------------------------------------------------------------------------------------------------------------------------
         Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & TT1 & "  --  " & TT2
         Dim Str As String = Application.StartupPath
@@ -142,15 +116,12 @@ Public Class BIFENG_ERP_SYS
     Private Sub 自動更新2()
         Dim Str As String = Application.StartupPath
         If File.Exists(Str + "\NOTAUTO.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(1) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
+            My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
             Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus) : Me.Close()
         End If
     End Sub
     Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
-        系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
-    End Sub
-    Private Sub FTP資料夾管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理ToolStripMenuItem.Click
-        FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
+        系統執行檔版本管理.ShowDialog()
     End Sub
     Private Sub 卜卦ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 卜卦ToolStripMenuItem.Click
         卜卦.Show() : 卜卦.BringToFront()

BIFENG-ERP-SYS/BIFENG-ERP-SYS.vbproj

@@ -187,12 +187,6 @@
     <Compile Include="資料庫系統管理\書架.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
-      <DependentUpon>FTP資料夾管理.vb</DependentUpon>
-    </Compile>
-    <Compile Include="資料庫系統管理\FTP資料夾管理.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="5.卜\卜卦.Designer.vb">
       <DependentUpon>卜卦.vb</DependentUpon>
     </Compile>
@@ -294,9 +288,6 @@
     <EmbeddedResource Include="資料庫系統管理\書架.resx">
       <DependentUpon>書架.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
-      <DependentUpon>FTP資料夾管理.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>

BIFENG-ERP-SYS/obj/Debug/BIFENG-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-f60446b1ed527a8fb5dff08c27a730ce02662623e690c4a290834a652d735557
+7a0cf0dfc6179513cbd0b266d8b22823755285fcc3dc70fd772032b6074cf931

BIFENG-ERP-SYS/obj/Debug/BIFENG-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -167,7 +167,6 @@ D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.圖
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.客戶資料表.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.流年.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.書架.resources
-D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.FTP資料夾管理.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.Resources.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.SplashScreen1.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.卜卦.resources

BIFENG-ERP-SYS/資料庫系統管理/FTP資料夾管理.Designer.vb

@@ -1,298 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class FTP資料夾管理
-    Inherits System.Windows.Forms.Form
-
-    'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    '為 Windows Form 設計工具的必要項
-    Private components As System.ComponentModel.IContainer
-
-    '注意: 以下為 Windows Form 設計工具所需的程序
-    '可以使用 Windows Form 設計工具進行修改。
-    '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()>
-    Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.資料庫清單1_dgv = New System.Windows.Forms.DataGridView()
-        Me.LOG檔截斷3_bt = New System.Windows.Forms.Button()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.重新讀取_bt = New System.Windows.Forms.Button()
-        Me.伺服器_lb = New System.Windows.Forms.Label()
-        Me.MAX_nud = New System.Windows.Forms.NumericUpDown()
-        Me.伺服器狀態2_dgv = New System.Windows.Forms.DataGridView()
-        Me.字體大小調整_lb = New System.Windows.Forms.Label()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'TextBox4
-        '
-        Me.TextBox4.Location = New System.Drawing.Point(500, 7)
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(70, 23)
-        Me.TextBox4.TabIndex = 632
-        '
-        'Button3
-        '
-        Me.Button3.Location = New System.Drawing.Point(174, 36)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(75, 23)
-        Me.Button3.TabIndex = 631
-        Me.Button3.Text = "刪除"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        'Button2
-        '
-        Me.Button2.Location = New System.Drawing.Point(93, 36)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(75, 23)
-        Me.Button2.TabIndex = 630
-        Me.Button2.Text = "修改"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(12, 36)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 629
-        Me.Button1.Text = "新增"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'TextBox3
-        '
-        Me.TextBox3.Location = New System.Drawing.Point(294, 7)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(200, 23)
-        Me.TextBox3.TabIndex = 628
-        '
-        'TextBox2
-        '
-        Me.TextBox2.Location = New System.Drawing.Point(88, 7)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(200, 23)
-        Me.TextBox2.TabIndex = 627
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Location = New System.Drawing.Point(12, 7)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(70, 23)
-        Me.TextBox1.TabIndex = 626
-        '
-        'DataGridView1
-        '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(12, 65)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(565, 551)
-        Me.DataGridView1.TabIndex = 625
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(471, 39)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(99, 16)
-        Me.Label12.TabIndex = 624
-        Me.Label12.Text = "伺服器FTP文件夾"
-        '
-        '資料庫清單1_dgv
-        '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.White
-        Me.資料庫清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.資料庫清單1_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.資料庫清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.資料庫清單1_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.資料庫清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
-        Me.資料庫清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.資料庫清單1_dgv.Location = New System.Drawing.Point(583, 191)
-        Me.資料庫清單1_dgv.Name = "資料庫清單1_dgv"
-        Me.資料庫清單1_dgv.RowHeadersWidth = 5
-        Me.資料庫清單1_dgv.RowTemplate.Height = 24
-        Me.資料庫清單1_dgv.Size = New System.Drawing.Size(220, 105)
-        Me.資料庫清單1_dgv.TabIndex = 1512
-        '
-        'LOG檔截斷3_bt
-        '
-        Me.LOG檔截斷3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.LOG檔截斷3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG檔截斷3_bt.Location = New System.Drawing.Point(583, 165)
-        Me.LOG檔截斷3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.LOG檔截斷3_bt.Name = "LOG檔截斷3_bt"
-        Me.LOG檔截斷3_bt.Size = New System.Drawing.Size(220, 23)
-        Me.LOG檔截斷3_bt.TabIndex = 1511
-        Me.LOG檔截斷3_bt.Text = "LOG檔截斷"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.BackColor = System.Drawing.SystemColors.Control
-        Me.Label3.Location = New System.Drawing.Point(584, 13)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(55, 16)
-        Me.Label3.TabIndex = 1510
-        Me.Label3.Text = "主伺服器"
-        '
-        '重新讀取_bt
-        '
-        Me.重新讀取_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.重新讀取_bt.Location = New System.Drawing.Point(1023, 9)
-        Me.重新讀取_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.重新讀取_bt.Name = "重新讀取_bt"
-        Me.重新讀取_bt.Size = New System.Drawing.Size(72, 23)
-        Me.重新讀取_bt.TabIndex = 1509
-        Me.重新讀取_bt.Text = "重新讀取"
-        '
-        '伺服器_lb
-        '
-        Me.伺服器_lb.AutoSize = True
-        Me.伺服器_lb.BackColor = System.Drawing.SystemColors.Control
-        Me.伺服器_lb.Location = New System.Drawing.Point(720, 12)
-        Me.伺服器_lb.Name = "伺服器_lb"
-        Me.伺服器_lb.Size = New System.Drawing.Size(229, 16)
-        Me.伺服器_lb.TabIndex = 1508
-        Me.伺服器_lb.Text = "伺服器中資料庫極限容量監控設定值 (MB)"
-        '
-        'MAX_nud
-        '
-        Me.MAX_nud.Location = New System.Drawing.Point(955, 9)
-        Me.MAX_nud.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
-        Me.MAX_nud.Name = "MAX_nud"
-        Me.MAX_nud.Size = New System.Drawing.Size(67, 23)
-        Me.MAX_nud.TabIndex = 1507
-        Me.MAX_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.MAX_nud.ThousandsSeparator = True
-        Me.MAX_nud.Value = New Decimal(New Integer() {2048, 0, 0, 0})
-        '
-        '伺服器狀態2_dgv
-        '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
-        Me.伺服器狀態2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.伺服器狀態2_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.伺服器狀態2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.伺服器狀態2_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.伺服器狀態2_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
-        Me.伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.伺服器狀態2_dgv.Location = New System.Drawing.Point(583, 36)
-        Me.伺服器狀態2_dgv.Name = "伺服器狀態2_dgv"
-        Me.伺服器狀態2_dgv.RowHeadersWidth = 5
-        Me.伺服器狀態2_dgv.RowTemplate.Height = 24
-        Me.伺服器狀態2_dgv.Size = New System.Drawing.Size(634, 126)
-        Me.伺服器狀態2_dgv.TabIndex = 1506
-        '
-        '字體大小調整_lb
-        '
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.字體大小調整_lb.AutoSize = True
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
-        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1096, 10)
-        Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
-        Me.字體大小調整_lb.TabIndex = 1505
-        Me.字體大小調整_lb.Text = "字體調整"
-        '
-        'FTP資料夾管理
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1264, 621)
-        Me.Controls.Add(Me.資料庫清單1_dgv)
-        Me.Controls.Add(Me.LOG檔截斷3_bt)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.重新讀取_bt)
-        Me.Controls.Add(Me.伺服器_lb)
-        Me.Controls.Add(Me.MAX_nud)
-        Me.Controls.Add(Me.伺服器狀態2_dgv)
-        Me.Controls.Add(Me.字體大小調整_lb)
-        Me.Controls.Add(Me.TextBox4)
-        Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.TextBox3)
-        Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.TextBox1)
-        Me.Controls.Add(Me.DataGridView1)
-        Me.Controls.Add(Me.Label12)
-        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "FTP資料夾管理"
-        Me.Text = "FTP資料夾管理"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.資料庫清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.MAX_nud, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.伺服器狀態2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents Button3 As Button
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Button1 As Button
-    Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents DataGridView1 As DataGridView
-    Friend WithEvents Label12 As Label
-    Friend WithEvents 資料庫清單1_dgv As DataGridView
-    Friend WithEvents LOG檔截斷3_bt As Button
-    Friend WithEvents Label3 As Label
-    Friend WithEvents 重新讀取_bt As Button
-    Friend WithEvents 伺服器_lb As Label
-    Friend WithEvents MAX_nud As NumericUpDown
-    Friend WithEvents 伺服器狀態2_dgv As DataGridView
-    Friend WithEvents 字體大小調整_lb As Label
-End Class

BIFENG-ERP-SYS/資料庫系統管理/FTP資料夾管理.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

BIFENG-ERP-SYS/資料庫系統管理/FTP資料夾管理.vb

@@ -1,151 +0,0 @@
-Option Strict Off
-Imports System.Data.SqlClient
-Public Class FTP資料夾管理
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
-    Dim ds As New DataSet
-    Dim dr As SqlDataReader
-    Private Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).FillWeight = 70 : DataGridView1.Columns(1).FillWeight = 200 : DataGridView1.Columns(2).FillWeight = 200 : DataGridView1.Columns(3).FillWeight = 70
-    End Sub
-    Private Sub Set_主伺服器狀態()
-        Try
-            Dim ds8 As New DataSet : 伺服器狀態2_dgv.DataSource = Nothing : ds8.Clear()
-            伺服器狀態2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            伺服器狀態2_dgv.ColumnHeadersHeight = 25
-            伺服器狀態2_dgv.AllowUserToAddRows = False
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
-                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
-                FROM    sys.master_files
-                WHERE  (DB_NAME(database_id) LIKE 'BIFENG%')
-                ORDER BY DB_NAME(database_id)"
-            cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
-            da.Fill(ds8) : 伺服器狀態2_dgv.DataSource = ds8.Tables(0) : conn.Close()
-            Set_進度條顯示2()
-            伺服器狀態2_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.000"
-            伺服器狀態2_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            伺服器狀態2_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-            伺服器狀態2_dgv.Columns(0).FillWeight = 100 : 伺服器狀態2_dgv.Columns(1).FillWeight = 200
-            伺服器狀態2_dgv.Columns(2).FillWeight = 50 : 伺服器狀態2_dgv.Columns(3).FillWeight = 50
-            伺服器狀態2_dgv.Columns(4).Visible = False
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-    Private Sub Set_進度條顯示2()
-        Dim Col As New DataGridViewProgressColumn With {
-            .FillWeight = 130,
-            .DataPropertyName = "容量"
-        }
-        Col.HeaderText = "檔案大小(MB)" : Col.Name = "容量" : Col.DataPropertyName = "檔案大小(MB)"
-        伺服器狀態2_dgv.Columns.Insert(5, Col)
-    End Sub
-    Private Sub Set_伺服器1清單()
-        Try
-            Dim ds8 As New DataSet : 資料庫清單1_dgv.DataSource = Nothing : ds8.Clear()
-            資料庫清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            資料庫清單1_dgv.ColumnHeadersHeight = 25
-            資料庫清單1_dgv.AllowUserToAddRows = False
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'BIFENG%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
-            cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
-            da.Fill(ds8) : 資料庫清單1_dgv.DataSource = ds8.Tables(0) : conn.Close()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-    Private Sub FTP資料夾管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = BIFENG_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
-        Set_使用者清單() : Set_主伺服器狀態() : Set_伺服器1清單()
-    End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
-        If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView1(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView1(2, e.RowIndex).Value.ToString
-            TextBox4.Text = DataGridView1(3, e.RowIndex).Value.ToString
-        End If
-    End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) " &
-               "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "')"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
-        conn.Close()
-        Set_使用者清單()
-    End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & TextBox2.Text & "', 備註 = N'" & TextBox3.Text & "', 指定 = N'" & TextBox4.Text & "' WHERE (資料夾名稱 = N'" & TextBox1.Text & "')"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
-        conn.Close()
-        Set_使用者清單()
-    End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & TextBox1.Text & "')"
-        cmd.CommandText = SQL1 : cmd.Connection = conn
-        If conn.State = ConnectionState.Closed Then : conn.Open() : End If
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : End If
-        conn.Close()
-        Set_使用者清單()
-    End Sub
-    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
-        分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
-        Set_主伺服器狀態() : Set_伺服器1清單()
-    End Sub
-    Private Sub LOG檔截斷3_bt_Click(sender As Object, e As EventArgs) Handles LOG檔截斷3_bt.Click
-        Try
-            For I As Integer = 0 To 資料庫清單1_dgv.Rows.Count - 1
-                PA = 資料庫清單1_dgv(0, I).Value.ToString
-
-                Dim DSF(1) As String : Dim NB1 As Integer = 0
-                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "USE [" & PA & "]"
-                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "select name from sys.database_files;"
-                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While
-
-                If PA = DSF(0) Then : Else
-                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                    SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])"
-                    cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                End If
-
-                If PA & "_log" = DSF(1) Then : Else
-                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                    SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])"
-                    cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                End If
-
-                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "ALTER DATABASE [" & PA & "]
-                                   SET RECOVERY SIMPLE;"
-                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);"
-                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "ALTER DATABASE [" & PA & "]
-                                   SET RECOVERY FULL;"
-                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
-            Next
-            重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
-End Class

BIFENG-ERP-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb

@@ -23,11 +23,6 @@ Partial Class 系統執行檔版本管理
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Button14 = New System.Windows.Forms.Button()
-        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
@@ -38,72 +33,18 @@ Partial Class 系統執行檔版本管理
         '
         Me.Label2.AutoSize = True
         Me.Label2.BackColor = System.Drawing.SystemColors.Control
-        Me.Label2.Location = New System.Drawing.Point(272, 9)
+        Me.Label2.Location = New System.Drawing.Point(6, 34)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(158, 16)
         Me.Label2.TabIndex = 636
         Me.Label2.Text = "資料庫版本號 : 2018110801"
         '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(632, 48)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(91, 16)
-        Me.Label12.TabIndex = 635
-        Me.Label12.Text = "執行檔案更新區"
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(6, 38)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(55, 16)
-        Me.Label13.TabIndex = 634
-        Me.Label13.Text = "我的電腦"
-        '
-        'Button14
-        '
-        Me.Button14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button14.ForeColor = System.Drawing.Color.Blue
-        Me.Button14.Location = New System.Drawing.Point(68, 34)
-        Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(97, 24)
-        Me.Button14.TabIndex = 633
-        Me.Button14.Text = "讀取料夾路徑"
-        Me.Button14.UseVisualStyleBackColor = True
-        '
-        'WebBrowser2
-        '
-        Me.WebBrowser2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser2.Location = New System.Drawing.Point(9, 64)
-        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(621, 550)
-        Me.WebBrowser2.TabIndex = 632
-        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'WebBrowser1
-        '
-        Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(635, 64)
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(621, 550)
-        Me.WebBrowser1.TabIndex = 631
-        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
-        '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(161, 6)
+        Me.Button1.Location = New System.Drawing.Point(166, 5)
         Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(105, 24)
+        Me.Button1.Size = New System.Drawing.Size(105, 45)
         Me.Button1.TabIndex = 630
         Me.Button1.Text = "修改"
         '
@@ -123,37 +64,30 @@ Partial Class 系統執行檔版本管理
         Me.TextBox2.Location = New System.Drawing.Point(52, 6)
         Me.TextBox2.Margin = New System.Windows.Forms.Padding(5)
         Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(101, 23)
+        Me.TextBox2.Size = New System.Drawing.Size(112, 23)
         Me.TextBox2.TabIndex = 628
         '
         '系統執行檔版本管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1264, 621)
+        Me.ClientSize = New System.Drawing.Size(277, 55)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Button14)
-        Me.Controls.Add(Me.WebBrowser2)
-        Me.Controls.Add(Me.WebBrowser1)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
         Me.Name = "系統執行檔版本管理"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "系統執行檔版本管理"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
     Friend WithEvents Label2 As Label
-    Friend WithEvents Label12 As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Button14 As Button
-    Friend WithEvents WebBrowser2 As WebBrowser
-    Friend WithEvents WebBrowser1 As WebBrowser
     Friend WithEvents Button1 As Button
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox2 As TextBox

BIFENG-ERP-SYS/資料庫系統管理/系統執行檔版本管理.vb

@@ -5,7 +5,6 @@ Public Class 系統執行檔版本管理
     Dim cmd As New SqlCommand
     Dim dr As SqlDataReader
     Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = BIFENG_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
@@ -13,12 +12,6 @@ Public Class 系統執行檔版本管理
             Label2.Text = "資料庫版本號 : " & dr("系統認證版本號")
             TextBox2.Text = dr("系統認證版本號")
         End If : conn.Close()
-        Target1 = Target & AA(1) & "/"
-        Target2 = Target & AA(0) & "/"
-        WebBrowser1.Url = New Uri(Target1)
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
@@ -35,9 +28,4 @@ Public Class 系統執行檔版本管理
         End If : conn.Close()
         MsgBox("修改完成")
     End Sub
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
-    End Sub
 End Class