2024092301備份

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

@@ -3,31 +3,47 @@
   "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\\\u63A1\u8CFC\u55AE\u7533\u8ACB.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\\\u63A1\u8CFC\u55AE\u7533\u8ACB.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\\\u63A1\u8CFC\u55AE\u7533\u8ACB.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\\\u63A1\u8CFC\u55AE\u7533\u8ACB.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\\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\\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}",
       "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",
+      "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\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.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\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.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\\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\\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\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.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\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.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}",
+      "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\\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}"
     },
     {
@@ -35,7 +51,7 @@
       "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",
+      "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"
     },
     {
@@ -54,41 +70,91 @@
       "DocumentGroups": [
         {
           "DockedWidth": 200,
-          "SelectedChildIndex": 1,
+          "SelectedChildIndex": 3,
           "Children": [
             {
               "$type": "Bookmark",
               "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
             },
+            {
+              "$type": "Document",
+              "DocumentIndex": 6,
+              "Title": "\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwBsAAAALAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T12:51:03.517Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 8,
+              "Title": "\u4E0B\u62C9\u6E05\u55AE_1.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u4E0B\u62C9\u6E05\u55AE_1.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T12:51:00.028Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
             {
               "$type": "Document",
               "DocumentIndex": 0,
+              "Title": "\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "ViewState": "AQIAAC0AAAAAAAAAAAAIwEwAAAAIAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T12:35:39.45Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u63A1\u8CFC\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "MAOJI-ERP-SYS\\06\u3001\u63A1\u8CFC\u7CFB\u7D71\u7BA1\u7406\\\u63A1\u8CFC\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-09-23T12:23:39.431Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
               "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",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwA0AAAAoAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-09-23T09:20:09.97Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 4,
               "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",
+              "ViewState": "AQIAACcAAAAAAAAAAAAQwC0AAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-09-23T09:19:28.388Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 5,
               "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",
@@ -100,7 +166,7 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 6,
+              "DocumentIndex": 10,
               "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",
@@ -108,38 +174,37 @@
               "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": ""
+              "WhenOpened": "2024-09-23T04:08:58.534Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 4,
+              "DocumentIndex": 9,
               "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",
+              "ViewState": "AQIAABsAAAAAAAAAAAAIwAoAAAAPAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-09-23T03:29:49.063Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 2,
               "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",
+              "ViewState": "AQIAAEMAAAAAAAAAAAAowEoAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-09-23T02:42:27.417Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 5,
+              "DocumentIndex": 3,
               "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",
@@ -151,19 +216,18 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 8,
+              "DocumentIndex": 12,
               "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]"
+              "WhenOpened": "2024-09-17T04:11:11.481Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 7,
+              "DocumentIndex": 11,
               "Title": "LoginForm1.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\MAOJI\\MAOJI-ERP-SYS\\MAOJI-ERP-SYS\\LoginForm1.vb",
               "RelativeDocumentMoniker": "MAOJI-ERP-SYS\\LoginForm1.vb",
@@ -171,24 +235,22 @@
               "RelativeToolTip": "MAOJI-ERP-SYS\\LoginForm1.vb",
               "ViewState": "AQIAAAQAAAAAAAAAAAAjwBMAAAAMAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-09-16T14:23:56.498Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-09-16T14:23:56.498Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 9,
+              "DocumentIndex": 13,
               "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]"
+              "WhenOpened": "2024-09-16T14:23:33.938Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 10,
+              "DocumentIndex": 14,
               "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",

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

@@ -2,8 +2,13 @@
     '---------------------物料資料庫-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL__物料資料庫清單()
         SQL1 = "SELECT 料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 最低庫存量, 停用 FROM 物料資料庫"
-        PA1 = " ORDER BY LEFT(頁碼, LEN(頁碼) - CHARINDEX('-', REVERSE(頁碼))) ASC, 
-                         CAST(SUBSTRING(頁碼, CHARINDEX('-', 頁碼) + 1, LEN(頁碼)) AS INT) ASC"
+        PA1 = " ORDER BY 
+                      LEFT(頁碼, LEN(頁碼) - CHARINDEX('-', REVERSE(頁碼))), 
+                      CASE 
+                           WHEN CHARINDEX('-', 頁碼) > 0 AND ISNUMERIC(SUBSTRING(頁碼, CHARINDEX('-', 頁碼) + 1, LEN(頁碼))) = 1 
+                           THEN CAST(SUBSTRING(頁碼, CHARINDEX('-', 頁碼) + 1, LEN(頁碼)) AS INT)
+                           ELSE 0
+                      END"
         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 & "%')"

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

@@ -7,7 +7,7 @@
     Public 版本 As String = "2024092301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址 As String
-    Public 關鍵字編號 As String
+    Public 關鍵字編號, PPAA, PPBB(3000) As String
 
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA49 As String
 
@@ -15,7 +15,7 @@
 
     Public NU1, NU2, NU3, NU4, NU5 As Double
 
-    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+    Public 平均數, NN1 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public KKKJJ, KKKJJ2, KKKJJ3 As String
 
     Public 收付應沖金額 As Double : Public 財務單申請狀態 As String : Public 收付對應財務單號 As String : Public 收付對應客戶供應商編號 As String

MAOJI-ERP-SYS/06、採購系統管理/採購單申請.Designer.vb

@@ -29,15 +29,13 @@ Partial Class 採購單申請
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.列印產品標籤_bt = New System.Windows.Forms.Button()
-        Me.列印採購單_bt = New System.Windows.Forms.Button()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(採購單申請))
         Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
         Me.供應商交期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.單據複製_bt = New System.Windows.Forms.Button()
         Me.已完全入庫的單據_rb = New System.Windows.Forms.RadioButton()
         Me.未完全入庫的單據_rb = New System.Windows.Forms.RadioButton()
-        Me.修改存檔_bt = New System.Windows.Forms.Button()
         Me.總金額_tb = New System.Windows.Forms.TextBox()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.修改匯率_bt = New System.Windows.Forms.Button()
@@ -88,55 +86,31 @@ Partial Class 採購單申請
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
+        Me.新增_bt = New System.Windows.Forms.Button()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.開立新的採購單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.新增物料到採購單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.刪除採購單中選中的物料ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.修改匯率ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.修改存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.列印成EXCELToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.列印產品標籤ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.列印產品標籤_bt = New System.Windows.Forms.Button()
+        Me.列印採購單_bt = New System.Windows.Forms.Button()
+        Me.修改存檔_bt = New System.Windows.Forms.Button()
+        Me.刪除採購單中選中的物料_bt = New System.Windows.Forms.Button()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         CType(Me.匯率_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.採購金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.申請數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料檔案_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
-        '列印產品標籤_bt
-        '
-        Me.列印產品標籤_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.列印產品標籤_bt.Location = New System.Drawing.Point(1122, 576)
-        Me.列印產品標籤_bt.Name = "列印產品標籤_bt"
-        Me.列印產品標籤_bt.Size = New System.Drawing.Size(120, 30)
-        Me.列印產品標籤_bt.TabIndex = 1131
-        Me.列印產品標籤_bt.Text = "列印產品標籤"
-        Me.列印產品標籤_bt.UseVisualStyleBackColor = True
-        '
-        '列印採購單_bt
-        '
-        Me.列印採購單_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.列印採購單_bt.Location = New System.Drawing.Point(996, 576)
-        Me.列印採購單_bt.Name = "列印採購單_bt"
-        Me.列印採購單_bt.Size = New System.Drawing.Size(120, 30)
-        Me.列印採購單_bt.TabIndex = 1130
-        Me.列印採購單_bt.Text = "列印成EXCEL"
-        Me.列印採購單_bt.UseVisualStyleBackColor = True
-        '
         '非當天日期_ch
         '
         Me.非當天日期_ch.AutoSize = True
         Me.非當天日期_ch.Checked = True
         Me.非當天日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.非當天日期_ch.Location = New System.Drawing.Point(1098, 7)
+        Me.非當天日期_ch.Location = New System.Drawing.Point(1057, 29)
         Me.非當天日期_ch.Name = "非當天日期_ch"
         Me.非當天日期_ch.Size = New System.Drawing.Size(38, 20)
         Me.非當天日期_ch.TabIndex = 1129
@@ -145,10 +119,11 @@ Partial Class 採購單申請
         '
         '供應商交期_dtp
         '
-        Me.供應商交期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.供應商交期_dtp.Location = New System.Drawing.Point(998, 31)
+        Me.供應商交期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.供應商交期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.供應商交期_dtp.Location = New System.Drawing.Point(1162, 27)
         Me.供應商交期_dtp.Name = "供應商交期_dtp"
-        Me.供應商交期_dtp.Size = New System.Drawing.Size(94, 23)
+        Me.供應商交期_dtp.Size = New System.Drawing.Size(85, 23)
         Me.供應商交期_dtp.TabIndex = 1127
         '
         'Label14
@@ -156,7 +131,7 @@ Partial Class 採購單申請
         Me.Label14.AutoSize = True
         Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label14.Location = New System.Drawing.Point(933, 34)
+        Me.Label14.Location = New System.Drawing.Point(1097, 30)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(67, 16)
         Me.Label14.TabIndex = 1128
@@ -167,7 +142,7 @@ Partial Class 採購單申請
         Me.單據複製_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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(309, 330)
+        Me.單據複製_bt.Location = New System.Drawing.Point(3, 59)
         Me.單據複製_bt.Name = "單據複製_bt"
         Me.單據複製_bt.Size = New System.Drawing.Size(82, 24)
         Me.單據複製_bt.TabIndex = 1126
@@ -198,24 +173,11 @@ Partial Class 採購單申請
         Me.未完全入庫的單據_rb.Text = "未完全入庫的單據"
         Me.未完全入庫的單據_rb.UseVisualStyleBackColor = True
         '
-        '修改存檔_bt
-        '
-        Me.修改存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.修改存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 14.25!, 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(393, 576)
-        Me.修改存檔_bt.Name = "修改存檔_bt"
-        Me.修改存檔_bt.Size = New System.Drawing.Size(597, 30)
-        Me.修改存檔_bt.TabIndex = 1122
-        Me.修改存檔_bt.Text = "修  改  存  檔"
-        Me.修改存檔_bt.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.ForeColor = System.Drawing.Color.Green
-        Me.總金額_tb.Location = New System.Drawing.Point(822, 108)
+        Me.總金額_tb.Location = New System.Drawing.Point(822, 100)
         Me.總金額_tb.Name = "總金額_tb"
         Me.總金額_tb.Size = New System.Drawing.Size(108, 23)
         Me.總金額_tb.TabIndex = 1121
@@ -227,7 +189,7 @@ Partial Class 採購單申請
         Me.Label21.AutoSize = True
         Me.Label21.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label21.ForeColor = System.Drawing.Color.Green
-        Me.Label21.Location = New System.Drawing.Point(764, 111)
+        Me.Label21.Location = New System.Drawing.Point(764, 103)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(43, 16)
         Me.Label21.TabIndex = 1120
@@ -238,19 +200,20 @@ Partial Class 採購單申請
         Me.修改匯率_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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(309, 306)
+        Me.修改匯率_bt.Location = New System.Drawing.Point(309, 317)
         Me.修改匯率_bt.Name = "修改匯率_bt"
-        Me.修改匯率_bt.Size = New System.Drawing.Size(82, 24)
+        Me.修改匯率_bt.Size = New System.Drawing.Size(82, 37)
         Me.修改匯率_bt.TabIndex = 1119
         Me.修改匯率_bt.Text = "修改匯率"
         Me.修改匯率_bt.UseVisualStyleBackColor = True
         '
         '採購下單_dtp
         '
-        Me.採購下單_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.採購下單_dtp.Location = New System.Drawing.Point(998, 5)
+        Me.採購下單_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.採購下單_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.採購下單_dtp.Location = New System.Drawing.Point(1162, 2)
         Me.採購下單_dtp.Name = "採購下單_dtp"
-        Me.採購下單_dtp.Size = New System.Drawing.Size(94, 23)
+        Me.採購下單_dtp.Size = New System.Drawing.Size(85, 23)
         Me.採購下單_dtp.TabIndex = 1117
         '
         'Label19
@@ -258,7 +221,7 @@ Partial Class 採購單申請
         Me.Label19.AutoSize = True
         Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label19.Location = New System.Drawing.Point(396, 111)
+        Me.Label19.Location = New System.Drawing.Point(394, 103)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(55, 16)
         Me.Label19.TabIndex = 1116
@@ -268,7 +231,7 @@ Partial Class 採購單申請
         '
         Me.選擇_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.選擇_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.選擇_tb.Location = New System.Drawing.Point(457, 108)
+        Me.選擇_tb.Location = New System.Drawing.Point(457, 100)
         Me.選擇_tb.Name = "選擇_tb"
         Me.選擇_tb.Size = New System.Drawing.Size(103, 23)
         Me.選擇_tb.TabIndex = 1115
@@ -320,9 +283,9 @@ Partial Class 採購單申請
         '
         Me.單據編號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.單據編號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.單據編號_tb.Location = New System.Drawing.Point(456, 6)
+        Me.單據編號_tb.Location = New System.Drawing.Point(962, 3)
         Me.單據編號_tb.Name = "單據編號_tb"
-        Me.單據編號_tb.Size = New System.Drawing.Size(152, 25)
+        Me.單據編號_tb.Size = New System.Drawing.Size(135, 25)
         Me.單據編號_tb.TabIndex = 1109
         '
         'Label16
@@ -330,17 +293,17 @@ Partial Class 採購單申請
         Me.Label16.AutoSize = True
         Me.Label16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label16.Location = New System.Drawing.Point(396, 10)
+        Me.Label16.Location = New System.Drawing.Point(929, 8)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(55, 16)
+        Me.Label16.Size = New System.Drawing.Size(31, 16)
         Me.Label16.TabIndex = 1108
-        Me.Label16.Text = "單據編號"
+        Me.Label16.Text = "單號"
         '
         '供應商關鍵字_tb
         '
         Me.供應商關鍵字_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.供應商關鍵字_tb.ForeColor = System.Drawing.Color.Green
-        Me.供應商關鍵字_tb.Location = New System.Drawing.Point(679, 5)
+        Me.供應商關鍵字_tb.Location = New System.Drawing.Point(72, 33)
         Me.供應商關鍵字_tb.Name = "供應商關鍵字_tb"
         Me.供應商關鍵字_tb.Size = New System.Drawing.Size(93, 25)
         Me.供應商關鍵字_tb.TabIndex = 1107
@@ -350,7 +313,7 @@ Partial Class 採購單申請
         Me.Label15.AutoSize = True
         Me.Label15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label15.ForeColor = System.Drawing.Color.Green
-        Me.Label15.Location = New System.Drawing.Point(610, 10)
+        Me.Label15.Location = New System.Drawing.Point(3, 38)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(67, 16)
         Me.Label15.TabIndex = 1106
@@ -363,7 +326,7 @@ 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(408, 151)
+        Me.供應商編號_cb.Location = New System.Drawing.Point(3, 3)
         Me.供應商編號_cb.Name = "供應商編號_cb"
         Me.供應商編號_cb.Size = New System.Drawing.Size(152, 24)
         Me.供應商編號_cb.TabIndex = 1105
@@ -375,9 +338,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(840, 5)
+        Me.供應商_cb.Location = New System.Drawing.Point(719, 3)
         Me.供應商_cb.Name = "供應商_cb"
-        Me.供應商_cb.Size = New System.Drawing.Size(90, 24)
+        Me.供應商_cb.Size = New System.Drawing.Size(86, 24)
         Me.供應商_cb.TabIndex = 1104
         '
         'Label9
@@ -385,17 +348,17 @@ Partial Class 採購單申請
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(771, 9)
+        Me.Label9.Location = New System.Drawing.Point(687, 7)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(67, 16)
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
         Me.Label9.TabIndex = 1103
-        Me.Label9.Text = "供應商簡稱"
+        Me.Label9.Text = "簡稱"
         '
         '付款方式_tb
         '
         Me.付款方式_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.付款方式_tb.ForeColor = System.Drawing.Color.Green
-        Me.付款方式_tb.Location = New System.Drawing.Point(617, 108)
+        Me.付款方式_tb.Location = New System.Drawing.Point(617, 100)
         Me.付款方式_tb.Name = "付款方式_tb"
         Me.付款方式_tb.Size = New System.Drawing.Size(141, 23)
         Me.付款方式_tb.TabIndex = 1102
@@ -405,7 +368,7 @@ Partial Class 採購單申請
         '
         Me.公司電話2_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.公司電話2_tb.ForeColor = System.Drawing.Color.Green
-        Me.公司電話2_tb.Location = New System.Drawing.Point(998, 83)
+        Me.公司電話2_tb.Location = New System.Drawing.Point(998, 76)
         Me.公司電話2_tb.Name = "公司電話2_tb"
         Me.公司電話2_tb.Size = New System.Drawing.Size(165, 23)
         Me.公司電話2_tb.TabIndex = 1101
@@ -416,7 +379,7 @@ Partial Class 採購單申請
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label2.ForeColor = System.Drawing.Color.Green
-        Me.Label2.Location = New System.Drawing.Point(559, 111)
+        Me.Label2.Location = New System.Drawing.Point(559, 103)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label2.TabIndex = 1100
@@ -426,9 +389,9 @@ Partial Class 採購單申請
         '
         Me.統編_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.統編_tb.ForeColor = System.Drawing.Color.Green
-        Me.統編_tb.Location = New System.Drawing.Point(840, 32)
+        Me.統編_tb.Location = New System.Drawing.Point(839, 4)
         Me.統編_tb.Name = "統編_tb"
-        Me.統編_tb.Size = New System.Drawing.Size(90, 23)
+        Me.統編_tb.Size = New System.Drawing.Size(86, 23)
         Me.統編_tb.TabIndex = 1098
         Me.統編_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -437,17 +400,17 @@ Partial Class 採購單申請
         Me.Label26.AutoSize = True
         Me.Label26.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label26.ForeColor = System.Drawing.Color.Green
-        Me.Label26.Location = New System.Drawing.Point(772, 35)
+        Me.Label26.Location = New System.Drawing.Point(806, 8)
         Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(55, 16)
+        Me.Label26.Size = New System.Drawing.Size(31, 16)
         Me.Label26.TabIndex = 1099
-        Me.Label26.Text = "統一編號"
+        Me.Label26.Text = "統編"
         '
         '郵號2_tb
         '
         Me.郵號2_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.郵號2_tb.ForeColor = System.Drawing.Color.Green
-        Me.郵號2_tb.Location = New System.Drawing.Point(457, 83)
+        Me.郵號2_tb.Location = New System.Drawing.Point(457, 76)
         Me.郵號2_tb.Name = "郵號2_tb"
         Me.郵號2_tb.Size = New System.Drawing.Size(45, 23)
         Me.郵號2_tb.TabIndex = 1096
@@ -458,7 +421,7 @@ Partial Class 採購單申請
         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.ForeColor = System.Drawing.Color.Green
-        Me.Label12.Location = New System.Drawing.Point(504, 86)
+        Me.Label12.Location = New System.Drawing.Point(504, 79)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(38, 16)
         Me.Label12.TabIndex = 1095
@@ -468,7 +431,7 @@ Partial Class 採購單申請
         '
         Me.地址2_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.地址2_tb.ForeColor = System.Drawing.Color.Green
-        Me.地址2_tb.Location = New System.Drawing.Point(544, 83)
+        Me.地址2_tb.Location = New System.Drawing.Point(544, 76)
         Me.地址2_tb.Name = "地址2_tb"
         Me.地址2_tb.Size = New System.Drawing.Size(386, 23)
         Me.地址2_tb.TabIndex = 1094
@@ -477,7 +440,7 @@ Partial Class 採購單申請
         '
         Me.郵號1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.郵號1_tb.ForeColor = System.Drawing.Color.Green
-        Me.郵號1_tb.Location = New System.Drawing.Point(456, 58)
+        Me.郵號1_tb.Location = New System.Drawing.Point(456, 53)
         Me.郵號1_tb.Name = "郵號1_tb"
         Me.郵號1_tb.Size = New System.Drawing.Size(45, 23)
         Me.郵號1_tb.TabIndex = 1092
@@ -488,7 +451,7 @@ Partial Class 採購單申請
         Me.Label10.AutoSize = True
         Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label10.ForeColor = System.Drawing.Color.Green
-        Me.Label10.Location = New System.Drawing.Point(504, 61)
+        Me.Label10.Location = New System.Drawing.Point(504, 56)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(38, 16)
         Me.Label10.TabIndex = 1091
@@ -498,7 +461,7 @@ Partial Class 採購單申請
         '
         Me.地址1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.地址1_tb.ForeColor = System.Drawing.Color.Green
-        Me.地址1_tb.Location = New System.Drawing.Point(544, 58)
+        Me.地址1_tb.Location = New System.Drawing.Point(544, 53)
         Me.地址1_tb.Name = "地址1_tb"
         Me.地址1_tb.Size = New System.Drawing.Size(386, 23)
         Me.地址1_tb.TabIndex = 1090
@@ -508,7 +471,7 @@ Partial Class 採購單申請
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.Green
-        Me.Label8.Location = New System.Drawing.Point(932, 111)
+        Me.Label8.Location = New System.Drawing.Point(932, 103)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(62, 16)
         Me.Label8.TabIndex = 1089
@@ -518,7 +481,7 @@ Partial Class 採購單申請
         '
         Me.傳真1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.傳真1_tb.ForeColor = System.Drawing.Color.Green
-        Me.傳真1_tb.Location = New System.Drawing.Point(998, 108)
+        Me.傳真1_tb.Location = New System.Drawing.Point(998, 100)
         Me.傳真1_tb.Name = "傳真1_tb"
         Me.傳真1_tb.Size = New System.Drawing.Size(165, 23)
         Me.傳真1_tb.TabIndex = 1088
@@ -528,7 +491,7 @@ Partial Class 採購單申請
         '
         Me.公司電話1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.公司電話1_tb.ForeColor = System.Drawing.Color.Green
-        Me.公司電話1_tb.Location = New System.Drawing.Point(998, 57)
+        Me.公司電話1_tb.Location = New System.Drawing.Point(998, 52)
         Me.公司電話1_tb.Name = "公司電話1_tb"
         Me.公司電話1_tb.Size = New System.Drawing.Size(165, 23)
         Me.公司電話1_tb.TabIndex = 1085
@@ -539,7 +502,7 @@ Partial Class 採購單申請
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label5.ForeColor = System.Drawing.Color.Green
-        Me.Label5.Location = New System.Drawing.Point(396, 36)
+        Me.Label5.Location = New System.Drawing.Point(687, 31)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(43, 16)
         Me.Label5.TabIndex = 1084
@@ -549,9 +512,9 @@ Partial Class 採購單申請
         '
         Me.供應商_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.供應商_tb.ForeColor = System.Drawing.Color.Green
-        Me.供應商_tb.Location = New System.Drawing.Point(456, 33)
+        Me.供應商_tb.Location = New System.Drawing.Point(731, 28)
         Me.供應商_tb.Name = "供應商_tb"
-        Me.供應商_tb.Size = New System.Drawing.Size(316, 23)
+        Me.供應商_tb.Size = New System.Drawing.Size(313, 23)
         Me.供應商_tb.TabIndex = 1083
         '
         'Label7
@@ -559,7 +522,7 @@ Partial Class 採購單申請
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.Green
-        Me.Label7.Location = New System.Drawing.Point(932, 86)
+        Me.Label7.Location = New System.Drawing.Point(932, 79)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(62, 16)
         Me.Label7.TabIndex = 1087
@@ -570,7 +533,7 @@ Partial Class 採購單申請
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(932, 60)
+        Me.Label6.Location = New System.Drawing.Point(932, 55)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(62, 16)
         Me.Label6.TabIndex = 1086
@@ -598,9 +561,9 @@ Partial Class 採購單申請
         Me.新增物料_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.新增物料_bt.Location = New System.Drawing.Point(309, 282)
+        Me.新增物料_bt.Location = New System.Drawing.Point(309, 281)
         Me.新增物料_bt.Name = "新增物料_bt"
-        Me.新增物料_bt.Size = New System.Drawing.Size(82, 24)
+        Me.新增物料_bt.Size = New System.Drawing.Size(82, 37)
         Me.新增物料_bt.TabIndex = 1081
         Me.新增物料_bt.Text = "新增物料"
         Me.新增物料_bt.UseVisualStyleBackColor = True
@@ -707,7 +670,7 @@ Partial Class 採購單申請
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label4.ForeColor = System.Drawing.Color.Green
-        Me.Label4.Location = New System.Drawing.Point(393, 61)
+        Me.Label4.Location = New System.Drawing.Point(393, 56)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(62, 16)
         Me.Label4.TabIndex = 1093
@@ -718,7 +681,7 @@ Partial Class 採購單申請
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Green
-        Me.Label3.Location = New System.Drawing.Point(392, 86)
+        Me.Label3.Location = New System.Drawing.Point(392, 79)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(62, 16)
         Me.Label3.TabIndex = 1097
@@ -729,7 +692,7 @@ Partial Class 採購單申請
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label20.Location = New System.Drawing.Point(933, 8)
+        Me.Label20.Location = New System.Drawing.Point(1097, 5)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(67, 16)
         Me.Label20.TabIndex = 1118
@@ -745,115 +708,132 @@ Partial Class 採購單申請
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(393, 133)
+        Me.明細_dgv.Location = New System.Drawing.Point(391, 126)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(849, 440)
+        Me.明細_dgv.Size = New System.Drawing.Size(854, 480)
         Me.明細_dgv.TabIndex = 1114
         '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.供應商編號_cb)
+        Me.Panel1.Controls.Add(Me.供應商關鍵字_tb)
+        Me.Panel1.Controls.Add(Me.Label15)
+        Me.Panel1.Controls.Add(Me.單據複製_bt)
+        Me.Panel1.Location = New System.Drawing.Point(526, 211)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 100)
+        Me.Panel1.TabIndex = 1143
+        '
+        '關鍵字查詢_bt
+        '
+        Me.關鍵字查詢_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.Search
+        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(637, 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 = 1179
+        Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
+        '
+        '新增_bt
+        '
+        Me.新增_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
+        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增_bt.Location = New System.Drawing.Point(391, 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 = 1142
+        Me.新增_bt.UseVisualStyleBackColor = True
+        '
         '物料圖_pb
         '
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.物料圖_pb.Location = New System.Drawing.Point(1166, 55)
+        Me.物料圖_pb.Location = New System.Drawing.Point(1166, 54)
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.物料圖_pb.Name = "物料圖_pb"
-        Me.物料圖_pb.Size = New System.Drawing.Size(76, 76)
+        Me.物料圖_pb.Size = New System.Drawing.Size(80, 70)
         Me.物料圖_pb.TabIndex = 1123
         Me.物料圖_pb.TabStop = False
         '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator3, Me.開立新的採購單ToolStripMenuItem, Me.新增物料到採購單ToolStripMenuItem, Me.刪除採購單中選中的物料ToolStripMenuItem, Me.ToolStripSeparator1, Me.修改匯率ToolStripMenuItem, Me.修改存檔ToolStripMenuItem, Me.ToolStripSeparator2, Me.列印成EXCELToolStripMenuItem, Me.列印產品標籤ToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(207, 198)
-        '
-        '重新整理ToolStripMenuItem
-        '
-        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.重新整理ToolStripMenuItem.Text = "重新整理"
-        '
-        'ToolStripSeparator3
-        '
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(203, 6)
-        '
-        '開立新的採購單ToolStripMenuItem
-        '
-        Me.開立新的採購單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.開立新的採購單ToolStripMenuItem.Name = "開立新的採購單ToolStripMenuItem"
-        Me.開立新的採購單ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.開立新的採購單ToolStripMenuItem.Text = "開立新的採購單"
-        '
-        '新增物料到採購單ToolStripMenuItem
-        '
-        Me.新增物料到採購單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.新增物料到採購單ToolStripMenuItem.Name = "新增物料到採購單ToolStripMenuItem"
-        Me.新增物料到採購單ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.新增物料到採購單ToolStripMenuItem.Text = "新增物料到採購單"
-        '
-        '刪除採購單中選中的物料ToolStripMenuItem
-        '
-        Me.刪除採購單中選中的物料ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
-        Me.刪除採購單中選中的物料ToolStripMenuItem.Name = "刪除採購單中選中的物料ToolStripMenuItem"
-        Me.刪除採購單中選中的物料ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.刪除採購單中選中的物料ToolStripMenuItem.Text = "刪除採購單中選中的物料"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(203, 6)
-        '
-        '修改匯率ToolStripMenuItem
+        '列印產品標籤_bt
         '
-        Me.修改匯率ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
-        Me.修改匯率ToolStripMenuItem.Name = "修改匯率ToolStripMenuItem"
-        Me.修改匯率ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.修改匯率ToolStripMenuItem.Text = "修改匯率"
+        Me.列印產品標籤_bt.BackgroundImage = CType(resources.GetObject("列印產品標籤_bt.BackgroundImage"), System.Drawing.Image)
+        Me.列印產品標籤_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.列印產品標籤_bt.Location = New System.Drawing.Point(587, 2)
+        Me.列印產品標籤_bt.Name = "列印產品標籤_bt"
+        Me.列印產品標籤_bt.Size = New System.Drawing.Size(50, 50)
+        Me.列印產品標籤_bt.TabIndex = 1131
+        Me.列印產品標籤_bt.UseVisualStyleBackColor = True
         '
-        '修改存檔ToolStripMenuItem
+        '列印採購單_bt
         '
-        Me.修改存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
-        Me.修改存檔ToolStripMenuItem.Name = "修改存檔ToolStripMenuItem"
-        Me.修改存檔ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.修改存檔ToolStripMenuItem.Text = "修改存檔"
+        Me.列印採購單_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.EXCELOUT
+        Me.列印採購單_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.列印採購單_bt.Location = New System.Drawing.Point(538, 2)
+        Me.列印採購單_bt.Name = "列印採購單_bt"
+        Me.列印採購單_bt.Size = New System.Drawing.Size(50, 50)
+        Me.列印採購單_bt.TabIndex = 1130
+        Me.列印採購單_bt.UseVisualStyleBackColor = True
         '
-        'ToolStripSeparator2
+        '修改存檔_bt
         '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(203, 6)
+        Me.修改存檔_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.SAVER
+        Me.修改存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.修改存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 14.25!, 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(440, 2)
+        Me.修改存檔_bt.Name = "修改存檔_bt"
+        Me.修改存檔_bt.Size = New System.Drawing.Size(50, 50)
+        Me.修改存檔_bt.TabIndex = 1122
+        Me.修改存檔_bt.UseVisualStyleBackColor = True
         '
-        '列印成EXCELToolStripMenuItem
+        '刪除採購單中選中的物料_bt
         '
-        Me.列印成EXCELToolStripMenuItem.Name = "列印成EXCELToolStripMenuItem"
-        Me.列印成EXCELToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.列印成EXCELToolStripMenuItem.Text = "列印成EXCEL"
+        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(489, 3)
+        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 = 1178
+        Me.刪除採購單中選中的物料_bt.UseVisualStyleBackColor = True
         '
-        '列印產品標籤ToolStripMenuItem
+        'ToolTip1
         '
-        Me.列印產品標籤ToolStripMenuItem.Name = "列印產品標籤ToolStripMenuItem"
-        Me.列印產品標籤ToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.列印產品標籤ToolStripMenuItem.Text = "列印產品標籤"
+        Me.ToolTip1.AutoPopDelay = 5000
+        Me.ToolTip1.InitialDelay = 500
+        Me.ToolTip1.IsBalloon = True
+        Me.ToolTip1.ReshowDelay = 100
+        Me.ToolTip1.ToolTipTitle = "系統說明"
         '
         '採購單申請
         '
         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.明細_dgv)
+        Me.Controls.Add(Me.關鍵字查詢_bt)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.新增_bt)
+        Me.Controls.Add(Me.物料圖_pb)
         Me.Controls.Add(Me.列印產品標籤_bt)
         Me.Controls.Add(Me.列印採購單_bt)
         Me.Controls.Add(Me.非當天日期_ch)
         Me.Controls.Add(Me.供應商交期_dtp)
         Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.單據複製_bt)
         Me.Controls.Add(Me.已完全入庫的單據_rb)
         Me.Controls.Add(Me.未完全入庫的單據_rb)
-        Me.Controls.Add(Me.物料圖_pb)
         Me.Controls.Add(Me.修改存檔_bt)
         Me.Controls.Add(Me.總金額_tb)
         Me.Controls.Add(Me.Label21)
@@ -867,9 +847,6 @@ Partial Class 採購單申請
         Me.Controls.Add(Me.Label17)
         Me.Controls.Add(Me.單據編號_tb)
         Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.供應商關鍵字_tb)
-        Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.供應商編號_cb)
         Me.Controls.Add(Me.供應商_cb)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.付款方式_tb)
@@ -904,6 +881,8 @@ Partial Class 採購單申請
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.刪除採購單中選中的物料_bt)
         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 = "採購單申請"
