20240831備份

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

@@ -3,32 +3,32 @@
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\",
   "Documents": [
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\fh\\fh-erp-sys\\fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
       "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\fh\\fh-erp-sys\\fh-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\0\u3001mymodule\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\0\u3001mymodule\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\0\u3001mymodule\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\0\u3001mymodule\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|solutionrelative:fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{65B4E208-EA36-431D-9C22-9D903359CA03}|FH-ERP-SYS\\FH-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\fh-erp-sys\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
@@ -98,7 +98,7 @@
       "DocumentGroups": [
         {
           "DockedWidth": 200,
-          "SelectedChildIndex": 13,
+          "SelectedChildIndex": 7,
           "Children": [
             {
               "$type": "Bookmark",
@@ -106,15 +106,14 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 5,
               "Title": "LoginForm1.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\LoginForm1.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\LoginForm1.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "FH-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-21T11:55:50.588Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-08-21T11:55:50.588Z"
             },
             {
               "$type": "Document",
@@ -153,33 +152,45 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 6,
+              "DocumentIndex": 3,
               "Title": "SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\0\u3001MyModule\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeToolTip": "FH-ERP-SYS\\0\u3001MyModule\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
-              "ViewState": "AQIAAAQAAAAAAAAAAAAlwBsAAAAyAAAA",
+              "ViewState": "AQIAAMQAAAAAAAAAAAApwNAAAAAZAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-08-20T13:58:15.771Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeDocumentMoniker": "FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
+              "RelativeToolTip": "FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAcAAAAlAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-20T13:58:15.771Z",
+              "WhenOpened": "2024-08-19T02:11:03.41Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 0,
               "Title": "\u7269\u6599\u8CC7\u6599\u5EAB.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
               "RelativeToolTip": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
-              "ViewState": "AQIAANYGAAAAAAAAAAAewOwGAAAmAAAA",
+              "ViewState": "AQIAAKUBAAAAAAAAAAAiwHkGAAAgAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-08-20T08:12:14.397Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 4,
+              "DocumentIndex": 1,
               "Title": "\u7269\u6599\u8CC7\u6599\u5EAB.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u7269\u6599\u8CC7\u6599\u5EAB.vb",
@@ -189,19 +200,6 @@
               "WhenOpened": "2024-08-20T07:45:33.038Z",
               "EditorCaption": " [\u8A2D\u8A08]"
             },
-            {
-              "$type": "Document",
-              "DocumentIndex": 2,
-              "Title": "\u5168\u57DF\u8B8A\u6578.vb",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
-              "RelativeDocumentMoniker": "FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
-              "RelativeToolTip": "FH-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAABAwAcAAAAlAAAA",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-19T02:11:03.41Z",
-              "EditorCaption": ""
-            },
             {
               "$type": "Document",
               "DocumentIndex": 17,
@@ -249,16 +247,15 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 0,
+              "DocumentIndex": 4,
               "Title": "LoginForm1.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\LoginForm1.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\LoginForm1.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\LoginForm1.vb",
               "RelativeToolTip": "FH-ERP-SYS\\LoginForm1.vb",
-              "ViewState": "AQIAADcAAAAAAAAAAIAwwEcAAAAWAAAA",
+              "ViewState": "AQIAABAAAAAAAAAAAIAwwEcAAAAWAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-18T13:13:31.477Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-08-18T13:13:31.477Z"
             },
             {
               "$type": "Document",
@@ -270,12 +267,11 @@
               "RelativeToolTip": "FH-ERP-SYS\\0\u3001MyModule\\SQL_\u8ACB\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406.vb",
               "ViewState": "AQIAAFoAAAAAAAAAAAAlwHUAAAAQAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-18T13:10:24.147Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-08-18T13:10:24.147Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 5,
+              "DocumentIndex": 6,
               "Title": "\u5E02\u69CB\u4EF6\u5206\u985E.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb",
               "RelativeDocumentMoniker": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb",
@@ -283,8 +279,7 @@
               "RelativeToolTip": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb",
               "ViewState": "AQIAAC8AAAAAAAAAAAAswEYAAACPAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-18T13:05:58.299Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-08-18T13:05:58.299Z"
             },
             {
               "$type": "Document",
@@ -295,8 +290,7 @@
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FH\\FH-ERP-SYS\\FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "FH-ERP-SYS\\03\u3001\u5009\u5132\u7BA1\u7406\u7CFB\u7D71\\\u5E02\u69CB\u4EF6\u5206\u985E.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-18T13:05:52.669Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-08-18T13:05:52.669Z"
             },
             {
               "$type": "Document",

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

@@ -9,6 +9,7 @@ Public Class 物料資料庫
     Dim ESTR, KKK1, KKK2, KKK3, KKK4 As String
     Dim 對話框(64) As String : Dim 群組碼(4), 原則說明異動 As String
     Dim 是否有資料, 群組圖片, 只讀一次, 查詢 As Boolean
+    Private initialPanel1Width As Integer
     Private Sub Set_新群組清單()
         Dim ds1 As New DataSet : 新群組_dgv.DataSource = Nothing : ds1.Clear()
         新群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -223,6 +224,7 @@ Public Class 物料資料庫
         物料編碼_dgv.Columns(0).FillWeight = 50 : 物料編碼_dgv.Columns(1).FillWeight = 160 : 物料編碼_dgv.Columns(2).FillWeight = 350 : 物料編碼_dgv.Columns(7).Visible = False
         物料編碼_dgv.Columns(3).FillWeight = 50 : 物料編碼_dgv.Columns(4).FillWeight = 50 : 物料編碼_dgv.Columns(5).FillWeight = 100 : 物料編碼_dgv.Columns(6).FillWeight = 100
         物料編碼_dgv.Columns("存檔").Visible = False : 物料編碼_dgv.Columns("規格庫編號").Visible = False : 物料編碼_dgv.Columns("規格庫抬頭指定").Visible = False
+        物料編碼_dgv.Columns("群組碼").Visible = False
         物料編碼_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料編碼_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         物料編碼_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -235,8 +237,8 @@ Public Class 物料資料庫
         物料編碼_dgv.Columns(0).ReadOnly = True : 物料編碼_dgv.Columns(1).ReadOnly = True : 物料編碼_dgv.Columns(2).ReadOnly = True
         物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(4).ReadOnly = True : 物料編碼_dgv.Columns(5).ReadOnly = True
         物料編碼_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-        Dim mycol As DataGridViewImageColumn = 物料編碼_dgv.Columns("Image")
-        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
+        'Dim mycol As DataGridViewImageColumn = 物料編碼_dgv.Columns("Image")
+        'mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
         For i As Integer = 0 To 物料編碼_dgv.Rows.Count - 1 : 物料編碼_dgv(0, i).Value = i + 1 : 物料編碼_dgv(4, i).Value = False : 物料編碼_dgv("存檔", i).Value = False : Next
         BL1 = False : Set_清單1_語轉()
     End Sub
@@ -524,7 +526,7 @@ Public Class 物料資料庫
     Private Sub 物料資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FH_ERP_SYS.WindowState = 2 : Me.MdiParent = FH_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         小間距_ch.Checked = True : 中間距2_ch.Checked = True : 中間距3_ch.Checked = True : 中間距4_ch.Checked = True : 物料群組1_P.Visible = False : 物料群組2_P.Visible = False
-        物料品名_語轉_dgv.Visible = False : 中間距5_ch.Checked = True : 群組碼_tb.Enabled = False : 首次開啟 = False : Panel3.SendToBack() : 語言轉換讀取()
+        物料品名_語轉_dgv.Visible = False : 中間距5_ch.Checked = True : 群組碼_tb.Enabled = False : 首次開啟 = True : Panel3.SendToBack() : 語言轉換讀取()
         規格表頭_P.Visible = False : Panel1.SendToBack()
 
         物料群組_語言_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 物料群組_語言2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
@@ -546,12 +548,32 @@ Public Class 物料資料庫
         比對7_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 比對8_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
         比對9_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 料號使用_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
+    Private Sub 物料資料庫_Size()
+        If 首次開啟 = False Then
+            Dim currentSize As Size = Me.Size : Dim width As Integer = currentSize.Width : Dim height As Integer = currentSize.Height
+            If currentSize.Width < 1900 And currentSize.Height < 950 Then
+                檔案區_P.Visible = False : 變更群組_P.Visible = False : 物料新群駔_P.Visible = False : 物料規格批量複製_P.Visible = False : SYSTEM_P.Visible = False
+                報價用規格呈現控制_P.Visible = False : 物料檔案快速拷貝_P.Visible = False
+            Else
+                檔案區_P.Visible = True : 變更群組_P.Visible = True : 物料新群駔_P.Visible = True : 物料規格批量複製_P.Visible = True : SYSTEM_P.Visible = True
+                報價用規格呈現控制_P.Visible = True : 物料檔案快速拷貝_P.Visible = True
+            End If
+            ' 調整 SplitContainer4 的分割位置以保持比例
+            SplitContainer4.SplitterDistance = CInt(SplitContainer4.Width * (SplitContainer4.SplitterDistance / (SplitContainer4.Width - SplitContainer4.SplitterWidth)))
+            ' 確保 SplitContainer5 的第一個面板保持初始寬度
+            SplitContainer5.SplitterDistance = initialPanel1Width
+        End If
+    End Sub
+    Private Sub 物料資料庫_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        物料資料庫_Size()
+    End Sub
     Private Sub 物料資料庫_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         計算分流.Enabled = True
         If 登入人級別 = "00" Then : 修改料號權限_ch.Checked = True : 編碼_tb.Enabled = True
         Else : 修改料號權限_ch.Checked = False : 編碼_tb.Enabled = False : End If
         本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
         本機1_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
+        initialPanel1Width = SplitContainer5.Panel1.Width : 首次開啟 = False : 物料資料庫_Size()
     End Sub
     Private Sub 計算分流_Tick(sender As Object, e As EventArgs) Handles 計算分流.Tick
         計算分流.Enabled = False
@@ -595,7 +617,7 @@ Public Class 物料資料庫
         If PartNo_ch.Checked = False Then : 物料明細1_dgv.Columns(2).Visible = False : Else : 物料明細1_dgv.Columns(2).Visible = True : End If
         If 兩碼_ch.Checked = True Then : 物料明細1_dgv.Columns(2).Width = 90 : Else : 物料明細1_dgv.Columns(2).Width = 40 : End If
 
-        物料明細1_dgv.Columns(0).Visible = False : 物料明細1_dgv.Columns(1).Visible = False : 物料明細1_dgv.Columns(3).Visible = False ': 物料明細1_dgv.Columns(23).Visible = False
+        物料明細1_dgv.Columns(0).Visible = False : 物料明細1_dgv.Columns(1).Visible = False : 物料明細1_dgv.Columns(3).Visible = False : 物料明細1_dgv.Columns(23).Visible = False
         物料明細1_dgv.Columns(12).FillWeight = 70 : 物料明細1_dgv.Columns(13).Visible = False : 物料明細1_dgv.Columns(14).FillWeight = 70 : 物料明細1_dgv.Columns(22).Visible = False
         物料明細1_dgv.Columns(15).FillWeight = 40 : 物料明細1_dgv.Columns(16).Visible = False : 物料明細1_dgv.Columns(17).Visible = False : 物料明細1_dgv.Columns(18).Visible = False
         物料明細1_dgv.Columns(19).Visible = False : 物料明細1_dgv.Columns(20).Visible = False : 物料明細1_dgv.Columns(21).Visible = False
@@ -1580,7 +1602,7 @@ Public Class 物料資料庫
                 End If : MsgBox("新增完成!!")
                 規格表頭設定_bt.PerformClick()
             End If : 改料號原則_ts.Checked = False
-        End If : 式共用1()
+        End If : Set_物料資訊控制表未新增()
     End Sub
     Private Sub 物料原則修改_tb_Click(sender As Object, e As EventArgs) Handles 修改品名後存檔_bt.Click
         If 群組碼1_tb.Text = "" Or 物料原則_tb.Text = "" Or 品名1_tb.Text = "" Or 品名2_tb.Text = "" Or 品名3_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查!!") : Else
@@ -1636,7 +1658,9 @@ Public Class 物料資料庫
             If 訊息回應 = "YES" Then : PA1 = 群組碼1_tb.Text : PA2 = 物料原則_tb.Text
                 SQL_物料資料庫_物料編碼庫刪除() : SQL_物料資料庫_物料資訊控制表刪除3() : SQL_物料資料庫_物料規格表刪除()
                 SQL_物料資料庫_物料圖庫刪除() : SQL_物料資料庫_物料規格表刪除_語轉() : MsgBox("刪除完成!!")
-            End If : conn.Close() : 式共用1()
+            End If : conn.Close() : 精準 = True : PA1 = 物料原則_tb.Text : Set_清單1() : 精準 = False
+            群組碼10_tb.Text = "" : 物料原則_tb.Text = "" : B1_tb.Text = "" : B2_tb.Text = "" : B3_tb.Text = "" : B4_tb.Text = ""
+            品名1_tb.Text = "" : 品名2_tb.Text = "" : 品名3_tb.Text = ""
         Else : MsgBox("你沒有權限刪除物料!!") : End If
     End Sub
     '------------------------------------------------------------------------------------------------------------------------------------
@@ -1772,7 +1796,7 @@ Public Class 物料資料庫
                 式共用2() : PA6 = 原則說明_tb.Text : PA7 = 群組碼2_tb.Text : PA8 = 物料原則2_tb.Text : PA9 = 規格庫編號1_cb.Text : PA10 = 規格庫抬頭指定1_cb.Text
                 SQL_物料資料庫_物料資訊控制表新增() : SET_新增按鈕程式共用2()
             End If
-        End If : 式共用1() : Cancel1_bt.PerformClick
+        End If : Set_物料資訊控制表未新增() : 精準 = True : PA1 = 物料原則_tb.Text : Set_清單1() : Cancel1_bt.PerformClick() : 精準 = False
     End Sub
     Private Sub 修改物料資訊_bt_Click(sender As Object, e As EventArgs) Handles 修改物料資訊_bt.Click
         If 群組碼2_tb.Text = "" Or 物料原則2_tb.Text = "" Or 原則說明_tb.Text = "" Or 規格庫編號1_cb.Text = "" Or
@@ -2192,7 +2216,8 @@ Public Class 物料資料庫
         兩碼_ch.Checked = True : 四碼_ch.Checked = False
     End Sub
     Private Sub 規格表頭設定_bt_Click(sender As Object, e As EventArgs) Handles 規格表頭設定_bt.Click
-        If 規格表頭_P.Visible = False Then : 規格表頭_P.Visible = True : 規格表頭_P.BringToFront()
+        If 規格表頭_P.Visible = False Then
+            群組碼2_tb.Text = "" : 物料原則2_tb.Text = "" : 原則說明_tb.Text = "" : 規格表頭_P.Visible = True : 規格表頭_P.BringToFront()
             規格表頭_P.Location = New System.Drawing.Point((Panel8.Size.Width - 規格表頭_P.Size.Width) / 2, (Panel8.Size.Height - 規格表頭_P.Size.Height) / 2)
         Else : 規格表頭_P.Visible = False : End If
     End Sub

FH-ERP-SYS/0、MyModule/SQL_倉儲系統管理.vb

@@ -204,13 +204,13 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_物料資料庫_物料編碼庫()
-        ConnOpen()
+        ConnOpen()   ', 物料圖庫.圖檔 AS Image
         If BL1 = False Then
             If 精準 = False Then
                 If PA1 = "" Then
                     SQL2 = "WHERE  (物料編碼庫.群組碼 LIKE N'" & PA & "')"
                     SQL1 = "SELECT    物料編碼庫.群組碼 AS 項次, 物料編碼庫.料號原則, 物料編碼庫.原則說明 AS 物料品名, 物料編碼庫.單位, HX選擇按鈕.選擇, 
-                              物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼, HX選擇按鈕.選擇 AS 存檔,
+                              物料圖庫.圖片流水號 AS [Image No], 物料編碼庫.群組碼, HX選擇按鈕.選擇 AS 存檔,
                               物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定
                     FROM      物料編碼庫 LEFT OUTER JOIN
                               物料資訊控制表 ON 物料編碼庫.群組碼 = 物料資訊控制表.群組碼 AND 
@@ -223,7 +223,7 @@
                                  (物料規格表.A3 LIKE N'%" & PA1 & "%') OR (物料規格表.A4 LIKE N'%" & PA1 & "%') OR (物料規格表.A5 LIKE N'%" & PA1 & "%') OR
                                  (物料規格表.A6 LIKE N'%" & PA1 & "%') OR (物料規格表.A7 LIKE N'%" & PA1 & "%') OR (物料規格表.A8 LIKE N'%" & PA1 & "%') OR 
                                  (物料編碼庫.料號原則 LIKE N'" & PA1 & "%')"
-                    SQL1 = "SELECT    QQ.項次, QQ.料號原則, QQ.原則說明 AS 物料品名, QQ.單位, QQ.選擇, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 
+                    SQL1 = "SELECT    QQ.項次, QQ.料號原則, QQ.原則說明 AS 物料品名, QQ.單位, QQ.選擇, 物料圖庫.圖片流水號 AS [Image No], 
                                   QQ.群組碼, QQ.存檔, QQ.規格庫編號, QQ.規格庫抬頭指定
                         FROM      物料圖庫 RIGHT OUTER JOIN
                                  (SELECT    物料編碼庫.群組碼 AS 項次, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料編碼庫.單位, HX選擇按鈕.選擇, 物料編碼庫.群組碼, 
@@ -237,7 +237,7 @@
                 End If
             Else
                 SQL2 = "WHERE    (物料編碼庫.料號原則 LIKE N'" & PA1 & "%')"
-                SQL1 = "SELECT    QQ.項次, QQ.料號原則, QQ.原則說明 AS 物料品名, QQ.單位, QQ.選擇, 物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 
+                SQL1 = "SELECT    QQ.項次, QQ.料號原則, QQ.原則說明 AS 物料品名, QQ.單位, QQ.選擇, 物料圖庫.圖片流水號 AS [Image No], 
                                   QQ.群組碼, QQ.存檔, QQ.規格庫編號, QQ.規格庫抬頭指定
                         FROM      物料圖庫 RIGHT OUTER JOIN
                                  (SELECT    物料編碼庫.群組碼 AS 項次, 物料編碼庫.料號原則, 物料編碼庫.原則說明, 物料編碼庫.單位, HX選擇按鈕.選擇, 物料編碼庫.群組碼, 
@@ -251,7 +251,7 @@
             End If
         Else
             SQL1 = "SELECT    物料編碼庫.群組碼 AS 項次, 物料編碼庫.料號原則, 物料編碼庫.原則說明 AS 物料品名, 物料編碼庫.單位, HX選擇按鈕.選擇, 
-                              物料圖庫.圖片流水號 AS [Image No], 物料圖庫.圖檔 AS Image, 物料編碼庫.群組碼, HX選擇按鈕.選擇 AS 存檔, 
+                              物料圖庫.圖片流水號 AS [Image No], 物料編碼庫.群組碼, HX選擇按鈕.選擇 AS 存檔, 
                               物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定
                     FROM      物料編碼庫 LEFT OUTER JOIN
                               物料資訊控制表 ON 物料編碼庫.群組碼 = 物料資訊控制表.群組碼 AND 

FH-ERP-SYS/0、MyModule/全域變數.vb

@@ -5,7 +5,7 @@
     Public 密碼時限, 行政採購簽核級別基數, 建築採購簽核級別基數, 工程圖庫限制 As Integer
     Public 零用金選擇, 低網速模式, 重新計算, BB(99), CC(200) As Boolean
     '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024082201" : Public 資料庫版本 As String : Public 系統語言 As String = "繁體中文"
+    Public 版本 As String = "2024082501" : Public 資料庫版本 As String : Public 系統語言 As String = "繁體中文"
     Public AAA1, AAA2, AAA3, AAA4, AAA5, AAA6, AAA7, AAA8 As String    '--------------物料格式表頭專用
     '----整數變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 比例1, 比例2, 比例3, 分母, NN1, 計算累加, timeExit, timeExit2, timeNow, timeNow2, lastFoundRowIndex, lastFoundColIndex As Integer