20240923備份

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

@@ -0,0 +1,206 @@
+{
+  "Version": 1,
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\",
+  "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\01\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\01\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\01\u3001module\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\01\u3001module\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\01\u3001module\\sql_\u8DE8\u4ECB\u9762\u5171\u7528.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\01\u3001module\\sql_\u8DE8\u4ECB\u9762\u5171\u7528.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\maoji-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\maoji\\maoji-erp-sys\\maoji-erp-sys\\maoji-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\maoji-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\maoji-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\maoji-erp-sys\\maoji-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{19A26C25-9215-4880-B588-ADFFD7E5829B}|MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vbproj|solutionrelative:maoji-erp-sys\\maoji-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 1,
+          "Children": [
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\01\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\01\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAYAAAAlAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T09:20:09.97Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "ViewState": "AQIAACIAAAAAAAAAAADgvzUAAAALAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T09:19:28.388Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u4F9B\u61C9\u5546\u8CC7\u6599\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T09:19:08.115Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 6,
+              "Title": "SQL_\u8DE8\u4ECB\u9762\u5171\u7528.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u8DE8\u4ECB\u9762\u5171\u7528.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u8DE8\u4ECB\u9762\u5171\u7528.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u8DE8\u4ECB\u9762\u5171\u7528.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u8DE8\u4ECB\u9762\u5171\u7528.vb",
+              "ViewState": "AQIAABgAAAAAAAAAAAAuwDAAAAAQAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T04:08:58.534Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\01\u3001Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAUAAAAYAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T03:29:49.063Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "ViewState": "AQIAAC0BAAAAAAAAAAAnwDkBAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T02:42:27.417Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "\u7269\u6599\u8CC7\u6599\u5EAB.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\07\u3001\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u8CC7\u6599\u5EAB.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T02:42:16.777Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 8,
+              "Title": "MAOJI-ERP-SYS.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-17T04:11:11.481Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "LoginForm1.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\LoginForm1.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\LoginForm1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\LoginForm1.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\LoginForm1.vb",
+              "ViewState": "AQIAAAQAAAAAAAAAAAAjwBMAAAAMAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-16T14:23:56.498Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 9,
+              "Title": "LoginForm1.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\LoginForm1.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\LoginForm1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-16T14:23:33.938Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 10,
+              "Title": "MAOJI-ERP-SYS.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\MAOJI-ERP-SYS.vb",
+              "ViewState": "AQIAABkAAAAAAAAAAAAgwCEAAAA5AAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-16T14:21:34.258Z"
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

MAOJI-ERP-SYS/01、Module/SQL_倉儲系統管理.vb

@@ -2,7 +2,8 @@
     '---------------------物料資料庫-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL__物料資料庫清單()
         SQL1 = "SELECT 料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 最低庫存量, 停用 FROM 物料資料庫"
-        PA1 = " ORDER BY 料號 DESC"
+        PA1 = " ORDER BY LEFT(頁碼, LEN(頁碼) - CHARINDEX('-', REVERSE(頁碼))) ASC, 
+                         CAST(SUBSTRING(頁碼, CHARINDEX('-', 頁碼) + 1, LEN(頁碼)) AS INT) ASC"
         PA2 = " WHERE  (料號 LIKE N'%" & PA & "%' OR 頁碼 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%' OR 
                            成本 LIKE N'%" & PA & "%' OR 售價 LIKE N'%" & PA & "%' OR 件數 LIKE N'%" & PA & "%' OR 
                            尺寸 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 備註 LIKE N'%" & PA & "%')"
@@ -48,6 +49,9 @@
     Friend Sub SQL_物料圖庫流水號最後一筆()
         ConnOpen() : SQL1 = "SELECT TOP (1) 料號 FROM 物料資料庫 ORDER BY 料號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_物料料號確認()
+        ConnOpen() : SQL1 = "SELECT 料號 FROM 物料資料庫 WHERE 料號 LIKE N'" & PA & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_物料資料庫新增()
         ConnOpen()
         SQL1 = "INSERT INTO 物料資料庫 (料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 停用) 

MAOJI-ERP-SYS/01、Module/SQL_跨介面共用.vb

@@ -45,7 +45,13 @@
         ConnOpen() : SQL1 = "SELECT 付款方式 FROM MJ付款方式 WHERE 付款方式 LIKE N'" & PA & "'  ORDER BY 編號" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_物料頁碼清單()
-        ConnOpen() : SQL1 = "SELECT LEFT(頁碼, 3) AS 頁碼 FROM 物料資料庫 GROUP BY LEFT(頁碼, 3) ORDER BY 頁碼" : CmdSet_For_dr()
+        ConnOpen()
+        SQL1 = "SELECT    LEFT(頁碼, CASE WHEN CHARINDEX('-', 頁碼) > 0 THEN CHARINDEX('-', 頁碼) - 1 ELSE LEN(頁碼) END) AS 頁碼
+                FROM      物料資料庫
+                WHERE    (停用 = 0)
+                GROUP BY  LEFT(頁碼, CASE WHEN CHARINDEX('-', 頁碼) > 0 THEN CHARINDEX('-', 頁碼) - 1 ELSE LEN(頁碼) END)
+                ORDER BY  頁碼"
+        CmdSet_For_dr()
     End Sub
     Friend Sub SQL_倉儲明細表流水號最後一筆()
         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 倉儲明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()

MAOJI-ERP-SYS/01、Module/全域變數.vb

@@ -4,7 +4,7 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 內外網 As Boolean : Public FTP關閉 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024091701"
+    Public 版本 As String = "2024092301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址 As String
     Public 關鍵字編號 As String

MAOJI-ERP-SYS/06、採購系統管理/供應商資料管理.Designer.vb

@@ -105,8 +105,6 @@ Partial Class 供應商資料管理
         Me.新增供應商資料ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料刪除ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.導出EXCEL_bt = New System.Windows.Forms.Button()
-        Me.導入EXCEL_bt = New System.Windows.Forms.Button()
         Me.全部_ch = New System.Windows.Forms.CheckBox()
         Me.啟用_ch = New System.Windows.Forms.CheckBox()
         Me.停用1_ch = New System.Windows.Forms.CheckBox()
@@ -980,32 +978,6 @@ Partial Class 供應商資料管理
         Me.資料刪除ToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
         Me.資料刪除ToolStripMenuItem.Text = "資料刪除"
         '
-        '導出EXCEL_bt
-        '
-        Me.導出EXCEL_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.EXCELOUT
-        Me.導出EXCEL_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.導出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.導出EXCEL_bt.ForeColor = System.Drawing.Color.Black
-        Me.導出EXCEL_bt.Location = New System.Drawing.Point(1488, 72)
-        Me.導出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.導出EXCEL_bt.Name = "導出EXCEL_bt"
-        Me.導出EXCEL_bt.Size = New System.Drawing.Size(52, 52)
-        Me.導出EXCEL_bt.TabIndex = 1173
-        Me.導出EXCEL_bt.UseVisualStyleBackColor = True
-        '
-        '導入EXCEL_bt
-        '
-        Me.導入EXCEL_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.EXCELIN
-        Me.導入EXCEL_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.導入EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.導入EXCEL_bt.ForeColor = System.Drawing.Color.Black
-        Me.導入EXCEL_bt.Location = New System.Drawing.Point(1437, 72)
-        Me.導入EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.導入EXCEL_bt.Name = "導入EXCEL_bt"
-        Me.導入EXCEL_bt.Size = New System.Drawing.Size(52, 52)
-        Me.導入EXCEL_bt.TabIndex = 1172
-        Me.導入EXCEL_bt.UseVisualStyleBackColor = True
-        '
         '全部_ch
         '
         Me.全部_ch.AutoSize = True
@@ -1101,8 +1073,6 @@ Partial Class 供應商資料管理
         Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.啟用_ch)
         Me.Controls.Add(Me.停用1_ch)