@@ -915,8 +894,9 @@ Partial Class 採購單申請
         CType(Me.申請數_nud, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.物料檔案_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -982,16 +962,9 @@ Partial Class 採購單申請
     Friend WithEvents Label3 As Label
     Friend WithEvents Label20 As Label
     Friend WithEvents 明細_dgv As DataGridView
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
-    Friend WithEvents 開立新的採購單ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 新增物料到採購單ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 刪除採購單中選中的物料ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
-    Friend WithEvents 修改匯率ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 修改存檔ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
-    Friend WithEvents 列印成EXCELToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 列印產品標籤ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 新增_bt As Button
+    Friend WithEvents 刪除採購單中選中的物料_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 關鍵字查詢_bt As Button
+    Friend WithEvents ToolTip1 As ToolTip
 End Class

MAOJI-ERP-SYS/06、採購系統管理/採購單申請.resx

@@ -117,7 +117,74 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="列印產品標籤_bt.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vQAADr0BR/uQrQAADiFJREFUaEPtWQl0jmcWFhNMa0tCgkQSWcUaiX0LIbEFSSSyWEpIUEvQTVOqIhTF
+        WKsLrY6qlupmWqW11ZJEViEIokjbaaeGQVvVcv87z/Pmoz0znYOettoz7jn3/N//5/+/77n3Pnd7U+Gu
+        3JW78ttI+syZzWdmZLSw3v7x5JEpU848Pn26zkhPl1mzZhXMnjNn6YyMjLip06a5WV/5/cqE1FS7YcOH
+        28alpur48eN1LHQcdPIDD+hjU6cqDPsGhm2dnp4+PS0tLQzGVrN++vuQlFGjvAfExOj9Y8fqmPvvl9FQ
+        vOroMWMEqqNGj7aNwiuvJ02erA9PmaKPpqWdgXGvTpw8uad1mzsnQ4YO7R/eo4emjB6tycnJMjAuTpJG
+        jNCRuB7O15EjZWRKiuC9jsA11Gb9XftHRl6ybnPnJCExcWrbdu10WFKS3jd8uPaJiNDhvB42XHv26qUj
+        AHTosGEaO3Cg+TsMNsrvh4Z2u2zd5s4JgK0PbNFCBw8erAmDBkmPnj1lCADH4zo8PByGDJP4hAR+rsgV
+        icM1jNZBgwfb2rRte866zZ2Tfv37H23WvLnGxsdrTGysdA8LE4BX5IV0695dCf76dSKMih4wgO9NRAID
+        A89Yt7lzAsDfN23WTPtFRmpE377atVs3jYqOLr8ODTXXffv105AuXRTgDcUi8J6f+TdseMi6zW8nLYKC
+        /mxdVkDyuoEG2qRpU0MRvJfOISHSu08fhcelS9dQ5oF0Dw+XTp07a88+fSQM10z6bjDUz99/n3WrX1c6
+        durUFom6NCg4+Mvm8DaMKAbwcfBqOPnfuEkTobfxXvBdc83XLl27KlQ6dOwoHWAAr2kgP2/Xvj0NeN96
+        xC8vvXr37gIvPgcgF9t36KCh8FjP3r01HJWFVQfh1+CWLfMbNW6sAY0aKb/DaACsAdeqZUsaYa5btmpl
+        Xqn8Lb8DZ6ivn99r1uN+GYmJiQlHUq5GiC/RSyyD4KoNYddWrVuLj6+P+Pr6MQLSJbSbrX9UtHh7e9u8
+        vL2FkYBK6zZtBH9XJLYQLL/LCNEIXlP5OT5Tbx+f561H/3xBmYuIi49fh6ZyhdxkcsXHJ2rqxFQdN2GC
+        PvDgQzozY7YuffoZXbP2VX11/Ru69rXX9YWX1uiK51bpwiXLdPS4CRraPQyAvJUJzYiAHjSI+WGuWama
+        MFrQdjDAx9dXvby85lswbl8waD3B9o96jFIXr8kpo3TZ0ytk89YP5Xjpx3Ks9JQeLD4iWftz5cPtO3Xz
+        lg9k07ubZeOb78CIjfLS2nWy6sW/6opnV8qS5c/IgsXLNGPOU5I0cpS0A51c3dyEwBkdDw8PaQjKAbTA
+        64ySMaCBl9fjFpzbEwxYTadhenz0scdsy1es0MIDRXKm7DMtPXVKjh0vlcNHj0nx4aN66PBRoRYdOqyZ
+        2Tmy9cPt8u7mLfrWO+/Kho1vytpX1+uLa16R51atlmUrntOFi5fJvAWL5Ml5CzVtWrrEJQ7WoKBgqVW7
+        tnh4eqq7uztfDZ0AnsaNtSDdnkycNCl+EqbFqY8/rmVlZXpNRM+d/5eeKftEj584qUeOndAjJce1+EgJ
+        jbihNOSNt95RREK37dil7/ztPX1twxv68rr1umr1y/rsyhd18bIVOn/RUp09d4Gmz5qr02fO1skPpWlk
+        dIw2btZU3dzcmE+GXohQGYxIB+V8LWi3JoOHDAllJxx6331y4eJXKhCFfHf1Kt5flM/+/rmcOPmxHi05
+        LjCEaqIBg2Tv3kzdvTdLcvIKBFHRdzdvlfVvvCnr1r+ua14GrVavkeXPPE9DZO78xTprznyZ+eQ8eTht
+        msYMTDBlltWIyc5IsMGxYMCINAvezQVdMqg7EpZzS/HhI/rZ518QuF69+r3YbCrXrl2Tr77+Wj//4h9y
+        8uPTUlIeEUMtGsNXGoQcMYbl5hfKB9t26IaNb8nadetl9ZpXEJE1shI58kT6bIkZOBC9oIN26tzJGNAB
+        OdIrIkKiMFaw/DYKCNBGjRptsuDdXAC8QRdYTuv3ZWXrsROlhjrMA1LpuytX1EZLxKaXL3+rZ788p6dO
+        l2nJ8VI9CmNggKHXdYrRECoplp2Tp1s+2K5Pzn0K806c8jnsuhwxusLTnIMGxMaavsFq1RDg/aHoCS9Y
+        8G4u6JQ1eIN27dshMbcZjxYfOWq8zCQ+dfqMnP3nWf3m8mWyC1Gx6ZUr38n58/+SM59+RmMFhjAiNAK/
+        PSYlzB38/oUXXhRQFPQcagY4jhJoioJJ1UyreC77gjZCbwgICBAawIrk4+09x4J3c0Ej+RMTKSg4yPbm
+        25u08GCxHCgqhhcPG2ocKTkGgKVK+pBGpBNpZVMV0EwvXLwkn5o8OaXHS0/ReFm6bLnGxScAdJhgKtUF
+        CxcJpk/O/YJSLR3QlZs0ayboE8LeAOAsreLj58eGpp4NGjxgwbs1wRhwmTd6+ZV1ml9YpDkFBzSv4KAW
+        HCjWAweLDT3o4SMlJ5QJDcB68cJF/f7qVYUhpnJd/uZbRKNUsUZy29K3N21Cj9igHOaSR41ikTBjQ/PA
+        QKN8HkcPQxv0BdDGlNMGLLGeHkMsaLcm8MRZ3gSNSLNyC2Tf/jzdn1MguQUHJB9acOAgDWGigiol5L4c
+        A3XKUGrPnT8v3165YirX8ytXyqNTp8qUtDQu85KG6yQYwwGOIwVHB44YBM+RArwXPpcNDeAFntf67u7q
+        5u7ew4J2a4IbnST35i9cpHsy98uuPZm6NytHsrLzZD9KZG5eASMjhUWHpOjg4RtllFWo5PhJOY08uXDp
+        EkaNBwUNUabPmIFGtthUHNZ4RFg4sHEmIm3IewPer6FYnid4cffwULf69dXV1TXIgnZr4u/vn+uF2eXB
+        hx4BfYpQ27N1x659urvcEM1ERLJz8zQnv1DzQDHSDMboIVSaw0eR8KhGJ0+d0cFDhvLkQSdOnmwaYwuA
+        b4lJNLAc/I3ZiErg3pyBvL3JeXUHcDdXV61Tr57WcXFxtaDdmvj6+r7vZyVQ6zatZdGSpzUzJ18+QpPa
+        uWsfXrNNZPZl50rm/nzNySuUvIJCQ63ConJqgVKmymDrkkGsPNh/wXVDHXrdAs9KI37lwAUDnPE6x4p6
+        mJcI3qVOHa1ataqDBe3m0iI4uAYesq0lKhE9gxtK9Ro14LFAWbhoiWTBEFJq+649snP3PoEhujd7v2Tj
+        8+y8fCQ78qTwICnFtZEblvTGrsB916KM2dI4eTb09+dQJyiT6knwAE7O16tXT+rWqSMuzs7q7Ox8DbBq
+        Q3noVQlqB/1vQWI5oA4v7xgSwlZu5hHLW8YQVoSaDjVRKZroQswz2XmF+hEM2fHRXt35UaYiOroH40MW
+        mlV2boEWgFLsJ1x2sBubPZhcN9UGleZ6jSdleG8OdATvCq/XpecBvnbt2urk5PQV4DWB+kDrQKtCfzAC
+        s0YtdN1nzS6K5sLZA2raOrcoLiuBXEIQdrR0Ux1qOjhoQMMAeWrBXyQzN1937dknMAQRoSHZwoRHsnPb
+        4r5r1kiOJiiTpjmh0lyv8eZ+BF4flKnr6ioudetqbWdnAXgBeK1Zs+YngNmPUKHNoDxTta/QLTzcHkBX
+        YcsypwP9oqJsWFyEJwNYDc0RCI1hyTOrHw1p0cJGGrBee+HhDg4OAkN0zrz5whzZvScLEdltqLU3a79i
+        R+ZvufdiqenOEslKY4B7l3ud4IWVhuCRrOLs4qJOBO/oKA4woHLlyu8B8CBoOJSn3PWhlSp07tq1XWJi
+        IhuKDZuXOZeJjY835zIwRhBy4drIEwR6kJ4kGHr1egmkR0kBRydHlD9/4Yxj5YjsBLWYoJwsGUku7Kg0
+        XFpMwnqw0iC/AF7qwesGPIGX08bmCPD33ntvAcAmQrtC6X13aHWoXYWwsDA7eOX90di8UtAZ70tK0iHo
+        jjQKa6RGo+VHRkaaNRLzinL3ZUQAxHCbecIcYRclt8lnJydHgPPRjNlzdA/Kra+fr/kO6r5Z2LEjawMm
+        LCuNVeMNeFQaJCuBGwVtLlWsWHEugHaDBkI9oI5QHttUhP4gCG9EZHT0uQnYcZOTk208u+QukIAZZWBC
+        gjlRA7VoCCNiqgoTkx5lRDg3sTGxRDYpN0ScatUyNGuKasNIMWKMnCcoQ/DorFKvvMaLM6pNLYCvVauW
+        AX/PPfdsAaxIKJuXJ/Sngf9Ywnr0qIiBainb/Nhx48ycQlpZ1OIRoA7AkhMVFaURyBnOM4wIk56HUuQ4
+        aUJPMyKsYPQwI9MYVYeVjJFAmTSKGn+j0hA4qw2T1c7OLhVwWkEJvCa0MvSny+ZPCRZufwD5Ig6AMzIy
+        bDw9ThoxQmgIxmDssYkSi4jwGBDJLz0xCvOQlnnCiJAmjAjLLn/DROdUydLZFLOOK/huyqRV4wkcBkiV
+        KlVW4fHtoV7Q2wf+YwHPa2MbWoNR90oqRgCMApKcknLdEM7z5gQ5Ji7OHMaSXqCUhCDRWa3c3Fxzq1ev
+        OT9p5IgidFbutjaWTnZd8N2USRcXFxs5X7169Tw8MhrKGs9u+78b1e0KuF4jJCRkI49XxqemasqYMUpD
+        OBoP41k+PBwbF8czT9Z4UuRL8HcGfhoLjYKGoYM/w7mGcw6VYwHLJLz+tb29/VR8xx/qBP35Hr+ZtO/Y
+        sUufvn0/5f+1kB82/puI/xIihZgPPZDYSEiufH2gvaGdoOQwE68KNBjJuZOdFp7XatWqbcBnTNBfF/h/
+        CvIjg7zmkQv7A9dAVJcdSLxe+DP52xZKDt84oaagHLJ6VKpkb9+9or19MK7vhf52wH8s4LknRoxMaJmD
+        oyO5y/ocAKXHOaP8gcTOjvRgxbjHvL8r/1dSocK/Aa9EbPnybzLdAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>23, 10</value>
   </metadata>
 </root>

MAOJI-ERP-SYS/06、採購系統管理/採購單申請.vb

@@ -75,8 +75,8 @@ Public Class 採購單申請
         明細_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 50 : 明細_dgv.Columns(2).FillWeight = 80 : 明細_dgv.Columns(3).FillWeight = 200
-        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).Visible = False : 明細_dgv.Columns(6).FillWeight = 50 : 明細_dgv.Columns(7).FillWeight = 50
-        明細_dgv.Columns(8).FillWeight = 50 : 明細_dgv.Columns(9).FillWeight = 50 : 明細_dgv.Columns(10).FillWeight = 65 : 明細_dgv.Columns(11).FillWeight = 100
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).Visible = False : 明細_dgv.Columns(6).FillWeight = 60 : 明細_dgv.Columns(7).FillWeight = 60
+        明細_dgv.Columns(8).FillWeight = 60 : 明細_dgv.Columns(9).FillWeight = 60 : 明細_dgv.Columns(10).FillWeight = 65 : 明細_dgv.Columns(11).FillWeight = 100
         明細_dgv.Columns(12).FillWeight = 80 : 明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False
         明細_dgv.Columns(16).Visible = False : 明細_dgv.Columns(17).FillWeight = 50
 
