20240120備份

SHENKANG-MES-SYS/11、資料庫管理系統/系統編碼規則_1.Designer.vb

@@ -136,7 +136,6 @@ Partial Class 系統編碼規則_1
         Me.品牌清單_tb = New System.Windows.Forms.TextBox()
         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.伺服器狀態_dgv = New System.Windows.Forms.DataGridView()
         Me.圖片資料庫管理修改_bt = New System.Windows.Forms.Button()
         Me.圖片資料庫名稱_lb = New System.Windows.Forms.Label()
@@ -146,6 +145,7 @@ Partial Class 系統編碼規則_1
         Me.伺服器_lb = New System.Windows.Forms.Label()
         Me.MAX_nud = New System.Windows.Forms.NumericUpDown()
         Me.是否可用_ch = New System.Windows.Forms.CheckBox()
+        Me.選擇_tb = New System.Windows.Forms.TextBox()
         Me.GroupBox3.SuspendLayout()
         CType(Me.部件大項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
@@ -222,7 +222,7 @@ Partial Class 系統編碼規則_1
         Me.部件大項分類大項_lb.AutoSize = True
         Me.部件大項分類大項_lb.Location = New System.Drawing.Point(6, 22)
         Me.部件大項分類大項_lb.Name = "部件大項分類大項_lb"
-        Me.部件大項分類大項_lb.Size = New System.Drawing.Size(32, 16)
+        Me.部件大項分類大項_lb.Size = New System.Drawing.Size(31, 16)
         Me.部件大項分類大項_lb.TabIndex = 229
         Me.部件大項分類大項_lb.Text = "大項"
         '
@@ -299,7 +299,7 @@ Partial Class 系統編碼規則_1
         Me.貼標對應名稱大項_lb.AutoSize = True
         Me.貼標對應名稱大項_lb.Location = New System.Drawing.Point(6, 22)
         Me.貼標對應名稱大項_lb.Name = "貼標對應名稱大項_lb"
-        Me.貼標對應名稱大項_lb.Size = New System.Drawing.Size(32, 16)
+        Me.貼標對應名稱大項_lb.Size = New System.Drawing.Size(31, 16)
         Me.貼標對應名稱大項_lb.TabIndex = 229
         Me.貼標對應名稱大項_lb.Text = "大項"
         '
@@ -380,7 +380,7 @@ Partial Class 系統編碼規則_1
         Me.報表及對帳單年份_lb.AutoSize = True
         Me.報表及對帳單年份_lb.Location = New System.Drawing.Point(6, 22)
         Me.報表及對帳單年份_lb.Name = "報表及對帳單年份_lb"
-        Me.報表及對帳單年份_lb.Size = New System.Drawing.Size(32, 16)
+        Me.報表及對帳單年份_lb.Size = New System.Drawing.Size(31, 16)
         Me.報表及對帳單年份_lb.TabIndex = 229
         Me.報表及對帳單年份_lb.Text = "年份"
         '
@@ -461,7 +461,7 @@ Partial Class 系統編碼規則_1
         Me.部門清單管理_lb.AutoSize = True
         Me.部門清單管理_lb.Location = New System.Drawing.Point(6, 22)
         Me.部門清單管理_lb.Name = "部門清單管理_lb"
-        Me.部門清單管理_lb.Size = New System.Drawing.Size(32, 16)
+        Me.部門清單管理_lb.Size = New System.Drawing.Size(31, 16)
         Me.部門清單管理_lb.TabIndex = 229
         Me.部門清單管理_lb.Text = "部門"
         '
@@ -542,7 +542,7 @@ Partial Class 系統編碼規則_1
         Me.職稱清單管理_lb.AutoSize = True
         Me.職稱清單管理_lb.Location = New System.Drawing.Point(6, 22)
         Me.職稱清單管理_lb.Name = "職稱清單管理_lb"
-        Me.職稱清單管理_lb.Size = New System.Drawing.Size(32, 16)
+        Me.職稱清單管理_lb.Size = New System.Drawing.Size(31, 16)
         Me.職稱清單管理_lb.TabIndex = 229
         Me.職稱清單管理_lb.Text = "職稱"
         '
@@ -623,7 +623,7 @@ Partial Class 系統編碼規則_1
         Me.請假類別管理_lb.AutoSize = True
         Me.請假類別管理_lb.Location = New System.Drawing.Point(6, 22)
         Me.請假類別管理_lb.Name = "請假類別管理_lb"
-        Me.請假類別管理_lb.Size = New System.Drawing.Size(32, 16)
+        Me.請假類別管理_lb.Size = New System.Drawing.Size(31, 16)
         Me.請假類別管理_lb.TabIndex = 229
         Me.請假類別管理_lb.Text = "類別"
         '
@@ -704,7 +704,7 @@ Partial Class 系統編碼規則_1
         Me.廠商類別管理類別_lb.AutoSize = True
         Me.廠商類別管理類別_lb.Location = New System.Drawing.Point(6, 22)
         Me.廠商類別管理類別_lb.Name = "廠商類別管理類別_lb"
-        Me.廠商類別管理類別_lb.Size = New System.Drawing.Size(32, 16)
+        Me.廠商類別管理類別_lb.Size = New System.Drawing.Size(31, 16)
         Me.廠商類別管理類別_lb.TabIndex = 229
         Me.廠商類別管理類別_lb.Text = "類別"
         '
@@ -785,7 +785,7 @@ Partial Class 系統編碼規則_1
         Me.模具開發用結構_lb.AutoSize = True
         Me.模具開發用結構_lb.Location = New System.Drawing.Point(6, 22)
         Me.模具開發用結構_lb.Name = "模具開發用結構_lb"
-        Me.模具開發用結構_lb.Size = New System.Drawing.Size(32, 16)
+        Me.模具開發用結構_lb.Size = New System.Drawing.Size(31, 16)
         Me.模具開發用結構_lb.TabIndex = 229
         Me.模具開發用結構_lb.Text = "結構"
         '
@@ -866,7 +866,7 @@ Partial Class 系統編碼規則_1
         Me.模具開發用材質_lb.AutoSize = True
         Me.模具開發用材質_lb.Location = New System.Drawing.Point(6, 22)
         Me.模具開發用材質_lb.Name = "模具開發用材質_lb"
-        Me.模具開發用材質_lb.Size = New System.Drawing.Size(32, 16)
+        Me.模具開發用材質_lb.Size = New System.Drawing.Size(31, 16)
         Me.模具開發用材質_lb.TabIndex = 229
         Me.模具開發用材質_lb.Text = "材質"
         '
@@ -930,7 +930,7 @@ Partial Class 系統編碼規則_1
         Me.財務帳本職別_lb.AutoSize = True
         Me.財務帳本職別_lb.Location = New System.Drawing.Point(103, 20)
         Me.財務帳本職別_lb.Name = "財務帳本職別_lb"
-        Me.財務帳本職別_lb.Size = New System.Drawing.Size(32, 16)
+        Me.財務帳本職別_lb.Size = New System.Drawing.Size(31, 16)
         Me.財務帳本職別_lb.TabIndex = 676
         Me.財務帳本職別_lb.Text = "職別"
         '
@@ -946,7 +946,7 @@ Partial Class 系統編碼規則_1
         Me.財務帳本編號_lb.AutoSize = True
         Me.財務帳本編號_lb.Location = New System.Drawing.Point(9, 20)
         Me.財務帳本編號_lb.Name = "財務帳本編號_lb"
-        Me.財務帳本編號_lb.Size = New System.Drawing.Size(32, 16)
+        Me.財務帳本編號_lb.Size = New System.Drawing.Size(31, 16)
         Me.財務帳本編號_lb.TabIndex = 674
         Me.財務帳本編號_lb.Text = "編號"
         '
@@ -1046,7 +1046,7 @@ Partial Class 系統編碼規則_1
         Me.楦頭縮寫管理縮寫_lb.AutoSize = True
         Me.楦頭縮寫管理縮寫_lb.Location = New System.Drawing.Point(6, 22)
         Me.楦頭縮寫管理縮寫_lb.Name = "楦頭縮寫管理縮寫_lb"
-        Me.楦頭縮寫管理縮寫_lb.Size = New System.Drawing.Size(32, 16)
+        Me.楦頭縮寫管理縮寫_lb.Size = New System.Drawing.Size(31, 16)
         Me.楦頭縮寫管理縮寫_lb.TabIndex = 229
         Me.楦頭縮寫管理縮寫_lb.Text = "縮寫"
         '
@@ -1127,7 +1127,7 @@ Partial Class 系統編碼規則_1
         Me.客戶_lb.AutoSize = True
         Me.客戶_lb.Location = New System.Drawing.Point(6, 22)
         Me.客戶_lb.Name = "客戶_lb"
-        Me.客戶_lb.Size = New System.Drawing.Size(32, 16)
+        Me.客戶_lb.Size = New System.Drawing.Size(31, 16)
         Me.客戶_lb.TabIndex = 229
         Me.客戶_lb.Text = "客戶"
         '
@@ -1208,7 +1208,7 @@ Partial Class 系統編碼規則_1
         Me.品牌清單_lb.AutoSize = True
         Me.品牌清單_lb.Location = New System.Drawing.Point(6, 22)
         Me.品牌清單_lb.Name = "品牌清單_lb"
-        Me.品牌清單_lb.Size = New System.Drawing.Size(56, 16)
+        Me.品牌清單_lb.Size = New System.Drawing.Size(55, 16)
         Me.品牌清單_lb.TabIndex = 229
         Me.品牌清單_lb.Text = "品牌清單"
         '
@@ -1266,23 +1266,13 @@ Partial Class 系統編碼規則_1
         'LOG檔截斷3_bt
         '
         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(1740, 3)
+        Me.LOG檔截斷3_bt.Location = New System.Drawing.Point(1783, 3)
         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(123, 23)
+        Me.LOG檔截斷3_bt.Size = New System.Drawing.Size(80, 23)
         Me.LOG檔截斷3_bt.TabIndex = 1517
         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(1625, 7)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(56, 16)
-        Me.Label3.TabIndex = 1516
-        Me.Label3.Text = "主伺服器"
-        '
         '伺服器狀態_dgv
         '
         DataGridViewCellStyle16.BackColor = System.Drawing.Color.White
@@ -1320,7 +1310,7 @@ Partial Class 系統編碼規則_1
         Me.圖片資料庫名稱_lb.BackColor = System.Drawing.SystemColors.Control
         Me.圖片資料庫名稱_lb.Location = New System.Drawing.Point(1230, 6)
         Me.圖片資料庫名稱_lb.Name = "圖片資料庫名稱_lb"
-        Me.圖片資料庫名稱_lb.Size = New System.Drawing.Size(92, 16)
+        Me.圖片資料庫名稱_lb.Size = New System.Drawing.Size(91, 16)
         Me.圖片資料庫名稱_lb.TabIndex = 1513
         Me.圖片資料庫名稱_lb.Text = "圖片資料庫名稱"
         '
@@ -1371,7 +1361,7 @@ Partial Class 系統編碼規則_1
         Me.伺服器_lb.BackColor = System.Drawing.SystemColors.Control
         Me.伺服器_lb.Location = New System.Drawing.Point(832, 7)
         Me.伺服器_lb.Name = "伺服器_lb"
-        Me.伺服器_lb.Size = New System.Drawing.Size(230, 16)
+        Me.伺服器_lb.Size = New System.Drawing.Size(229, 16)
         Me.伺服器_lb.TabIndex = 1509
         Me.伺服器_lb.Text = "伺服器中資料庫極限容量監控設定值 (MB)"
         '
@@ -1391,19 +1381,28 @@ Partial Class 系統編碼規則_1
         Me.是否可用_ch.AutoSize = True
         Me.是否可用_ch.Location = New System.Drawing.Point(1542, 7)
         Me.是否可用_ch.Name = "是否可用_ch"
-        Me.是否可用_ch.Size = New System.Drawing.Size(75, 20)
+        Me.是否可用_ch.Size = New System.Drawing.Size(74, 20)
         Me.是否可用_ch.TabIndex = 1514
         Me.是否可用_ch.Text = "是否鎖定"
         Me.是否可用_ch.UseVisualStyleBackColor = True
         '
+        '選擇_tb
+        '
+        Me.選擇_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.選擇_tb.Location = New System.Drawing.Point(1622, 4)
+        Me.選擇_tb.Margin = New System.Windows.Forms.Padding(5)
+        Me.選擇_tb.Name = "選擇_tb"
+        Me.選擇_tb.Size = New System.Drawing.Size(162, 23)
+        Me.選擇_tb.TabIndex = 1519
+        '
         '系統編碼規則_1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.選擇_tb)
         Me.Controls.Add(Me.資料庫清單1_dgv)
         Me.Controls.Add(Me.LOG檔截斷3_bt)
-        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.伺服器狀態_dgv)
         Me.Controls.Add(Me.圖片資料庫管理修改_bt)
         Me.Controls.Add(Me.圖片資料庫名稱_lb)