-        Me.Controls.Add(Me.導出EXCEL_bt)
-        Me.Controls.Add(Me.導入EXCEL_bt)
         Me.Controls.Add(Me.資料存檔_bt)
         Me.Controls.Add(Me.關鍵字查詢_bt)
         Me.Controls.Add(Me.新增供應商資料_bt)
@@ -1272,8 +1242,6 @@ Partial Class 供應商資料管理
     Friend WithEvents 新增供應商資料ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 資料存檔ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 資料刪除ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 導出EXCEL_bt As Button
-    Friend WithEvents 導入EXCEL_bt As Button
     Friend WithEvents 全部_ch As CheckBox
     Friend WithEvents 啟用_ch As CheckBox
     Friend WithEvents 停用1_ch As CheckBox

MAOJI-ERP-SYS/06、採購系統管理/供應商資料管理.vb

@@ -52,18 +52,12 @@ Public Class 供應商資料管理
     Private Sub 資料存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 資料存檔_bt.MouseEnter
         ToolTip1.SetToolTip(Me.資料存檔_bt, "資料存檔")
     End Sub
-    Private Sub 導入EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導入EXCEL_bt.MouseEnter
-        ToolTip1.SetToolTip(Me.導入EXCEL_bt, "導入EXCEL")
-    End Sub
-    Private Sub 導出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導出EXCEL_bt.MouseEnter
-        ToolTip1.SetToolTip(Me.導出EXCEL_bt, "導出EXCEL")
-    End Sub
     Private Sub 供應商資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         MAOJI_ERP_SYS.WindowState = 2 : Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         編號_tb.Enabled = False : TextBox27.Visible = False
         ComboBox1下拉表單資料載入() : Set_供應商清單()