@@ -93,9 +93,28 @@ Public Class 採購單申請
         SQL_供應商資料表下拉清單()
         供應商_cb.Items.Clear() : 供應商編號_cb.Items.Clear() : While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
+    Private Sub 關鍵字查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.關鍵字查詢_bt, "關鍵字查詢")
+    End Sub
+    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.新增_bt, "新增採購單")
+    End Sub
+    Private Sub 修改存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改存檔_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.修改存檔_bt, "修改存檔")
+    End Sub
+    Private Sub 刪除採購單中選中的物料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除採購單中選中的物料_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.刪除採購單中選中的物料_bt, "刪除採購單中選中的物料")
+    End Sub
+    Private Sub 列印產品標籤_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印產品標籤_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.列印產品標籤_bt, "列印產品標籤")
+    End Sub
+    Private Sub 列印採購單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印採購單_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.列印採購單_bt, "列印採購單")
+    End Sub
     Private Sub 採購單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         單據編號_tb.Enabled = False : 料號_tb.Enabled = False : 選擇_tb.Enabled = False : 未完全入庫的單據_rb.Checked = True : 供應商編號_cb.Visible = False
+        Panel1.SendToBack()
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : Set_採購清單() : Set_物料清單()
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 物料檔案_dgv.CellClick
@@ -228,23 +247,48 @@ Public Class 採購單申請
             NU1 = 匯率_nud.Value : PA1 = 明細_dgv.Rows(i).Cells("資料流水號").Value : SQL_採購單申請_倉儲明細表匯率修改() : conn.Close()
         Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : Set_單據明細() : MsgBox("資料修改，存檔完畢 。")
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
+    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
+        If 非當天日期_ch.Checked = True Then : Else : 採購下單_dtp.Value = Today() : End If
+        單據編號_tb.Text = "" : 總金額_tb.Text = "0" : 採購下單_dtp.Value = Today() : 選擇_tb.Text = ""
+        供應商_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 傳真1_tb.Text = "" : 郵號1_tb.Text = ""
+        地址1_tb.Text = "" : 郵號2_tb.Text = "" : 地址2_tb.Text = "" : 統編_tb.Text = "" : 付款方式_tb.Text = ""
+        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : Set_採購清單() : Set_物料清單()
+        明細_dgv.DataSource = Nothing : ds2.Clear() : Me.未完全入庫的單據_rb.PerformClick()
+    End Sub
+    Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
         Set_日期格式轉換() : 存檔1() : Set_單據明細() : Set_採購清單() : MsgBox("資料修改，存檔完畢 。")
     End Sub