@@ -1572,7 +1571,6 @@ Partial Class 系統編碼規則_1
     Friend WithEvents 品牌清單_tb As TextBox
     Friend WithEvents 資料庫清單1_dgv As DataGridView
     Friend WithEvents LOG檔截斷3_bt As Button
-    Friend WithEvents Label3 As Label
     Friend WithEvents 伺服器狀態_dgv As DataGridView
     Friend WithEvents 圖片資料庫管理修改_bt As Button
     Friend WithEvents 圖片資料庫名稱_lb As Label
@@ -1582,4 +1580,5 @@ Partial Class 系統編碼規則_1
     Friend WithEvents 伺服器_lb As Label
     Friend WithEvents MAX_nud As NumericUpDown
     Friend WithEvents 是否可用_ch As CheckBox
+    Friend WithEvents 選擇_tb As TextBox
 End Class

SHENKANG-MES-SYS/11、資料庫管理系統/系統編碼規則_1.vb

@@ -186,6 +186,9 @@ Public Class 系統編碼規則_1
             End If
         End If
     End Sub
+    Private Sub 資料庫清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 資料庫清單1_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 選擇_tb.Text = 資料庫清單1_dgv(0, e.RowIndex).Value.ToString : End If
+    End Sub
     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
         SQL_系統預測值修改() : 分母 = MAX_nud.Value : 圖庫限制 = MAX_nud.Value : Set_伺服器狀態()
     End Sub