-        If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : 導入EXCEL_bt.Enabled = True : 導出EXCEL_bt.Enabled = True
-        Else : 資料刪除ToolStripMenuItem.Enabled = False : 導入EXCEL_bt.Enabled = False : 導出EXCEL_bt.Enabled = False : End If
+        If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True
+        Else : 資料刪除ToolStripMenuItem.Enabled = False : End If
     End Sub
     Private Sub 供應商資料管理_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         MAOJI_ERP_SYS.WindowState = 0

MAOJI-ERP-SYS/07、倉儲系統管理/物料資料庫.Designer.vb

@@ -96,6 +96,7 @@ Partial Class 物料資料庫
         Me.停用_ch = New System.Windows.Forms.CheckBox()
         Me.啟用_ch = New System.Windows.Forms.CheckBox()
         Me.全部_ch = New System.Windows.Forms.CheckBox()
+        Me.刪除物料_bt = New System.Windows.Forms.Button()
         CType(Me.最低庫存量_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.件數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,7 +114,7 @@ Partial Class 物料資料庫
         Me.導出EXCEL_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.導出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.導出EXCEL_bt.ForeColor = System.Drawing.Color.Black
-        Me.導出EXCEL_bt.Location = New System.Drawing.Point(466, 2)
+        Me.導出EXCEL_bt.Location = New System.Drawing.Point(453, 2)
         Me.導出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.導出EXCEL_bt.Name = "導出EXCEL_bt"
         Me.導出EXCEL_bt.Size = New System.Drawing.Size(50, 50)
@@ -157,7 +158,7 @@ Partial Class 物料資料庫
         Me.批量修改_ch.AutoSize = True
         Me.批量修改_ch.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.批量修改_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.批量修改_ch.Location = New System.Drawing.Point(319, 1)
+        Me.批量修改_ch.Location = New System.Drawing.Point(333, 1)
         Me.批量修改_ch.Name = "批量修改_ch"
         Me.批量修改_ch.Size = New System.Drawing.Size(74, 20)
         Me.批量修改_ch.TabIndex = 1164
@@ -433,9 +434,9 @@ Partial Class 物料資料庫
         Me.頁碼_cb.ForeColor = System.Drawing.Color.Green
         Me.頁碼_cb.FormattingEnabled = True
         Me.頁碼_cb.Items.AddRange(New Object() {"男", "女", "NA"})
-        Me.頁碼_cb.Location = New System.Drawing.Point(85, 2)
+        Me.頁碼_cb.Location = New System.Drawing.Point(84, 2)
         Me.頁碼_cb.Name = "頁碼_cb"
-        Me.頁碼_cb.Size = New System.Drawing.Size(47, 24)
+        Me.頁碼_cb.Size = New System.Drawing.Size(70, 24)
         Me.頁碼_cb.TabIndex = 1124
         '
         'Label27
@@ -443,7 +444,7 @@ Partial Class 物料資料庫
         Me.Label27.AutoSize = True
         Me.Label27.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label27.ForeColor = System.Drawing.Color.Green
-        Me.Label27.Location = New System.Drawing.Point(53, 7)
+        Me.Label27.Location = New System.Drawing.Point(53, 6)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(31, 16)
         Me.Label27.TabIndex = 1123
@@ -711,7 +712,7 @@ Partial Class 物料資料庫
         Me.導入EXCEL_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.導入EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.導入EXCEL_bt.ForeColor = System.Drawing.Color.Black
-        Me.導入EXCEL_bt.Location = New System.Drawing.Point(415, 2)
+        Me.導入EXCEL_bt.Location = New System.Drawing.Point(404, 2)
         Me.導入EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.導入EXCEL_bt.Name = "導入EXCEL_bt"
         Me.導入EXCEL_bt.Size = New System.Drawing.Size(50, 50)
@@ -724,7 +725,7 @@ Partial Class 物料資料庫
         Me.批量存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.批量存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.批量存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.批量存檔_bt.Location = New System.Drawing.Point(317, 17)
+        Me.批量存檔_bt.Location = New System.Drawing.Point(331, 17)
         Me.批量存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.批量存檔_bt.Name = "批量存檔_bt"
         Me.批量存檔_bt.Size = New System.Drawing.Size(74, 35)
@@ -737,7 +738,7 @@ Partial Class 物料資料庫
         Me.單筆存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.單筆存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.單筆存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.單筆存檔_bt.Location = New System.Drawing.Point(265, 2)
+        Me.單筆存檔_bt.Location = New System.Drawing.Point(282, 2)
         Me.單筆存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.單筆存檔_bt.Name = "單筆存檔_bt"
         Me.單筆存檔_bt.Size = New System.Drawing.Size(50, 50)
@@ -763,7 +764,7 @@ Partial Class 物料資料庫
         Me.新增物料資料.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.新增物料資料.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.新增物料資料.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.新增物料資料.Location = New System.Drawing.Point(212, 2)
+        Me.新增物料資料.Location = New System.Drawing.Point(233, 2)
         Me.新增物料資料.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.新增物料資料.Name = "新增物料資料"
         Me.新增物料資料.Size = New System.Drawing.Size(50, 50)
@@ -775,7 +776,7 @@ Partial Class 物料資料庫
         Me.停用_ch.AutoSize = True
         Me.停用_ch.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.停用_ch.ForeColor = System.Drawing.Color.Green
-        Me.停用_ch.Location = New System.Drawing.Point(138, 29)
+        Me.停用_ch.Location = New System.Drawing.Point(159, 29)
         Me.停用_ch.Name = "停用_ch"
         Me.停用_ch.Size = New System.Drawing.Size(74, 20)
         Me.停用_ch.TabIndex = 1174
@@ -789,7 +790,7 @@ Partial Class 物料資料庫
         Me.啟用_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.啟用_ch.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.啟用_ch.ForeColor = System.Drawing.Color.Green
-        Me.啟用_ch.Location = New System.Drawing.Point(138, 3)
+        Me.啟用_ch.Location = New System.Drawing.Point(159, 3)
         Me.啟用_ch.Name = "啟用_ch"
         Me.啟用_ch.Size = New System.Drawing.Size(74, 20)
         Me.啟用_ch.TabIndex = 1175
@@ -801,18 +802,32 @@ Partial Class 物料資料庫
         Me.全部_ch.AutoSize = True
         Me.全部_ch.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.全部_ch.ForeColor = System.Drawing.Color.Green
-        Me.全部_ch.Location = New System.Drawing.Point(58, 29)
+        Me.全部_ch.Location = New System.Drawing.Point(83, 29)
         Me.全部_ch.Name = "全部_ch"
         Me.全部_ch.Size = New System.Drawing.Size(74, 20)
         Me.全部_ch.TabIndex = 1176
         Me.全部_ch.Text = "全部資料"
         Me.全部_ch.UseVisualStyleBackColor = True
         '
+        '刪除物料_bt
+        '
+        Me.刪除物料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.GarbageEmpty
+        Me.刪除物料_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.刪除物料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除物料_bt.ForeColor = System.Drawing.Color.Black
+        Me.刪除物料_bt.Location = New System.Drawing.Point(502, 2)
+        Me.刪除物料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.刪除物料_bt.Name = "刪除物料_bt"
+        Me.刪除物料_bt.Size = New System.Drawing.Size(50, 50)
+        Me.刪除物料_bt.TabIndex = 1177
+        Me.刪除物料_bt.UseVisualStyleBackColor = True
+        '
         '物料資料庫
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.刪除物料_bt)
         Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.導出EXCEL_bt)
         Me.Controls.Add(Me.導入EXCEL_bt)