+    Private Sub 刪除採購單中選中的物料_bt_Click(sender As Object, e As EventArgs) Handles 刪除採購單中選中的物料_bt.Click
+        PA1 = 選擇_tb.Text : SQL_倉儲明細表_入庫日期讀取()
+        If dr.Read() Then
+            If dr("入庫日期") = "" Then : conn.Close()
+                If 選擇_tb.Text = "" Then : MsgBox("沒有選擇要刪除了料號 。")
+                Else
+                    Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+                    If aa1 = MsgBoxResult.Ok Then
+                        PA1 = 選擇_tb.Text : SQL_倉儲明細表刪除() : conn.Close() : 選擇_tb.Text = "" : Set_單據明細()
+                    End If
+                End If
+            Else : conn.Close() : MsgBox("已入庫的資料不可刪除 。") : End If
+        End If
+    End Sub
+    Private Sub 關鍵字查詢_bt_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
+        PA = InputBox("請輸入廠商的關鍵字來做查詢") : 供應商關鍵字_tb.Text = PA
+        If 供應商_cb.Items.Count > 2999 Then : MsgBox("清單數量超過3000個，清通知系統管理員修改程式!!") : Else
+            For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
+            For I As Integer = 0 To 供應商_cb.Items.Count - 1 : PPBB(I) = 供應商_cb.Items(I).ToString : NN1 = I : Next
+            下拉清單_1.ShowDialog() : 供應商_cb.Text = PPAA
+        End If
+        PA = ""
+    End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未完全入庫的單據_rb.Click
         未完全入庫的單據_rb.Checked = True : 已完全入庫的單據_rb.Checked = False : Set_採購清單() : 新增物料_bt.Enabled = True : 修改匯率_bt.Enabled = True : 修改存檔_bt.Enabled = True
-        新增物料到採購單ToolStripMenuItem.Enabled = True : 刪除採購單中選中的物料ToolStripMenuItem.Enabled = True : 修改匯率ToolStripMenuItem.Enabled = True
-        修改存檔ToolStripMenuItem.Enabled = True
     End Sub
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 已完全入庫的單據_rb.Click
         If CC(35) = False Then
             未完全入庫的單據_rb.Checked = False : 已完全入庫的單據_rb.Checked = True : Set_採購清單() : 新增物料_bt.Enabled = False : 修改匯率_bt.Enabled = False : 修改存檔_bt.Enabled = False
-            新增物料到採購單ToolStripMenuItem.Enabled = False : 刪除採購單中選中的物料ToolStripMenuItem.Enabled = False : 修改匯率ToolStripMenuItem.Enabled = False
-            修改存檔ToolStripMenuItem.Enabled = False
         Else
             未完全入庫的單據_rb.Checked = False : 已完全入庫的單據_rb.Checked = True : Set_採購清單() : 新增物料_bt.Enabled = True : 修改匯率_bt.Enabled = True : 修改存檔_bt.Enabled = True
-            新增物料到採購單ToolStripMenuItem.Enabled = True : 刪除採購單中選中的物料ToolStripMenuItem.Enabled = True : 修改匯率ToolStripMenuItem.Enabled = True
-            修改存檔ToolStripMenuItem.Enabled = True
         End If
     End Sub
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 單據複製_bt.Click
@@ -278,30 +322,22 @@ Public Class 採購單申請
     End Sub
     '-----------------------------列印成EXCEL------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 列印採購單_bt.Click
