20240622備份

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

   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\",
   "Documents": [
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ys\\ys-erp-sys\\ys-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\0\u3001mymodule\\sql_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\sql_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\0\u3001mymodule\\sql_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\sql_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ys\\ys-erp-sys\\ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ys\\ys-erp-sys\\ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ys\\ys-erp-sys\\ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\\u5716\u7247\\form1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\ys-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
-    {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\0\u3001mymodule\\sql_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\sql_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    },
-    {
-      "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\0\u3001mymodule\\sql_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\0\u3001mymodule\\sql_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    },
     {
       "AbsoluteMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{30FA7ABF-E444-4259-88CA-814FD877B809}|YS-ERP-SYS\\YS-ERP-SYS.vbproj|solutionrelative:ys-erp-sys\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
       "DocumentGroups": [
         {
           "DockedWidth": 200,
-          "SelectedChildIndex": 16,
+          "SelectedChildIndex": 5,
           "Children": [
             {
               "$type": "Bookmark",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 4,
+              "DocumentIndex": 12,
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAEAAAAWAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-06-13T12:21:18.714Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 13,
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-06-13T12:20:12.694Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 14,
               "Title": "\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "RelativeToolTip": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAATAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAAAAAATAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-06T14:19:13.82Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-06-06T14:19:13.82Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 6,
+              "DocumentIndex": 16,
               "Title": "\u5716\u7247\u653E\u5927\u8996\u7A97.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-06T14:19:12.497Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-06-06T14:19:12.497Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 10,
+              "DocumentIndex": 0,
               "Title": "Form1.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
               "RelativeToolTip": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAASAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAUAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-06-04T14:28:06.665Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 8,
+              "DocumentIndex": 9,
               "Title": "Form1.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 12,
+              "DocumentIndex": 7,
               "Title": "LoginForm1.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\LoginForm1.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
               "RelativeToolTip": "YS-ERP-SYS\\LoginForm1.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
+              "ViewState": "AQIAAFkAAAAAAAAAAAAkwGcAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-06-04T14:11:27.11Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 13,
+              "DocumentIndex": 17,
               "Title": "LoginForm1.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\LoginForm1.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 14,
+              "DocumentIndex": 18,
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAAAJsAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-03T12:50:35.062Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-06-03T12:50:35.062Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 7,
+              "DocumentIndex": 3,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwBUAAAAPAAAA",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAcAAAAlAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-31T12:03:40.319Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 9,
+              "DocumentIndex": 10,
               "Title": "YS-ERP-SYS.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\YS-ERP-SYS.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb",
               "RelativeToolTip": "YS-ERP-SYS\\YS-ERP-SYS.vb",
-              "ViewState": "AQIAAJUAAAAAAAAAAAAQwJkAAABPAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAC8AAAAiAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-29T02:14:37.124Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-05-29T02:14:37.124Z"
             },
             {
               "$type": "Document",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "YS-ERP-SYS\\YS-ERP-SYS.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-28T02:51:27.297Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-05-28T02:51:27.297Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 15,
+              "DocumentIndex": 4,
               "Title": "SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
-              "ViewState": "AQIAAAgAAAAAAAAAAADwvwMAAAAaAAAA",
+              "ViewState": "AQIAADQAAAAAAAAAAAAowEcAAABNAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-27T10:16:41.147Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 16,
+              "DocumentIndex": 5,
               "Title": "SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
-              "ViewState": "AQIAAJMAAAAAAAAAAAA9wKoAAAAbAAAA",
+              "ViewState": "AQIAAAsAAAAAAAAAAAAEwCcAAACaAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-06-01T03:23:10.993Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 6,
               "Title": "\u6848\u4EF6\u6458\u8981\u8868.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
               "RelativeToolTip": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
-              "ViewState": "AQIAAHQCAAAAAAAAAAAgwIECAAAAAAAA",
+              "ViewState": "AQIAAFgAAAAAAAAAAAAgwCAAAAAKAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-02T12:49:30.876Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-06-02T12:49:30.876Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 5,
+              "DocumentIndex": 8,
               "Title": "\u6848\u4EF6\u6458\u8981\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-03T10:28:42.348Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-06-03T10:28:42.348Z"
             },
             {
               "$type": "Document",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
               "RelativeToolTip": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
-              "ViewState": "AQIAAO8AAAAAAAAAAABAwP0AAABLAAAA",
+              "ViewState": "AQIAANQAAAAAAAAAAIAywOIAAAASAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-27T10:14:34.155Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 0,
+              "DocumentIndex": 2,
               "Title": "\u5BA2\u6236\u8CC7\u6599\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 17,
+              "DocumentIndex": 19,
               "Title": "\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 18,
+              "DocumentIndex": 20,
               "Title": "\u8A2A\u8AC7\u65E5\u5831\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 19,
+              "DocumentIndex": 21,
               "Title": "\u7CFB\u7D71\u6B0A\u9650\u9810\u8A2D\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u6B0A\u9650\u9810\u8A2D\u8868.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u6B0A\u9650\u9810\u8A2D\u8868.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 15,
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-06-01T03:11:15.615Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-06-01T03:11:15.615Z"
             }
           ]
         }

YS-ERP-SYS/01、客戶系統管理/客戶資料表.Designer.vb

     <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 DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.視窗2_pl = New System.Windows.Forms.Panel()
         Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.附件編碼1_lb = New System.Windows.Forms.Label()
+        Me.字體大小_lb = New System.Windows.Forms.Label()
+        Me.字體大小_nud = New System.Windows.Forms.NumericUpDown()
+        Me.會議附件_dgv = New System.Windows.Forms.DataGridView()
+        Me.讀取資料夾路徑1_bt = New System.Windows.Forms.Button()
+        Me.會議附件_pb = New System.Windows.Forms.PictureBox()
+        Me.刪除附件1_bt = New System.Windows.Forms.Button()
         Me.列印會議記錄_bt = New System.Windows.Forms.Button()
         Me.會議地點_tb = New System.Windows.Forms.TextBox()
-        Me.會議名稱_tb = New System.Windows.Forms.TextBox()
         Me.會議內容_tb = New System.Windows.Forms.TextBox()
         Me.會議存檔_bt = New System.Windows.Forms.Button()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.出席人員_tb = New System.Windows.Forms.TextBox()
         Me.會議時間_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label15 = New System.Windows.Forms.Label()
+        Me.會議名稱_tb = New System.Windows.Forms.TextBox()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.CanceL2_bt = New System.Windows.Forms.Button()
         Me.附件編碼_lb = New System.Windows.Forms.Label()
         Me.分類1_cb = New System.Windows.Forms.ComboBox()
         Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
         Me.計算分流1 = New System.Windows.Forms.Timer(Me.components)
+        Me.計算分流2 = New System.Windows.Forms.Timer(Me.components)
+        Me.承租_dgv = New System.Windows.Forms.DataGridView()
         Me.Panel1.SuspendLayout()
         Me.視窗2_pl.SuspendLayout()
         Me.Panel7.SuspendLayout()
+        CType(Me.字體大小_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.會議附件_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.會議附件_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         CType(Me.附件_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.附件_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
         Me.Panel5.SuspendLayout()
+        CType(Me.承租_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'ToolTip1
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.BackColor = System.Drawing.Color.White
-        Me.Panel1.Controls.Add(Me.視窗2_pl)
+        Me.Panel1.Controls.Add(Me.承租_dgv)
         Me.Panel1.Controls.Add(Me.附件編碼_lb)
         Me.Panel1.Controls.Add(Me.Panel6)
         Me.Panel1.Controls.Add(Me.Label12)
         Me.Panel1.Controls.Add(Me.GroupBox1)
         Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Controls.Add(Me.訪談紀錄_dgv)
+        Me.Panel1.Controls.Add(Me.視窗2_pl)
         Me.Panel1.Location = New System.Drawing.Point(171, 50)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(1224, 595)
         Me.視窗2_pl.Controls.Add(Me.Panel7)
         Me.視窗2_pl.Controls.Add(Me.Label28)
         Me.視窗2_pl.Controls.Add(Me.CanceL2_bt)
-        Me.視窗2_pl.Location = New System.Drawing.Point(568, 44)
+        Me.視窗2_pl.Location = New System.Drawing.Point(148, 80)
         Me.視窗2_pl.Name = "視窗2_pl"
-        Me.視窗2_pl.Size = New System.Drawing.Size(561, 479)
+        Me.視窗2_pl.Size = New System.Drawing.Size(981, 479)
         Me.視窗2_pl.TabIndex = 1899
         '
         'Panel7
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel7.Controls.Add(Me.附件編碼1_lb)
+        Me.Panel7.Controls.Add(Me.字體大小_lb)
+        Me.Panel7.Controls.Add(Me.字體大小_nud)
+        Me.Panel7.Controls.Add(Me.會議附件_dgv)
+        Me.Panel7.Controls.Add(Me.讀取資料夾路徑1_bt)
+        Me.Panel7.Controls.Add(Me.會議附件_pb)
+        Me.Panel7.Controls.Add(Me.刪除附件1_bt)
         Me.Panel7.Controls.Add(Me.列印會議記錄_bt)
         Me.Panel7.Controls.Add(Me.會議地點_tb)
-        Me.Panel7.Controls.Add(Me.會議名稱_tb)
         Me.Panel7.Controls.Add(Me.會議內容_tb)
         Me.Panel7.Controls.Add(Me.會議存檔_bt)
         Me.Panel7.Controls.Add(Me.Label13)
         Me.Panel7.Controls.Add(Me.出席人員_tb)
         Me.Panel7.Controls.Add(Me.會議時間_dtp)
         Me.Panel7.Controls.Add(Me.Label15)
+        Me.Panel7.Controls.Add(Me.會議名稱_tb)
         Me.Panel7.Location = New System.Drawing.Point(3, 28)
         Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(554, 447)
+        Me.Panel7.Size = New System.Drawing.Size(974, 447)
         Me.Panel7.TabIndex = 1367
         '
+        '附件編碼1_lb
+        '
+        Me.附件編碼1_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.附件編碼1_lb.AutoSize = True
+        Me.附件編碼1_lb.Location = New System.Drawing.Point(858, 16)
+        Me.附件編碼1_lb.Name = "附件編碼1_lb"
+        Me.附件編碼1_lb.Size = New System.Drawing.Size(109, 16)
+        Me.附件編碼1_lb.TabIndex = 1914
+        Me.附件編碼1_lb.Text = "xxxxxxxxxxxxxxxxx"
+        '
+        '字體大小_lb
+        '
+        Me.字體大小_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小_lb.AutoSize = True
+        Me.字體大小_lb.BackColor = System.Drawing.Color.Transparent
+        Me.字體大小_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小_lb.Location = New System.Drawing.Point(2, 56)
+        Me.字體大小_lb.Name = "字體大小_lb"
+        Me.字體大小_lb.Size = New System.Drawing.Size(55, 16)
+        Me.字體大小_lb.TabIndex = 1913
+        Me.字體大小_lb.Text = "字體大小"
+        Me.字體大小_lb.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        '字體大小_nud
+        '
+        Me.字體大小_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.字體大小_nud.BackColor = System.Drawing.Color.White
+        Me.字體大小_nud.ForeColor = System.Drawing.Color.Black
+        Me.字體大小_nud.Location = New System.Drawing.Point(59, 53)
+        Me.字體大小_nud.Maximum = New Decimal(New Integer() {72, 0, 0, 0})
+        Me.字體大小_nud.Minimum = New Decimal(New Integer() {8, 0, 0, 0})
+        Me.字體大小_nud.Name = "字體大小_nud"
+        Me.字體大小_nud.Size = New System.Drawing.Size(49, 23)
+        Me.字體大小_nud.TabIndex = 1912
+        Me.字體大小_nud.Value = New Decimal(New Integer() {12, 0, 0, 0})
+        '
+        '會議附件_dgv
+        '
+        Me.會議附件_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.會議附件_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.會議附件_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.會議附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.會議附件_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.會議附件_dgv.Location = New System.Drawing.Point(552, 35)
+        Me.會議附件_dgv.Name = "會議附件_dgv"
+        Me.會議附件_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.會議附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.會議附件_dgv.RowTemplate.Height = 24
+        Me.會議附件_dgv.Size = New System.Drawing.Size(97, 405)
+        Me.會議附件_dgv.TabIndex = 1909
+        '
+        '讀取資料夾路徑1_bt
+        '
+        Me.讀取資料夾路徑1_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.Add_Image
+        Me.讀取資料夾路徑1_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.讀取資料夾路徑1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.讀取資料夾路徑1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.讀取資料夾路徑1_bt.Location = New System.Drawing.Point(549, 1)
+        Me.讀取資料夾路徑1_bt.Name = "讀取資料夾路徑1_bt"
+        Me.讀取資料夾路徑1_bt.Size = New System.Drawing.Size(100, 33)
+        Me.讀取資料夾路徑1_bt.TabIndex = 1911
+        Me.讀取資料夾路徑1_bt.UseVisualStyleBackColor = True
+        '
+        '會議附件_pb
+        '
+        Me.會議附件_pb.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.Picture
+        Me.會議附件_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.會議附件_pb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.會議附件_pb.Location = New System.Drawing.Point(650, 35)
+        Me.會議附件_pb.Name = "會議附件_pb"
+        Me.會議附件_pb.Size = New System.Drawing.Size(317, 405)
+        Me.會議附件_pb.TabIndex = 1908
+        Me.會議附件_pb.TabStop = False
+        '
+        '刪除附件1_bt
+        '
+        Me.刪除附件1_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.GarbageEmpty
+        Me.刪除附件1_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.刪除附件1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除附件1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.刪除附件1_bt.Location = New System.Drawing.Point(650, 1)
+        Me.刪除附件1_bt.Name = "刪除附件1_bt"
+        Me.刪除附件1_bt.Size = New System.Drawing.Size(36, 33)
+        Me.刪除附件1_bt.TabIndex = 1910
+        Me.刪除附件1_bt.UseVisualStyleBackColor = True
+        '
         '列印會議記錄_bt
         '
         Me.列印會議記錄_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.print
         '
         '會議地點_tb
         '
-        Me.會議地點_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.會議地點_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.會議地點_tb.Location = New System.Drawing.Point(59, 53)
+        Me.會議地點_tb.Location = New System.Drawing.Point(219, 53)
         Me.會議地點_tb.Name = "會議地點_tb"
-        Me.會議地點_tb.Size = New System.Drawing.Size(488, 23)
+        Me.會議地點_tb.Size = New System.Drawing.Size(327, 23)
         Me.會議地點_tb.TabIndex = 1888
         '
-        '會議名稱_tb
-        '
-        Me.會議名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.會議名稱_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.會議名稱_tb.Location = New System.Drawing.Point(59, 1)
-        Me.會議名稱_tb.Multiline = True
-        Me.會議名稱_tb.Name = "會議名稱_tb"
-        Me.會議名稱_tb.Size = New System.Drawing.Size(386, 50)
-        Me.會議名稱_tb.TabIndex = 1886
-        '
         '會議內容_tb
         '
         Me.會議內容_tb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.會議內容_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.會議內容_tb.Location = New System.Drawing.Point(5, 120)
+        Me.會議內容_tb.Location = New System.Drawing.Point(5, 122)
         Me.會議內容_tb.Multiline = True
         Me.會議內容_tb.Name = "會議內容_tb"
-        Me.會議內容_tb.Size = New System.Drawing.Size(542, 320)
+        Me.會議內容_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.會議內容_tb.Size = New System.Drawing.Size(541, 320)
         Me.會議內容_tb.TabIndex = 1894
         '
         '會議存檔_bt
         '
-        Me.會議存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.會議存檔_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.SAVER2
         Me.會議存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.會議存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         'Label16
         '
         Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(152, 81)
+        Me.Label16.Location = New System.Drawing.Point(161, 81)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(55, 16)
         Me.Label16.TabIndex = 1891
         '
         'Label17
         '
-        Me.Label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Label17.Location = New System.Drawing.Point(5, 102)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(542, 19)
+        Me.Label17.Size = New System.Drawing.Size(541, 19)
         Me.Label17.TabIndex = 1893
         Me.Label17.Text = "會議內容"
         Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
         'Label14
         '
-        Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(3, 57)
+        Me.Label14.Location = New System.Drawing.Point(163, 57)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(55, 16)
         Me.Label14.TabIndex = 1887
         '
         '出席人員_tb
         '
-        Me.出席人員_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.出席人員_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.出席人員_tb.Location = New System.Drawing.Point(209, 77)
+        Me.出席人員_tb.Location = New System.Drawing.Point(219, 77)
         Me.出席人員_tb.Name = "出席人員_tb"
-        Me.出席人員_tb.Size = New System.Drawing.Size(338, 23)
+        Me.出席人員_tb.Size = New System.Drawing.Size(327, 23)
         Me.出席人員_tb.TabIndex = 1892
         '
         '會議時間_dtp
         '
-        Me.會議時間_dtp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.會議時間_dtp.CustomFormat = "yyyy/MM/dd"
         Me.會議時間_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
         Me.會議時間_dtp.Location = New System.Drawing.Point(59, 78)
         Me.會議時間_dtp.Name = "會議時間_dtp"
-        Me.會議時間_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.會議時間_dtp.Size = New System.Drawing.Size(94, 23)
         Me.會議時間_dtp.TabIndex = 1890
         '
         'Label15
         Me.Label15.TabIndex = 1889
         Me.Label15.Text = "會議時間"
         '
+        '會議名稱_tb
+        '
+        Me.會議名稱_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.會議名稱_tb.Location = New System.Drawing.Point(59, 1)
+        Me.會議名稱_tb.Multiline = True
+        Me.會議名稱_tb.Name = "會議名稱_tb"
+        Me.會議名稱_tb.Size = New System.Drawing.Size(381, 50)
+        Me.會議名稱_tb.TabIndex = 1886
+        '
         'Label28
         '
         Me.Label28.AutoSize = True
         Me.CanceL2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.CanceL2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.CanceL2_bt.ForeColor = System.Drawing.Color.Black
-        Me.CanceL2_bt.Location = New System.Drawing.Point(529, 2)
+        Me.CanceL2_bt.Location = New System.Drawing.Point(949, 2)
         Me.CanceL2_bt.Name = "CanceL2_bt"
         Me.CanceL2_bt.Size = New System.Drawing.Size(26, 26)
         Me.CanceL2_bt.TabIndex = 1374
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.附件_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.附件_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        Me.附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.附件_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.附件_dgv.Location = New System.Drawing.Point(-1, 34)
         Me.附件_dgv.Name = "附件_dgv"
         Me.附件_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.附件_dgv.RowTemplate.Height = 24
         Me.附件_dgv.Size = New System.Drawing.Size(141, 101)
         Me.附件_dgv.TabIndex = 1882
         Me.訪談紀錄_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.訪談紀錄_dgv.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
         Me.訪談紀錄_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        Me.訪談紀錄_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.訪談紀錄_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
         Me.訪談紀錄_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訪談紀錄_dgv.Location = New System.Drawing.Point(458, 2)
         Me.訪談紀錄_dgv.Name = "訪談紀錄_dgv"
         Me.訪談紀錄_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訪談紀錄_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訪談紀錄_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.訪談紀錄_dgv.RowTemplate.Height = 24
-        Me.訪談紀錄_dgv.Size = New System.Drawing.Size(763, 590)
+        Me.訪談紀錄_dgv.Size = New System.Drawing.Size(763, 372)
         Me.訪談紀錄_dgv.TabIndex = 1882
         '
         '清單1_dgv
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        Me.清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
         Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.清單1_dgv.Location = New System.Drawing.Point(0, 50)
         Me.清單1_dgv.Name = "清單1_dgv"
         Me.清單1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.清單1_dgv.RowTemplate.Height = 24
         Me.清單1_dgv.Size = New System.Drawing.Size(171, 594)
         Me.清單1_dgv.TabIndex = 1881
         '計算分流1
         '
         '
+        '計算分流2
+        '
+        '
+        '承租_dgv
+        '
+        Me.承租_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.承租_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.承租_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.承租_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.承租_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.承租_dgv.Location = New System.Drawing.Point(458, 373)
+        Me.承租_dgv.Name = "承租_dgv"
+        Me.承租_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.承租_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.承租_dgv.RowTemplate.Height = 24
+        Me.承租_dgv.Size = New System.Drawing.Size(763, 219)
+        Me.承租_dgv.TabIndex = 1900
+        '
         '客戶資料表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.視窗2_pl.PerformLayout()
         Me.Panel7.ResumeLayout(False)
         Me.Panel7.PerformLayout()
+        CType(Me.字體大小_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.會議附件_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.會議附件_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         CType(Me.附件_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.附件_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel4.PerformLayout()
         Me.Panel5.ResumeLayout(False)
         Me.Panel5.PerformLayout()
+        CType(Me.承租_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
     Friend WithEvents CanceL2_bt As Button
     Friend WithEvents Panel2 As Panel
     Friend WithEvents 會議記錄_bt As Button
+    Friend WithEvents 字體大小_lb As Label
+    Friend WithEvents 字體大小_nud As NumericUpDown
+    Friend WithEvents 會議附件_dgv As DataGridView
+    Friend WithEvents 讀取資料夾路徑1_bt As Button
+    Friend WithEvents 會議附件_pb As PictureBox
+    Friend WithEvents 刪除附件1_bt As Button
+    Friend WithEvents 計算分流2 As Timer
+    Friend WithEvents 附件編碼1_lb As Label
+    Friend WithEvents 承租_dgv As DataGridView
 End Class

YS-ERP-SYS/01、客戶系統管理/客戶資料表.resx

   <metadata name="計算分流1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>382, 9</value>
   </metadata>
+  <metadata name="計算分流2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>475, 9</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>38</value>
   </metadata>

YS-ERP-SYS/01、客戶系統管理/客戶資料表.vb

         For i As Integer = 0 To 附件_dgv.Rows.Count - 1 : 附件_dgv.Rows(i).Cells(1).Value = "附件-" & i + 1 : Next
         If 附件_dgv.Rows.Count > 0 Then : DGVX = 0 : 附件編碼_lb.Text = 附件_dgv.Rows(0).Cells(0).Value.ToString : 圖片清單讀取() : End If
     End Sub
+    Private Sub 計算分流2_Tick(sender As Object, e As EventArgs) Handles 計算分流2.Tick
+        計算分流2.Enabled = False
+        Dim ds1 As New DataSet
+        會議附件_dgv.DataSource = Nothing : ds1.Clear()
+        會議附件_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        會議附件_dgv.ColumnHeadersHeight = 25 : 會議附件_dgv.AllowUserToAddRows = False : 會議附件_dgv.RowTemplate.Height = 25
+        SQL_連線字串_圖片資料庫() : SQL_客戶會議附件()
+        da.Fill(ds1) : 會議附件_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        會議附件_dgv.Columns(0).Visible = False : 會議附件_dgv.Columns(1).ReadOnly = True
+        For i As Integer = 0 To 會議附件_dgv.Rows.Count - 1 : 會議附件_dgv.Rows(i).Cells(1).Value = "附件-" & i + 1 : Next
+        If 會議附件_dgv.Rows.Count > 0 Then : DGVX = 0 : 附件編碼1_lb.Text = 會議附件_dgv.Rows(0).Cells(0).Value.ToString : 圖片清單讀取1() : End If
+    End Sub
     Private Sub Set_客戶清單()
         Dim ds1 As New DataSet
         清單1_dgv.DataSource = Nothing : ds1.Clear()
         PA40 = 關鍵字_tb.Text : PA41 = 分類1_cb.Text : SQL_客戶訪談表讀取()
         da.Fill(ds1) : 訪談紀錄_dgv.DataSource = ds1.Tables(0) : conn.Close()
         訪談紀錄_dgv.Columns(0).Visible = False : 訪談紀錄_dgv.Columns(1).FillWeight = 40 : 訪談紀錄_dgv.Columns(2).FillWeight = 40 : 訪談紀錄_dgv.Columns(3).FillWeight = 130
-        訪談紀錄_dgv.Columns(1).ReadOnly = True
+        訪談紀錄_dgv.Columns(1).ReadOnly = True : 訪談紀錄_dgv.Columns(10).FillWeight = 20
         訪談紀錄_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-        For i As Integer = 4 To 8 : 訪談紀錄_dgv.Columns(i).Visible = False : Next
+        For i As Integer = 5 To 9 : 訪談紀錄_dgv.Columns(i).Visible = False : Next
+        訪談紀錄_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For i As Integer = 0 To 訪談紀錄_dgv.Rows.Count - 1
+            If 訪談紀錄_dgv.Rows(i).Cells(9).Value.ToString = "" Then : 訪談紀錄_dgv.Rows(i).Cells(10).Value = "" : Else : 訪談紀錄_dgv.Rows(i).Cells(10).Value = "V" : End If
+        Next
+    End Sub
+    Private Sub Set_承租清單()
+        Dim ds1 As New DataSet
+        承租_dgv.DataSource = Nothing : ds1.Clear()
+        承租_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        承租_dgv.ColumnHeadersHeight = 25 : 承租_dgv.AllowUserToAddRows = False : 承租_dgv.RowTemplate.Height = 60
+        SQL_客戶承租表讀取()
+        da.Fill(ds1) : 承租_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        承租_dgv.Columns("租金").DefaultCellStyle.Format = "#,##0" : 承租_dgv.Columns("租期結束").Visible = False
+        承租_dgv.Columns("租金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For I As Integer = 0 To 7 : 承租_dgv.Columns(I).ReadOnly = True : Next
+        For I As Integer = 0 To 承租_dgv.Rows.Count - 1
+            承租_dgv.Rows(I).Cells("租期").Value = 承租_dgv.Rows(I).Cells("租期").Value.ToString & " - " & 承租_dgv.Rows(I).Cells("租期結束").Value.ToString
+        Next
     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 = YS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Panel6.SendToBack() : 客戶名稱_tb.ReadOnly = True : 附件編碼_lb.Text = "" : 視窗2_pl.Visible = False
+        Panel6.SendToBack() : 客戶名稱_tb.ReadOnly = True : 附件編碼_lb.Text = "" : 附件編碼1_lb.Text = "" : 視窗2_pl.Visible = False
         清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 訪談紀錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 10)
     End Sub
     Private Sub 客戶資料表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
             客需_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客需").Value.ToString : 圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("文件伺服器").Value.ToString
             製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("訪談編號").Value.ToString : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = ""
             會議地點_tb.Text = "" : 會議內容_tb.Text = "" : 會議時間_dtp.Value = Today() : 出席人員_tb.Text = "" : 附件_pb.Image = Nothing : 附件編碼_lb.Text = ""
-            Set_訪談清單() : 計算分流1.Enabled = True ': Set_附件清單()
+            附件編碼1_lb.Text = "" : 會議附件_pb.Image = Nothing
+            Set_訪談清單() : Set_承租清單() : 計算分流1.Enabled = True ': Set_附件清單()
         End If
     End Sub
     Private Sub 訪談紀錄_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 訪談紀錄_dgv.CellClick
             訪談編號_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : 會議名稱_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議名稱").Value.ToString
             會議地點_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議地點").Value.ToString : 會議內容_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議內容").Value.ToString
             If 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議時間").Value.ToString <> "" Then : 會議時間_dtp.Value = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議時間").Value.ToString : End If
-            出席人員_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("出席人員").Value.ToString
+            出席人員_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("出席人員").Value.ToString : 計算分流2.Enabled = True : 會議附件_pb.Image = Nothing
         End If
     End Sub
     Private Sub 附件_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 附件_dgv.CellClick
             附件_pb.Image = Bitmap.FromStream(oStream)
         End While : conn.Close() : 附件_pb.SizeMode = 4
     End Sub
+    Private Sub 會議附件_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會議附件_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取1() : End If
+    End Sub
+    Private Sub 圖片清單讀取1()
+        附件編碼1_lb.Text = 會議附件_dgv.Rows(DGVX).Cells(0).Value.ToString : PA2 = 會議附件_dgv.Rows(DGVX).Cells(0).Value.ToString
+        SQL_連線字串_圖片資料庫() : SQL_客戶會議附件讀取()
+        While dr.Read() = True
+            Dim unused As Byte() = New Byte(-1) {}
+            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+            Dim oStream As New MemoryStream(bytes)
+            會議附件_pb.Image = Bitmap.FromStream(oStream)
+        End While : conn.Close() : 會議附件_pb.SizeMode = 4
+    End Sub
     Private Sub 關鍵字_tb_KeyDown(sender As Object, e As KeyEventArgs) Handles 關鍵字_tb.KeyDown
         If e.KeyCode = Keys.Enter Then : Set_客戶清單() : End If
     End Sub
         If NUM0 < 10 Then : 流水號_tb.Text = "WP-" & DTP1 & "-00" & NUM0
         ElseIf NUM0 > 9 And NUM0 < 100 Then : 流水號_tb.Text = "WP-" & DTP1 & "-0" & NUM0
         ElseIf NUM0 > 99 Then : 流水號_tb.Text = "WP-" & DTP1 & "-" & NUM0
-        End If : 客戶名稱_tb.ReadOnly = False : 會議存檔_bt.Enabled = False : 訪談紀錄_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
+        End If : 客戶名稱_tb.ReadOnly = False : 會議存檔_bt.Enabled = False : 訪談紀錄_dgv.DataSource = Nothing : 附件_pb.Image = Nothing : 會議附件_pb.Image = Nothing
         客戶名稱_tb.Text = "" : 分類2_cb.Text = "" : 電話_tb.Text = "" : 傳真_tb.Text = "" : 地址_tb.Text = "" : 姓名_tb.Text = "" : 職務_tb.Text = ""
         聯繫方式_tb.Text = "" : 來源_tb.Text = "" : 簽約_tb.Text = "" : 客需_tb.Text = "" : 負責區域_tb.Text = "" : 清單1_dgv.Enabled = False : 訪談編號_tb.Text = ""
-        製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 附件_dgv.DataSource = Nothing
+        製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 附件_dgv.DataSource = Nothing : 會議附件_dgv.DataSource = Nothing
         會議地點_tb.Text = "" : 會議內容_tb.Text = "" : 會議時間_dtp.Value = Today() : 出席人員_tb.Text = "" : 附件編碼_lb.Text = ""
         SQL_資料庫選擇() : If dr.Read() Then : 圖片庫 = dr("文件資料庫").ToString : Else : MsgBox("圖片資料庫已滿，請找系統管理員!!") : Me.Close() : End If
         SQL_客戶資料表新增()
                         客戶名稱_tb.Text = "" : 分類2_cb.Text = "" : 電話_tb.Text = "" : 傳真_tb.Text = "" : 地址_tb.Text = "" : 姓名_tb.Text = "" : 職務_tb.Text = ""
                         聯繫方式_tb.Text = "" : 來源_tb.Text = "" : 簽約_tb.Text = "" : 客需_tb.Text = "" : 負責區域_tb.Text = "" : 訪談編號_tb.Text = "" : 附件_pb.Image = Nothing
                         製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 流水號_tb.Text = "" : 出席人員_tb.Text = ""
-                        附件編碼_lb.Text = ""
+                        附件編碼_lb.Text = "" : 會議附件_pb.Image = Nothing : 會議附件_dgv.DataSource = Nothing
                     End If
                 End If
             Else
                     ElseIf NUM0 > 9 And NUM0 < 100 Then : 附件流水 = "IM-" & DTP1 & "-0" & NUM0
                     ElseIf NUM0 > 99 Then : 附件流水 = "IM-" & DTP1 & "-" & NUM0
                     End If : PA1 = 附件流水 : PA49 = 開啟檔案.FileName : SQL_會議圖片入系統()
-                    'Set_附件清單() : MsgBox("附件導入系統完成!!")
                     計算分流1.Enabled = True : MsgBox("附件導入系統完成!!")
                 Catch ex As Exception
                     MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
             End If
         End If
     End Sub
+    Private Sub 讀取資料夾路徑1_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑1_bt.Click
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇訪談資料，才能繼續後續的操作!!") : Else
+            開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"
+            開啟檔案.Title = "選擇圖片文件"
+            開啟檔案.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
+            If 開啟檔案.ShowDialog() = DialogResult.OK Then
+                Try
+                    會議附件_pb.Image = Image.FromFile(開啟檔案.FileName) : 會議附件_pb.SizeMode = 4
+
+                    Dim NUM0 As Integer : DTP1 = Format(Today(), "yyyyMMdd") : Dim 附件流水 As String = ""
+                    SQL_連線字串_圖片資料庫() : SQL_客戶會議附件流水驗證() : If dr.Read Then : NUM0 = Strings.Right(dr("流水號").ToString, 3) : Else : NUM0 = 0 : End If
+                    NUM0 += 1
+                    If NUM0 < 10 Then : 附件流水 = "IM-" & DTP1 & "-00" & NUM0
+                    ElseIf NUM0 > 9 And NUM0 < 100 Then : 附件流水 = "IM-" & DTP1 & "-0" & NUM0
+                    ElseIf NUM0 > 99 Then : 附件流水 = "IM-" & DTP1 & "-" & NUM0
+                    End If : PA1 = 附件流水 : PA49 = 開啟檔案.FileName : SQL_會議附件圖片入系統()
+                    計算分流2.Enabled = True : MsgBox("附件導入系統完成!!")
+                Catch ex As Exception
+                    MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End Try
+            End If
+        End If
+    End Sub
+    Private Sub 刪除附件1_bt_Click(sender As Object, e As EventArgs) Handles 刪除附件1_bt.Click
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇訪談資料，才能繼續後續的操作!!") : Else
+            If 附件編碼1_lb.Text = "" Then : MsgBox("請先選擇附件!!") : Else
+                SQL_連線字串_圖片資料庫() : SQL_客戶會議附件刪除() ': Set_附件清單() : MsgBox("刪除完成!!")
+                計算分流2.Enabled = True : MsgBox("刪除完成!!")
+            End If
+        End If
+    End Sub
     Private Sub 會議記錄_bt_Click(sender As Object, e As EventArgs) Handles 會議記錄_bt.Click
-        If 視窗2_pl.Visible = False Then
-            視窗2_pl.Location = New System.Drawing.Point((Panel1.Size.Width - 視窗2_pl.Size.Width) / 2, (Panel1.Size.Height - 視窗2_pl.Size.Height) / 2)
-            視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
-        Else : End If
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇 [訪談記錄] 才可以打開 [會議紀錄] !!") : Else
+            If 視窗2_pl.Visible = False Then
+                視窗2_pl.Location = New System.Drawing.Point((Panel1.Size.Width - 視窗2_pl.Size.Width) / 2, (Panel1.Size.Height - 視窗2_pl.Size.Height) / 2)
+                視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
+            Else : End If
+        End If
     End Sub
     Private Sub 附件_pb_Click(sender As Object, e As EventArgs) Handles 附件_pb.Click
         If 附件_pb.Image IsNot Nothing Then : 圖片傳遞 = 附件_pb.Image : 圖片放大視窗.ShowDialog() : End If
     End Sub
+    Private Sub 會議附件_pb_Click(sender As Object, e As EventArgs) Handles 會議附件_pb.Click
+        If 會議附件_pb.Image IsNot Nothing Then : 圖片傳遞 = 會議附件_pb.Image : 圖片放大視窗.ShowDialog() : End If
+    End Sub
+    Private Sub 字體大小_nud_ValueChanged(sender As Object, e As EventArgs) Handles 字體大小_nud.ValueChanged
+        會議內容_tb.Font = New Font("微軟正黑體", 字體大小_nud.Value)
+    End Sub
     Private Sub 列印客戶資料表_bt_Click(sender As Object, e As EventArgs) Handles 列印客戶資料表_bt.Click
         MsgBox("功能開發中!!")
     End Sub

YS-ERP-SYS/02、案件系統管理/案件摘要表.vb

         土地_dgv.ColumnHeadersHeight = 25 : 土地_dgv.AllowUserToAddRows = False : 土地_dgv.RowTemplate.Height = 25
         SQL_案件土地清單()
         da.Fill(ds1) : 土地_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        土地_dgv.Columns(0).Visible = False : 土地_dgv.Columns(1).Visible = False : 土地_dgv.Columns(4).ReadOnly = True
+        土地_dgv.Columns(0).Visible = False : 土地_dgv.Columns(1).Visible = False : 土地_dgv.Columns(5).ReadOnly = True
         土地_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         土地_dgv.Columns("土地面積(平米)").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         土地_dgv.Columns("坪數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        For i As Integer = 6 To 17 : 土地_dgv.Columns(i).Visible = False : Next
         土地計算()
     End Sub
     Private Sub Set_區塊清單()
             承租_dgv.Rows(i).Cells("承租").Value = 承租_dgv.Rows(i).Cells("建坪編號").Value.ToString & "-" & 承租_dgv.Rows(i).Cells("客戶名稱").Value.ToString
         Next
     End Sub
+    Private Sub Set_太陽清單()
+        Dim ds1 As New DataSet
+        太陽_dgv.DataSource = Nothing : ds1.Clear()
+        太陽_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        太陽_dgv.ColumnHeadersHeight = 25 : 太陽_dgv.AllowUserToAddRows = False : 太陽_dgv.RowTemplate.Height = 25
+        SQL_案件太陽讀取()
+        da.Fill(ds1) : 太陽_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To 6 : 太陽_dgv.Columns(i).Visible = False : Next : 太陽_dgv.Columns(1).Visible = True : 太陽_dgv.Columns(1).ReadOnly = True
+        For i As Integer = 0 To 太陽_dgv.Rows.Count - 1 : 太陽_dgv.Rows(i).Cells(1).Value = "檔案-" & i + 1 : Next
+    End Sub
     Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
         ToolTip1.SetToolTip(Me.新增_bt, "新建案件摘要表")
     End Sub
     End Sub
     Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            SQL_案件類別() : 用途_cb.Items.Clear() : 用途_cb.Items.Add("") : While (dr.Read()) : 用途_cb.Items.Add(dr("使用用途")) : End While : conn.Close()
             流水號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("單據編號").Value.ToString : 地址_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("地址/地號").Value.ToString
-            地主_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("地主").Value.ToString : 聯絡人_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("聯絡人").Value.ToString
-            用途_cb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("使用用途").Value.ToString : 土地租期_nup.Text = 清單1_dgv.Rows(e.RowIndex).Cells("土地租期").Value.ToString
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期開始_dtp.CustomFormat = " " : Else
-                租期開始_dtp.CustomFormat = "yyyy/MM/dd" : 租期開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 10)
+            聯絡人_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("聯絡人").Value.ToString : 製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("製錶").Value.ToString
+
+
+            圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("圖片庫").Value.ToString
+            建坪編號_tb.Text = "" : 土地編號_tb.Text = "" : 承租編號_tb.Text = "" : 附件編碼1_lb.Text = "" : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
+            承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
+            聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
+            租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
+            租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
+            附件1_pb.Image = Nothing : Set_土地清單() : Set_區塊清單() : 計算分流1.Enabled = True : Set_承租清單() : Set_太陽清單()
+            If 土地_dgv.Rows.Count > 0 Then : DGVX = 0 : 土地_dgv點擊() : Else
+                用途_cb.Text = "" : 備註_tb.Text = "" : 土地租期_nup.Value = 0 : 租期開始_dtp.CustomFormat = " " : 租期結束_dtp.CustomFormat = " "
+                土地租金_nud.Value = 0 : 月坪租金_nud.Value = 0 : 保證月_nud.Value = 0 : 保證金_nud.Value = 0 : 免租_nud.Value = 0 : 地主_tb.Text = ""
+                免租開始_dtp.CustomFormat = " " : 免租結束_dtp.CustomFormat = " " : 執照_dtp.CustomFormat = " " : 建照_dtp.CustomFormat = " "
+            End If
+            If 太陽_dgv.Rows.Count > 0 Then : DGVX = 0 : 太陽_dgv點擊() : Else
+                太_出租_tb.Text = "" : 太_承租_tb.Text = "" : KW數_tb.Text = "" : 太陽開始_dtp.CustomFormat = " " : 太陽結束_dtp.CustomFormat = " "
+                太_租金比_tb.Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub 太陽_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 太陽_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 太陽_dgv點擊() : End If
+    End Sub
+    Private Sub 太陽_dgv點擊()
+        綠能編號_tb.Text = 太陽_dgv.Rows(DGVX).Cells("流水號").Value.ToString
+        太_出租_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_出租人").Value.ToString : 太_承租_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_承租人").Value.ToString
+        KW數_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_KW數").Value.ToString : 太_租金比_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_租金%").Value.ToString
+        If 太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString = "" Then : 太陽開始_dtp.CustomFormat = " " : Else
+            If Strings.Left(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽開始_dtp.CustomFormat = " " : Else
+                太陽開始_dtp.CustomFormat = "yyyy/MM/dd" : 太陽開始_dtp.Value = Strings.Left(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 10)
             End If
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期結束_dtp.CustomFormat = " " : Else
-                租期結束_dtp.CustomFormat = "yyyy/MM/dd" : 租期結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 10)
+        End If
+        If 太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString = "" Then : 太陽結束_dtp.CustomFormat = " " : Else
+            If Strings.Right(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽結束_dtp.CustomFormat = " " : Else
+                太陽結束_dtp.CustomFormat = "yyyy/MM/dd" : 太陽結束_dtp.Value = Strings.Right(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 10)
             End If
-            土地租金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("土地月租").Value.ToString : 月坪租金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("每坪月租").Value.ToString
-            保證月_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("保證月").Value.ToString : 保證金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("押金/保證金").Value.ToString
-            免租_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("免租興建期").Value.ToString
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租開始_dtp.CustomFormat = " " : Else
-                免租開始_dtp.CustomFormat = "yyyy/MM/dd" : 免租開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 10)
+        End If
+    End Sub
+    Private Sub 土地_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 土地_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 土地_dgv點擊() : End If
+    End Sub
+    Private Sub 土地_dgv點擊()
+        土地編號_tb.Text = 土地_dgv.Rows(DGVX).Cells("流水號").Value.ToString : 地主_tb.Text = 土地_dgv.Rows(DGVX).Cells("地主").Value.ToString
+        SQL_案件類別() : 用途_cb.Items.Clear() : 用途_cb.Items.Add("") : While (dr.Read()) : 用途_cb.Items.Add(dr("使用用途")) : End While : conn.Close()
+        用途_cb.Text = 土地_dgv.Rows(DGVX).Cells("使用用途").Value.ToString : 備註_tb.Text = 土地_dgv.Rows(DGVX).Cells("備註").Value.ToString
+        土地租期_nup.Text = 土地_dgv.Rows(DGVX).Cells("土地租期").Value.ToString
+        If 土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString = "" Then : 租期開始_dtp.CustomFormat = " " : Else
+            If Strings.Left(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期開始_dtp.CustomFormat = " " : Else
+                租期開始_dtp.CustomFormat = "yyyy/MM/dd" : 租期開始_dtp.Value = Strings.Left(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 10)
             End If
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租結束_dtp.CustomFormat = " " : Else
-                免租結束_dtp.CustomFormat = "yyyy/MM/dd" : 免租結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 10)
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString = "" Then : 租期結束_dtp.CustomFormat = " " : Else
+            If Strings.Right(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期結束_dtp.CustomFormat = " " : Else
+                租期結束_dtp.CustomFormat = "yyyy/MM/dd" : 租期結束_dtp.Value = Strings.Right(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 10)
             End If
-            If 清單1_dgv.Rows(e.RowIndex).Cells("取得使用執照日").Value.ToString = " " Then : 執照_dtp.CustomFormat = " " : Else
-                執照_dtp.CustomFormat = "yyyy/MM/dd" : 執照_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("取得使用執照日").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("土地月租").Value.ToString = "" Then : 土地租金_nud.Value = 0 : Else
+            土地租金_nud.Value = 土地_dgv.Rows(DGVX).Cells("土地月租").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("每坪月租").Value.ToString = "" Then : 月坪租金_nud.Value = 0 : Else
+            月坪租金_nud.Value = 土地_dgv.Rows(DGVX).Cells("每坪月租").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("保證月").Value.ToString = "" Then : 保證月_nud.Value = 0 : Else
+            保證月_nud.Value = 土地_dgv.Rows(DGVX).Cells("保證月").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("押金/保證金").Value.ToString = "" Then : 保證金_nud.Value = 0 : Else
+            保證金_nud.Value = 土地_dgv.Rows(DGVX).Cells("押金/保證金").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("免租興建期").Value.ToString = "" Then : 免租_nud.Value = 0 : Else
+            免租_nud.Value = 土地_dgv.Rows(DGVX).Cells("免租興建期").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString = "" Then : 免租開始_dtp.CustomFormat = " " : Else
+            If Strings.Left(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租開始_dtp.CustomFormat = " " : Else
+                免租開始_dtp.CustomFormat = "yyyy/MM/dd" : 免租開始_dtp.Value = Strings.Left(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 10)
             End If
-            If 清單1_dgv.Rows(e.RowIndex).Cells("建照核准日").Value.ToString = " " Then : 建照_dtp.CustomFormat = " " : Else
-                建照_dtp.CustomFormat = "yyyy/MM/dd" : 建照_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("建照核准日").Value.ToString
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString = "" Then : 免租結束_dtp.CustomFormat = " " : Else
+            If Strings.Right(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租結束_dtp.CustomFormat = " " : Else
+                免租結束_dtp.CustomFormat = "yyyy/MM/dd" : 免租結束_dtp.Value = Strings.Right(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 10)
             End If
-            太_出租_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_出租人").Value.ToString : 太_承租_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_承租人").Value.ToString
-            KW數_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_KW數").Value.ToString
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽開始_dtp.CustomFormat = " " : Else
-                太陽開始_dtp.CustomFormat = "yyyy/MM/dd" : 太陽開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 10)
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString = "" Then : 執照_dtp.CustomFormat = " " : Else
+            If 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString = " " Then : 執照_dtp.CustomFormat = " " : Else
+                執照_dtp.CustomFormat = "yyyy/MM/dd" : 執照_dtp.Value = 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString
             End If
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽結束_dtp.CustomFormat = " " : Else
-                太陽結束_dtp.CustomFormat = "yyyy/MM/dd" : 太陽結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 10)
+        End If
+        If 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString = "" Then : 建照_dtp.CustomFormat = " " : Else
+            If 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString = " " Then : 建照_dtp.CustomFormat = " " : Else
+                建照_dtp.CustomFormat = "yyyy/MM/dd" : 建照_dtp.Value = 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString
             End If
-            太_租金比_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_租金%").Value.ToString : 製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("製錶").Value.ToString
-            備註_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString : 圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("圖片庫").Value.ToString
-            建坪編號_tb.Text = "" : 土地編號_tb.Text = "" : 承租編號_tb.Text = "" : 附件編碼1_lb.Text = "" : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
-            承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
-            聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
-            租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
-            租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
-            附件1_pb.Image = Nothing : Set_土地清單() : Set_區塊清單() : 計算分流1.Enabled = True : Set_承租清單()
         End If
     End Sub
-    Private Sub 土地_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 土地_dgv.CellClick
-        If e.RowIndex = -1 Then : Else : 土地編號_tb.Text = 土地_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : End If
-    End Sub
     Private Sub 土地_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 土地_dgv.CellEndEdit
         土地計算()
     End Sub
     Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
             If 地址_tb.Text = "" Then : MsgBox("[地址/地號] 不可以空白!!") : Else
-                If 租期開始_dtp.Text = " " Or 租期結束_dtp.Text = " " Then : MsgBox("[土地租期] 不可以空白!!") : Else
-                    If 製錶_tb.Text = "" Or 製錶_tb.Text = gUserName Then : 確認新增() : Else : If CC(14) = True Then : 確認新增() : End If : End If
-                    土地存檔() : 建坪存檔() : SQL_建坪類別() : 區塊_cb.Items.Clear() : 區塊_cb.Items.Add("") : While (dr.Read()) : 區塊_cb.Items.Add(dr("建坪編號")) : End While : conn.Close()
-                    地址_tb.ReadOnly = True : 清單1_dgv.Enabled = True : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
-                    承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
-                    聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
-                    租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
-                    租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing
-                End If
+                If 製錶_tb.Text = "" Or 製錶_tb.Text = gUserName Then : 確認新增() : Else : If CC(14) = True Then : 確認新增() : End If : End If
+                土地存檔() : 建坪存檔() : SQL_案件摘要太陽修改()
+
+                SQL_建坪類別() : 區塊_cb.Items.Clear() : 區塊_cb.Items.Add("") : While (dr.Read()) : 區塊_cb.Items.Add(dr("建坪編號")) : End While : conn.Close()
+                地址_tb.ReadOnly = True : 清單1_dgv.Enabled = True : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
+                承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
+                聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
+                租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
+                租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : Set_土地清單() : Set_太陽清單()
             End If
         End If
     End Sub
         For i As Integer = 0 To 土地_dgv.Rows.Count - 1
             PA1 = 土地_dgv.Rows(i).Cells("面積編號").Value.ToString : PA2 = 土地_dgv.Rows(i).Cells("土地面積(平米)").Value.ToString
             PA3 = 土地_dgv.Rows(i).Cells("坪數").Value.ToString : PA = 土地_dgv.Rows(i).Cells("流水號").Value.ToString
-            SQL_案件土地修改()
+            PA4 = 土地_dgv.Rows(i).Cells("地主").Value.ToString : SQL_案件土地修改()
         Next
+        If 土地編號_tb.Text <> "" Then : SQL_案件土地修改1() : End If
     End Sub
     Private Sub 土地新增_bt_Click(sender As Object, e As EventArgs) Handles 土地新增_bt.Click
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
             Set_承租清單()
         Next
     End Sub
+    Private Sub 太陽新增_bt_Click(sender As Object, e As EventArgs) Handles 太陽新增_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
+            Dim NUM0 As Integer : DTP1 = Format(Today(), "yyyyMMdd")
+            SQL_案件太陽流水() : If dr.Read Then : NUM0 = Strings.Right(dr("流水號").ToString, 3) : Else : NUM0 = 0 : End If
+            NUM0 += 1
+            If NUM0 < 10 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-00" & NUM0
+            ElseIf NUM0 > 9 And NUM0 < 100 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-0" & NUM0
+            ElseIf NUM0 > 99 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-" & NUM0
+            End If : SQL_案件太陽清單新增() : Set_太陽清單()
+        End If
+    End Sub
+    Private Sub 太陽刪除_bt_Click(sender As Object, e As EventArgs) Handles 太陽刪除_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
+            If 綠能編號_tb.Text = "" Then : MsgBox("請先選擇 [太陽能承租檔案] 或是 [新增太陽能承租檔案]，才能執行後續動作!!") : Else
+                Dim result As DialogResult = MessageBox.Show("請確定是否要刪除選定的太陽能承租資料?", "請選擇", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                If result = DialogResult.Yes Then
+                    PA11 = InputBox("請輸入大寫 [YES]，並按下確認來刪除資料!!")
+                    If PA11 = "YES" Then : SQL_案件建坪刪除() : Set_太陽清單() : MsgBox("刪除完成!!") : End If
+                End If
+            End If
+        End If
+    End Sub
     Private Sub 讀取資料夾路徑1_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑1_bt.Click
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇案件資料，才能繼續後續的操作!!") : Else
             開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"

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

         Me.小更2 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.小更1 = New System.Windows.Forms.TextBox()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.Button14 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.版本號_tb = New System.Windows.Forms.TextBox()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
-        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '中更5
         '
         Me.中更5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.中更5.Location = New System.Drawing.Point(599, 27)
+        Me.中更5.Location = New System.Drawing.Point(392, 154)
         Me.中更5.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.中更5.Name = "中更5"
         Me.中更5.Size = New System.Drawing.Size(80, 23)
         '中更4
         '
         Me.中更4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.中更4.Location = New System.Drawing.Point(515, 27)
+        Me.中更4.Location = New System.Drawing.Point(308, 154)
         Me.中更4.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.中更4.Name = "中更4"
         Me.中更4.Size = New System.Drawing.Size(80, 23)
         '中更3
         '
         Me.中更3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.中更3.Location = New System.Drawing.Point(431, 27)
+        Me.中更3.Location = New System.Drawing.Point(224, 154)
         Me.中更3.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.中更3.Name = "中更3"
         Me.中更3.Size = New System.Drawing.Size(80, 23)
         '中更2
         '
         Me.中更2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.中更2.Location = New System.Drawing.Point(347, 27)
+        Me.中更2.Location = New System.Drawing.Point(140, 154)
         Me.中更2.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.中更2.Name = "中更2"
         Me.中更2.Size = New System.Drawing.Size(80, 23)
         '
         Me.Label4.AutoSize = True
         Me.Label4.BackColor = System.Drawing.SystemColors.Control
-        Me.Label4.Location = New System.Drawing.Point(219, 30)
+        Me.Label4.Location = New System.Drawing.Point(12, 157)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(43, 16)
         Me.Label4.TabIndex = 701
         '中更1
         '
         Me.中更1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.中更1.Location = New System.Drawing.Point(263, 27)
+        Me.中更1.Location = New System.Drawing.Point(56, 154)
         Me.中更1.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.中更1.Name = "中更1"
         Me.中更1.Size = New System.Drawing.Size(80, 23)
         '小更5
         '
         Me.小更5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.小更5.Location = New System.Drawing.Point(599, 3)
+        Me.小更5.Location = New System.Drawing.Point(392, 130)
         Me.小更5.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.小更5.Name = "小更5"
         Me.小更5.Size = New System.Drawing.Size(80, 23)
         '小更4
         '
         Me.小更4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.小更4.Location = New System.Drawing.Point(515, 3)
+        Me.小更4.Location = New System.Drawing.Point(308, 130)
         Me.小更4.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.小更4.Name = "小更4"
         Me.小更4.Size = New System.Drawing.Size(80, 23)
         '小更3
         '
         Me.小更3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.小更3.Location = New System.Drawing.Point(431, 3)
+        Me.小更3.Location = New System.Drawing.Point(224, 130)
         Me.小更3.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.小更3.Name = "小更3"
         Me.小更3.Size = New System.Drawing.Size(80, 23)
         '小更2
         '
         Me.小更2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.小更2.Location = New System.Drawing.Point(347, 3)
+        Me.小更2.Location = New System.Drawing.Point(140, 130)
         Me.小更2.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.小更2.Name = "小更2"
         Me.小更2.Size = New System.Drawing.Size(80, 23)
         '
         Me.Label1.AutoSize = True
         Me.Label1.BackColor = System.Drawing.SystemColors.Control
-        Me.Label1.Location = New System.Drawing.Point(219, 6)
+        Me.Label1.Location = New System.Drawing.Point(12, 133)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 695
         '小更1
         '
         Me.小更1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.小更1.Location = New System.Drawing.Point(263, 3)
+        Me.小更1.Location = New System.Drawing.Point(56, 130)
         Me.小更1.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
         Me.小更1.Name = "小更1"
         Me.小更1.Size = New System.Drawing.Size(80, 23)
         Me.小更1.TabIndex = 694
         '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.TextBox3)
-        Me.Panel1.Controls.Add(Me.Button3)
-        Me.Panel1.Controls.Add(Me.TextBox1)
-        Me.Panel1.Controls.Add(Me.Label9)
-        Me.Panel1.Controls.Add(Me.TextBox4)
-        Me.Panel1.Location = New System.Drawing.Point(458, 195)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(200, 100)
-        Me.Panel1.TabIndex = 693
-        '
-        'TextBox3
-        '
-        Me.TextBox3.AllowDrop = True
-        Me.TextBox3.ForeColor = System.Drawing.Color.Black
-        Me.TextBox3.Location = New System.Drawing.Point(3, 3)
-        Me.TextBox3.Multiline = True
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(25, 23)
-        Me.TextBox3.TabIndex = 625
-        '
-        'Button3
-        '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button3.Location = New System.Drawing.Point(82, 64)
-        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(105, 24)
-        Me.Button3.TabIndex = 626
-        Me.Button3.Text = "上傳"
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox1.Location = New System.Drawing.Point(36, 3)
-        Me.TextBox1.Margin = New System.Windows.Forms.Padding(5)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(89, 23)
-        Me.TextBox1.TabIndex = 609
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(4, 38)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(55, 16)
-        Me.Label9.TabIndex = 624
-        Me.Label9.Text = "檔案名稱"
-        '
-        'TextBox4
-        '
-        Me.TextBox4.AllowDrop = True
-        Me.TextBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBox4.ForeColor = System.Drawing.Color.Black
-        Me.TextBox4.Location = New System.Drawing.Point(61, 34)
-        Me.TextBox4.Multiline = True
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(126, 23)
-        Me.TextBox4.TabIndex = 623
-        '
-        'Label12
-        '
-        Me.Label12.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label12.AutoSize = True
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(14, 358)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(79, 16)
-        Me.Label12.TabIndex = 692
-        Me.Label12.Text = "執行檔放置區"
-        '
-        'WebBrowser2
-        '
-        Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser2.Location = New System.Drawing.Point(5, 53)
-        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser2.Name = "WebBrowser2"
-        Me.WebBrowser2.Size = New System.Drawing.Size(1341, 299)
-        Me.WebBrowser2.TabIndex = 691
-        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'WebBrowser1
-        '
-        Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.WebBrowser1.Location = New System.Drawing.Point(6, 376)
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.WebBrowser1.Name = "WebBrowser1"
-        Me.WebBrowser1.Size = New System.Drawing.Size(1340, 302)
-        Me.WebBrowser1.TabIndex = 690
-        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
-        '
         '資料庫版本號_lb
         '
         Me.資料庫版本號_lb.AutoSize = True
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(799, 29)
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(2, 36)
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
         Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
         Me.資料庫版本號_lb.TabIndex = 689
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
         '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(14, 7)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(55, 16)
-        Me.Label13.TabIndex = 688
-        Me.Label13.Text = "我的電腦"
-        '
-        'Button14
-        '
-        Me.Button14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button14.ForeColor = System.Drawing.Color.Blue
-        Me.Button14.Location = New System.Drawing.Point(5, 26)
-        Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(97, 24)
-        Me.Button14.TabIndex = 687
-        Me.Button14.Text = "讀取料夾路徑"
-        Me.Button14.UseVisualStyleBackColor = True
-        '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(688, 2)
+        Me.Button1.Location = New System.Drawing.Point(161, 3)
         Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(105, 48)
         '
         Me.Label3.AutoSize = True
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
-        Me.Label3.Location = New System.Drawing.Point(111, 8)
+        Me.Label3.Location = New System.Drawing.Point(8, 10)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 685
         '版本號_tb
         '
         Me.版本號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.版本號_tb.Location = New System.Drawing.Point(110, 26)
+        Me.版本號_tb.Location = New System.Drawing.Point(59, 7)
         Me.版本號_tb.Margin = New System.Windows.Forms.Padding(5)
         Me.版本號_tb.Name = "版本號_tb"
         Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1350, 681)
+        Me.ClientSize = New System.Drawing.Size(272, 55)
         Me.Controls.Add(Me.中更5)
         Me.Controls.Add(Me.中更4)
         Me.Controls.Add(Me.中更3)
         Me.Controls.Add(Me.小更2)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.小更1)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.WebBrowser2)
-        Me.Controls.Add(Me.WebBrowser1)
         Me.Controls.Add(Me.資料庫版本號_lb)
-        Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.Button14)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.版本號_tb)
         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.MaximizeBox = False
+        Me.MinimizeBox = False
         Me.Name = "系統執行檔版本管理"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "系統執行檔版本管理"
-        Me.Panel1.ResumeLayout(False)
-        Me.Panel1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 小更2 As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents 小更1 As TextBox
-    Friend WithEvents Panel1 As Panel
-    Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents Button3 As Button
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Label9 As Label
-    Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents Label12 As Label
-    Friend WithEvents WebBrowser2 As WebBrowser
-    Friend WithEvents WebBrowser1 As WebBrowser
     Friend WithEvents 資料庫版本號_lb As Label
-    Friend WithEvents Label13 As Label
-    Friend WithEvents Button14 As Button
     Friend WithEvents Button1 As Button
     Friend WithEvents Label3 As Label
     Friend WithEvents 版本號_tb As TextBox

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

 Option Strict Off
-Imports System.Net
-Imports System.IO
 Public Class 系統執行檔版本管理
     Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = YS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        TextBox3.Visible = False : TextBox1.Visible = False : Panel1.SendToBack()
-
         SQL_系統認證版本號查詢()
         If dr.Read() Then
             資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 小更1.Text = dr("小更新1").ToString : 小更2.Text = dr("小更新2").ToString
             版本號_tb.Text = dr("系統認證版本號") : 小更4.Text = dr("小更新4").ToString : 小更5.Text = dr("小更新5").ToString
             中更3.Text = dr("中更新3").ToString : 中更4.Text = dr("中更新4").ToString : 中更5.Text = dr("中更新5").ToString
         End If : conn.Close()
-        Target1 = Target & AA(0) & "/" : Target2 = Target & AA(1) & "/"
-        WebBrowser1.Url = New Uri(Target1)
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         timeNow = 0 : YS_ERP_SYS.Timer1.Enabled = False : YS_ERP_SYS.Timer1.Enabled = True
             版本號_tb.Text = dr("系統認證版本號")
         End If : conn.Close() : MsgBox("修改完成!!")
     End Sub
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
-        End If
-    End Sub
-    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox4.DragEnter
-        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-            Dim files As String()
-            Try
-                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
-                TextBox4.Text = files(files.Length - 1)
-            Catch ex As Exception
-                MessageBox.Show(ex.Message)
-                Return
-            End Try
-        End If
-
-        Dim STR2 As Integer = 0
-        TextBox3.Text = TextBox4.Text
-        If TextBox4.Text = "" Then
-        Else
-            For i As Integer = 0 To 9999
-                Dim STR1 As Integer = Strings.Len(TextBox3.Text)
-                If Strings.Right((TextBox3.Text), 1) <> "\" Then
-                    STR1 -= 1 : STR2 += 1
-                    If STR1 = 0 Then
-                        TextBox3.Text = ""
-                        TextBox4.Text = ""
-                        i = 9999
-                    Else
-                        TextBox3.Text = Strings.Left((TextBox3.Text), STR1)
-                    End If
-                Else
-                    TextBox3.Text = Strings.Right((TextBox4.Text), STR2)
-                    TextBox4.Text = TextBox3.Text
-                    i = 9999
-                End If
-            Next
-        End If
-    End Sub
-    Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox4.DragDrop
-        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
-        For Each file As String In files
-            TextBox4.AppendText(file + Environment.NewLine)
-        Next
-    End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        If TextBox4.Text = "" Then : MsgBox("請準備檔案!!") : Else
-            Dim clsRequest12 As FtpWebRequest = DirectCast(WebRequest.Create(Target & AA(0) & "/" & TextBox4.Text), FtpWebRequest)
-            TextBox1.Text = FolderBrowserDialog1.SelectedPath & "\" & TextBox4.Text
-            clsRequest12.Credentials = New NetworkCredential(FTP帳號, FTP密碼)
-            clsRequest12.Method = WebRequestMethods.Ftp.UploadFile
-            ' read in file...
-            Dim bFile12() As Byte = File.ReadAllBytes(TextBox1.Text)
-
-            ' upload file...
-            Dim clsStream12 As Stream = clsRequest12.GetRequestStream()
-            clsStream12.Write(bFile12, 0, bFile12.Length)
-            clsStream12.Close()
-            clsStream12.Dispose()
-            TextBox4.Text = ""
-            WebBrowser1.Refresh()
-        End If
-    End Sub
 End Class

YS-ERP-SYS/0、MyModule/SQL_客戶系統管理.vb

     End Sub
     Friend Sub SQL_客戶訪談表讀取()
         ConnOpen()
-        SQL1 = "SELECT  流水號, 日期, 地點, 訪談內容, 內容追蹤, 會議名稱, 會議地點, 會議時間, 出席人員, 會議內容  FROM  客戶訪談資料 
+        SQL1 = "SELECT  流水號, 日期, 地點, 訪談內容, 內容追蹤, 會議名稱, 會議地點, 會議時間, 出席人員, 會議內容, 會議內容 AS 會議  FROM  客戶訪談資料 
                 WHERE 客戶編號 LIKE N'" & 客戶資料表.流水號_tb.Text & "' ORDER BY 流水號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_客戶承租表讀取()
+        ConnOpen()
+        SQL1 = "SELECT    案件摘要_承租.承租狀態, 案件摘要總表.[地址/地號], 案件摘要_建坪.建坪編號, 
+                          案件摘要_承租.[坪數/區塊面積], 案件摘要_承租.租期開始 AS 租期, 案件摘要_承租.租期結束, 案件摘要_承租.免租期, 
+                          案件摘要_承租.租金
+                FROM      案件摘要_承租 INNER JOIN
+                          客戶資料表 ON 案件摘要_承租.承租客 = 客戶資料表.流水號 INNER JOIN
+                          案件摘要_建坪 ON 案件摘要_承租.建坪編號 = 案件摘要_建坪.流水號 INNER JOIN
+                          案件摘要總表 ON 案件摘要_承租.單據編號 = 案件摘要總表.單據編號 
+                WHERE     客戶資料表.流水號 LIKE N'" & 客戶資料表.流水號_tb.Text & "'
+                ORDER BY  案件摘要_承租.承租狀態"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_客戶類別()
         ConnOpen() : SQL1 = "SELECT  類別  FROM  客戶資料表  GROUP BY  類別  ORDER BY  類別" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_客戶資料附件()
         ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號, 流水號 AS 檔案  FROM  客戶資料表附件 WHERE 客戶編號 LIKE N'" & 客戶資料表.流水號_tb.Text & "' ORDER BY 流水號" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_客戶會議附件()
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號, 流水號 AS 檔案  FROM  客戶會議附件 WHERE 訪談編號 LIKE N'" & 客戶資料表.訪談編號_tb.Text & "' ORDER BY 流水號" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_客戶會議附件讀取()
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  圖片  FROM  客戶會議附件  WHERE  (流水號 LIKE N'" & PA2 & "')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_客戶會議附件流水驗證()
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號  FROM  客戶會議附件  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會議附件圖片入系統()
+        ConnOpen_圖庫SQL()
+        SQL1 = "INSERT INTO 客戶會議附件 (流水號, 訪談編號, 圖片) SELECT N'" & PA1 & "', N'" & 客戶資料表.訪談編號_tb.Text & "', @binary_file"
+        CmdSet_For_dr_pic()
+    End Sub
+    Friend Sub SQL_客戶會議附件刪除()
+        ConnOpen_圖庫SQL() : SQL1 = "DELETE 客戶會議附件  WHERE  (流水號 LIKE  N'" & 客戶資料表.附件編碼1_lb.Text & "')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_客戶資料附件流水驗證()
         ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號  FROM  客戶資料表附件  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
     End Sub

YS-ERP-SYS/0、MyModule/SQL_案件管理系統.vb

                          N'" & 案件摘要表.備註_tb.Text & "', N'" & 圖片庫 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_案件太陽清單新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO  案件摘要_太陽 (單據編號, 流水號, 太陽_出租人, 太陽_承租人, 太陽_KW數, 太陽_租期, [太陽_租金%]) VALUES 
+               (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.綠能編號_tb.Text & "', N'" & 案件摘要表.太_出租_tb.Text & "', N'" & 案件摘要表.太_承租_tb.Text & "', 
+                N'" & 案件摘要表.KW數_tb.Text & "', N'" & 案件摘要表.太陽開始_dtp.Text & " - " & 案件摘要表.太陽結束_dtp.Text & "', N'" & 案件摘要表.太_租金比_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_案件摘要太陽修改()
+        ConnOpen()
+        SQL1 = "UPDATE  案件摘要_太陽  SET 太陽_出租人 = N'" & 案件摘要表.太_出租_tb.Text & "', 太陽_承租人 = N'" & 案件摘要表.太_承租_tb.Text & "', 太陽_KW數 = N'" & 案件摘要表.KW數_tb.Text & "', 
+                                           太陽_租期 = N'" & 案件摘要表.太陽開始_dtp.Text & " - " & 案件摘要表.太陽結束_dtp.Text & "', [太陽_租金%] = N'" & 案件摘要表.太_租金比_tb.Text & "' 
+                WHERE   流水號 LIKE N'" & 案件摘要表.綠能編號_tb.Text & "'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_案件摘要修改()
         ConnOpen()
         SQL1 = "UPDATE  案件摘要總表  SET  [地址/地號] = N'" & 案件摘要表.地址_tb.Text & "', 地主 = N'" & 案件摘要表.地主_tb.Text & "', 聯絡人 = N'" & 案件摘要表.聯絡人_tb.Text & "', 
     End Sub
     Friend Sub SQL_案件土地清單()
         ConnOpen()
-        SQL1 = "SELECT  單據編號, 流水號, 面積編號, 土地面積 AS [土地面積(平米)], 坪數  FROM  案件摘要_土地 WHERE 單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'"
+        SQL1 = "SELECT  單據編號, 流水號, 地主, 面積編號, 土地面積 AS [土地面積(平米)], 坪數, 使用用途, 土地租期, 租期備註, 土地月租, 每坪月租, 
+                        保證月, [押金/保證金], 免租興建期, 建期備註, 建照核准日, 取得使用執照日, 備註  FROM  案件摘要_土地 
+                WHERE   單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_案件土地清單新增()
         ConnOpen()
-        SQL1 = "INSERT INTO  案件摘要_土地 (單據編號, 流水號, 面積編號, 土地面積, 坪數) VALUES (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.土地編號_tb.Text & "', N'*', N'0', N'0')"
+        SQL1 = "INSERT INTO  案件摘要_土地 (單據編號, 流水號, 面積編號, 土地面積, 坪數, 使用用途, 土地租期, 租期備註, 土地月租, 每坪月租, 
+                                            保證月, [押金/保證金], 免租興建期, 建期備註, 建照核准日, 取得使用執照日, 備註, 地主) 
+                VALUES (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.土地編號_tb.Text & "', N'*', N'0', N'0', N'" & 案件摘要表.用途_cb.Text & "', 
+                        N'" & 案件摘要表.土地租期_nup.Value & "', N'" & 案件摘要表.租期開始_dtp.Text & " - " & 案件摘要表.租期結束_dtp.Text & "', 
+                        N'" & 案件摘要表.土地租金_nud.Value & "', N'" & 案件摘要表.月坪租金_nud.Value & "', N'" & 案件摘要表.保證月_nud.Text & "', N'" & 案件摘要表.保證金_nud.Text & "', 
+                        N'" & 案件摘要表.免租_nud.Value & "', N'" & 案件摘要表.免租開始_dtp.Text & " - " & 案件摘要表.免租結束_dtp.Text & "', N'" & 案件摘要表.建照_dtp.Text & "', 
+                        N'" & 案件摘要表.執照_dtp.Text & "', N'" & 案件摘要表.備註_tb.Text & "', N'*')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_案件土地修改1()
+        ConnOpen()
+        SQL1 = "UPDATE  案件摘要_土地  SET 使用用途 = N'" & 案件摘要表.用途_cb.Text & "', 土地租期 = N'" & 案件摘要表.土地租期_nup.Value & "', 
+                                           租期備註 = N'" & 案件摘要表.租期開始_dtp.Text & " - " & 案件摘要表.租期結束_dtp.Text & "', 土地月租 = N'" & 案件摘要表.土地租金_nud.Value & "', 
+                                           每坪月租 = N'" & 案件摘要表.月坪租金_nud.Value & "', 保證月 = N'" & 案件摘要表.保證月_nud.Text & "', [押金/保證金] = N'" & 案件摘要表.保證金_nud.Text & "', 
+                                           免租興建期 = N'" & 案件摘要表.免租_nud.Value & "', 建期備註 = N'" & 案件摘要表.免租開始_dtp.Text & " - " & 案件摘要表.免租結束_dtp.Text & "', 
+                                           建照核准日 = N'" & 案件摘要表.建照_dtp.Text & "', 取得使用執照日 = N'" & 案件摘要表.執照_dtp.Text & "', 備註 = N'" & 案件摘要表.備註_tb.Text & "'  
+                WHERE 流水號 LIKE N'" & 案件摘要表.土地編號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_案件土地流水()
     End Sub
     Friend Sub SQL_案件土地修改()
         ConnOpen()
-        SQL1 = "UPDATE  案件摘要_土地  SET  面積編號 = N'" & PA1 & "', 土地面積 = N'" & PA2 & "', 坪數 =  N'" & PA3 & "'  WHERE 流水號 LIKE N'" & PA & "'"
+        SQL1 = "UPDATE  案件摘要_土地  SET  面積編號 = N'" & PA1 & "', 土地面積 = N'" & PA2 & "', 坪數 =  N'" & PA3 & "', 地主 =  N'" & PA4 & "'  WHERE 流水號 LIKE N'" & PA & "'"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_案件土地刪除()
     Friend Sub SQL_案件建坪流水()
         ConnOpen() : SQL1 = "SELECT  流水號  FROM  案件摘要_建坪  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_案件太陽流水()
+        ConnOpen() : SQL1 = "SELECT  流水號  FROM  案件摘要_太陽  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_案件建坪清單新增()
         ConnOpen()
         SQL1 = "INSERT INTO  案件摘要_建坪 (單據編號, 流水號, 建坪編號, 備註, 坪數, 面寬, 深度) VALUES 
                  WHERE  (案件摘要_承租.單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "') ORDER BY 案件摘要_承租.流水號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_案件太陽讀取()
+        ConnOpen()
+        SQL1 = "SELECT  流水號, 流水號 AS 檔案, 太陽_出租人, 太陽_承租人, 太陽_KW數, 太陽_租期, [太陽_租金%]
+                FROM    案件摘要_太陽  WHERE  (單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_案件太陽刪除()
+        ConnOpen() : SQL1 = "DELETE  案件摘要_太陽 WHERE 流水號 LIKE N'" & 案件摘要表.綠能編號_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_建坪類別()
         ConnOpen() : SQL1 = "SELECT  建坪編號  FROM  案件摘要_建坪  WHERE  單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'  GROUP BY  建坪編號  ORDER BY  建坪編號" : CmdSet_For_dr()
     End Sub

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

     Public 密碼時限, 行政採購簽核級別基數, 建築採購簽核級別基數, 工程圖庫限制 As Integer
     Public 零用金選擇, 低網速模式, 重新計算, BB(99), CC(200) As Boolean
     '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024052202" : Public 資料庫版本 As String
+    Public 版本 As String = "2024061801" : Public 資料庫版本 As String
     '----整數變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 比例1, 比例2, 比例3, 分母, NN1, 計算累加, timeExit, timeExit2, timeNow, timeNow2 As Integer
     '----浮點數值----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YS-ERP-SYS/LoginForm1.vb

 Imports System.IO
-Imports System.Net
-Imports System.Text
-Imports System.Net.NetworkInformation
-Imports System.Security.Cryptography
 Public Class LoginForm1
     Dim MACKK As String 'MAC碼
     Dim diskId As String '數字ID
         da.Fill(ds3) : 系統登入_dgv.DataSource = ds3.Tables(0) : conn.Close()
         系統登入_dgv.Columns(0).FillWeight = 120 : 系統登入_dgv.Columns(1).FillWeight = 30 : 系統登入_dgv.Columns(2).Visible = False : 系統登入_dgv.Columns(3).FillWeight = 50
     End Sub
-    Private Sub Set_清單1()
-        Dim ds2 As New DataSet
-        ftp清單_dgv.DataSource = Nothing : ds2.Clear()
-        ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        ftp清單_dgv.ColumnHeadersHeight = 25
-        ftp清單_dgv.AllowUserToAddRows = False
-        SQL_FTP資料夾路徑分配()
-        da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
-    End Sub
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     End Sub
     Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         SQL_系統版本號驗證()
         If dr.Read() Then : 資料庫版本 = dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
         '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-        SQL_連線字串_國外() : SQL_FTP伺服器IP() : If dr.Read Then : FTPIP = dr("位址").ToString : End If
-        PA = "測試雲端" : SQL_FTP伺服器登入位置()
-        If dr.Read() Then
-            Target = dr("FTP帳號") & FTPIP & dr("FTP密碼") : FTP帳號 = "" : FTP密碼 = "" : FTP物理位置 = dr("FTP物理位置")
-        End If : conn.Close()
-        Set_清單1()
-        Dim HH As String
-        For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
-            If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
-        Next
+        Target = "https://gcm-smart.com/ERP/YS-ERP/"
     End Sub
     Private Sub 自動更新2()
         Dim Str As String = Application.StartupPath
         If File.Exists(Str + "\NOTAUTO.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
+            My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
             Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
             Me.Close()
         End If

YS-ERP-SYS/YS-ERP-SYS.Designer.vb

         Me.系統對應電腦註冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
         Me.執行進度_tss = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
-        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
         '
         '資料庫系統管理_tsm
         '
-        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.系統權限預設表_tsm, Me.ToolStripSeparator1, Me.系統組織架構設定_tsm, Me.部門權限設定_tsm, Me.系統組織結構與權限設定_tsm, Me.ToolStripSeparator2, Me.系統通用變數管理_tsm, Me.系統編碼規則_tsm, Me.系統對應電腦註冊_tsm, Me.ToolStripSeparator3, Me.系統執行檔版本管理_tsm, Me.FTP資料夾管理_tsm, Me.TESTToolStripMenuItem})
+        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.系統權限預設表_tsm, Me.ToolStripSeparator1, Me.系統組織架構設定_tsm, Me.部門權限設定_tsm, Me.系統組織結構與權限設定_tsm, Me.ToolStripSeparator2, Me.系統通用變數管理_tsm, Me.系統編碼規則_tsm, Me.系統對應電腦註冊_tsm, Me.ToolStripSeparator3, Me.系統執行檔版本管理_tsm, Me.TESTToolStripMenuItem})
         Me.資料庫系統管理_tsm.Image = Global.YS_ERP_SYS.My.Resources.Resources.system
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
         Me.資料庫系統管理_tsm.Size = New System.Drawing.Size(83, 20)
         Me.系統執行檔版本管理_tsm.Size = New System.Drawing.Size(206, 22)
         Me.系統執行檔版本管理_tsm.Text = "系統執行檔版本管理"
         '
-        'FTP資料夾管理_tsm
+        'TESTToolStripMenuItem
         '
-        Me.FTP資料夾管理_tsm.Image = Global.YS_ERP_SYS.My.Resources.Resources.system
-        Me.FTP資料夾管理_tsm.Name = "FTP資料夾管理_tsm"
-        Me.FTP資料夾管理_tsm.Size = New System.Drawing.Size(206, 22)
-        Me.FTP資料夾管理_tsm.Text = "FTP資料夾管理"
+        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.TESTToolStripMenuItem.Text = "TEST"
         '
         'StatusStrip
         '
         '
         Me.Timer2.Interval = 1000
         '
-        'TESTToolStripMenuItem
-        '
-        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
-        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
-        Me.TESTToolStripMenuItem.Text = "TEST"
-        '
         'YS_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
     Friend WithEvents 系統編碼規則_tsm As ToolStripMenuItem
     Friend WithEvents 系統對應電腦註冊_tsm As ToolStripMenuItem
     Friend WithEvents 系統執行檔版本管理_tsm As ToolStripMenuItem
-    Friend WithEvents FTP資料夾管理_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator

YS-ERP-SYS/YS-ERP-SYS.vb

         '-----系統管理---------------------------------------------------------------------------------------------------------------------------------------------------------------------
         資料庫系統管理_tsm.Visible = CC(1) : 系統使用者管理_tsm.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統組織架構設定_tsm.Visible = CC(41)
         部門權限設定_tsm.Visible = CC(87) : 系統組織結構與權限設定_tsm.Visible = CC(89) : 系統通用變數管理_tsm.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10)
-        系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) : FTP資料夾管理_tsm.Visible = CC(3)
+        系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4)
 
         SQL_系統閒置時間設定讀取() : If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close() : 重登計時()
         If gUser帳號 = LoginForm1.密碼驗證_tb.Text Then : 個人帳號管理.ShowDialog() : End If
     End Sub
     Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
-    End Sub
-    Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
+        重置() : 系統執行檔版本管理.ShowDialog()
     End Sub
     Private Sub 系統組織架構設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
     Private Sub TESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
         Form1.Show() : Form1.BringToFront()
     End Sub
-    Private Sub 自動更新2()
-        Dim Str As String = Application.StartupPath
-        Dim url As String = "http://106.1.48.106:8080/GCM-ERP-SYS/GCM-LINE-SYS.exe"
-        Dim client As New WebClient()
-        Try
-            client.DownloadFile(url, Str + "\GCM-LINE-SYS.exe")
-            Shell(Str + "\GCM-LINE-SYS.exe", vbNormalFocus)
-        Catch ex As Exception
-            MessageBox.Show("下載更新檔案時出錯: " & ex.Message)
-        End Try
-    End Sub
 End Class