@@ -834,7 +849,6 @@ Partial Class 物料資料庫
         Me.Controls.Add(Me.材質_tb)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.尺寸_tb)
-        Me.Controls.Add(Me.Label27)
         Me.Controls.Add(Me.頁碼_cb)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.品名_tb)
@@ -849,6 +863,7 @@ Partial Class 物料資料庫
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.物料清單_dgv)
         Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label27)
         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(4)
         Me.Name = "物料資料庫"
@@ -937,4 +952,5 @@ Partial Class 物料資料庫
     Friend WithEvents 停用_ch As CheckBox
     Friend WithEvents 啟用_ch As CheckBox
     Friend WithEvents 全部_ch As CheckBox
+    Friend WithEvents 刪除物料_bt As Button
 End Class

MAOJI-ERP-SYS/07、倉儲系統管理/物料資料庫.vb

@@ -132,7 +132,7 @@ Public Class 物料資料庫
         ElseIf EDR > 9999999 Then : ESTR = "PR" & EDR : End If : 料號_tb.Text = ESTR
         MsgBox("請注意頁碼格式前三碼為數字後續再用符號-隔開，在頁碼前三碼大於999之後請通知系統開發商更新程4碼。")
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 單筆存檔_bt.Click
+    Private Sub 單筆存檔_bt_Click(sender As Object, e As EventArgs) Handles 單筆存檔_bt.Click
         If 物料清單_dgv.Enabled = False Then
             If 頁碼_tb.Text = "0" Then : MsgBox("沒有輸入頁碼，請注意頁碼格式前三碼為數字後續再用符號-隔開，在頁碼前三碼大於999之後請通知系統開發商更新程4碼。")
             Else