-        xlApp = CType(CreateObject("Excel.Application"), Application)
-        xlBook = xlApp.Workbooks.Add
-        xlApp.DisplayAlerts = True
-        xlBook.Activate()
-        xlSheet = NewMethod(xlBook)
-        xlSheet.Activate()
-        xlApp.Visible = True
-        xlApp.Application.WindowState = xlMaximized
-
-        xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.公司名稱_cb.Text : xlSheet.Cells(2, 1) = 公司地址 : xlSheet.Cells(3, 1) = "採購訂單" : xlSheet.Cells(4, 1) = "採購編號 : " : xlSheet.Cells(4, 3) = 單據編號_tb.Text
-        xlSheet.Cells(5, 1) = "採購日期 : " : xlSheet.Cells(5, 3) = 採購下單_dtp.Value : xlSheet.Cells(5, 6) = "付款方式 : " : xlSheet.Cells(5, 7) = 付款方式_tb.Text : xlSheet.Cells(5, 9) = "需求交期 : "
-        xlSheet.Cells(5, 10) = 供應商交期_dtp.Value : xlSheet.Cells(4, 9) = "統一編號 : " : xlSheet.Cells(4, 10) = 公司統編 : xlSheet.Cells(7, 1) = "TO : " : xlSheet.Cells(8, 1) = "郵號1 : "
-        xlSheet.Cells(9, 1) = "郵號1 : " : xlSheet.Cells(7, 2) = 供應商_tb.Text : xlSheet.Cells(8, 2) = 郵號1_tb.Text : xlSheet.Cells(9, 2) = 郵號2_tb.Text : xlSheet.Cells(8, 3) = "地址1 : "
-        xlSheet.Cells(9, 3) = "地址2 : " : xlSheet.Cells(8, 4) = 地址1_tb.Text : xlSheet.Cells(9, 4) = 地址2_tb.Text : xlSheet.Cells(7, 9) = "公司電話1 : " : xlSheet.Cells(8, 9) = "公司電話2 : "
-        xlSheet.Cells(9, 9) = "傳真 : " : xlSheet.Cells(7, 10) = 公司電話1_tb.Text : xlSheet.Cells(8, 10) = 公司電話2_tb.Text : xlSheet.Cells(9, 10) = 傳真1_tb.Text : xlSheet.Cells(11, 1) = "項次"
-        xlSheet.Cells(11, 2) = "料號" : xlSheet.Cells(11, 4) = "品名" : xlSheet.Cells(11, 6) = "數量" : xlSheet.Cells(11, 7) = "單價" : xlSheet.Cells(11, 8) = "匯率" : xlSheet.Cells(11, 9) = "採購金額"
-        xlSheet.Cells(11, 10) = "備註"
+        xlApp = CType(CreateObject("Excel.Application"), Application) : xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = True : xlBook.Activate()
+        xlSheet = NewMethod(xlBook) : xlSheet.Activate() : xlApp.Visible = True : xlApp.Application.WindowState = xlMaximized
+
+        xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.公司名稱_cb.Text : xlSheet.Cells(2, 1) = 公司地址 : xlSheet.Cells(3, 1) = "採購訂單" : xlSheet.Cells(4, 1) = "採購編號 : "
+        xlSheet.Cells(5, 1) = "採購日期 : " : xlSheet.Cells(5, 3) = 採購下單_dtp.Value : xlSheet.Cells(5, 6) = "付款方式 : " : xlSheet.Cells(5, 7) = 付款方式_tb.Text
+        xlSheet.Cells(5, 10) = 供應商交期_dtp.Value : xlSheet.Cells(4, 9) = "統一編號 : " : xlSheet.Cells(4, 10) = 公司統編 : xlSheet.Cells(7, 1) = "TO : "
+        xlSheet.Cells(9, 1) = "郵號1 : " : xlSheet.Cells(7, 2) = 供應商_tb.Text : xlSheet.Cells(8, 2) = 郵號1_tb.Text : xlSheet.Cells(9, 2) = 郵號2_tb.Text
+        xlSheet.Cells(9, 3) = "地址2 : " : xlSheet.Cells(8, 4) = 地址1_tb.Text : xlSheet.Cells(9, 4) = 地址2_tb.Text : xlSheet.Cells(7, 9) = "公司電話1 : "
+        xlSheet.Cells(9, 9) = "傳真 : " : xlSheet.Cells(7, 10) = 公司電話1_tb.Text : xlSheet.Cells(8, 10) = 公司電話2_tb.Text : xlSheet.Cells(9, 10) = 傳真1_tb.Text
+        xlSheet.Cells(11, 2) = "料號" : xlSheet.Cells(11, 4) = "品名" : xlSheet.Cells(11, 6) = "數量" : xlSheet.Cells(11, 7) = "單價" : xlSheet.Cells(11, 8) = "匯率"
+        xlSheet.Cells(11, 10) = "備註" : xlSheet.Cells(4, 3) = 單據編號_tb.Text : xlSheet.Cells(5, 9) = "需求交期 : " : xlSheet.Cells(11, 9) = "採購金額"
+        xlSheet.Cells(11, 1) = "項次" : xlSheet.Cells(8, 1) = "郵號1 : " : xlSheet.Cells(8, 3) = "地址1 : " : xlSheet.Cells(8, 9) = "公司電話2 : "
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            xlSheet.Cells(i + 12, 1) = 明細_dgv.Rows(i).Cells("項次").Value
-            xlSheet.Cells(i + 12, 2) = 明細_dgv.Rows(i).Cells("料號").Value
-            xlSheet.Cells(i + 12, 4) = 明細_dgv.Rows(i).Cells("品名").Value
-            xlSheet.Cells(i + 12, 6) = 明細_dgv.Rows(i).Cells("數量").Value
-            xlSheet.Cells(i + 12, 7) = 明細_dgv.Rows(i).Cells("單價").Value
-            xlSheet.Cells(i + 12, 8) = 明細_dgv.Rows(i).Cells("匯率").Value
+            xlSheet.Cells(i + 12, 1) = 明細_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + 12, 2) = 明細_dgv.Rows(i).Cells("料號").Value
+            xlSheet.Cells(i + 12, 4) = 明細_dgv.Rows(i).Cells("品名").Value : xlSheet.Cells(i + 12, 6) = 明細_dgv.Rows(i).Cells("數量").Value
+            xlSheet.Cells(i + 12, 7) = 明細_dgv.Rows(i).Cells("單價").Value : xlSheet.Cells(i + 12, 8) = 明細_dgv.Rows(i).Cells("匯率").Value
             xlSheet.Cells(i + 12, 9) = "=F" & i + 12 & "*G" & i + 12 & "*H" & i + 12
             xlSheet.Cells(i + 12, 10) = 明細_dgv.Rows(i).Cells("備註").Value
             N1 = i + 12
@@ -311,12 +347,8 @@ Public Class 採購單申請
         AA(xlApp, xlSheet)
 
         xlSheet.PageSetup.PrintArea = ""
-        xlApp.Cells.Select()
-        xlSheet.Range("B1").Select()
-        xlApp.Application.WindowState = xlMinimized
-        xlSheet.Cells.Select()
-        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
-        xlApp.ActiveSheet.EnableSelection = 1
+        xlApp.Cells.Select() : xlSheet.Range("B1").Select() : xlApp.Application.WindowState = xlMinimized : xlSheet.Cells.Select()
+        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990") : xlApp.ActiveSheet.EnableSelection = 1
         MsgBox("列印完成。")
     End Sub
     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
@@ -326,12 +358,9 @@ Public Class 採購單申請
         xlSheet.Cells.Select()
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
-        xlSheet.Columns("A:C").Select : myExcel.Selection.ColumnWidth = 6
-        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 10
-        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 20
-        xlSheet.Columns("F:G").Select : myExcel.Selection.ColumnWidth = 10
-        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 8
-        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 12
+        xlSheet.Columns("A:C").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 20 : xlSheet.Columns("F:G").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 8 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 12
         xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 30
         xlSheet.Rows("1:1").Select
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 28 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
@@ -406,12 +435,9 @@ Public Class 採購單申請
         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
-        xlSheet.Rows("4:9").Select : myExcel.Selection.RowHeight = 18
-        xlSheet.Rows("6:6").Select : myExcel.Selection.RowHeight = 5
-        xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 5
-        xlSheet.Rows("11:11").Select : myExcel.Selection.RowHeight = 25
-        xlSheet.Rows("12:" & N1 + 1).Select : myExcel.Selection.RowHeight = 18
-        xlSheet.Rows(N1 + 2 & ":" & N1 + 2).Select : myExcel.Selection.RowHeight = 30
+        xlSheet.Rows("4:9").Select : myExcel.Selection.RowHeight = 18 : xlSheet.Rows("6:6").Select : myExcel.Selection.RowHeight = 5
+        xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 5 : xlSheet.Rows("11:11").Select : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("12:" & N1 + 1).Select : myExcel.Selection.RowHeight = 18 : xlSheet.Rows(N1 + 2 & ":" & N1 + 2).Select : myExcel.Selection.RowHeight = 30
 
         xlSheet.Range("A4:B5").Select()
         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
@@ -514,47 +540,4 @@ Public Class 採購單申請
 
         myExcel.ActiveWindow.DisplayGridlines = False
     End Sub
-    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
-    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
-        Set_採購清單() : Set_物料清單() : ComboBox2下拉表單資料載入()
-    End Sub
-    Private Sub 開立新的採購單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開立新的採購單ToolStripMenuItem.Click
-        If 非當天日期_ch.Checked = True Then : Else : 採購下單_dtp.Value = Today() : End If
-        單據編號_tb.Text = "" : 總金額_tb.Text = "0" : 採購下單_dtp.Value = Today() : 選擇_tb.Text = ""
-        供應商_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 傳真1_tb.Text = "" : 郵號1_tb.Text = ""
-        地址1_tb.Text = "" : 郵號2_tb.Text = "" : 地址2_tb.Text = "" : 統編_tb.Text = "" : 付款方式_tb.Text = ""
-        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : Set_採購清單() : Set_物料清單()
-        明細_dgv.DataSource = Nothing : ds2.Clear() : Me.未完全入庫的單據_rb.PerformClick()
-    End Sub
-    Private Sub 刪除採購單中選中的物料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除採購單中選中的物料ToolStripMenuItem.Click
-        PA1 = 選擇_tb.Text : SQL_倉儲明細表_入庫日期讀取()
-        If dr.Read() Then
-            If dr("入庫日期") = "" Then : conn.Close()
-                If 選擇_tb.Text = "" Then : MsgBox("沒有選擇要刪除了料號 。")
-                Else
-                    Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-                    If aa1 = MsgBoxResult.Ok Then
-                        PA1 = 選擇_tb.Text : SQL_倉儲明細表刪除() : conn.Close() : 選擇_tb.Text = "" : Set_單據明細()
-                    End If
-                End If
-            Else
-                conn.Close() : MsgBox("已入庫的資料不可刪除 。")
-            End If
-        End If
-    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() : MsgBox("資料修改，存檔完畢 。")
-    End Sub
-    Private Sub 修改存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 修改存檔ToolStripMenuItem.Click
-        Me.修改存檔_bt.PerformClick() : MsgBox("資料修改，存檔完畢 。")
-    End Sub
-    Private Sub 列印成EXCELToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列印成EXCELToolStripMenuItem.Click
-        Me.列印採購單_bt.PerformClick()
-    End Sub
-    Private Sub 列印產品標籤ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列印產品標籤ToolStripMenuItem.Click
-        Me.列印產品標籤_bt.PerformClick()
-    End Sub
 End Class

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

@@ -23,11 +23,10 @@ Partial Class 物料資料庫
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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()
-        Me.導出EXCEL_bt = New System.Windows.Forms.Button()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.最低庫存量_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.下載檔名_tb = New System.Windows.Forms.TextBox()
@@ -88,15 +87,17 @@ Partial Class 物料資料庫
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
-        Me.導入EXCEL_bt = New System.Windows.Forms.Button()
-        Me.批量存檔_bt = New System.Windows.Forms.Button()
-        Me.單筆存檔_bt = New System.Windows.Forms.Button()
-        Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
-        Me.新增物料資料 = New System.Windows.Forms.Button()
         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()
+        Me.導出EXCEL_bt = New System.Windows.Forms.Button()
+        Me.導入EXCEL_bt = New System.Windows.Forms.Button()
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
+        Me.單筆存檔_bt = New System.Windows.Forms.Button()
+        Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
+        Me.新增物料資料_bt = New System.Windows.Forms.Button()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         CType(Me.最低庫存量_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.件數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.售價_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -108,19 +109,6 @@ Partial Class 物料資料庫
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        '導出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(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)
-        Me.導出EXCEL_bt.TabIndex = 1171
-        Me.導出EXCEL_bt.UseVisualStyleBackColor = True
-        '
         '最低庫存量_nud
         '
         Me.最低庫存量_nud.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -519,8 +507,8 @@ Partial Class 物料資料庫
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.物料清單_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)
@@ -530,24 +518,24 @@ Partial Class 物料資料庫
         Me.物料清單_dgv.Location = New System.Drawing.Point(4, 75)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(1240, 533)
         Me.物料清單_dgv.TabIndex = 1122
         '
         '無圖料號_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.無圖料號_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.無圖料號_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.無圖料號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.無圖料號_dgv.BackgroundColor = System.Drawing.Color.White
         Me.無圖料號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.無圖料號_dgv.Location = New System.Drawing.Point(122, 45)
         Me.無圖料號_dgv.Name = "無圖料號_dgv"
         Me.無圖料號_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.無圖料號_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.無圖料號_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.無圖料號_dgv.RowTemplate.Height = 24
         Me.無圖料號_dgv.Size = New System.Drawing.Size(109, 89)
         Me.無圖料號_dgv.TabIndex = 1157
@@ -706,6 +694,70 @@ Partial Class 物料資料庫
         Me.物料圖_pb.TabIndex = 1144
         Me.物料圖_pb.TabStop = False
         '