@@ -199,9 +202,7 @@ Public Class 系統編碼規則_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 : 圖片庫 = PA : SQL_連線字串_圖片資料庫() : SQL_主資料庫LOG檔案截斷()
-            Next
+            PA = 選擇_tb.Text : 圖片庫 = PA : SQL_連線字串_圖片資料庫() : SQL_主資料庫LOG檔案截斷()
             重新讀取_bt.PerformClick() : MsgBox("伺服器截斷完成!!!")
         Catch ex As Exception
             MsgBox(ex.Message)

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>Ssky16oJ+Y1KlprQ+ztR2yHp4WDT4DtRlxVHEM7xwHM=</dsig:DigestValue>
+        <dsig:DigestValue>NltwMzQRjKArVuz4bsKUZLyH6a/0GISVKLSfTg2ZFKo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -50,7 +50,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>0KUdYpogmSP7SYzyKEU7JiInA7jrA5o4Ikc0bJ81kG4=</dsig:DigestValue>
+        <dsig:DigestValue>uzJXr3iylP+M6nzFOMIaItB5wa5RMcjWI73LVpAwtnU=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>Ssky16oJ+Y1KlprQ+ztR2yHp4WDT4DtRlxVHEM7xwHM=</dsig:DigestValue>
+        <dsig:DigestValue>NltwMzQRjKArVuz4bsKUZLyH6a/0GISVKLSfTg2ZFKo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -50,7 +50,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>0KUdYpogmSP7SYzyKEU7JiInA7jrA5o4Ikc0bJ81kG4=</dsig:DigestValue>
+        <dsig:DigestValue>uzJXr3iylP+M6nzFOMIaItB5wa5RMcjWI73LVpAwtnU=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-84c5d5d258220fe36cf34b91e8896cc089ded718
+35ed36cc56821a0054e70ffd674e63a98419412478fcc15192ad5defd1e99742

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -1347,4 +1347,3 @@ D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ER
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.xml
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.pdb
 D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbproj.AssemblyReference.cache
-D:\工巧明\WINPROFIT\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbproj.SuggestedBindingRedirects.cache