@@ -146,6 +146,15 @@ Public Class 物料資料庫
             MsgBox("資料存檔完畢 。") : Set_物料清單() : PA = "" : 物料清單_dgv.Enabled = True
         End If
     End Sub
+    Private Sub 刪除物料_bt_Click(sender As Object, e As EventArgs) Handles 刪除物料_bt.Click
+        Dim aa As MsgBoxResult
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            PA = 料號_tb.Text
+            SQL_物料圖庫_圖片刪除() : conn.Close() : SQL_物料資料庫刪除() : conn.Close()
+            MsgBox("刪除完成") : Set_物料清單() : Set_未配置圖片的物料清單() : PA = ""
+        End If
+    End Sub
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
     End Sub
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
@@ -237,43 +246,7 @@ Public Class 物料資料庫
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
         存檔1() : MsgBox("修改完成") : 格式1()
     End Sub
-    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
-    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
-        Set_物料清單() : Set_未配置圖片的物料清單()
-    End Sub
-    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
-        Me.關鍵字查詢_bt.PerformClick()
-    End Sub
-    Private Sub 新增物料資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增物料資料ToolStripMenuItem.Click
-        Me.新增物料資料.PerformClick()
-    End Sub
-    Private Sub 資料存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料存檔ToolStripMenuItem.Click
-        Me.單筆存檔_bt.PerformClick()
-    End Sub
-    Private Sub 下載圖片ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 下載圖片ToolStripMenuItem.Click
-        Me.下載圖檔_bt.PerformClick()
-    End Sub
-    Private Sub 讀取料夾路徑ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑ToolStripMenuItem.Click
-        Me.讀取資料夾路徑_bt.PerformClick()
-    End Sub
-    Private Sub 圖檔入系統ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 圖檔入系統ToolStripMenuItem.Click
-        Me.圖檔入系統_bt.PerformClick()
-    End Sub
-    Private Sub 圖片修改ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 圖片修改ToolStripMenuItem.Click
-        Me.修改圖片_bt.PerformClick()
-    End Sub
-    Private Sub 刪除圖檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除圖檔ToolStripMenuItem.Click
-        Me.刪除圖檔_bt.PerformClick()
-    End Sub
-    Private Sub 刪除物料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料刪除ToolStripMenuItem.Click
-        Dim aa As MsgBoxResult
-        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            PA = 料號_tb.Text
-            SQL_物料圖庫_圖片刪除() : conn.Close() : SQL_物料資料庫刪除() : conn.Close()
-            MsgBox("刪除完成") : Set_物料清單() : Set_未配置圖片的物料清單() : PA = ""
-        End If
-    End Sub
+
     Private Sub 導出EXCEL_bt_Click_1(sender As Object, e As EventArgs) Handles 導出EXCEL_bt.Click
         xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
         xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = True : xlBook.Activate() : xlSheet = NewMethod(xlBook)