+        '停用_ch
+        '
+        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(159, 29)
+        Me.停用_ch.Name = "停用_ch"
+        Me.停用_ch.Size = New System.Drawing.Size(74, 20)
+        Me.停用_ch.TabIndex = 1174
+        Me.停用_ch.Text = "停用資料"
+        Me.停用_ch.UseVisualStyleBackColor = True
+        '
+        '啟用_ch
+        '
+        Me.啟用_ch.AutoSize = True
+        Me.啟用_ch.Checked = True
+        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(159, 3)
+        Me.啟用_ch.Name = "啟用_ch"
+        Me.啟用_ch.Size = New System.Drawing.Size(74, 20)
+        Me.啟用_ch.TabIndex = 1175
+        Me.啟用_ch.Text = "啟用資料"
+        Me.啟用_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        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(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
+        '
+        '導出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(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)
+        Me.導出EXCEL_bt.TabIndex = 1171
+        Me.導出EXCEL_bt.UseVisualStyleBackColor = True
+        '
         '導入EXCEL_bt
         '
         Me.導入EXCEL_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.EXCELIN
@@ -758,69 +810,26 @@ Partial Class 物料資料庫
         Me.關鍵字查詢_bt.TabIndex = 1142
         Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
         '
-        '新增物料資料
-        '
-        Me.新增物料資料.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
-        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(233, 2)
-        Me.新增物料資料.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.新增物料資料.Name = "新增物料資料"
-        Me.新增物料資料.Size = New System.Drawing.Size(50, 50)
-        Me.新增物料資料.TabIndex = 1141
-        Me.新增物料資料.UseVisualStyleBackColor = True
-        '
-        '停用_ch
-        '
-        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(159, 29)
-        Me.停用_ch.Name = "停用_ch"
-        Me.停用_ch.Size = New System.Drawing.Size(74, 20)
-        Me.停用_ch.TabIndex = 1174
-        Me.停用_ch.Text = "停用資料"
-        Me.停用_ch.UseVisualStyleBackColor = True
-        '
-        '啟用_ch
-        '
-        Me.啟用_ch.AutoSize = True
-        Me.啟用_ch.Checked = True
-        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(159, 3)
-        Me.啟用_ch.Name = "啟用_ch"
-        Me.啟用_ch.Size = New System.Drawing.Size(74, 20)
-        Me.啟用_ch.TabIndex = 1175
-        Me.啟用_ch.Text = "啟用資料"
-        Me.啟用_ch.UseVisualStyleBackColor = True
-        '
-        '全部_ch
+        '新增物料資料_bt
         '
-        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(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
+        Me.新增物料資料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
+        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增物料資料_bt.Location = New System.Drawing.Point(233, 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 = 1141
+        Me.新增物料資料_bt.UseVisualStyleBackColor = True
         '
-        '刪除物料_bt
+        'ToolTip1
         '
-        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.ToolTip1.AutoPopDelay = 5000
+        Me.ToolTip1.InitialDelay = 500
+        Me.ToolTip1.IsBalloon = True
+        Me.ToolTip1.ReshowDelay = 100
+        Me.ToolTip1.ToolTipTitle = "系統說明"
         '
         '物料資料庫
         '
@@ -840,7 +849,7 @@ Partial Class 物料資料庫
         Me.Controls.Add(Me.備註_tb)
         Me.Controls.Add(Me.單筆存檔_bt)
         Me.Controls.Add(Me.關鍵字查詢_bt)
-        Me.Controls.Add(Me.新增物料資料)
+        Me.Controls.Add(Me.新增物料資料_bt)
         Me.Controls.Add(Me.件數_nud)
         Me.Controls.Add(Me.售價_nud)
         Me.Controls.Add(Me.成本_nud)
@@ -905,7 +914,7 @@ Partial Class 物料資料庫
     Friend WithEvents 圖片編碼_tb As TextBox
     Friend WithEvents 單筆存檔_bt As Button
     Friend WithEvents 關鍵字查詢_bt As Button
-    Friend WithEvents 新增物料資料 As Button
+    Friend WithEvents 新增物料資料_bt As Button
     Friend WithEvents 件數_nud As NumericUpDown
     Friend WithEvents 售價_nud As NumericUpDown
     Friend WithEvents 成本_nud As NumericUpDown
@@ -953,4 +962,5 @@ Partial Class 物料資料庫
     Friend WithEvents 啟用_ch As CheckBox
     Friend WithEvents 全部_ch As CheckBox
     Friend WithEvents 刪除物料_bt As Button
+    Friend WithEvents ToolTip1 As ToolTip
 End Class

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

@@ -118,15 +118,18 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>647, 9</value>
+    <value>17, 5</value>
   </metadata>
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>827, 9</value>
+    <value>197, 5</value>
   </metadata>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>971, 9</value>
+    <value>341, 5</value>
   </metadata>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1136, 9</value>
+    <value>506, 5</value>
+  </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>656, 5</value>
   </metadata>
 </root>

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

@@ -72,6 +72,27 @@ Public Class 物料資料庫
         End While
         conn.Close() : 物料圖_pb.SizeMode = 4 : PA = ""
     End Sub
+    Private Sub 關鍵字查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.關鍵字查詢_bt, "關鍵字查詢")
+    End Sub
+    Private Sub 新增物料資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增物料資料_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.新增物料資料_bt, "新增物料資料")
+    End Sub
+    Private Sub 單筆存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 單筆存檔_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.單筆存檔_bt, "單筆存檔")
+    End Sub
+    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 刪除物料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除物料_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.刪除物料_bt, "刪除物料")
+    End Sub
     Private Sub 物料資料庫_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         料號_tb.Enabled = False : 批量存檔_bt.Enabled = False : Panel1.SendToBack()
@@ -115,7 +136,7 @@ Public Class 物料資料庫
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
         PA = InputBox("請輸入要查詢的關鍵字") : Set_物料清單()
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增物料資料.Click
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增物料資料_bt.Click
         物料清單_dgv.Enabled = False
         頁碼_tb.Text = "0" : 品名_tb.Text = "" : 尺寸_tb.Text = "" : 材質_tb.Text = "" : 圖片編碼_tb.Text = "" : 備註_tb.Text = ""
         成本_nud.Value = 0 : 售價_nud.Value = 0 : 件數_nud.Value = 0 : 停用料號_ch.Checked = False : ComboBox1下拉表單資料載入()

MAOJI-ERP-SYS/10、背景程式與其他視窗/下拉清單_1.Designer.vb

@@ -0,0 +1,144 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 下拉清單_1
+    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(下拉清單_1))
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.ListBox2 = New System.Windows.Forms.ListBox()
+        Me.ListBox3 = New System.Windows.Forms.ListBox()
+        Me.ListBox4 = New System.Windows.Forms.ListBox()
+        Me.上一頁_bt = New System.Windows.Forms.Button()
+        Me.下一頁_bt = New System.Windows.Forms.Button()
+        Me.最末頁_bt = New System.Windows.Forms.Button()
+        Me.最前頁_bt = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(4, 2)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(214, 404)
+        Me.ListBox1.TabIndex = 0
+        '
+        'ListBox2
+        '
+        Me.ListBox2.FormattingEnabled = True
+        Me.ListBox2.ItemHeight = 16
+        Me.ListBox2.Location = New System.Drawing.Point(217, 2)
+        Me.ListBox2.Name = "ListBox2"
+        Me.ListBox2.Size = New System.Drawing.Size(214, 404)
+        Me.ListBox2.TabIndex = 1
+        '
+        'ListBox3
+        '
+        Me.ListBox3.FormattingEnabled = True
+        Me.ListBox3.ItemHeight = 16
+        Me.ListBox3.Location = New System.Drawing.Point(430, 2)
+        Me.ListBox3.Name = "ListBox3"
+        Me.ListBox3.Size = New System.Drawing.Size(214, 404)
+        Me.ListBox3.TabIndex = 2
+        '
+        'ListBox4
+        '
+        Me.ListBox4.FormattingEnabled = True
+        Me.ListBox4.ItemHeight = 16
+        Me.ListBox4.Location = New System.Drawing.Point(643, 2)
+        Me.ListBox4.Name = "ListBox4"
+        Me.ListBox4.Size = New System.Drawing.Size(214, 404)
+        Me.ListBox4.TabIndex = 3
+        '
+        '上一頁_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(105, 407)
+        Me.上一頁_bt.Name = "上一頁_bt"
+        Me.上一頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.上一頁_bt.TabIndex = 1523
+        Me.上一頁_bt.Text = "上一頁"
+        Me.上一頁_bt.UseVisualStyleBackColor = True
+        '
+        '下一頁_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(656, 407)
+        Me.下一頁_bt.Name = "下一頁_bt"
+        Me.下一頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.下一頁_bt.TabIndex = 1524
+        Me.下一頁_bt.Text = "下一頁"
+        Me.下一頁_bt.UseVisualStyleBackColor = True
+        '
+        '最末頁_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(756, 407)
+        Me.最末頁_bt.Name = "最末頁_bt"
+        Me.最末頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.最末頁_bt.TabIndex = 1525
+        Me.最末頁_bt.Text = "最末頁"
+        Me.最末頁_bt.UseVisualStyleBackColor = True
+        '
+        '最前頁_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(4, 407)
+        Me.最前頁_bt.Name = "最前頁_bt"
+        Me.最前頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.最前頁_bt.TabIndex = 1526
+        Me.最前頁_bt.Text = "最前頁"
+        Me.最前頁_bt.UseVisualStyleBackColor = True
+        '
+        '下拉清單_1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(861, 432)
+        Me.Controls.Add(Me.最前頁_bt)
+        Me.Controls.Add(Me.最末頁_bt)
+        Me.Controls.Add(Me.下一頁_bt)
+        Me.Controls.Add(Me.上一頁_bt)
+        Me.Controls.Add(Me.ListBox4)
+        Me.Controls.Add(Me.ListBox3)
+        Me.Controls.Add(Me.ListBox2)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Cursor = System.Windows.Forms.Cursors.Default
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "下拉清單_1"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "下拉清單"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents ListBox2 As ListBox
+    Friend WithEvents ListBox3 As ListBox
+    Friend WithEvents ListBox4 As ListBox
+    Friend WithEvents 上一頁_bt As Button
+    Friend WithEvents 下一頁_bt As Button
+    Friend WithEvents 最末頁_bt As Button
+    Friend WithEvents 最前頁_bt As Button
+End Class

MAOJI-ERP-SYS/10、背景程式與其他視窗/下拉清單_1.resx