@@ -283,13 +256,14 @@ Public Class 物料資料庫
         xlSheet.Cells(2, 1) = "請注意，料號欄位為系統主要參考項目，請勿修改，如有新增品項的需求，清直接新增在EXCEL資料表最下方，從新導入時系統會自動新增品項到資料庫中。"
         xlSheet.Cells(3, 1) = "料號" : xlSheet.Cells(3, 2) = "頁碼" : xlSheet.Cells(3, 3) = "品名" : xlSheet.Cells(3, 4) = "成本" : xlSheet.Cells(3, 5) = "售價"
         xlSheet.Cells(3, 6) = "件數" : xlSheet.Cells(3, 7) = "尺寸" : xlSheet.Cells(3, 8) = "材質" : xlSheet.Cells(3, 9) = "備註" : xlSheet.Cells(3, 10) = "最低庫存量"
-
+        xlSheet.Cells(3, 11) = "停用"
         For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
             xlSheet.Cells(i + 4, 1) = 物料清單_dgv.Rows(i).Cells("料號").Value : xlSheet.Cells(i + 4, 2) = 物料清單_dgv.Rows(i).Cells("頁碼").Value
             xlSheet.Cells(i + 4, 3) = 物料清單_dgv.Rows(i).Cells("品名").Value : xlSheet.Cells(i + 4, 4) = 物料清單_dgv.Rows(i).Cells("成本").Value
             xlSheet.Cells(i + 4, 5) = 物料清單_dgv.Rows(i).Cells("售價").Value : xlSheet.Cells(i + 4, 6) = 物料清單_dgv.Rows(i).Cells("件數").Value
             xlSheet.Cells(i + 4, 7) = 物料清單_dgv.Rows(i).Cells("尺寸").Value : xlSheet.Cells(i + 4, 8) = 物料清單_dgv.Rows(i).Cells("材質").Value
             xlSheet.Cells(i + 4, 9) = 物料清單_dgv.Rows(i).Cells("備註").Value : xlSheet.Cells(i + 4, 10) = 物料清單_dgv.Rows(i).Cells("最低庫存量").Value
+            xlSheet.Cells(i + 4, 11) = 物料清單_dgv.Rows(i).Cells("停用").Value
             With xlApp.Selection : .Font.Bold = True : End With : N = i + 4
         Next i : BB(xlApp, xlSheet)
         xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select() : xlApp.Application.WindowState = xlMinimized : MsgBox("列印完成")
@@ -306,21 +280,21 @@ Public Class 物料資料庫
         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 35 : xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 30
         xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 30
 
-        xlSheet.Range("A1:J1").Select()
+        xlSheet.Range("A1:K1").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        xlSheet.Range("A2:J2").Select()
+        xlSheet.Range("A2:K2").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        xlSheet.Range("A2:J2").Select() : With myExcel.Selection.Font : .Color = -16776961 : .TintAndShade = 0 : End With
+        xlSheet.Range("A2:K2").Select() : With myExcel.Selection.Font : .Color = -16776961 : .TintAndShade = 0 : End With
 
-        xlSheet.Range("A1:J1").Select()
+        xlSheet.Range("A1:K1").Select()
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
 
-        xlSheet.Range("A1:J3").Select()
+        xlSheet.Range("A1:K3").Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
@@ -329,7 +303,7 @@ Public Class 物料資料庫
         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
 
-        xlSheet.Range("A4:J" & N).Select()
+        xlSheet.Range("A4:K" & N).Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
@@ -346,13 +320,19 @@ Public Class 物料資料庫
 
         xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = False : xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True
         xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter : myExcel.ActiveWindow.DisplayGridlines = False
+
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
+        xlSheet.Range("A2:K2").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
+        xlSheet.Columns("A:K").Select : xlSheet.Range("A3").Activate() : xlSheet.Columns("A:K").EntireColumn.AutoFit
     End Sub
     Private Sub 導入EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 導入EXCEL_bt.Click
         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
             file_name = OpenFileDialog1.FileName : xlApp = CreateObject("Excel.Application")
             xlApp.DisplayAlerts = False : xlApp.Visible = True : xlApp.Workbooks.Open(file_name) : xlSheet = xlApp.Worksheets(1)
             xlSheet.Activate() : xlApp.Visible = False : Dim 次數 As Integer = 0
-            For YY As Integer = 1 To 3000 : 資料數 = 3000 : MyModule1.進度條()
+            For YY As Integer = 1 To 5000 : 資料數 = 5000 : MyModule1.進度條()
                 If IsNothing(xlSheet.Cells(YY + 3, 3).value) Then : Exit For : End If
                 If IsNothing(xlSheet.Cells(YY + 3, 1).value) Then
                     '----------------------自动生成流水号-------------------------------------------------------------------------
@@ -375,14 +355,37 @@ Public Class 物料資料庫
                     CmdSet_For_dr() : conn.Close()
                     次數 += 1
                 Else