@@ -0,0 +1,408 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD/////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////7+/v+01ub/h77Y/4e+2P+Jv9j//P3+//7+/v+82uj/h77Z/4e+
+        2P+Hvtj/h77Y/4e+2f+z1ub/3e3z/4e+2P+Hvtj/kcPb//7+/v/+/v7/udro/8ri7f//////0ebv/4i+
+        2P+Hvtj/iL7Z/5XG3f/K4+3//v7+///////+/v7/jMHZ/4e+2P+Hvtj/h77Y/4e+2P+Hvtn/5fH2/63T
+        5P+Hvtj/h77Y/8Le6v//////+vz9/4zA2f/+/v7/8fj6/4e+2P+Hvtj/h77Y/4e+2P+Hvtj/mMfd/8Dd
+        6v+Hvtj/h77Y/8zk7v/r9Pj/h77Y/4e+2P+Ivtj/9vr7///////+/v7/+fz9/5fH3f9Vo8j/7vb5//7+
+        /v/+//7/+vz9/4zB2v9eqMv/7fX5/+/2+f+ayd7/gLrW//3+/v/D3+v/Y6vN/+31+f/+/v7/3+70/0ud
+        xv+11+f///////z9/v+kzuH/TJ7G/+Xx9v/g7vT/d7bT/4a92P/9/v7//v7+//D3+v9JnMX/os3h//H3
+        +v/k8Pb/XqfL/83k7v/2+vv/frnV/6TO4f/6/P3//v7+/5rI3v9JnMT//v7+//7+/v+Iv9j/WKXJ/+r0
+        9//v9vn/sdXl/0+gx//5/P3/lMXc/57L3//7/f3//v7+/7DV5f9HnMT/2+zz//7+/v//////////////
+        //+lzuL/XafL//7+/v////////////////+YyN7/aq7P//7//v/g7vX/7vb5/5fH3f/+/v7/6fP4/4S8
+        1//+/v7/+Pv8/2aszv9KncX/tdfn////////////r9Tl/1OiyP/+/v7//v7+/+72+f9InMT/utro//7+
+        /v/9/v7/S57G/7fY6P/+/v7/2Ory/7/c6v/P5e///////5zJ3//Q5e///v7+/8zk7v9Fm8T/T6DG//7+
+        /v//////8ff6/1akyf+Txdz//v7+//7+/v+AutX/9/r8/+r0+P96t9P/6/T4/+v0+P94ttP/fLjV//7+
+        /v//////////////////////pc7i/12ny//+/v7/////////////////mMje/2etzv/x9/n/drXT/+Xx
+        9v///////////+rz+P+Fvdj//v7+/5XG3P9QoMf/os3h/7XX5////////////6/U5f9Tosf//v7+////
+        ///+/v7/YqrN/4S81//+/v7//f7+/0uexv+x1eX/2ery/3i20//+/v7///////////+cyt//0ebw/+/2
+        +f9XpMn/h77Y/3Gy0f/+/v7///////7+/v/F3+z/RprE/9Dm7//+/v7//v7+//7+/v/+/v7/erfU/3q3
+        1P96t9T/RJrE/8Le6////////////////////////////6XO4v9dp8v//v7+/////////////////5jI
+        3v9Rocj/g7zX/0yexv/l8fb////////////q8/j/hb3Y/8ji7f9FmsT/v93q/7jY6P+11+f/////////
+        //+v1OX/U6LH//7+/v///////v7+/2Wszv9+udb//v7+//3+/v9Lnsb/bLDQ/3Cx0f93tdP///7+////
+        ////////nMrf/9Dl7/99udX/XafL//T5+/9xstH//v7+/////////////v7+/4e+2P9eqMv/9vr8////
+        /////////v7//8Hd6v+p0OP/qNDi/1KiyP/5/P3////////////8/f7/3Ozz///+//+lzuL/XafL//7+
+        /v/y+Pr/5vH2//////+YyN7/aq7P//7+/v+gzOD/4u/1//v9/f//////6vP4/3S00v9Vo8n/i8Da//7+
+        /v+42Oj/tdfn////////////r9Tl/1Oix//+/v7///////P4+v9KncX/oszh//7+/v/9/v7/S57G/7fY
+        6P/5/P3/j8Pa//T5+//+/v7//////5zK3/+EvNf/R5vF/9To8P/+/v7/cbLR//7+/v/+/v7/z+Xv//7+
+        /v/w9/r/VaPJ/5TG3P/+/v7////////////5/P3/crPR/2GqzP+TxNz////+////////////9vv8/12n
+        y//3+/z/pc7i/12ny//+/v7/n8vg/6/T5f/+/v7/l8fe/2quz//+/v7//v7+/4G71v/X6vH//v7+/9vr
+        8/9EmsT/X6jM//X5+//+/v7/rdLk/6zS5P/+/v7//v7+/6/U5f9Tosf//v7+//r8/f+Jv9n/WKTJ/+/2
+        +f/+/v7//f7+/0udxf+42Oj//v7+/+fy9/9wsdD//v7+//7+/v+Owtv/RJrE/6PN4P/+/v7//v7+/2Kq
+        zP/4+/z//v7+/2+x0f/S5/D//v7+/8Pf6/9Gm8T/0ebw//7+/v///////v7+/5PF3P9EmsT/2ery////
+        //////////////f7/P9LncX/aK7O/2aszf9Rocf/erfU/02fxv+x1eX/t9jn/1akyf9Vo8j/frnV/3Kz
+        0f9LncX/2ery/83k7v9apsr/Tp/G/9fp8f/+/v7/rtPk/1WjyP9XpMn/u9ro/9Ln8P9eqMv/Tp/G/3q3
+        1P9orc7/iL/Y/+jz9////////v7+/3u30/9LncX/a6/P/3251f9eqMv/brDQ//7+/v+RxNv/TJ7G/3Oz
+        0v/8/f3/+vz9/3Oz0f9LncX/bbDQ/+72+P+Evdf/U6LI/3y41P9+udX/UKDH/2muzv/+/v7/////////
+        ///Z6vL/ZazN//7+/v/////////////////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
+        /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//3+/v/+/v7///////7+/v/+/v7//v7+//7+
+        /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
+        /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
+        /v/+/v7//v7+/////////////v7+//b6/P/+/v7/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////////////////////v7+/9zs8//+/v7/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////////////////////////////////////v7+/93t
+        8/9Lnsb/uNjn//7+/v//////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////P5+/9gqcz/RJrE/0uexf/b7PP//v7+////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////7+/v+Cu9b/RJrE/0SaxP9EmsT/X6jL//P5+//+////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////7+/v+t0+P/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP+Autb//f7+////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////7+/v/U6PD/SJzF/0Sa
+        xP9Uosj/RJrE/1SjyP9EmcT/RJrD/6vS4//+/v7/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///v9vn/WaXK/0Saw/9FmsT/brHQ/0SaxP9Wo8n/XafL/0OaxP9InMT/0+fw//7+/v//////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////7////8/f7/eLbT/0yexf9EmsT/bbDQ/2GqzP9EmsT/RJrE/4rA2P9DmsT/TZ/F/1il
+        yf/v9vn////+////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////+/v7/oczg/0abxP9bpsr/RJrE/6LN4P9Hm8T/RJrE/0Sa
+        xP+mz+H/RJrE/0+gxv9Rocf/drXS//z9/v//////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////y+Pt/0abxP9ssM//RZrE/0Sa
+        xP+/3en/Q5rE/0SaxP9EmsT/qdDj/1qmyv9EmsT/bbDP/0SaxP+gy9///v7+////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////+/v7/6fP3/1Oi
+        yP9Vo8j/bK/P/0SaxP9qrs//ttfn/0SZxP9EmsT/RJrE/4i/2P+Wxt3/RJrE/1OiyP9usdD/RZrE/8ri
+        7f/+/v7/////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////+vz9/26w0P9DmsT/jsLZ/0SaxP9EmsT/ps/i/5TF3P9EmsT/RJrE/0SaxP9nrc7/1Ojw/0SZ
+        xP9EmsT/iL/Y/0qdxf9Sosj/6fP3////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////v7+/5XG3P9EmsT/dbTS/22wz/9EmsT/RJrD/+Lv9f9ys9H/RJrE/0Sa
+        xP9EmsT/SZzF//j8/P9YpMn/RJrE/0+fxv+Txdv/RJrD/22w0P/6/P3/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////v7+/8Hd6v9EmsT/SZ3F/6nR4v9EmsT/RJrE/2et
+        zv/9/v7/UaHH/0SaxP9EmsT/RJrE/0SaxP/d7fP/k8Tb/0SZxP9EmcT/k8Tb/2CpzP9EmsT/lMXc//7+
+        /v//////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////////////////////v7+/+Lv9f9On8b/Q5rE/53K
+        3/9lrM3/RJrE/0SZxP+jzeD/6fP3/0SaxP9EmsT/RJrE/0SaxP9EmsT/vNvp/9Hm7/9EmsT/RJrD/0ud
+        xf+42ef/RJrE/0SaxP+/3On//v7+////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////////f6
+        /P9lrM3/RJnE/16oy/+11+b/RJrD/0SaxP9EmsP/3+70/8fh7P9EmsT/RJrE/0SaxP9EmsT/RJrE/5rI
+        3v/8/f7/VaPI/0SaxP9EmsT/j8La/4W91/9EmcT/Tp/G/+Hv9P//////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////7+/v+KwNj/RJnE/0Saw//G4Ov/XqjL/0SZxP9EmsT/ZKvN//7+/v+lzuH/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP94ttP//v7+/4/C2v9EmsT/RJrE/0ecxf/R5u//T6DH/0SZxP9kq83/9vr7//7/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////7+/v+11+b/RJrE/0Saw/+DvNb/stXl/0SaxP9EmsT/RJrE/6DL
+        3///////g7zX/0SaxP9EmsT/RJrE/0SaxP9EmsT/VqTI//7+/v/N5O7/Q5rE/0SaxP9EmsP/hb3X/6/U
+        5P9EmsT/Q5rE/4i/2P/+/v7/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////a6/L/Sp3F/0OZxP9On8b/4/D1/1ek
+        yf9EmsT/RJrE/0SaxP/c7PP//v7+/2GqzP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Saw//v9vn/+/39/1Oi
+        yP9DmsT/RJrE/0WbxP/Z6/L/aq7P/0OaxP9EmsT/tNbm//7+/v//////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////z+Pr/XqjL/0Sa
+        xP9EmsP/rdPk/6jQ4v9EmsT/RJrE/0SaxP9gqcz//v7+//f7/P9Hm8T/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9DmsP/zeTu//7+/v+Mwdr/Q5rE/0SaxP9EmsT/fLjU/9jq8f9Gm8T/RJrE/0qdxf/Z6/L//v7+////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///9/v7/frnV/0SZxP9EmsT/aK7O//D3+f9Socf/RJrE/0SaxP9EmsT/ncrf//7+/v/Y6vL/RJrD/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/Q5rE/6vR4//+/v7/yeLt/0SaxP9EmsT/RJrE/0SaxP/T5/D/k8Tc/0Oa
+        w/9DmsP/XKfL//L4+v//////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////+/v7/qdHi/0SaxP9EmsT/RpvE/9bp8f+fy+D/RJnE/0SaxP9EmsT/RJrD/9nq
+        8v/+/v//t9jn/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP+Jv9j//v7+//r8/f9Rocf/RJrE/0Sa
+        xP9EmcT/crPR//L4+v9WpMn/RJrE/0SaxP9+udX//f7+////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////+/v7/0efv/0ebxP9EmsT/Q5rD/5DD2v/u9vn/TZ/G/0Oa
+        xP9EmsT/RJrE/1ynyv/9/v7//v7+/5TF3P9DmsP/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/Z63O//7+
+        /v///v//ib/Z/0SZxP9EmsT/RJrE/0SaxP/K4u3/vdvp/0SaxP9EmsT/Q5rE/6fQ4v/+/v7/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////7fX4/1ekyf9EmsT/RJrE/1Wj
+        yP/y+Pr/lcbc/0SaxP9EmsT/RJrE/0SaxP+ZyN7///////7+/v9zs9H/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0qdxf/6/P3//v7//8Xg7P9EmsT/RJrE/0SaxP9EmsT/aq7P//z+/f92tdP/RJrE/0Sa
+        xP9Gm8T/0OXv////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////+////+/39/3S0
+        0v9EmsT/RJnE/0SaxP+72uj/6PP3/0qdxf9EmsT/RJrE/0SaxP9EmcT/1unx///////+/v7/UaHH/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsP/3e3z///////5+/z/T6DG/0SaxP9EmsT/RJrE/0Sa
+        w//B3er/4u/1/0qdxf9DmsP/RJrE/1akyf/s9fj//v7/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////v7+/53K3/9DmsP/RJrE/0abxP+q0eP//f7+/4zB2v9EmcT/RJrE/0SaxP9EmsT/WaXK//3+
+        /v//////6vP3/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/7zb6f///////v7+/4a+
+        2P9EmsT/RJrE/0SaxP9EmsT/YarM//v9/f/L4+3/UaHH/0SaxP9EmsT/c7PR//v9/f//////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////v7+/8jh7P9FmsT/Q5rE/1Cgx//K4u3//v7+/+Hv9P9Hm8T/RJrE/0Sa
+        xP9EmsT/RJnE/5fH3f/+/v7//////8fh7P9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP+ayN7//v/////////C3uv/Q5rE/0SaxP9EmsT/RJrE/0Saw/+32Of//v7+/+Tw9f9kq83/RJnE/0Oa
+        xP+byd7//v7+////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////v7+/+fy9v9Socf/RJnE/2OrzP/j8PX//v7+//7+
+        /v+Cu9b/RJrE/0SaxP9EmsT/RJrE/0Saw//T5/D///////////+mz+H/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/ebbT//7+/v//////9vr7/02fxv9EmsT/RJrE/0SaxP9EmsT/W6bK//n7
+        /P//////9Pn7/3651f9EmsT/RZrE/8bg7P/+/v7/////////////////////////////////////////
+        //////////////////////////////////////////////////////////////n8/f9rr8//RJrE/324
+        1P/0+fv///////7+/v/Z6vL/RZrE/0SaxP9EmsT/RJrE/0SaxP9XpMn//f3+///////+/v7/hLzX/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/1ekyf/+/v7///////7+/v+DvNb/RJnE/0Sa
+        xP9EmsT/RJrE/0SZxP+t0+T//v7+///////9/v7/oMvf/0WaxP9Rocf/5vH2//7//v//////////////
+        //////////////////////////////////////////////////////////////////////////////7+
+        /v+SxNv/RZrE/57K3//8/v7//v/+///////+/v7/ebbT/0SZxP9EmsT/RJrE/0SaxP9EmsT/ksTc////
+        /////////v7+/2KqzP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsP/7/b5////
+        ///+/v7/v9zq/0SaxP9EmsT/RJrE/0SaxP9DmsT/VKPI//X6+////////v7///7+/v/C3ur/TZ7G/2qu
+        z//4+/z//v//////////////////////////////////////////////////////////////////////
+        //////////////7+/v+92+n/TZ7G/8Dd6v/+/v7/////////////////0ebv/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJnE/9Dl7/////////////f7/P9Hm8T/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/87k7v////////////X5+/9LnsX/RJrE/0SaxP9EmsT/RJrE/0OZxP+kzuH//v7+////
+        /////////v7+/9zs8/9dp8v/kMPb//7+/v//////////////////////////////////////////////
+        ///////////////////////////////////g7vT/ZazN/9vs8//+/v7//////////////////v7+/3Cx
+        0P9EmsT/RJrE/0SaxP9EmsT/RJrE/1SjyP/8/f3////////////Z6vL/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SZxP+r0eP//v7+///////+/v7/gLrW/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/UKDH//D3+v/////////////////+/v7/8Pf5/3W00v+72uj//v7+////////////////////
+        ///////////////////////////////////////////////////2+vv/ksTb/+/2+f/+/v7/////////
+        /////////////8jh7P9EmsT/RJrE/0SaxP9EmsT/RJrE/0SZxP+Pwtr//v7+///////+/v7/ttjn/0Sa
+        w/9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/ir/Z//7+/v///////////7zb
+        6f9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP+ayd7//v7+///////////////////////7/f3/ncre/97t
+        8//+/v7////////////////////////////////////////////////////////////+/v7/1ejv//v9
+        /f/+/v7///////////////////////3+/v9nrc7/Q5rD/0SaxP9EmsT/RJrE/0SaxP9EmcT/zeTu////
+        //////////7+/5XF3P9DmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/2et
+        zv/+/v7////////////z+fr/SZzF/0SaxP9EmsT/RJrE/0SaxP9DmsT/S57F/+v0+P//////////////
+        //////////////7+/v/U6O///P39////////////////////////////////////////////////////
+        /////////v7+//7+/v////////////////////////////////++3On/Q5rE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/UqLH//v9/f////////////7+/v9zs9L/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9KncX/+v39/////////////v7+/3y41P9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP+Rw9v//v7+/////////////////////////////v7+//7+/v//////////////////////////////
+        ///////////////////////////////////////////////////////////////////6/P3/X6nM/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/Q5rD/43B2v/+/v7////////////+/v7/UqHH/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrD/97t8/////////////7//v+82uj/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/SJzF/+Xx9v/+/v7/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///+/v7/tNbm/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/3m20//1+vv//v/+////////////6vP3/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Saw/+92+n/////////
+        /////////v7+/53K3/9EmsT/RJrE/0SaxP9EmsT/RJrE/0Saw/+Hvtj//v7+////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////+Pv8/1mlyv9EmsP/RJrE/0SaxP9EmsT/RJrE/4m/2P/6/P3//v7+////
+        /////////////8jh7P9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsP/m8ne//7////////////////////+/v7/sNTl/0abxP9EmsT/RJrE/0SaxP9EmsT/RpvE/93t
+        8///////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////////6vR4/9EmsT/RJrE/0SaxP9EmsT/RJrD/5rI
+        3v/+/v7///////////////////////////+mz+L/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrD/3i20//+/v7///////////////////////7+/v/B3er/Sp3F/0Sa
+        xP9EmsT/RJrE/0SaxP99udX//v7+////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////T5+/9Tosj/RJrE/0Sa
+        xP9EmsT/RZrE/6zS4//+/v7///////////////////////7+/v/+/v7/frnV/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9Wo8n/+Pv8//7+/v//////////////
+        /////////v7+/8/l7/9PoMf/RJrE/0SaxP9EmsT/RJrE/9Xo8f/+/v7/////////////////////////
+        //////////////////////////////////////////////////////////////////////////////7+
+        /v+hzOD/RJnE/0SaxP9EmsT/SJzF/73c6f/+/v7////////////////////////////0+fv/hb3X/0SZ
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/2it
+        zv/k8PX//v7+///////////////////////+/v7/3Ozz/1ekyf9EmcT/RJrE/0OaxP90tNL//v7+////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////v9/n/Tp/G/0SaxP9EmsT/Tp/G/8zk7v/+/v7///////////////////////7+
+        /v/b7PP/YKnM/0Saw/9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/Tp/G/7/c6f/+/v7///////////////////////7+/v/n8vb/YarM/0OZ
+        xP9EmsT/RJrD/8zj7v/+////////////////////////////////////////////////////////////
+        ///////////////////////////////////+/v7/l8fd/0SaxP9DmsT/VaPJ/9rr8v/+/v7/////////
+        //////////////7+/v+z1ub/Sp3F/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/ksTb//j7/P//////////////
+        /////////////+/3+f9tsM//RJrD/0SaxP9rr8///f7+////////////////////////////////////
+        ///////////////////////////////////////////////////+/v//6fP3/0qdxf9DmsT/X6jL/+Tx
+        9v/+/v7//////////////////v7+//T5+/+Fvdf/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Oa
+        xP9prs//5PD1//7+/v/////////////////+/v7/9vr7/3q31P9DmsP/Q5rD/8Le6v/+/v//////////
+        /////////////////////////////////////////////////////////////////////////v7+/47C
+        2v9EmsT/aq/P/+71+f///////////////////////v7+/9zs8/9hqcz/Q5rE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0+gx//A3er//v7+///////////////////////6/P3/isDZ/0Sa
+        xP9jq83//P39////////////////////////////////////////////////////////////////////
+        /////////////+Lw9f9HnMT/d7bT//X5+//+/v7//////////////////v7+/7TW5v9KncX/Q5rE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/5LE2//5/P3//v/+////
+        //////////////3+/v+cyd7/RJrE/7nZ6P/+/v7/////////////////////////////////////////
+        //////////////////////////////7+/v+Evdf/h77Y//r8/P/////////////////+/v7/9fn7/4a+
+        1/9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsP/aa7O/+Tx9f/+/v7//////////////////v7+/67T5P9eqMv/+fz9////////////////////
+        //////////////////////////////////////////////7+/v/c7PP/msje//3+/v/+////////////
+        ///+/v7/3Ozz/2GpzP9EmcT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0Oaw/9DmcT/RJnE/0SZxP9EmcT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0OaxP9PoMf/wd7q//7+/v///v/////////////+/v7/v9zp/7TX
+        5v/+/v7////////////////////////////////////////////////////////////+/v7/4O7z//7+
+        /v/////////////////+/v7/tdfm/0udxf9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/0SaxP9DmsP/RpvE/2GqzP+Gvtj/rNLk/8rj7f+11+f/kMPb/2quz/9KncX/RJrE/0Oa
+        xP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0SaxP+TxNv/+fz8////
+        //////////////7+/v/g7vP//v7+////////////////////////////////////////////////////
+        /////////v////7///////////////7+/v/1+vv/h77Y/0SaxP9EmsT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmcT/RJnE/0OaxP9GmsT/YqrM/4e+2P+r0uP/0ubw//X5+//+/v7//v7+//7+/v////////////7+
+        /v/+/v7/+fz9/9vr8v+01+b/j8Pb/2uvz/9KncX/RJrD/0SZxP9EmcT/RJrE/0SaxP9EmsT/RJrE/0Sa
+        xP9EmsT/RJrE/2quz//l8fb//v7+/////////////v7+///+/v//////////////////////////////
+        //////////////////////////////////////////////7+/v/d7PP/YarM/0OaxP9EmsT/RJrE/0Sa
+        xP9EmsT/Q5rE/0abxP9iqsz/h77Y/6zS5P/R5u//9Pn7////////////////////////////////////
+        ///////////////////////////////////////////////////+/v7/+fz9/9rr8v+11+b/kMPb/2uv
+        z/9KncX/RJrD/0OaxP9EmsT/RJrE/0SaxP9EmsT/T6DH/8He6v/+/v7/////////////////////////
+        /////////////////////////////////////////////////////////v////7+/v+22Ob/S53G/0OZ
+        xP9EmsP/RpvE/2KqzP+Hvtj/rNLj/9Lm7//0+fv//v7+//7+/v//////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////7+/v/+/v7/+vz9/9rr8v+11+b/kMPb/2uvz/9KncX/RJrD/0SZxP9EmsT/lMXc//n8
+        /P/+/v7//////////////////////////////////////////////////////////////////v7+//X6
+        +/+KwNj/YqrM/4e+2P+s0uT/0efw//T5+//+/v7//v7+///+/////v//////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        /////////////////////////////////////////////////////////v7+//7//v/+/v7/+fz9/9vr
+        8/+11+f/kMPb/2uvz/9xstD/5fH2//7+////////////////////////////////////////////////
+        //////////////7+///t9fj/9fn7//7+/v/+/v7/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////7+/v/+/v7/+vz9/+jy9v/+/v7/////////////////////////
+        ////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
+</value>
+  </data>
+</root>