-                    ConnOpen()
-                    SQL1 = "UPDATE 物料資料庫 SET 頁碼 = N'" & xlSheet.Cells(YY + 3, 2).value & "', 品名  = N'" & xlSheet.Cells(YY + 3, 3).value & "', 
+                    PA = xlSheet.Cells(YY + 3, 1).value : SQL_物料料號確認()
+                    If dr.Read() Then
+                        ConnOpen()
+                        SQL1 = "UPDATE 物料資料庫 SET 頁碼 = N'" & xlSheet.Cells(YY + 3, 2).value & "', 品名  = N'" & xlSheet.Cells(YY + 3, 3).value & "', 
                                                   成本 = N'" & xlSheet.Cells(YY + 3, 4).value & "', 售價 = N'" & xlSheet.Cells(YY + 3, 5).value & "', 
                                                   件數 = N'" & xlSheet.Cells(YY + 3, 6).value & "', 尺寸 = N'" & xlSheet.Cells(YY + 3, 7).value & "', 
                                                   材質 = N'" & xlSheet.Cells(YY + 3, 8).value & "', 備註 = N'" & xlSheet.Cells(YY + 3, 9).value & "', 
-                                                  最低庫存量 = N'" & xlSheet.Cells(YY + 3, 10).value & "'  
+                                                  最低庫存量 = N'" & xlSheet.Cells(YY + 3, 10).value & "', 停用 = N'" & xlSheet.Cells(YY + 3, 11).value & "'
                             WHERE 料號 LIKE N'" & xlSheet.Cells(YY + 3, 1).value & "'"
-                    CmdSet_For_dr() : conn.Close()
+                        CmdSet_For_dr() : conn.Close()
+                    Else
+                        '----------------------自动生成流水号-------------------------------------------------------------------------
+                        SQL_物料圖庫流水號最後一筆()
+                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("料號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
+                        If EDR < 10 Then : ESTR = "PR" & "0000000" & EDR
+                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PR" & "000000" & EDR
+                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PR" & "00000" & EDR
+                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PR" & "0000" & EDR
+                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PR" & "000" & EDR
+                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PR" & "00" & EDR
+                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PR" & "0" & EDR
+                        ElseIf EDR > 9999999 Then : ESTR = "PR" & EDR : End If
+                        ConnOpen()
+                        SQL1 = "INSERT INTO 物料資料庫 (料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 停用, 最低庫存量) 
+                            VALUES (N'" & ESTR & "', N'" & xlSheet.Cells(YY + 3, 2).value & "', N'" & xlSheet.Cells(YY + 3, 3).value & "',
+                                    N'" & xlSheet.Cells(YY + 3, 4).value & "', N'" & xlSheet.Cells(YY + 3, 5).value & "', N'" & xlSheet.Cells(YY + 3, 6).value & "', 
+                                    N'" & xlSheet.Cells(YY + 3, 7).value & "', N'" & xlSheet.Cells(YY + 3, 8).value & "', '', N'" & xlSheet.Cells(YY + 3, 9).value & "', 
+                                    '0', N'" & xlSheet.Cells(YY + 3, 10).value & "')"
+                        CmdSet_For_dr() : conn.Close()
+                    End If
+
                     次數 += 1
                 End If
             Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("已修改  " & 次數 & "  次!") : xlApp.Quit() : xlApp = Nothing

MAOJI-ERP-SYS/LoginForm1.vb

@@ -67,6 +67,20 @@ Public Class LoginForm1
             登入人IP = "106.1.48.106,4567" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
         End If
         '-----電腦綁定判斷-------------------------------------------------------------------------------------------------------------------------------------------------------------
+        '-----MAC碼與硬碟資料-------------------------------------------------------------------------------------------------------------------------------------------------------------
+        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
+        For Each WmiObj As Management.ManagementObject In Wmi.Get
+            If CBool(WmiObj("IPEnabled")) Then
+                MACKK = WmiObj("MACAddress")
+            End If
+        Next
+        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
+            diskId = cmicWmiObj("size")             'diskId = cmicWmiObj("signature")
+            diskSerialNumber = cmicWmiObj("serialnumber")
+            diskModel = cmicWmiObj("Model")
+            Exit For
+        Next
         PA1 = MACKK : PA2 = diskId : PA3 = diskSerialNumber : PA4 = diskModel
         SQL_電腦綁定()
         If dr.Read() Then : conn.Close() : Else : 輸入密碼.ShowDialog()