MAOJI-ERP-SYS/10、背景程式與其他視窗/下拉清單_1.vb

@@ -0,0 +1,108 @@
+Public Class 下拉清單_1
+    Dim 頁數, 總頁數, F1, F2, F3, F4, F5, F6, F7, F8 As Integer
+    Dim 有選擇 As Boolean
+    Private Sub 下拉清單_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '--目前設定PPBB最長3000格------
+    End Sub
+    Private Sub 下拉清單_1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        If 有選擇 = False Then : PPAA = "" : End If
+    End Sub
+    Private Sub 下拉清單_1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        有選擇 = False
+        總頁數 = NN1 / 99 + 1 : 頁數 = 1 : F1 = 0 : F2 = 24 : F3 = 25 : F4 = 49 : F5 = 50 : F6 = 74 : F7 = 75 : F8 = 99
+        If NN1 < 99 Then : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = False
+        Else : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True : End If
+
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        If NN1 <= 24 Then
+            For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 24 And NN1 <= 49 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 49 And NN1 <= 74 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 74 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        End If
+    End Sub
+    Private Sub 最前頁_bt_Click(sender As Object, e As EventArgs) Handles 最前頁_bt.Click
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 -= (100 * (頁數 - 1)) : F2 -= (100 * (頁數 - 1)) : F3 -= (100 * (頁數 - 1)) : F4 -= (100 * (頁數 - 1)) : F5 -= (100 * (頁數 - 1))
+        F6 -= (100 * (頁數 - 1)) : F7 -= (100 * (頁數 - 1)) : F8 -= (100 * (頁數 - 1))
+        上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True
+        For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+        For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        頁數 = 1
+    End Sub
+    Private Sub 最末頁_bt_Click(sender As Object, e As EventArgs) Handles 最末頁_bt.Click
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 += (100 * (總頁數 - 頁數)) : F2 += (100 * (總頁數 - 頁數)) : F3 += (100 * (總頁數 - 頁數)) : F4 += (100 * (總頁數 - 頁數)) : F5 += (100 * (總頁數 - 頁數))
+        F6 += (100 * (總頁數 - 頁數)) : F7 += (100 * (總頁數 - 頁數)) : F8 += (100 * (總頁數 - 頁數))
+        上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = False
+        If NN1 <= F2 Then
+            For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F4 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F6 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F8 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To NN1 : ListBox4.Items.Add(PPBB(I)) : Next
+        End If : 頁數 = 總頁數
+    End Sub
+    Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click
+        頁數 -= 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 -= 100 : F2 -= 100 : F3 -= 100 : F4 -= 100 : F5 -= 100 : F6 -= 100 : F7 -= 100 : F8 -= 100
+        If 頁數 = 1 Then
+            上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True
+        ElseIf 頁數 > 1 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = True
+        End If
+        For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+        For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+    End Sub
+    Private Sub 下一頁_bt_Click(sender As Object, e As EventArgs) Handles 下一頁_bt.Click
+        頁數 += 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 += 100 : F2 += 100 : F3 += 100 : F4 += 100 : F5 += 100 : F6 += 100 : F7 += 100 : F8 += 100
+        If 頁數 < 總頁數 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = True
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        ElseIf 頁數 = 總頁數 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = False
+            If NN1 <= F2 Then
+                For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F4 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F6 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+                For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F8 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+                For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To NN1 : ListBox4.Items.Add(PPBB(I)) : Next
+            End If
+        End If
+    End Sub
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        If IsNothing(ListBox1.SelectedItem) = True Then : MsgBox("選擇的地方沒有資料") : 有選擇 = False : Else
+            PPAA = ListBox1.SelectedItem.ToString() : 有選擇 = True : Me.Close()
+        End If
+    End Sub
+    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
+        If IsNothing(ListBox2.SelectedItem) = True Then : MsgBox("選擇的地方沒有資料") : 有選擇 = False : Else
+            PPAA = ListBox2.SelectedItem.ToString() : 有選擇 = True : Me.Close()
+        End If
+    End Sub
+    Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged
+        If IsNothing(ListBox3.SelectedItem) = True Then : MsgBox("選擇的地方沒有資料") : 有選擇 = False : Else
+            PPAA = ListBox3.SelectedItem.ToString() : 有選擇 = True : Me.Close()
+        End If
+    End Sub
+    Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged
+        If IsNothing(ListBox4.SelectedItem) = True Then : MsgBox("選擇的地方沒有資料") : 有選擇 = False : Else
+            PPAA = ListBox4.SelectedItem.ToString() : 有選擇 = True : Me.Close()
+        End If
+    End Sub
+End Class

MAOJI-ERP-SYS/MAOJI-ERP-SYS.vbproj

@@ -14,6 +14,21 @@
     <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <Deterministic>true</Deterministic>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -83,6 +98,12 @@
     <Compile Include="09、資料庫系統管理\系統綁定電腦資訊.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="10、背景程式與其他視窗\下拉清單_1.Designer.vb">
+      <DependentUpon>下拉清單_1.vb</DependentUpon>
+    </Compile>
+    <Compile Include="10、背景程式與其他視窗\下拉清單_1.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="10、背景程式與其他視窗\輸入密碼.Designer.vb">
       <DependentUpon>輸入密碼.vb</DependentUpon>
     </Compile>
@@ -448,6 +469,9 @@
     <EmbeddedResource Include="09、資料庫系統管理\系統綁定電腦資訊.resx">
       <DependentUpon>系統綁定電腦資訊.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="10、背景程式與其他視窗\下拉清單_1.resx">
+      <DependentUpon>下拉清單_1.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="10、背景程式與其他視窗\輸入密碼.resx">
       <DependentUpon>輸入密碼.vb</DependentUpon>
     </EmbeddedResource>
@@ -632,9 +656,22 @@
     </None>
     <None Include="App.config" />
   </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.8">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.8 %28x86 和 x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
   <ItemGroup>
     <Content Include="MO-ERP-SYS.ico" />
+    <None Include="圖片\print.png" />
+    <None Include="Resources\print.png" />
     <None Include="圖片\PortableComputer.png" />
     <None Include="圖片\EXCELOUT.png" />
     <None Include="圖片\EXCELIN.png" />

MAOJI-ERP-SYS/MAOJI-ERP-SYS.vbproj.user

@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <PublishUrlHistory>publish\</PublishUrlHistory>
+    <InstallUrlHistory />
+    <SupportUrlHistory />
+    <UpdateUrlHistory />
+    <BootstrapperUrlHistory />
+    <ErrorReportUrlHistory />
+    <FallbackCulture>zh-TW</FallbackCulture>
+    <VerifyUploadedFiles>false</VerifyUploadedFiles>
+  </PropertyGroup>
+</Project>

MAOJI-ERP-SYS/My Project/Resources.Designer.vb

@@ -320,6 +320,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property print() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("print", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

MAOJI-ERP-SYS/My Project/Resources.resx

@@ -130,6 +130,9 @@
   <data name="box_64x64" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\box_64x64.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="PortableComputer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\PortableComputer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="business_64x64" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\business_64x64.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -145,9 +148,6 @@
   <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Pay_Artdesigne1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Pay_Artdesigne1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="61165" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\61165.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -178,6 +178,9 @@
   <data name="L180" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\L180.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="renew" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\renew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="checks1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\checks1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -187,8 +190,8 @@
   <data name="money1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\money1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="renew" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\renew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Pay_Artdesigne1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Pay_Artdesigne1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="R180" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\R180.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -229,7 +232,7 @@
   <data name="Report2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PortableComputer" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\PortableComputer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

MAOJI-ERP-SYS/bin/Debug/MAOJI-ERP-SYS.xml

@@ -152,6 +152,11 @@ MAOJI-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:MAOJI_ERP_SYS.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:MAOJI_ERP_SYS.My.Resources.Resources.R180">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

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

@@ -1 +1 @@
-413ca896ddab7a038cb7b41dedb75ef716f7914fb8a514ac96bf956c8de5f47c
+0bc650c96e3b8ff10b3cd8fdb960b080c8321e21eacbd37d111383509544cf9b

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

@@ -74,6 +74,8 @@ D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\bin\Debug\MAOJI-ERP-SYS.pdb
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\bin\Debug\MAOJI-ERP-SYS.xml
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.vbproj.AssemblyReference.cache
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.vbproj.ResolveComReference.cache
+D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.系統綁定電腦資訊.resources
+D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.輸入密碼.resources
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.LoginForm1.resources
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.MAOJI_ERP_SYS.resources
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.Resources.resources
@@ -134,5 +136,4 @@ D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.vbproj.Co
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.exe
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.xml
 D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI-ERP-SYS.pdb
-D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.輸入密碼.resources
-D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.系統綁定電腦資訊.resources
+D:\工巧明\MAOJI\MAOJI-ERP-SYS\MAOJI-ERP-SYS\obj\Debug\MAOJI_ERP_SYS.下拉清單_1.resources

MAOJI-ERP-SYS/obj/Debug/MAOJI-ERP-SYS.xml

@@ -152,6 +152,11 @@ MAOJI-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:MAOJI_ERP_SYS.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:MAOJI_ERP_SYS.My.Resources.Resources.R180">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。