YS-ERP-SYS
/
YS-ERP-SYS-LEEHSIEHJUI
Obserwuj 4
Gwiazdka 0
Forkuj 0
Kod Problemy 0 Pull Requests 0 Wydania 0 Wiki Aktywność
Przeglądaj źródła

20240622備份

LEEHSIEHJUI 10 miesięcy temu
rodzic
9bdea7eaf6
commit
9806b434e6
25 zmienionych plików z 1725 dodań i 1498 usunięć
Widok podzielony Pokaż statystyki zmian
  1. BIN
      .vs/YS-ERP-SYS/FileContentIndex/12bb739c-130a-4879-aca8-f599638599b9.vsidx
  2. BIN
      .vs/YS-ERP-SYS/FileContentIndex/2a1fb365-08c1-4efc-a8ac-e01757971983.vsidx
  3. BIN
      .vs/YS-ERP-SYS/FileContentIndex/860270ec-cfef-46e8-958c-bd7cd30f76d7.vsidx
  4. BIN
      .vs/YS-ERP-SYS/FileContentIndex/96579589-57b2-462f-afa5-5908fe81a19b.vsidx
  5. BIN
      .vs/YS-ERP-SYS/v17/.suo
  6. 95
    72
      .vs/YS-ERP-SYS/v17/DocumentLayout.json
  7. 215
    67
      YS-ERP-SYS/01、客戶系統管理/客戶資料表.Designer.vb
  8. 3
    0
      YS-ERP-SYS/01、客戶系統管理/客戶資料表.resx
  9. 95
    13
      YS-ERP-SYS/01、客戶系統管理/客戶資料表.vb
  10. 1080
    997
      YS-ERP-SYS/02、案件系統管理/案件摘要表.Designer.vb
  11. 128
    46
      YS-ERP-SYS/02、案件系統管理/案件摘要表.vb
  12. 20
    167
      YS-ERP-SYS/09、資料庫系統管理/系統執行檔版本管理.Designer.vb
  13. 0
    74
      YS-ERP-SYS/09、資料庫系統管理/系統執行檔版本管理.vb
  14. 31
    1
      YS-ERP-SYS/0、MyModule/SQL_客戶系統管理.vb
  15. 47
    3
      YS-ERP-SYS/0、MyModule/SQL_案件管理系統.vb
  16. 1
    1
      YS-ERP-SYS/0、MyModule/全域變數.vb
  17. 2
    25
      YS-ERP-SYS/LoginForm1.vb
  18. 6
    15
      YS-ERP-SYS/YS-ERP-SYS.Designer.vb
  19. 2
    17
      YS-ERP-SYS/YS-ERP-SYS.vb
  20. BIN
      YS-ERP-SYS/bin/Debug/YS-ERP-SYS.exe
  21. BIN
      YS-ERP-SYS/bin/Debug/YS-ERP-SYS.pdb
  22. BIN
      YS-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  23. BIN
      YS-ERP-SYS/obj/Debug/YS-ERP-SYS.exe
  24. BIN
      YS-ERP-SYS/obj/Debug/YS-ERP-SYS.pdb
  25. BIN
      YS-ERP-SYS/obj/Debug/YS-ERP-SYS.vbproj.GenerateResource.cache

BIN
.vs/YS-ERP-SYS/FileContentIndex/12bb739c-130a-4879-aca8-f599638599b9.vsidx Wyświetl plik


BIN
.vs/YS-ERP-SYS/FileContentIndex/2a1fb365-08c1-4efc-a8ac-e01757971983.vsidx Wyświetl plik


BIN
.vs/YS-ERP-SYS/FileContentIndex/860270ec-cfef-46e8-958c-bd7cd30f76d7.vsidx Wyświetl plik


BIN
.vs/YS-ERP-SYS/FileContentIndex/96579589-57b2-462f-afa5-5908fe81a19b.vsidx Wyświetl plik


BIN
.vs/YS-ERP-SYS/v17/.suo Wyświetl plik


+ 95
- 72
.vs/YS-ERP-SYS/v17/DocumentLayout.json Wyświetl plik 

@@ -3,56 +3,72 @@
3 3 
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\",
4 4 
   "Documents": [
5 5 
     {
6 
-      "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",
7 
-      "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"
6 
+      "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}",
7 
+      "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}"
8 8 
     },
9 9 
     {
10 10 
       "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}",
11 11 
       "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}"
12 12 
     },
13 13 
     {
14 
-      "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",
15 
-      "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"
14 
+      "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",
15 
+      "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"
16 
+    },
17 
+    {
18 
+      "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}",
19 
+      "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}"
20 
+    },
21 
+    {
22 
+      "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}",
23 
+      "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}"
24 
+    },
25 
+    {
26 
+      "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}",
27 
+      "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}"
16 28 
     },
17 29 
     {
18 30 
       "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}",
19 31 
       "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}"
20 32 
     },
21 33 
     {
22 
-      "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}",
23 
-      "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}"
34 
+      "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}",
35 
+      "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}"
24 36 
     },
25 37 
     {
26 38 
       "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",
27 39 
       "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"
28 40 
     },
29 41 
     {
30 
-      "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",
31 
-      "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"
42 
+      "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",
43 
+      "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"
32 44 
     },
33 45 
     {
34 
-      "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}",
35 
-      "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}"
46 
+      "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}",
47 
+      "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}"
36 48 
     },
37 49 
     {
38 
-      "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",
39 
-      "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"
50 
+      "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",
51 
+      "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"
40 52 
     },
41 53 
     {
42 
-      "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}",
43 
-      "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}"
54 
+      "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}",
55 
+      "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}"
44 56 
     },
45 57 
     {
46 
-      "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}",
47 
-      "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}"
58 
+      "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",
59 
+      "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"
48 60 
     },
49 61 
     {
50 
-      "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",
51 
-      "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"
62 
+      "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}",
63 
+      "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}"
52 64 
     },
53 65 
     {
54 
-      "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}",
55 
-      "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}"
66 
+      "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",
67 
+      "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"
68 
+    },
69 
+    {
70 
+      "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",
71 
+      "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"
56 72 
     },
57 73 
     {
58 74 
       "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",
 
@@ -62,14 +78,6 @@
62 78 
       "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}",
63 79 
       "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}"
64 80 
     },
65 
-    {
66 
-      "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}",
67 
-      "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}"
68 
-    },
69 
-    {
70 
-      "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}",
71 
-      "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}"
72 
-    },
73 81 
     {
74 82 
       "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}",
75 83 
       "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}"
 
@@ -90,7 +98,7 @@
90 98 
       "DocumentGroups": [
91 99 
         {
92 100 
           "DockedWidth": 200,
93 
-          "SelectedChildIndex": 16,
101 
+          "SelectedChildIndex": 5,
94 102 
           "Children": [
95 103 
             {
96 104 
               "$type": "Bookmark",
 
@@ -98,45 +106,66 @@
98 106 
             },
99 107 
             {
100 108 
               "$type": "Document",
101 
-              "DocumentIndex": 4,
109 
+              "DocumentIndex": 12,
110 
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
111 
+              "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",
112 
+              "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
113 
+              "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",
114 
+              "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
115 
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAEAAAAWAAAA",
116 
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
117 
+              "WhenOpened": "2024-06-13T12:21:18.714Z"
118 
+            },
119 
+            {
120 
+              "$type": "Document",
121 
+              "DocumentIndex": 13,
122 
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
123 
+              "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",
124 
+              "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
125 
+              "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]",
126 
+              "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]",
127 
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
128 
+              "WhenOpened": "2024-06-13T12:20:12.694Z"
129 
+            },
130 
+            {
131 
+              "$type": "Document",
132 
+              "DocumentIndex": 14,
102 133 
               "Title": "\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
103 134 
               "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",
104 135 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
105 136 
               "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",
106 137 
               "RelativeToolTip": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
107 
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAATAAAA",
138 
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAAAAAATAAAA",
108 139 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
109 
-              "WhenOpened": "2024-06-06T14:19:13.82Z",
110 
-              "EditorCaption": ""
140 
+              "WhenOpened": "2024-06-06T14:19:13.82Z"
111 141 
             },
112 142 
             {
113 143 
               "$type": "Document",
114 
-              "DocumentIndex": 6,
144 
+              "DocumentIndex": 16,
115 145 
               "Title": "\u5716\u7247\u653E\u5927\u8996\u7A97.vb [\u8A2D\u8A08]",
116 146 
               "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",
117 147 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb",
118 148 
               "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]",
119 149 
               "RelativeToolTip": "YS-ERP-SYS\\10\u3001\u80CC\u666F\u7A0B\u5F0F\u8207\u5176\u4ED6\u8996\u7A97\\\u5716\u7247\u653E\u5927\u8996\u7A97.vb [\u8A2D\u8A08]",
120 150 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
121 
-              "WhenOpened": "2024-06-06T14:19:12.497Z",
122 
-              "EditorCaption": " [\u8A2D\u8A08]"
151 
+              "WhenOpened": "2024-06-06T14:19:12.497Z"
123 152 
             },
124 153 
             {
125 154 
               "$type": "Document",
126 
-              "DocumentIndex": 10,
155 
+              "DocumentIndex": 0,
127 156 
               "Title": "Form1.vb",
128 157 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
129 158 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
130 159 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
131 160 
               "RelativeToolTip": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
132 
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAASAAAA",
161 
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAUAAAAAAAAA",
133 162 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
134 163 
               "WhenOpened": "2024-06-04T14:28:06.665Z",
135 164 
               "EditorCaption": ""
136 165 
             },
137 166 
             {
138 167 
               "$type": "Document",
139 
-              "DocumentIndex": 8,
168 
+              "DocumentIndex": 9,
140 169 
               "Title": "Form1.vb [\u8A2D\u8A08]",
141 170 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
142 171 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\\u5716\u7247\\Form1.vb",
 
@@ -148,19 +177,19 @@
148 177 
             },
149 178 
             {
150 179 
               "$type": "Document",
151 
-              "DocumentIndex": 12,
180 
+              "DocumentIndex": 7,
152 181 
               "Title": "LoginForm1.vb",
153 182 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
154 183 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\LoginForm1.vb",
155 184 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
156 185 
               "RelativeToolTip": "YS-ERP-SYS\\LoginForm1.vb",
157 
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
186 
+              "ViewState": "AQIAAFkAAAAAAAAAAAAkwGcAAAAAAAAA",
158 187 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
159 188 
               "WhenOpened": "2024-06-04T14:11:27.11Z"
160 189 
             },
161 190 
             {
162 191 
               "$type": "Document",
163 
-              "DocumentIndex": 13,
192 
+              "DocumentIndex": 17,
164 193 
               "Title": "LoginForm1.vb [\u8A2D\u8A08]",
165 194 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\LoginForm1.vb",
166 195 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\LoginForm1.vb",
 
@@ -171,7 +200,7 @@
171 200 
             },
172 201 
             {
173 202 
               "$type": "Document",
174 
-              "DocumentIndex": 14,
203 
+              "DocumentIndex": 18,
175 204 
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
176 205 
               "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",
177 206 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
 
@@ -179,34 +208,32 @@
179 208 
               "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
180 209 
               "ViewState": "AQIAAAAAAAAAAAAAAAAAAJsAAAAAAAAA",
181 210 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
182 
-              "WhenOpened": "2024-06-03T12:50:35.062Z",
183 
-              "EditorCaption": ""
211 
+              "WhenOpened": "2024-06-03T12:50:35.062Z"
184 212 
             },
185 213 
             {
186 214 
               "$type": "Document",
187 
-              "DocumentIndex": 7,
215 
+              "DocumentIndex": 3,
188 216 
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
189 217 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
190 218 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
191 219 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
192 220 
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\\u5168\u57DF\u8B8A\u6578.vb",
193 
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwBUAAAAPAAAA",
221 
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAcAAAAlAAAA",
194 222 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
195 223 
               "WhenOpened": "2024-05-31T12:03:40.319Z",
196 224 
               "EditorCaption": ""
197 225 
             },
198 226 
             {
199 227 
               "$type": "Document",
200 
-              "DocumentIndex": 9,
228 
+              "DocumentIndex": 10,
201 229 
               "Title": "YS-ERP-SYS.vb",
202 230 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb",
203 231 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\YS-ERP-SYS.vb",
204 232 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb",
205 233 
               "RelativeToolTip": "YS-ERP-SYS\\YS-ERP-SYS.vb",
206 
-              "ViewState": "AQIAAJUAAAAAAAAAAAAQwJkAAABPAAAA",
234 
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAC8AAAAiAAAA",
207 235 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
208 
-              "WhenOpened": "2024-05-29T02:14:37.124Z",
209 
-              "EditorCaption": ""
236 
+              "WhenOpened": "2024-05-29T02:14:37.124Z"
210 237 
             },
211 238 
             {
212 239 
               "$type": "Document",
 
@@ -217,57 +244,54 @@
217 244 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\YS-ERP-SYS.vb [\u8A2D\u8A08]",
218 245 
               "RelativeToolTip": "YS-ERP-SYS\\YS-ERP-SYS.vb [\u8A2D\u8A08]",
219 246 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
220 
-              "WhenOpened": "2024-05-28T02:51:27.297Z",
221 
-              "EditorCaption": " [\u8A2D\u8A08]"
247 
+              "WhenOpened": "2024-05-28T02:51:27.297Z"
222 248 
             },
223 249 
             {
224 250 
               "$type": "Document",
225 
-              "DocumentIndex": 15,
251 
+              "DocumentIndex": 4,
226 252 
               "Title": "SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
227 253 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
228 254 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
229 255 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
230 256 
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406.vb",
231 
-              "ViewState": "AQIAAAgAAAAAAAAAAADwvwMAAAAaAAAA",
257 
+              "ViewState": "AQIAADQAAAAAAAAAAAAowEcAAABNAAAA",
232 258 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
233 259 
               "WhenOpened": "2024-05-27T10:16:41.147Z"
234 260 
             },
235 261 
             {
236 262 
               "$type": "Document",
237 
-              "DocumentIndex": 16,
263 
+              "DocumentIndex": 5,
238 264 
               "Title": "SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
239 265 
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
240 266 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
241 267 
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\YS-ERP-SYS\\YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
242 268 
               "RelativeToolTip": "YS-ERP-SYS\\0\u3001MyModule\\SQL_\u6848\u4EF6\u7BA1\u7406\u7CFB\u7D71.vb",
243 
-              "ViewState": "AQIAAJMAAAAAAAAAAAA9wKoAAAAbAAAA",
269 
+              "ViewState": "AQIAAAsAAAAAAAAAAAAEwCcAAACaAAAA",
244 270 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
245 271 
               "WhenOpened": "2024-06-01T03:23:10.993Z"
246 272 
             },
247 273 
             {
248 274 
               "$type": "Document",
249 
-              "DocumentIndex": 3,
275 
+              "DocumentIndex": 6,
250 276 
               "Title": "\u6848\u4EF6\u6458\u8981\u8868.vb",
251 277 
               "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",
252 278 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
253 279 
               "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",
254 280 
               "RelativeToolTip": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
255 
-              "ViewState": "AQIAAHQCAAAAAAAAAAAgwIECAAAAAAAA",
281 
+              "ViewState": "AQIAAFgAAAAAAAAAAAAgwCAAAAAKAAAA",
256 282 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
257 
-              "WhenOpened": "2024-06-02T12:49:30.876Z",
258 
-              "EditorCaption": ""
283 
+              "WhenOpened": "2024-06-02T12:49:30.876Z"
259 284 
             },
260 285 
             {
261 286 
               "$type": "Document",
262 
-              "DocumentIndex": 5,
287 
+              "DocumentIndex": 8,
263 288 
               "Title": "\u6848\u4EF6\u6458\u8981\u8868.vb [\u8A2D\u8A08]",
264 289 
               "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",
265 290 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb",
266 291 
               "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]",
267 292 
               "RelativeToolTip": "YS-ERP-SYS\\02\u3001\u6848\u4EF6\u7CFB\u7D71\u7BA1\u7406\\\u6848\u4EF6\u6458\u8981\u8868.vb [\u8A2D\u8A08]",
268 293 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
269 
-              "WhenOpened": "2024-06-03T10:28:42.348Z",
270 
-              "EditorCaption": " [\u8A2D\u8A08]"
294 
+              "WhenOpened": "2024-06-03T10:28:42.348Z"
271 295 
             },
272 296 
             {
273 297 
               "$type": "Document",
 
@@ -277,14 +301,14 @@
277 301 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
278 302 
               "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",
279 303 
               "RelativeToolTip": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
280 
-              "ViewState": "AQIAAO8AAAAAAAAAAABAwP0AAABLAAAA",
304 
+              "ViewState": "AQIAANQAAAAAAAAAAIAywOIAAAASAAAA",
281 305 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
282 306 
               "WhenOpened": "2024-05-27T10:14:34.155Z",
283 307 
               "EditorCaption": ""
284 308 
             },
285 309 
             {
286 310 
               "$type": "Document",
287 
-              "DocumentIndex": 0,
311 
+              "DocumentIndex": 2,
288 312 
               "Title": "\u5BA2\u6236\u8CC7\u6599\u8868.vb [\u8A2D\u8A08]",
289 313 
               "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",
290 314 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u5BA2\u6236\u8CC7\u6599\u8868.vb",
 
@@ -296,7 +320,7 @@
296 320 
             },
297 321 
             {
298 322 
               "$type": "Document",
299 
-              "DocumentIndex": 17,
323 
+              "DocumentIndex": 19,
300 324 
               "Title": "\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
301 325 
               "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",
302 326 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
 
@@ -308,7 +332,7 @@
308 332 
             },
309 333 
             {
310 334 
               "$type": "Document",
311 
-              "DocumentIndex": 18,
335 
+              "DocumentIndex": 20,
312 336 
               "Title": "\u8A2A\u8AC7\u65E5\u5831\u8868.vb [\u8A2D\u8A08]",
313 337 
               "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",
314 338 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\01\u3001\u5BA2\u6236\u7CFB\u7D71\u7BA1\u7406\\\u8A2A\u8AC7\u65E5\u5831\u8868.vb",
 
@@ -319,7 +343,7 @@
319 343 
             },
320 344 
             {
321 345 
               "$type": "Document",
322 
-              "DocumentIndex": 19,
346 
+              "DocumentIndex": 21,
323 347 
               "Title": "\u7CFB\u7D71\u6B0A\u9650\u9810\u8A2D\u8868.vb [\u8A2D\u8A08]",
324 348 
               "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",
325 349 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u6B0A\u9650\u9810\u8A2D\u8868.vb",
 
@@ -330,15 +354,14 @@
330 354 
             },
331 355 
             {
332 356 
               "$type": "Document",
333 
-              "DocumentIndex": 2,
357 
+              "DocumentIndex": 15,
334 358 
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
335 359 
               "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",
336 360 
               "RelativeDocumentMoniker": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
337 361 
               "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]",
338 362 
               "RelativeToolTip": "YS-ERP-SYS\\09\u3001\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
339 363 
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
340 
-              "WhenOpened": "2024-06-01T03:11:15.615Z",
341 
-              "EditorCaption": " [\u8A2D\u8A08]"
364 
+              "WhenOpened": "2024-06-01T03:11:15.615Z"
342 365 
             }
343 366 
           ]
344 367 
         }

+ 215
- 67
YS-ERP-SYS/01、客戶系統管理/客戶資料表.Designer.vb Wyświetl plik 

@@ -23,19 +23,29 @@ Partial Class 客戶資料表
23 23 
     <System.Diagnostics.DebuggerStepThrough()>
24 24 
     Private Sub InitializeComponent()
25 25 
         Me.components = New System.ComponentModel.Container()
26 
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27 
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26 
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27 
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28 28 
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29 29 
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30 30 
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31 31 
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32 
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33 
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
34 
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
35 
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32 36 
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
33 37 
         Me.Panel1 = New System.Windows.Forms.Panel()
34 38 
         Me.視窗2_pl = New System.Windows.Forms.Panel()
35 39 
         Me.Panel7 = New System.Windows.Forms.Panel()
40 
+        Me.附件編碼1_lb = New System.Windows.Forms.Label()
41 
+        Me.字體大小_lb = New System.Windows.Forms.Label()
42 
+        Me.字體大小_nud = New System.Windows.Forms.NumericUpDown()
43 
+        Me.會議附件_dgv = New System.Windows.Forms.DataGridView()
44 
+        Me.讀取資料夾路徑1_bt = New System.Windows.Forms.Button()
45 
+        Me.會議附件_pb = New System.Windows.Forms.PictureBox()
46 
+        Me.刪除附件1_bt = New System.Windows.Forms.Button()
36 47 
         Me.列印會議記錄_bt = New System.Windows.Forms.Button()
37 48 
         Me.會議地點_tb = New System.Windows.Forms.TextBox()
38 
-        Me.會議名稱_tb = New System.Windows.Forms.TextBox()
39 49 
         Me.會議內容_tb = New System.Windows.Forms.TextBox()
40 50 
         Me.會議存檔_bt = New System.Windows.Forms.Button()
41 51 
         Me.Label13 = New System.Windows.Forms.Label()
 
@@ -45,6 +55,7 @@ Partial Class 客戶資料表
45 55 
         Me.出席人員_tb = New System.Windows.Forms.TextBox()
46 56 
         Me.會議時間_dtp = New System.Windows.Forms.DateTimePicker()
47 57 
         Me.Label15 = New System.Windows.Forms.Label()
58 
+        Me.會議名稱_tb = New System.Windows.Forms.TextBox()
48 59 
         Me.Label28 = New System.Windows.Forms.Label()
49 60 
         Me.CanceL2_bt = New System.Windows.Forms.Button()
50 61 
         Me.附件編碼_lb = New System.Windows.Forms.Label()
 
@@ -109,9 +120,14 @@ Partial Class 客戶資料表
109 120 
         Me.分類1_cb = New System.Windows.Forms.ComboBox()
110 121 
         Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
111 122 
         Me.計算分流1 = New System.Windows.Forms.Timer(Me.components)
123 
+        Me.計算分流2 = New System.Windows.Forms.Timer(Me.components)
124 
+        Me.承租_dgv = New System.Windows.Forms.DataGridView()
112 125 
         Me.Panel1.SuspendLayout()
113 126 
         Me.視窗2_pl.SuspendLayout()
114 127 
         Me.Panel7.SuspendLayout()
128 
+        CType(Me.字體大小_nud, System.ComponentModel.ISupportInitialize).BeginInit()
129 
+        CType(Me.會議附件_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
130 
+        CType(Me.會議附件_pb, System.ComponentModel.ISupportInitialize).BeginInit()
115 131 
         Me.Panel2.SuspendLayout()
116 132 
         CType(Me.附件_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
117 133 
         CType(Me.附件_pb, System.ComponentModel.ISupportInitialize).BeginInit()
 
@@ -123,6 +139,7 @@ Partial Class 客戶資料表
123 139 
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
124 140 
         Me.Panel4.SuspendLayout()
125 141 
         Me.Panel5.SuspendLayout()
142 
+        CType(Me.承租_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
126 143 
         Me.SuspendLayout()
127 144 
         '
128 145 
         'ToolTip1
 
@@ -139,7 +156,7 @@ Partial Class 客戶資料表
139 156 
             Or System.Windows.Forms.AnchorStyles.Left) _
140 157 
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
141 158 
         Me.Panel1.BackColor = System.Drawing.Color.White
142 
-        Me.Panel1.Controls.Add(Me.視窗2_pl)
159 
+        Me.Panel1.Controls.Add(Me.承租_dgv)
143 160 
         Me.Panel1.Controls.Add(Me.附件編碼_lb)
144 161 
         Me.Panel1.Controls.Add(Me.Panel6)
145 162 
         Me.Panel1.Controls.Add(Me.Label12)
 
@@ -157,6 +174,7 @@ Partial Class 客戶資料表
157 174 
         Me.Panel1.Controls.Add(Me.GroupBox1)
158 175 
         Me.Panel1.Controls.Add(Me.Label1)
159 176 
         Me.Panel1.Controls.Add(Me.訪談紀錄_dgv)
177 
+        Me.Panel1.Controls.Add(Me.視窗2_pl)
160 178 
         Me.Panel1.Location = New System.Drawing.Point(171, 50)
161 179 
         Me.Panel1.Name = "Panel1"
162 180 
         Me.Panel1.Size = New System.Drawing.Size(1224, 595)
 
@@ -169,9 +187,9 @@ Partial Class 客戶資料表
169 187 
         Me.視窗2_pl.Controls.Add(Me.Panel7)
170 188 
         Me.視窗2_pl.Controls.Add(Me.Label28)
171 189 
         Me.視窗2_pl.Controls.Add(Me.CanceL2_bt)
172 
-        Me.視窗2_pl.Location = New System.Drawing.Point(568, 44)
190 
+        Me.視窗2_pl.Location = New System.Drawing.Point(148, 80)
173 191 
         Me.視窗2_pl.Name = "視窗2_pl"
174 
-        Me.視窗2_pl.Size = New System.Drawing.Size(561, 479)
192 
+        Me.視窗2_pl.Size = New System.Drawing.Size(981, 479)
175 193 
         Me.視窗2_pl.TabIndex = 1899
176 194 
         '
177 195 
         'Panel7
 
@@ -180,9 +198,15 @@ Partial Class 客戶資料表
180 198 
             Or System.Windows.Forms.AnchorStyles.Left) _
181 199 
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
182 200 
         Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
201 
+        Me.Panel7.Controls.Add(Me.附件編碼1_lb)
202 
+        Me.Panel7.Controls.Add(Me.字體大小_lb)
203 
+        Me.Panel7.Controls.Add(Me.字體大小_nud)
204 
+        Me.Panel7.Controls.Add(Me.會議附件_dgv)
205 
+        Me.Panel7.Controls.Add(Me.讀取資料夾路徑1_bt)
206 
+        Me.Panel7.Controls.Add(Me.會議附件_pb)
207 
+        Me.Panel7.Controls.Add(Me.刪除附件1_bt)
183 208 
         Me.Panel7.Controls.Add(Me.列印會議記錄_bt)
184 209 
         Me.Panel7.Controls.Add(Me.會議地點_tb)
185 
-        Me.Panel7.Controls.Add(Me.會議名稱_tb)
186 210 
         Me.Panel7.Controls.Add(Me.會議內容_tb)
187 211 
         Me.Panel7.Controls.Add(Me.會議存檔_bt)
188 212 
         Me.Panel7.Controls.Add(Me.Label13)
 
@@ -192,11 +216,106 @@ Partial Class 客戶資料表
192 216 
         Me.Panel7.Controls.Add(Me.出席人員_tb)
193 217 
         Me.Panel7.Controls.Add(Me.會議時間_dtp)
194 218 
         Me.Panel7.Controls.Add(Me.Label15)
219 
+        Me.Panel7.Controls.Add(Me.會議名稱_tb)
195 220 
         Me.Panel7.Location = New System.Drawing.Point(3, 28)
196 221 
         Me.Panel7.Name = "Panel7"
197 
-        Me.Panel7.Size = New System.Drawing.Size(554, 447)
222 
+        Me.Panel7.Size = New System.Drawing.Size(974, 447)
198 223 
         Me.Panel7.TabIndex = 1367
199 224 
         '
225 
+        '附件編碼1_lb
226 
+        '
227 
+        Me.附件編碼1_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
228 
+        Me.附件編碼1_lb.AutoSize = True
229 
+        Me.附件編碼1_lb.Location = New System.Drawing.Point(858, 16)
230 
+        Me.附件編碼1_lb.Name = "附件編碼1_lb"
231 
+        Me.附件編碼1_lb.Size = New System.Drawing.Size(109, 16)
232 
+        Me.附件編碼1_lb.TabIndex = 1914
233 
+        Me.附件編碼1_lb.Text = "xxxxxxxxxxxxxxxxx"
234 
+        '
235 
+        '字體大小_lb
236 
+        '
237 
+        Me.字體大小_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
238 
+        Me.字體大小_lb.AutoSize = True
239 
+        Me.字體大小_lb.BackColor = System.Drawing.Color.Transparent
240 
+        Me.字體大小_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
241 
+        Me.字體大小_lb.Location = New System.Drawing.Point(2, 56)
242 
+        Me.字體大小_lb.Name = "字體大小_lb"
243 
+        Me.字體大小_lb.Size = New System.Drawing.Size(55, 16)
244 
+        Me.字體大小_lb.TabIndex = 1913
245 
+        Me.字體大小_lb.Text = "字體大小"
246 
+        Me.字體大小_lb.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
247 
+        '
248 
+        '字體大小_nud
249 
+        '
250 
+        Me.字體大小_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
251 
+        Me.字體大小_nud.BackColor = System.Drawing.Color.White
252 
+        Me.字體大小_nud.ForeColor = System.Drawing.Color.Black
253 
+        Me.字體大小_nud.Location = New System.Drawing.Point(59, 53)
254 
+        Me.字體大小_nud.Maximum = New Decimal(New Integer() {72, 0, 0, 0})
255 
+        Me.字體大小_nud.Minimum = New Decimal(New Integer() {8, 0, 0, 0})
256 
+        Me.字體大小_nud.Name = "字體大小_nud"
257 
+        Me.字體大小_nud.Size = New System.Drawing.Size(49, 23)
258 
+        Me.字體大小_nud.TabIndex = 1912
259 
+        Me.字體大小_nud.Value = New Decimal(New Integer() {12, 0, 0, 0})
260 
+        '
261 
+        '會議附件_dgv
262 
+        '
263 
+        Me.會議附件_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
264 
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
265 
+        Me.會議附件_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
266 
+        Me.會議附件_dgv.BackgroundColor = System.Drawing.Color.White
267 
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
268 
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
269 
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
270 
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
271 
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
272 
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
273 
+        Me.會議附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
274 
+        Me.會議附件_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
275 
+        Me.會議附件_dgv.Location = New System.Drawing.Point(552, 35)
276 
+        Me.會議附件_dgv.Name = "會議附件_dgv"
277 
+        Me.會議附件_dgv.RowHeadersWidth = 5
278 
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
279 
+        Me.會議附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
280 
+        Me.會議附件_dgv.RowTemplate.Height = 24
281 
+        Me.會議附件_dgv.Size = New System.Drawing.Size(97, 405)
282 
+        Me.會議附件_dgv.TabIndex = 1909
283 
+        '
284 
+        '讀取資料夾路徑1_bt
285 
+        '
286 
+        Me.讀取資料夾路徑1_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.Add_Image
287 
+        Me.讀取資料夾路徑1_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
288 
+        Me.讀取資料夾路徑1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
289 
+        Me.讀取資料夾路徑1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
290 
+        Me.讀取資料夾路徑1_bt.Location = New System.Drawing.Point(549, 1)
291 
+        Me.讀取資料夾路徑1_bt.Name = "讀取資料夾路徑1_bt"
292 
+        Me.讀取資料夾路徑1_bt.Size = New System.Drawing.Size(100, 33)
293 
+        Me.讀取資料夾路徑1_bt.TabIndex = 1911
294 
+        Me.讀取資料夾路徑1_bt.UseVisualStyleBackColor = True
295 
+        '
296 
+        '會議附件_pb
297 
+        '
298 
+        Me.會議附件_pb.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.Picture
299 
+        Me.會議附件_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
300 
+        Me.會議附件_pb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
301 
+        Me.會議附件_pb.Location = New System.Drawing.Point(650, 35)
302 
+        Me.會議附件_pb.Name = "會議附件_pb"
303 
+        Me.會議附件_pb.Size = New System.Drawing.Size(317, 405)
304 
+        Me.會議附件_pb.TabIndex = 1908
305 
+        Me.會議附件_pb.TabStop = False
306 
+        '
307 
+        '刪除附件1_bt
308 
+        '
309 
+        Me.刪除附件1_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.GarbageEmpty
310 
+        Me.刪除附件1_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
311 
+        Me.刪除附件1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
312 
+        Me.刪除附件1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
313 
+        Me.刪除附件1_bt.Location = New System.Drawing.Point(650, 1)
314 
+        Me.刪除附件1_bt.Name = "刪除附件1_bt"
315 
+        Me.刪除附件1_bt.Size = New System.Drawing.Size(36, 33)
316 
+        Me.刪除附件1_bt.TabIndex = 1910
317 
+        Me.刪除附件1_bt.UseVisualStyleBackColor = True
318 
+        '
200 319 
         '列印會議記錄_bt
201 320 
         '
202 321 
         Me.列印會議記錄_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.print
 
@@ -211,39 +330,27 @@ Partial Class 客戶資料表
211 330 
         '
212 331 
         '會議地點_tb
213 332 
         '
214 
-        Me.會議地點_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
215 333 
         Me.會議地點_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
216 
-        Me.會議地點_tb.Location = New System.Drawing.Point(59, 53)
334 
+        Me.會議地點_tb.Location = New System.Drawing.Point(219, 53)
217 335 
         Me.會議地點_tb.Name = "會議地點_tb"
218 
-        Me.會議地點_tb.Size = New System.Drawing.Size(488, 23)
336 
+        Me.會議地點_tb.Size = New System.Drawing.Size(327, 23)
219 337 
         Me.會議地點_tb.TabIndex = 1888
220 338 
         '
221 
-        '會議名稱_tb
222 
-        '
223 
-        Me.會議名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
224 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
225 
-        Me.會議名稱_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
226 
-        Me.會議名稱_tb.Location = New System.Drawing.Point(59, 1)
227 
-        Me.會議名稱_tb.Multiline = True
228 
-        Me.會議名稱_tb.Name = "會議名稱_tb"
229 
-        Me.會議名稱_tb.Size = New System.Drawing.Size(386, 50)
230 
-        Me.會議名稱_tb.TabIndex = 1886
231 
-        '
232 339 
         '會議內容_tb
233 340 
         '
234 341 
         Me.會議內容_tb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
235 342 
             Or System.Windows.Forms.AnchorStyles.Left) _
236 343 
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
237 344 
         Me.會議內容_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
238 
-        Me.會議內容_tb.Location = New System.Drawing.Point(5, 120)
345 
+        Me.會議內容_tb.Location = New System.Drawing.Point(5, 122)
239 346 
         Me.會議內容_tb.Multiline = True
240 347 
         Me.會議內容_tb.Name = "會議內容_tb"
241 
-        Me.會議內容_tb.Size = New System.Drawing.Size(542, 320)
348 
+        Me.會議內容_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
349 
+        Me.會議內容_tb.Size = New System.Drawing.Size(541, 320)
242 350 
         Me.會議內容_tb.TabIndex = 1894
243 351 
         '
244 352 
         '會議存檔_bt
245 353 
         '
246 
-        Me.會議存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
247 354 
         Me.會議存檔_bt.BackgroundImage = Global.YS_ERP_SYS.My.Resources.Resources.SAVER2
248 355 
         Me.會議存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
249 356 
         Me.會議存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
 
@@ -266,7 +373,7 @@ Partial Class 客戶資料表
266 373 
         'Label16
267 374 
         '
268 375 
         Me.Label16.AutoSize = True
269 
-        Me.Label16.Location = New System.Drawing.Point(152, 81)
376 
+        Me.Label16.Location = New System.Drawing.Point(161, 81)
270 377 
         Me.Label16.Name = "Label16"
271 378 
         Me.Label16.Size = New System.Drawing.Size(55, 16)
272 379 
         Me.Label16.TabIndex = 1891
 
@@ -274,21 +381,18 @@ Partial Class 客戶資料表
274 381 
         '
275 382 
         'Label17
276 383 
         '
277 
-        Me.Label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
278 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
279 384 
         Me.Label17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
280 385 
         Me.Label17.Location = New System.Drawing.Point(5, 102)
281 386 
         Me.Label17.Name = "Label17"
282 
-        Me.Label17.Size = New System.Drawing.Size(542, 19)
387 
+        Me.Label17.Size = New System.Drawing.Size(541, 19)
283 388 
         Me.Label17.TabIndex = 1893
284 389 
         Me.Label17.Text = "會議內容"
285 390 
         Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
286 391 
         '
287 392 
         'Label14
288 393 
         '
289 
-        Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
290 394 
         Me.Label14.AutoSize = True
291 
-        Me.Label14.Location = New System.Drawing.Point(3, 57)
395 
+        Me.Label14.Location = New System.Drawing.Point(163, 57)
292 396 
         Me.Label14.Name = "Label14"
293 397 
         Me.Label14.Size = New System.Drawing.Size(55, 16)
294 398 
         Me.Label14.TabIndex = 1887
 
@@ -296,23 +400,19 @@ Partial Class 客戶資料表
296 400 
         '
297 401 
         '出席人員_tb
298 402 
         '
299 
-        Me.出席人員_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
300 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
301 403 
         Me.出席人員_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
302 
-        Me.出席人員_tb.Location = New System.Drawing.Point(209, 77)
404 
+        Me.出席人員_tb.Location = New System.Drawing.Point(219, 77)
303 405 
         Me.出席人員_tb.Name = "出席人員_tb"
304 
-        Me.出席人員_tb.Size = New System.Drawing.Size(338, 23)
406 
+        Me.出席人員_tb.Size = New System.Drawing.Size(327, 23)
305 407 
         Me.出席人員_tb.TabIndex = 1892
306 408 
         '
307 409 
         '會議時間_dtp
308 410 
         '
309 
-        Me.會議時間_dtp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
310 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
311 411 
         Me.會議時間_dtp.CustomFormat = "yyyy/MM/dd"
312 412 
         Me.會議時間_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
313 413 
         Me.會議時間_dtp.Location = New System.Drawing.Point(59, 78)
314 414 
         Me.會議時間_dtp.Name = "會議時間_dtp"
315 
-        Me.會議時間_dtp.Size = New System.Drawing.Size(90, 23)
415 
+        Me.會議時間_dtp.Size = New System.Drawing.Size(94, 23)
316 416 
         Me.會議時間_dtp.TabIndex = 1890
317 417 
         '
318 418 
         'Label15
 
@@ -324,6 +424,15 @@ Partial Class 客戶資料表
324 424 
         Me.Label15.TabIndex = 1889
325 425 
         Me.Label15.Text = "會議時間"
326 426 
         '
427 
+        '會議名稱_tb
428 
+        '
429 
+        Me.會議名稱_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
430 
+        Me.會議名稱_tb.Location = New System.Drawing.Point(59, 1)
431 
+        Me.會議名稱_tb.Multiline = True
432 
+        Me.會議名稱_tb.Name = "會議名稱_tb"
433 
+        Me.會議名稱_tb.Size = New System.Drawing.Size(381, 50)
434 
+        Me.會議名稱_tb.TabIndex = 1886
435 
+        '
327 436 
         'Label28
328 437 
         '
329 438 
         Me.Label28.AutoSize = True
 
@@ -339,7 +448,7 @@ Partial Class 客戶資料表
339 448 
         Me.CanceL2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
340 449 
         Me.CanceL2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
341 450 
         Me.CanceL2_bt.ForeColor = System.Drawing.Color.Black
342 
-        Me.CanceL2_bt.Location = New System.Drawing.Point(529, 2)
451 
+        Me.CanceL2_bt.Location = New System.Drawing.Point(949, 2)
343 452 
         Me.CanceL2_bt.Name = "CanceL2_bt"
344 453 
         Me.CanceL2_bt.Size = New System.Drawing.Size(26, 26)
345 454 
         Me.CanceL2_bt.TabIndex = 1374
 
@@ -400,19 +509,19 @@ Partial Class 客戶資料表
400 509 
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
401 510 
         Me.附件_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
402 511 
         Me.附件_dgv.BackgroundColor = System.Drawing.Color.White
403 
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
404 
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
405 
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
406 
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
407 
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
408 
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
409 
-        Me.附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
512 
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
513 
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
514 
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
515 
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
516 
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
517 
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
518 
+        Me.附件_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
410 519 
         Me.附件_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
411 520 
         Me.附件_dgv.Location = New System.Drawing.Point(-1, 34)
412 521 
         Me.附件_dgv.Name = "附件_dgv"
413 522 
         Me.附件_dgv.RowHeadersWidth = 5
414 
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
415 
-        Me.附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
523 
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
524 
+        Me.附件_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
416 525 
         Me.附件_dgv.RowTemplate.Height = 24
417 526 
         Me.附件_dgv.Size = New System.Drawing.Size(141, 101)
418 527 
         Me.附件_dgv.TabIndex = 1882
 
@@ -703,21 +812,21 @@ Partial Class 客戶資料表
703 812 
         Me.訪談紀錄_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
704 813 
         Me.訪談紀錄_dgv.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
705 814 
         Me.訪談紀錄_dgv.BackgroundColor = System.Drawing.Color.White
706 
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
707 
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
708 
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
709 
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
710 
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
711 
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
712 
-        Me.訪談紀錄_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
815 
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
816 
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
817 
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
818 
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
819 
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
820 
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
821 
+        Me.訪談紀錄_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
713 822 
         Me.訪談紀錄_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
714 823 
         Me.訪談紀錄_dgv.Location = New System.Drawing.Point(458, 2)
715 824 
         Me.訪談紀錄_dgv.Name = "訪談紀錄_dgv"
716 825 
         Me.訪談紀錄_dgv.RowHeadersWidth = 5
717 
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
718 
-        Me.訪談紀錄_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
826 
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
827 
+        Me.訪談紀錄_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
719 828 
         Me.訪談紀錄_dgv.RowTemplate.Height = 24
720 
-        Me.訪談紀錄_dgv.Size = New System.Drawing.Size(763, 590)
829 
+        Me.訪談紀錄_dgv.Size = New System.Drawing.Size(763, 372)
721 830 
         Me.訪談紀錄_dgv.TabIndex = 1882
722 831 
         '
723 832 
         '清單1_dgv
 
@@ -726,19 +835,19 @@ Partial Class 客戶資料表
726 835 
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
727 836 
         Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
728 837 
         Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White
729 
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
730 
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
731 
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
732 
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
733 
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
734 
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
735 
-        Me.清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
838 
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
839 
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
840 
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
841 
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
842 
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
843 
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
844 
+        Me.清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
736 845 
         Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
737 846 
         Me.清單1_dgv.Location = New System.Drawing.Point(0, 50)
738 847 
         Me.清單1_dgv.Name = "清單1_dgv"
739 848 
         Me.清單1_dgv.RowHeadersWidth = 5
740 
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
741 
-        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
849 
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
850 
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
742 851 
         Me.清單1_dgv.RowTemplate.Height = 24
743 852 
         Me.清單1_dgv.Size = New System.Drawing.Size(171, 594)
744 853 
         Me.清單1_dgv.TabIndex = 1881
 
@@ -1015,6 +1124,32 @@ Partial Class 客戶資料表
1015 1124 
         '計算分流1
1016 1125 
         '
1017 1126 
         '
1127 
+        '計算分流2
1128 
+        '
1129 
+        '
1130 
+        '承租_dgv
1131 
+        '
1132 
+        Me.承租_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
1133 
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
1134 
+        Me.承租_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
1135 
+        Me.承租_dgv.BackgroundColor = System.Drawing.Color.White
1136 
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
1137 
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
1138 
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
1139 
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
1140 
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
1141 
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
1142 
+        Me.承租_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
1143 
+        Me.承租_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
1144 
+        Me.承租_dgv.Location = New System.Drawing.Point(458, 373)
1145 
+        Me.承租_dgv.Name = "承租_dgv"
1146 
+        Me.承租_dgv.RowHeadersWidth = 5
1147 
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
1148 
+        Me.承租_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
1149 
+        Me.承租_dgv.RowTemplate.Height = 24
1150 
+        Me.承租_dgv.Size = New System.Drawing.Size(763, 219)
1151 
+        Me.承租_dgv.TabIndex = 1900
1152 
+        '
1018 1153 
         '客戶資料表
1019 1154 
         '
1020 1155 
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
 
@@ -1035,6 +1170,9 @@ Partial Class 客戶資料表
1035 1170 
         Me.視窗2_pl.PerformLayout()
1036 1171 
         Me.Panel7.ResumeLayout(False)
1037 1172 
         Me.Panel7.PerformLayout()
1173 
+        CType(Me.字體大小_nud, System.ComponentModel.ISupportInitialize).EndInit()
1174 
+        CType(Me.會議附件_dgv, System.ComponentModel.ISupportInitialize).EndInit()
1175 
+        CType(Me.會議附件_pb, System.ComponentModel.ISupportInitialize).EndInit()
1038 1176 
         Me.Panel2.ResumeLayout(False)
1039 1177 
         CType(Me.附件_dgv, System.ComponentModel.ISupportInitialize).EndInit()
1040 1178 
         CType(Me.附件_pb, System.ComponentModel.ISupportInitialize).EndInit()
 
@@ -1050,6 +1188,7 @@ Partial Class 客戶資料表
1050 1188 
         Me.Panel4.PerformLayout()
1051 1189 
         Me.Panel5.ResumeLayout(False)
1052 1190 
         Me.Panel5.PerformLayout()
1191 
+        CType(Me.承租_dgv, System.ComponentModel.ISupportInitialize).EndInit()
1053 1192 
         Me.ResumeLayout(False)
1054 1193
1055 1194 
     End Sub
 
@@ -1134,4 +1273,13 @@ Partial Class 客戶資料表
1134 1273 
     Friend WithEvents CanceL2_bt As Button
1135 1274 
     Friend WithEvents Panel2 As Panel
1136 1275 
     Friend WithEvents 會議記錄_bt As Button
1276 
+    Friend WithEvents 字體大小_lb As Label
1277 
+    Friend WithEvents 字體大小_nud As NumericUpDown
1278 
+    Friend WithEvents 會議附件_dgv As DataGridView
1279 
+    Friend WithEvents 讀取資料夾路徑1_bt As Button
1280 
+    Friend WithEvents 會議附件_pb As PictureBox
1281 
+    Friend WithEvents 刪除附件1_bt As Button
1282 
+    Friend WithEvents 計算分流2 As Timer
1283 
+    Friend WithEvents 附件編碼1_lb As Label
1284 
+    Friend WithEvents 承租_dgv As DataGridView
1137 1285 
 End Class

+ 3
- 0
YS-ERP-SYS/01、客戶系統管理/客戶資料表.resx Wyświetl plik 

@@ -126,6 +126,9 @@
126 126 
   <metadata name="計算分流1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
127 127 
     <value>382, 9</value>
128 128 
   </metadata>
129 
+  <metadata name="計算分流2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
130 
+    <value>475, 9</value>
131 
+  </metadata>
129 132 
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
130 133 
     <value>38</value>
131 134 
   </metadata>

+ 95
- 13
YS-ERP-SYS/01、客戶系統管理/客戶資料表.vb Wyświetl plik 

@@ -13,6 +13,18 @@ Public Class 客戶資料表
13 13 
         For i As Integer = 0 To 附件_dgv.Rows.Count - 1 : 附件_dgv.Rows(i).Cells(1).Value = "附件-" & i + 1 : Next
14 14 
         If 附件_dgv.Rows.Count > 0 Then : DGVX = 0 : 附件編碼_lb.Text = 附件_dgv.Rows(0).Cells(0).Value.ToString : 圖片清單讀取() : End If
15 15 
     End Sub
16 
+    Private Sub 計算分流2_Tick(sender As Object, e As EventArgs) Handles 計算分流2.Tick
17 
+        計算分流2.Enabled = False
18 
+        Dim ds1 As New DataSet
19 
+        會議附件_dgv.DataSource = Nothing : ds1.Clear()
20 
+        會議附件_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
21 
+        會議附件_dgv.ColumnHeadersHeight = 25 : 會議附件_dgv.AllowUserToAddRows = False : 會議附件_dgv.RowTemplate.Height = 25
22 
+        SQL_連線字串_圖片資料庫() : SQL_客戶會議附件()
23 
+        da.Fill(ds1) : 會議附件_dgv.DataSource = ds1.Tables(0) : conn.Close()
24 
+        會議附件_dgv.Columns(0).Visible = False : 會議附件_dgv.Columns(1).ReadOnly = True
25 
+        For i As Integer = 0 To 會議附件_dgv.Rows.Count - 1 : 會議附件_dgv.Rows(i).Cells(1).Value = "附件-" & i + 1 : Next
26 
+        If 會議附件_dgv.Rows.Count > 0 Then : DGVX = 0 : 附件編碼1_lb.Text = 會議附件_dgv.Rows(0).Cells(0).Value.ToString : 圖片清單讀取1() : End If
27 
+    End Sub
16 28 
     Private Sub Set_客戶清單()
17 29 
         Dim ds1 As New DataSet
18 30 
         清單1_dgv.DataSource = Nothing : ds1.Clear()
 
@@ -31,9 +43,27 @@ Public Class 客戶資料表
31 43 
         PA40 = 關鍵字_tb.Text : PA41 = 分類1_cb.Text : SQL_客戶訪談表讀取()
32 44 
         da.Fill(ds1) : 訪談紀錄_dgv.DataSource = ds1.Tables(0) : conn.Close()
33 45 
         訪談紀錄_dgv.Columns(0).Visible = False : 訪談紀錄_dgv.Columns(1).FillWeight = 40 : 訪談紀錄_dgv.Columns(2).FillWeight = 40 : 訪談紀錄_dgv.Columns(3).FillWeight = 130
34 
-        訪談紀錄_dgv.Columns(1).ReadOnly = True
46 
+        訪談紀錄_dgv.Columns(1).ReadOnly = True : 訪談紀錄_dgv.Columns(10).FillWeight = 20
35 47 
         訪談紀錄_dgv.EditMode = DataGridViewEditMode.EditOnEnter
36 
-        For i As Integer = 4 To 8 : 訪談紀錄_dgv.Columns(i).Visible = False : Next
48 
+        For i As Integer = 5 To 9 : 訪談紀錄_dgv.Columns(i).Visible = False : Next
49 
+        訪談紀錄_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
50 
+        For i As Integer = 0 To 訪談紀錄_dgv.Rows.Count - 1
51 
+            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
52 
+        Next
53 
+    End Sub
54 
+    Private Sub Set_承租清單()
55 
+        Dim ds1 As New DataSet
56 
+        承租_dgv.DataSource = Nothing : ds1.Clear()
57 
+        承租_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
58 
+        承租_dgv.ColumnHeadersHeight = 25 : 承租_dgv.AllowUserToAddRows = False : 承租_dgv.RowTemplate.Height = 60
59 
+        SQL_客戶承租表讀取()
60 
+        da.Fill(ds1) : 承租_dgv.DataSource = ds1.Tables(0) : conn.Close()
61 
+        承租_dgv.Columns("租金").DefaultCellStyle.Format = "#,##0" : 承租_dgv.Columns("租期結束").Visible = False
62 
+        承租_dgv.Columns("租金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
63 
+        For I As Integer = 0 To 7 : 承租_dgv.Columns(I).ReadOnly = True : Next
64 
+        For I As Integer = 0 To 承租_dgv.Rows.Count - 1
65 
+            承租_dgv.Rows(I).Cells("租期").Value = 承租_dgv.Rows(I).Cells("租期").Value.ToString & " - " & 承租_dgv.Rows(I).Cells("租期結束").Value.ToString
66 
+        Next
37 67 
     End Sub
38 68 
     Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
39 69 
         ToolTip1.SetToolTip(Me.新增_bt, "新建客戶資料")
 
@@ -70,7 +100,7 @@ Public Class 客戶資料表
70 100 
     End Sub
71 101 
     Private Sub 客戶資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
72 102 
         Me.MdiParent = YS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
73 
-        Panel6.SendToBack() : 客戶名稱_tb.ReadOnly = True : 附件編碼_lb.Text = "" : 視窗2_pl.Visible = False
103 
+        Panel6.SendToBack() : 客戶名稱_tb.ReadOnly = True : 附件編碼_lb.Text = "" : 附件編碼1_lb.Text = "" : 視窗2_pl.Visible = False
74 104 
         清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 訪談紀錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 10)
75 105 
     End Sub
76 106 
     Private Sub 客戶資料表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
 
@@ -98,7 +128,8 @@ Public Class 客戶資料表
98 128 
             客需_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客需").Value.ToString : 圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("文件伺服器").Value.ToString
99 129 
             製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("訪談編號").Value.ToString : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = ""
100 130 
             會議地點_tb.Text = "" : 會議內容_tb.Text = "" : 會議時間_dtp.Value = Today() : 出席人員_tb.Text = "" : 附件_pb.Image = Nothing : 附件編碼_lb.Text = ""
101 
-            Set_訪談清單() : 計算分流1.Enabled = True ': Set_附件清單()
131 
+            附件編碼1_lb.Text = "" : 會議附件_pb.Image = Nothing
132 
+            Set_訪談清單() : Set_承租清單() : 計算分流1.Enabled = True ': Set_附件清單()
102 133 
         End If
103 134 
     End Sub
104 135 
     Private Sub 訪談紀錄_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 訪談紀錄_dgv.CellClick
 
@@ -106,7 +137,7 @@ Public Class 客戶資料表
106 137 
             訪談編號_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : 會議名稱_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議名稱").Value.ToString
107 138 
             會議地點_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議地點").Value.ToString : 會議內容_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議內容").Value.ToString
108 139 
             If 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議時間").Value.ToString <> "" Then : 會議時間_dtp.Value = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("會議時間").Value.ToString : End If
109 
-            出席人員_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("出席人員").Value.ToString
140 
+            出席人員_tb.Text = 訪談紀錄_dgv.Rows(e.RowIndex).Cells("出席人員").Value.ToString : 計算分流2.Enabled = True : 會議附件_pb.Image = Nothing
110 141 
         End If
111 142 
     End Sub
112 143 
     Private Sub 附件_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 附件_dgv.CellClick
 
@@ -122,6 +153,19 @@ Public Class 客戶資料表
122 153 
             附件_pb.Image = Bitmap.FromStream(oStream)
123 154 
         End While : conn.Close() : 附件_pb.SizeMode = 4
124 155 
     End Sub
156 
+    Private Sub 會議附件_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會議附件_dgv.CellClick
157 
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取1() : End If
158 
+    End Sub
159 
+    Private Sub 圖片清單讀取1()
160 
+        附件編碼1_lb.Text = 會議附件_dgv.Rows(DGVX).Cells(0).Value.ToString : PA2 = 會議附件_dgv.Rows(DGVX).Cells(0).Value.ToString
161 
+        SQL_連線字串_圖片資料庫() : SQL_客戶會議附件讀取()
162 
+        While dr.Read() = True
163 
+            Dim unused As Byte() = New Byte(-1) {}
164 
+            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
165 
+            Dim oStream As New MemoryStream(bytes)
166 
+            會議附件_pb.Image = Bitmap.FromStream(oStream)
167 
+        End While : conn.Close() : 會議附件_pb.SizeMode = 4
168 
+    End Sub
125 169 
     Private Sub 關鍵字_tb_KeyDown(sender As Object, e As KeyEventArgs) Handles 關鍵字_tb.KeyDown
126 170 
         If e.KeyCode = Keys.Enter Then : Set_客戶清單() : End If
127 171 
     End Sub
 
@@ -138,10 +182,10 @@ Public Class 客戶資料表
138 182 
         If NUM0 < 10 Then : 流水號_tb.Text = "WP-" & DTP1 & "-00" & NUM0
139 183 
         ElseIf NUM0 > 9 And NUM0 < 100 Then : 流水號_tb.Text = "WP-" & DTP1 & "-0" & NUM0
140 184 
         ElseIf NUM0 > 99 Then : 流水號_tb.Text = "WP-" & DTP1 & "-" & NUM0
141 
-        End If : 客戶名稱_tb.ReadOnly = False : 會議存檔_bt.Enabled = False : 訪談紀錄_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
185 
+        End If : 客戶名稱_tb.ReadOnly = False : 會議存檔_bt.Enabled = False : 訪談紀錄_dgv.DataSource = Nothing : 附件_pb.Image = Nothing : 會議附件_pb.Image = Nothing
142 186 
         客戶名稱_tb.Text = "" : 分類2_cb.Text = "" : 電話_tb.Text = "" : 傳真_tb.Text = "" : 地址_tb.Text = "" : 姓名_tb.Text = "" : 職務_tb.Text = ""
143 187 
         聯繫方式_tb.Text = "" : 來源_tb.Text = "" : 簽約_tb.Text = "" : 客需_tb.Text = "" : 負責區域_tb.Text = "" : 清單1_dgv.Enabled = False : 訪談編號_tb.Text = ""
144 
-        製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 附件_dgv.DataSource = Nothing
188 
+        製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 附件_dgv.DataSource = Nothing : 會議附件_dgv.DataSource = Nothing
145 189 
         會議地點_tb.Text = "" : 會議內容_tb.Text = "" : 會議時間_dtp.Value = Today() : 出席人員_tb.Text = "" : 附件編碼_lb.Text = ""
146 190 
         SQL_資料庫選擇() : If dr.Read() Then : 圖片庫 = dr("文件資料庫").ToString : Else : MsgBox("圖片資料庫已滿，請找系統管理員!!") : Me.Close() : End If
147 191 
         SQL_客戶資料表新增()
 
@@ -205,7 +249,7 @@ Public Class 客戶資料表
205 249 
                         客戶名稱_tb.Text = "" : 分類2_cb.Text = "" : 電話_tb.Text = "" : 傳真_tb.Text = "" : 地址_tb.Text = "" : 姓名_tb.Text = "" : 職務_tb.Text = ""
206 250 
                         聯繫方式_tb.Text = "" : 來源_tb.Text = "" : 簽約_tb.Text = "" : 客需_tb.Text = "" : 負責區域_tb.Text = "" : 訪談編號_tb.Text = "" : 附件_pb.Image = Nothing
207 251 
                         製錶_tb.Text = gUserName : 訪談編號_tb.Text = "" : 訪談編號_tb.Text = "" : 會議名稱_tb.Text = "" : 流水號_tb.Text = "" : 出席人員_tb.Text = ""
208 
-                        附件編碼_lb.Text = ""
252 
+                        附件編碼_lb.Text = "" : 會議附件_pb.Image = Nothing : 會議附件_dgv.DataSource = Nothing
209 253 
                     End If
210 254 
                 End If
211 255 
             Else
 
@@ -229,7 +273,6 @@ Public Class 客戶資料表
229 273 
                     ElseIf NUM0 > 9 And NUM0 < 100 Then : 附件流水 = "IM-" & DTP1 & "-0" & NUM0
230 274 
                     ElseIf NUM0 > 99 Then : 附件流水 = "IM-" & DTP1 & "-" & NUM0
231 275 
                     End If : PA1 = 附件流水 : PA49 = 開啟檔案.FileName : SQL_會議圖片入系統()
232 
-                    'Set_附件清單() : MsgBox("附件導入系統完成!!")
233 276 
                     計算分流1.Enabled = True : MsgBox("附件導入系統完成!!")
234 277 
                 Catch ex As Exception
235 278 
                     MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
@@ -245,15 +288,54 @@ Public Class 客戶資料表
245 288 
             End If
246 289 
         End If
247 290 
     End Sub
291 
+    Private Sub 讀取資料夾路徑1_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑1_bt.Click
292 
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇訪談資料，才能繼續後續的操作!!") : Else
293 
+            開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"
294 
+            開啟檔案.Title = "選擇圖片文件"
295 
+            開啟檔案.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
296 
+            If 開啟檔案.ShowDialog() = DialogResult.OK Then
297 
+                Try
298 
+                    會議附件_pb.Image = Image.FromFile(開啟檔案.FileName) : 會議附件_pb.SizeMode = 4
299 
+
300 
+                    Dim NUM0 As Integer : DTP1 = Format(Today(), "yyyyMMdd") : Dim 附件流水 As String = ""
301 
+                    SQL_連線字串_圖片資料庫() : SQL_客戶會議附件流水驗證() : If dr.Read Then : NUM0 = Strings.Right(dr("流水號").ToString, 3) : Else : NUM0 = 0 : End If
302 
+                    NUM0 += 1
303 
+                    If NUM0 < 10 Then : 附件流水 = "IM-" & DTP1 & "-00" & NUM0
304 
+                    ElseIf NUM0 > 9 And NUM0 < 100 Then : 附件流水 = "IM-" & DTP1 & "-0" & NUM0
305 
+                    ElseIf NUM0 > 99 Then : 附件流水 = "IM-" & DTP1 & "-" & NUM0
306 
+                    End If : PA1 = 附件流水 : PA49 = 開啟檔案.FileName : SQL_會議附件圖片入系統()
307 
+                    計算分流2.Enabled = True : MsgBox("附件導入系統完成!!")
308 
+                Catch ex As Exception
309 
+                    MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
310 
+                End Try
311 
+            End If
312 
+        End If
313 
+    End Sub
314 
+    Private Sub 刪除附件1_bt_Click(sender As Object, e As EventArgs) Handles 刪除附件1_bt.Click
315 
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇訪談資料，才能繼續後續的操作!!") : Else
316 
+            If 附件編碼1_lb.Text = "" Then : MsgBox("請先選擇附件!!") : Else
317 
+                SQL_連線字串_圖片資料庫() : SQL_客戶會議附件刪除() ': Set_附件清單() : MsgBox("刪除完成!!")
318 
+                計算分流2.Enabled = True : MsgBox("刪除完成!!")
319 
+            End If
320 
+        End If
321 
+    End Sub
248 322 
     Private Sub 會議記錄_bt_Click(sender As Object, e As EventArgs) Handles 會議記錄_bt.Click
249 
-        If 視窗2_pl.Visible = False Then
250 
-            視窗2_pl.Location = New System.Drawing.Point((Panel1.Size.Width - 視窗2_pl.Size.Width) / 2, (Panel1.Size.Height - 視窗2_pl.Size.Height) / 2)
251 
-            視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
252 
-        Else : End If
323 
+        If 訪談編號_tb.Text = "" Then : MsgBox("請先選擇 [訪談記錄] 才可以打開 [會議紀錄] !!") : Else
324 
+            If 視窗2_pl.Visible = False Then
325 
+                視窗2_pl.Location = New System.Drawing.Point((Panel1.Size.Width - 視窗2_pl.Size.Width) / 2, (Panel1.Size.Height - 視窗2_pl.Size.Height) / 2)
326 
+                視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
327 
+            Else : End If
328 
+        End If
253 329 
     End Sub
254 330 
     Private Sub 附件_pb_Click(sender As Object, e As EventArgs) Handles 附件_pb.Click
255 331 
         If 附件_pb.Image IsNot Nothing Then : 圖片傳遞 = 附件_pb.Image : 圖片放大視窗.ShowDialog() : End If
256 332 
     End Sub
333 
+    Private Sub 會議附件_pb_Click(sender As Object, e As EventArgs) Handles 會議附件_pb.Click
334 
+        If 會議附件_pb.Image IsNot Nothing Then : 圖片傳遞 = 會議附件_pb.Image : 圖片放大視窗.ShowDialog() : End If
335 
+    End Sub
336 
+    Private Sub 字體大小_nud_ValueChanged(sender As Object, e As EventArgs) Handles 字體大小_nud.ValueChanged
337 
+        會議內容_tb.Font = New Font("微軟正黑體", 字體大小_nud.Value)
338 
+    End Sub
257 339 
     Private Sub 列印客戶資料表_bt_Click(sender As Object, e As EventArgs) Handles 列印客戶資料表_bt.Click
258 340 
         MsgBox("功能開發中!!")
259 341 
     End Sub

+ 1080
- 997
YS-ERP-SYS/02、案件系統管理/案件摘要表.Designer.vb
Plik diff jest za duży
Wyświetl plik


+ 128
- 46
YS-ERP-SYS/02、案件系統管理/案件摘要表.vb Wyświetl plik 

@@ -53,10 +53,11 @@ Public Class 案件摘要表
53 53 
         土地_dgv.ColumnHeadersHeight = 25 : 土地_dgv.AllowUserToAddRows = False : 土地_dgv.RowTemplate.Height = 25
54 54 
         SQL_案件土地清單()
55 55 
         da.Fill(ds1) : 土地_dgv.DataSource = ds1.Tables(0) : conn.Close()
56 
-        土地_dgv.Columns(0).Visible = False : 土地_dgv.Columns(1).Visible = False : 土地_dgv.Columns(4).ReadOnly = True
56 
+        土地_dgv.Columns(0).Visible = False : 土地_dgv.Columns(1).Visible = False : 土地_dgv.Columns(5).ReadOnly = True
57 57 
         土地_dgv.EditMode = DataGridViewEditMode.EditOnEnter
58 58 
         土地_dgv.Columns("土地面積(平米)").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
59 59 
         土地_dgv.Columns("坪數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
60 
+        For i As Integer = 6 To 17 : 土地_dgv.Columns(i).Visible = False : Next
60 61 
         土地計算()
61 62 
     End Sub
62 63 
     Private Sub Set_區塊清單()
 
@@ -86,6 +87,16 @@ Public Class 案件摘要表
86 87 
             承租_dgv.Rows(i).Cells("承租").Value = 承租_dgv.Rows(i).Cells("建坪編號").Value.ToString & "-" & 承租_dgv.Rows(i).Cells("客戶名稱").Value.ToString
87 88 
         Next
88 89 
     End Sub
90 
+    Private Sub Set_太陽清單()
91 
+        Dim ds1 As New DataSet
92 
+        太陽_dgv.DataSource = Nothing : ds1.Clear()
93 
+        太陽_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
94 
+        太陽_dgv.ColumnHeadersHeight = 25 : 太陽_dgv.AllowUserToAddRows = False : 太陽_dgv.RowTemplate.Height = 25
95 
+        SQL_案件太陽讀取()
96 
+        da.Fill(ds1) : 太陽_dgv.DataSource = ds1.Tables(0) : conn.Close()
97 
+        For i As Integer = 0 To 6 : 太陽_dgv.Columns(i).Visible = False : Next : 太陽_dgv.Columns(1).Visible = True : 太陽_dgv.Columns(1).ReadOnly = True
98 
+        For i As Integer = 0 To 太陽_dgv.Rows.Count - 1 : 太陽_dgv.Rows(i).Cells(1).Value = "檔案-" & i + 1 : Next
99 
+    End Sub
89 100 
     Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
90 101 
         ToolTip1.SetToolTip(Me.新增_bt, "新建案件摘要表")
91 102 
     End Sub
 
@@ -160,52 +171,100 @@ Public Class 案件摘要表
160 171 
     End Sub
161 172 
     Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
162 173 
         If e.RowIndex = -1 Then : Else
163 
-            SQL_案件類別() : 用途_cb.Items.Clear() : 用途_cb.Items.Add("") : While (dr.Read()) : 用途_cb.Items.Add(dr("使用用途")) : End While : conn.Close()
164 174 
             流水號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("單據編號").Value.ToString : 地址_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("地址/地號").Value.ToString
165 
-            地主_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("地主").Value.ToString : 聯絡人_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("聯絡人").Value.ToString
166 
-            用途_cb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("使用用途").Value.ToString : 土地租期_nup.Text = 清單1_dgv.Rows(e.RowIndex).Cells("土地租期").Value.ToString
167 
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期開始_dtp.CustomFormat = " " : Else
168 
-                租期開始_dtp.CustomFormat = "yyyy/MM/dd" : 租期開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 10)
175 
+            聯絡人_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("聯絡人").Value.ToString : 製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("製錶").Value.ToString
176 
+
177 
+
178 
+            圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("圖片庫").Value.ToString
179 
+            建坪編號_tb.Text = "" : 土地編號_tb.Text = "" : 承租編號_tb.Text = "" : 附件編碼1_lb.Text = "" : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
180 
+            承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
181 
+            聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
182 
+            租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
183 
+            租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
184 
+            附件1_pb.Image = Nothing : Set_土地清單() : Set_區塊清單() : 計算分流1.Enabled = True : Set_承租清單() : Set_太陽清單()
185 
+            If 土地_dgv.Rows.Count > 0 Then : DGVX = 0 : 土地_dgv點擊() : Else
186 
+                用途_cb.Text = "" : 備註_tb.Text = "" : 土地租期_nup.Value = 0 : 租期開始_dtp.CustomFormat = " " : 租期結束_dtp.CustomFormat = " "
187 
+                土地租金_nud.Value = 0 : 月坪租金_nud.Value = 0 : 保證月_nud.Value = 0 : 保證金_nud.Value = 0 : 免租_nud.Value = 0 : 地主_tb.Text = ""
188 
+                免租開始_dtp.CustomFormat = " " : 免租結束_dtp.CustomFormat = " " : 執照_dtp.CustomFormat = " " : 建照_dtp.CustomFormat = " "
189 
+            End If
190 
+            If 太陽_dgv.Rows.Count > 0 Then : DGVX = 0 : 太陽_dgv點擊() : Else
191 
+                太_出租_tb.Text = "" : 太_承租_tb.Text = "" : KW數_tb.Text = "" : 太陽開始_dtp.CustomFormat = " " : 太陽結束_dtp.CustomFormat = " "
192 
+                太_租金比_tb.Text = ""
193 
+            End If
194 
+        End If
195 
+    End Sub
196 
+    Private Sub 太陽_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 太陽_dgv.CellClick
197 
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 太陽_dgv點擊() : End If
198 
+    End Sub
199 
+    Private Sub 太陽_dgv點擊()
200 
+        綠能編號_tb.Text = 太陽_dgv.Rows(DGVX).Cells("流水號").Value.ToString
201 
+        太_出租_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_出租人").Value.ToString : 太_承租_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_承租人").Value.ToString
202 
+        KW數_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_KW數").Value.ToString : 太_租金比_tb.Text = 太陽_dgv.Rows(DGVX).Cells("太陽_租金%").Value.ToString
203 
+        If 太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString = "" Then : 太陽開始_dtp.CustomFormat = " " : Else
204 
+            If Strings.Left(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽開始_dtp.CustomFormat = " " : Else
205 
+                太陽開始_dtp.CustomFormat = "yyyy/MM/dd" : 太陽開始_dtp.Value = Strings.Left(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 10)
169 206 
             End If
170 
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期結束_dtp.CustomFormat = " " : Else
171 
-                租期結束_dtp.CustomFormat = "yyyy/MM/dd" : 租期結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("租期備註").Value.ToString, 10)
207 
+        End If
208 
+        If 太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString = "" Then : 太陽結束_dtp.CustomFormat = " " : Else
209 
+            If Strings.Right(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽結束_dtp.CustomFormat = " " : Else
210 
+                太陽結束_dtp.CustomFormat = "yyyy/MM/dd" : 太陽結束_dtp.Value = Strings.Right(太陽_dgv.Rows(DGVX).Cells("太陽_租期").Value.ToString, 10)
172 211 
             End If
173 
-            土地租金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("土地月租").Value.ToString : 月坪租金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("每坪月租").Value.ToString
174 
-            保證月_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("保證月").Value.ToString : 保證金_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("押金/保證金").Value.ToString
175 
-            免租_nud.Value = 清單1_dgv.Rows(e.RowIndex).Cells("免租興建期").Value.ToString
176 
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租開始_dtp.CustomFormat = " " : Else
177 
-                免租開始_dtp.CustomFormat = "yyyy/MM/dd" : 免租開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 10)
212 
+        End If
213 
+    End Sub
214 
+    Private Sub 土地_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 土地_dgv.CellClick
215 
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 土地_dgv點擊() : End If
216 
+    End Sub
217 
+    Private Sub 土地_dgv點擊()
218 
+        土地編號_tb.Text = 土地_dgv.Rows(DGVX).Cells("流水號").Value.ToString : 地主_tb.Text = 土地_dgv.Rows(DGVX).Cells("地主").Value.ToString
219 
+        SQL_案件類別() : 用途_cb.Items.Clear() : 用途_cb.Items.Add("") : While (dr.Read()) : 用途_cb.Items.Add(dr("使用用途")) : End While : conn.Close()
220 
+        用途_cb.Text = 土地_dgv.Rows(DGVX).Cells("使用用途").Value.ToString : 備註_tb.Text = 土地_dgv.Rows(DGVX).Cells("備註").Value.ToString
221 
+        土地租期_nup.Text = 土地_dgv.Rows(DGVX).Cells("土地租期").Value.ToString
222 
+        If 土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString = "" Then : 租期開始_dtp.CustomFormat = " " : Else
223 
+            If Strings.Left(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期開始_dtp.CustomFormat = " " : Else
224 
+                租期開始_dtp.CustomFormat = "yyyy/MM/dd" : 租期開始_dtp.Value = Strings.Left(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 10)
178 225 
             End If
179 
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租結束_dtp.CustomFormat = " " : Else
180 
-                免租結束_dtp.CustomFormat = "yyyy/MM/dd" : 免租結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("建期備註").Value.ToString, 10)
226 
+        End If
227 
+        If 土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString = "" Then : 租期結束_dtp.CustomFormat = " " : Else
228 
+            If Strings.Right(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 5) = "  -  " Then : 租期結束_dtp.CustomFormat = " " : Else
229 
+                租期結束_dtp.CustomFormat = "yyyy/MM/dd" : 租期結束_dtp.Value = Strings.Right(土地_dgv.Rows(DGVX).Cells("租期備註").Value.ToString, 10)
181 230 
             End If
182 
-            If 清單1_dgv.Rows(e.RowIndex).Cells("取得使用執照日").Value.ToString = " " Then : 執照_dtp.CustomFormat = " " : Else
183 
-                執照_dtp.CustomFormat = "yyyy/MM/dd" : 執照_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("取得使用執照日").Value.ToString
231 
+        End If
232 
+        If 土地_dgv.Rows(DGVX).Cells("土地月租").Value.ToString = "" Then : 土地租金_nud.Value = 0 : Else
233 
+            土地租金_nud.Value = 土地_dgv.Rows(DGVX).Cells("土地月租").Value.ToString
234 
+        End If
235 
+        If 土地_dgv.Rows(DGVX).Cells("每坪月租").Value.ToString = "" Then : 月坪租金_nud.Value = 0 : Else
236 
+            月坪租金_nud.Value = 土地_dgv.Rows(DGVX).Cells("每坪月租").Value.ToString
237 
+        End If
238 
+        If 土地_dgv.Rows(DGVX).Cells("保證月").Value.ToString = "" Then : 保證月_nud.Value = 0 : Else
239 
+            保證月_nud.Value = 土地_dgv.Rows(DGVX).Cells("保證月").Value.ToString
240 
+        End If
241 
+        If 土地_dgv.Rows(DGVX).Cells("押金/保證金").Value.ToString = "" Then : 保證金_nud.Value = 0 : Else
242 
+            保證金_nud.Value = 土地_dgv.Rows(DGVX).Cells("押金/保證金").Value.ToString
243 
+        End If
244 
+        If 土地_dgv.Rows(DGVX).Cells("免租興建期").Value.ToString = "" Then : 免租_nud.Value = 0 : Else
245 
+            免租_nud.Value = 土地_dgv.Rows(DGVX).Cells("免租興建期").Value.ToString
246 
+        End If
247 
+        If 土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString = "" Then : 免租開始_dtp.CustomFormat = " " : Else
248 
+            If Strings.Left(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租開始_dtp.CustomFormat = " " : Else
249 
+                免租開始_dtp.CustomFormat = "yyyy/MM/dd" : 免租開始_dtp.Value = Strings.Left(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 10)
184 250 
             End If
185 
-            If 清單1_dgv.Rows(e.RowIndex).Cells("建照核准日").Value.ToString = " " Then : 建照_dtp.CustomFormat = " " : Else
186 
-                建照_dtp.CustomFormat = "yyyy/MM/dd" : 建照_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("建照核准日").Value.ToString
251 
+        End If
252 
+        If 土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString = "" Then : 免租結束_dtp.CustomFormat = " " : Else
253 
+            If Strings.Right(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 5) = "  -  " Then : 免租結束_dtp.CustomFormat = " " : Else
254 
+                免租結束_dtp.CustomFormat = "yyyy/MM/dd" : 免租結束_dtp.Value = Strings.Right(土地_dgv.Rows(DGVX).Cells("建期備註").Value.ToString, 10)
187 255 
             End If
188 
-            太_出租_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_出租人").Value.ToString : 太_承租_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_承租人").Value.ToString
189 
-            KW數_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_KW數").Value.ToString
190 
-            If Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽開始_dtp.CustomFormat = " " : Else
191 
-                太陽開始_dtp.CustomFormat = "yyyy/MM/dd" : 太陽開始_dtp.Value = Strings.Left(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 10)
256 
+        End If
257 
+        If 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString = "" Then : 執照_dtp.CustomFormat = " " : Else
258 
+            If 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString = " " Then : 執照_dtp.CustomFormat = " " : Else
259 
+                執照_dtp.CustomFormat = "yyyy/MM/dd" : 執照_dtp.Value = 土地_dgv.Rows(DGVX).Cells("取得使用執照日").Value.ToString
192 260 
             End If
193 
-            If Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 5) = "  -  " Then : 太陽結束_dtp.CustomFormat = " " : Else
194 
-                太陽結束_dtp.CustomFormat = "yyyy/MM/dd" : 太陽結束_dtp.Value = Strings.Right(清單1_dgv.Rows(e.RowIndex).Cells("太陽_租期").Value.ToString, 10)
261 
+        End If
262 
+        If 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString = "" Then : 建照_dtp.CustomFormat = " " : Else
263 
+            If 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString = " " Then : 建照_dtp.CustomFormat = " " : Else
264 
+                建照_dtp.CustomFormat = "yyyy/MM/dd" : 建照_dtp.Value = 土地_dgv.Rows(DGVX).Cells("建照核准日").Value.ToString
195 265 
             End If
196 
-            太_租金比_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("太陽_租金%").Value.ToString : 製錶_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("製錶").Value.ToString
197 
-            備註_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString : 圖片庫 = 清單1_dgv.Rows(e.RowIndex).Cells("圖片庫").Value.ToString
198 
-            建坪編號_tb.Text = "" : 土地編號_tb.Text = "" : 承租編號_tb.Text = "" : 附件編碼1_lb.Text = "" : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
199 
-            承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
200 
-            聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
201 
-            租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
202 
-            租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : 附件_pb.Image = Nothing
203 
-            附件1_pb.Image = Nothing : Set_土地清單() : Set_區塊清單() : 計算分流1.Enabled = True : Set_承租清單()
204 266 
         End If
205 267 
     End Sub
206 
-    Private Sub 土地_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 土地_dgv.CellClick
207 
-        If e.RowIndex = -1 Then : Else : 土地編號_tb.Text = 土地_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : End If
208 
-    End Sub
209 268 
     Private Sub 土地_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 土地_dgv.CellEndEdit
210 269 
         土地計算()
211 270 
     End Sub
 
@@ -328,15 +387,15 @@ Public Class 案件摘要表
328 387 
     Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
329 388 
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
330 389 
             If 地址_tb.Text = "" Then : MsgBox("[地址/地號] 不可以空白!!") : Else
331 
-                If 租期開始_dtp.Text = " " Or 租期結束_dtp.Text = " " Then : MsgBox("[土地租期] 不可以空白!!") : Else
332 
-                    If 製錶_tb.Text = "" Or 製錶_tb.Text = gUserName Then : 確認新增() : Else : If CC(14) = True Then : 確認新增() : End If : End If
333 
-                    土地存檔() : 建坪存檔() : SQL_建坪類別() : 區塊_cb.Items.Clear() : 區塊_cb.Items.Add("") : While (dr.Read()) : 區塊_cb.Items.Add(dr("建坪編號")) : End While : conn.Close()
334 
-                    地址_tb.ReadOnly = True : 清單1_dgv.Enabled = True : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
335 
-                    承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
336 
-                    聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
337 
-                    租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
338 
-                    租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing
339 
-                End If
390 
+                If 製錶_tb.Text = "" Or 製錶_tb.Text = gUserName Then : 確認新增() : Else : If CC(14) = True Then : 確認新增() : End If : End If
391 
+                土地存檔() : 建坪存檔() : SQL_案件摘要太陽修改()
392 
+
393 
+                SQL_建坪類別() : 區塊_cb.Items.Clear() : 區塊_cb.Items.Add("") : While (dr.Read()) : 區塊_cb.Items.Add(dr("建坪編號")) : End While : conn.Close()
394 
+                地址_tb.ReadOnly = True : 清單1_dgv.Enabled = True : 承租區塊編號_lb.Text = "" : 附件編碼_lb.Text = ""
395 
+                承租狀態_cb.Text = "" : 區塊_cb.Text = "" : 承租客_tb.Text = "" : 客戶流水_tb.Text = "" : 聯絡人1_tb.Text = "" : 電話1_tb.Text = ""
396 
+                聯絡人2_tb.Text = "" : 電話2_tb.Text = "" : 聯絡人3_tb.Text = "" : 電話3_tb.Text = "" : 開發窗口_tb.Text = "" : 店長_tb.Text = ""
397 
+                租期開始1_dtp.CustomFormat = " " : 租期結束1_dtp.CustomFormat = " " : 免租開始1_dtp.CustomFormat = " " : 免租結束1_dtp.CustomFormat = " "
398 
+                租金_nud.Value = 0 : 押金_nud.Value = 0 : 備註1_tb.Text = "" : 附件_dgv.DataSource = Nothing : Set_土地清單() : Set_太陽清單()
340 399 
             End If
341 400 
         End If
342 401 
     End Sub
 
@@ -348,8 +407,9 @@ Public Class 案件摘要表
348 407 
         For i As Integer = 0 To 土地_dgv.Rows.Count - 1
349 408 
             PA1 = 土地_dgv.Rows(i).Cells("面積編號").Value.ToString : PA2 = 土地_dgv.Rows(i).Cells("土地面積(平米)").Value.ToString
350 409 
             PA3 = 土地_dgv.Rows(i).Cells("坪數").Value.ToString : PA = 土地_dgv.Rows(i).Cells("流水號").Value.ToString
351 
-            SQL_案件土地修改()
410 
+            PA4 = 土地_dgv.Rows(i).Cells("地主").Value.ToString : SQL_案件土地修改()
352 411 
         Next
412 
+        If 土地編號_tb.Text <> "" Then : SQL_案件土地修改1() : End If
353 413 
     End Sub
354 414 
     Private Sub 土地新增_bt_Click(sender As Object, e As EventArgs) Handles 土地新增_bt.Click
355 415 
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
 
@@ -403,6 +463,28 @@ Public Class 案件摘要表
403 463 
             Set_承租清單()
404 464 
         Next
405 465 
     End Sub
466 
+    Private Sub 太陽新增_bt_Click(sender As Object, e As EventArgs) Handles 太陽新增_bt.Click
467 
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
468 
+            Dim NUM0 As Integer : DTP1 = Format(Today(), "yyyyMMdd")
469 
+            SQL_案件太陽流水() : If dr.Read Then : NUM0 = Strings.Right(dr("流水號").ToString, 3) : Else : NUM0 = 0 : End If
470 
+            NUM0 += 1
471 
+            If NUM0 < 10 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-00" & NUM0
472 
+            ElseIf NUM0 > 9 And NUM0 < 100 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-0" & NUM0
473 
+            ElseIf NUM0 > 99 Then : 綠能編號_tb.Text = "SP-" & DTP1 & "-" & NUM0
474 
+            End If : SQL_案件太陽清單新增() : Set_太陽清單()
475 
+        End If
476 
+    End Sub
477 
+    Private Sub 太陽刪除_bt_Click(sender As Object, e As EventArgs) Handles 太陽刪除_bt.Click
478 
+        If 流水號_tb.Text = "" Then : MsgBox("請先選擇 [案件資料] 或是 [新增案件資料]，才能執行後續動作!!") : Else
479 
+            If 綠能編號_tb.Text = "" Then : MsgBox("請先選擇 [太陽能承租檔案] 或是 [新增太陽能承租檔案]，才能執行後續動作!!") : Else
480 
+                Dim result As DialogResult = MessageBox.Show("請確定是否要刪除選定的太陽能承租資料?", "請選擇", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
481 
+                If result = DialogResult.Yes Then
482 
+                    PA11 = InputBox("請輸入大寫 [YES]，並按下確認來刪除資料!!")
483 
+                    If PA11 = "YES" Then : SQL_案件建坪刪除() : Set_太陽清單() : MsgBox("刪除完成!!") : End If
484 
+                End If
485 
+            End If
486 
+        End If
487 
+    End Sub
406 488 
     Private Sub 讀取資料夾路徑1_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑1_bt.Click
407 489 
         If 流水號_tb.Text = "" Then : MsgBox("請先選擇案件資料，才能繼續後續的操作!!") : Else
408 490 
             開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"

+ 20
- 167
YS-ERP-SYS/09、資料庫系統管理/系統執行檔版本管理.Designer.vb Wyświetl plik 

@@ -34,30 +34,18 @@ Partial Class 系統執行檔版本管理
34 34 
         Me.小更2 = New System.Windows.Forms.TextBox()
35 35 
         Me.Label1 = New System.Windows.Forms.Label()
36 36 
         Me.小更1 = New System.Windows.Forms.TextBox()
37 
-        Me.Panel1 = New System.Windows.Forms.Panel()
38 
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
39 
-        Me.Button3 = New System.Windows.Forms.Button()
40 
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
41 
-        Me.Label9 = New System.Windows.Forms.Label()
42 
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
43 
-        Me.Label12 = New System.Windows.Forms.Label()
44 
-        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
45 
-        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
46 37 
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
47 
-        Me.Label13 = New System.Windows.Forms.Label()
48 
-        Me.Button14 = New System.Windows.Forms.Button()
49 38 
         Me.Button1 = New System.Windows.Forms.Button()
50 39 
         Me.Label3 = New System.Windows.Forms.Label()
51 40 
         Me.版本號_tb = New System.Windows.Forms.TextBox()
52 41 
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
53 42 
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
54 
-        Me.Panel1.SuspendLayout()
55 43 
         Me.SuspendLayout()
56 44 
         '
57 45 
         '中更5
58 46 
         '
59 47 
         Me.中更5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
60 
-        Me.中更5.Location = New System.Drawing.Point(599, 27)
48 
+        Me.中更5.Location = New System.Drawing.Point(392, 154)
61 49 
         Me.中更5.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
62 50 
         Me.中更5.Name = "中更5"
63 51 
         Me.中更5.Size = New System.Drawing.Size(80, 23)
 
@@ -66,7 +54,7 @@ Partial Class 系統執行檔版本管理
66 54 
         '中更4
67 55 
         '
68 56 
         Me.中更4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
69 
-        Me.中更4.Location = New System.Drawing.Point(515, 27)
57 
+        Me.中更4.Location = New System.Drawing.Point(308, 154)
70 58 
         Me.中更4.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
71 59 
         Me.中更4.Name = "中更4"
72 60 
         Me.中更4.Size = New System.Drawing.Size(80, 23)
 
@@ -75,7 +63,7 @@ Partial Class 系統執行檔版本管理
75 63 
         '中更3
76 64 
         '
77 65 
         Me.中更3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
78 
-        Me.中更3.Location = New System.Drawing.Point(431, 27)
66 
+        Me.中更3.Location = New System.Drawing.Point(224, 154)
79 67 
         Me.中更3.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
80 68 
         Me.中更3.Name = "中更3"
81 69 
         Me.中更3.Size = New System.Drawing.Size(80, 23)
 
@@ -84,7 +72,7 @@ Partial Class 系統執行檔版本管理
84 72 
         '中更2
85 73 
         '
86 74 
         Me.中更2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
87 
-        Me.中更2.Location = New System.Drawing.Point(347, 27)
75 
+        Me.中更2.Location = New System.Drawing.Point(140, 154)
88 76 
         Me.中更2.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
89 77 
         Me.中更2.Name = "中更2"
90 78 
         Me.中更2.Size = New System.Drawing.Size(80, 23)
 
@@ -94,7 +82,7 @@ Partial Class 系統執行檔版本管理
94 82 
         '
95 83 
         Me.Label4.AutoSize = True
96 84 
         Me.Label4.BackColor = System.Drawing.SystemColors.Control
97 
-        Me.Label4.Location = New System.Drawing.Point(219, 30)
85 
+        Me.Label4.Location = New System.Drawing.Point(12, 157)
98 86 
         Me.Label4.Name = "Label4"
99 87 
         Me.Label4.Size = New System.Drawing.Size(43, 16)
100 88 
         Me.Label4.TabIndex = 701
 
@@ -103,7 +91,7 @@ Partial Class 系統執行檔版本管理
103 91 
         '中更1
104 92 
         '
105 93 
         Me.中更1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
106 
-        Me.中更1.Location = New System.Drawing.Point(263, 27)
94 
+        Me.中更1.Location = New System.Drawing.Point(56, 154)
107 95 
         Me.中更1.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
108 96 
         Me.中更1.Name = "中更1"
109 97 
         Me.中更1.Size = New System.Drawing.Size(80, 23)
 
@@ -112,7 +100,7 @@ Partial Class 系統執行檔版本管理
112 100 
         '小更5
113 101 
         '
114 102 
         Me.小更5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
115 
-        Me.小更5.Location = New System.Drawing.Point(599, 3)
103 
+        Me.小更5.Location = New System.Drawing.Point(392, 130)
116 104 
         Me.小更5.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
117 105 
         Me.小更5.Name = "小更5"
118 106 
         Me.小更5.Size = New System.Drawing.Size(80, 23)
 
@@ -121,7 +109,7 @@ Partial Class 系統執行檔版本管理
121 109 
         '小更4
122 110 
         '
123 111 
         Me.小更4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
124 
-        Me.小更4.Location = New System.Drawing.Point(515, 3)
112 
+        Me.小更4.Location = New System.Drawing.Point(308, 130)
125 113 
         Me.小更4.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
126 114 
         Me.小更4.Name = "小更4"
127 115 
         Me.小更4.Size = New System.Drawing.Size(80, 23)
 
@@ -130,7 +118,7 @@ Partial Class 系統執行檔版本管理
130 118 
         '小更3
131 119 
         '
132 120 
         Me.小更3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
133 
-        Me.小更3.Location = New System.Drawing.Point(431, 3)
121 
+        Me.小更3.Location = New System.Drawing.Point(224, 130)
134 122 
         Me.小更3.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
135 123 
         Me.小更3.Name = "小更3"
136 124 
         Me.小更3.Size = New System.Drawing.Size(80, 23)
 
@@ -139,7 +127,7 @@ Partial Class 系統執行檔版本管理
139 127 
         '小更2
140 128 
         '
141 129 
         Me.小更2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
142 
-        Me.小更2.Location = New System.Drawing.Point(347, 3)
130 
+        Me.小更2.Location = New System.Drawing.Point(140, 130)
143 131 
         Me.小更2.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
144 132 
         Me.小更2.Name = "小更2"
145 133 
         Me.小更2.Size = New System.Drawing.Size(80, 23)
 
@@ -149,7 +137,7 @@ Partial Class 系統執行檔版本管理
149 137 
         '
150 138 
         Me.Label1.AutoSize = True
151 139 
         Me.Label1.BackColor = System.Drawing.SystemColors.Control
152 
-        Me.Label1.Location = New System.Drawing.Point(219, 6)
140 
+        Me.Label1.Location = New System.Drawing.Point(12, 133)
153 141 
         Me.Label1.Name = "Label1"
154 142 
         Me.Label1.Size = New System.Drawing.Size(43, 16)
155 143 
         Me.Label1.TabIndex = 695
 
@@ -158,144 +146,25 @@ Partial Class 系統執行檔版本管理
158 146 
         '小更1
159 147 
         '
160 148 
         Me.小更1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
161 
-        Me.小更1.Location = New System.Drawing.Point(263, 3)
149 
+        Me.小更1.Location = New System.Drawing.Point(56, 130)
162 150 
         Me.小更1.Margin = New System.Windows.Forms.Padding(6, 7, 6, 7)
163 151 
         Me.小更1.Name = "小更1"
164 152 
         Me.小更1.Size = New System.Drawing.Size(80, 23)
165 153 
         Me.小更1.TabIndex = 694
166 154 
         '
167 
-        'Panel1
168 
-        '
169 
-        Me.Panel1.Controls.Add(Me.TextBox3)
170 
-        Me.Panel1.Controls.Add(Me.Button3)
171 
-        Me.Panel1.Controls.Add(Me.TextBox1)
172 
-        Me.Panel1.Controls.Add(Me.Label9)
173 
-        Me.Panel1.Controls.Add(Me.TextBox4)
174 
-        Me.Panel1.Location = New System.Drawing.Point(458, 195)
175 
-        Me.Panel1.Name = "Panel1"
176 
-        Me.Panel1.Size = New System.Drawing.Size(200, 100)
177 
-        Me.Panel1.TabIndex = 693
178 
-        '
179 
-        'TextBox3
180 
-        '
181 
-        Me.TextBox3.AllowDrop = True
182 
-        Me.TextBox3.ForeColor = System.Drawing.Color.Black
183 
-        Me.TextBox3.Location = New System.Drawing.Point(3, 3)
184 
-        Me.TextBox3.Multiline = True
185 
-        Me.TextBox3.Name = "TextBox3"
186 
-        Me.TextBox3.Size = New System.Drawing.Size(25, 23)
187 
-        Me.TextBox3.TabIndex = 625
188 
-        '
189 
-        'Button3
190 
-        '
191 
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
192 
-        Me.Button3.Location = New System.Drawing.Point(82, 64)
193 
-        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
194 
-        Me.Button3.Name = "Button3"
195 
-        Me.Button3.Size = New System.Drawing.Size(105, 24)
196 
-        Me.Button3.TabIndex = 626
197 
-        Me.Button3.Text = "上傳"
198 
-        '
199 
-        'TextBox1
200 
-        '
201 
-        Me.TextBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
202 
-        Me.TextBox1.Location = New System.Drawing.Point(36, 3)
203 
-        Me.TextBox1.Margin = New System.Windows.Forms.Padding(5)
204 
-        Me.TextBox1.Name = "TextBox1"
205 
-        Me.TextBox1.Size = New System.Drawing.Size(89, 23)
206 
-        Me.TextBox1.TabIndex = 609
207 
-        '
208 
-        'Label9
209 
-        '
210 
-        Me.Label9.AutoSize = True
211 
-        Me.Label9.Location = New System.Drawing.Point(4, 38)
212 
-        Me.Label9.Name = "Label9"
213 
-        Me.Label9.Size = New System.Drawing.Size(55, 16)
214 
-        Me.Label9.TabIndex = 624
215 
-        Me.Label9.Text = "檔案名稱"
216 
-        '
217 
-        'TextBox4
218 
-        '
219 
-        Me.TextBox4.AllowDrop = True
220 
-        Me.TextBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
221 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
222 
-        Me.TextBox4.ForeColor = System.Drawing.Color.Black
223 
-        Me.TextBox4.Location = New System.Drawing.Point(61, 34)
224 
-        Me.TextBox4.Multiline = True
225 
-        Me.TextBox4.Name = "TextBox4"
226 
-        Me.TextBox4.Size = New System.Drawing.Size(126, 23)
227 
-        Me.TextBox4.TabIndex = 623
228 
-        '
229 
-        'Label12
230 
-        '
231 
-        Me.Label12.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
232 
-            Or System.Windows.Forms.AnchorStyles.Left) _
233 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
234 
-        Me.Label12.AutoSize = True
235 
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
236 
-        Me.Label12.Location = New System.Drawing.Point(14, 358)
237 
-        Me.Label12.Name = "Label12"
238 
-        Me.Label12.Size = New System.Drawing.Size(79, 16)
239 
-        Me.Label12.TabIndex = 692
240 
-        Me.Label12.Text = "執行檔放置區"
241 
-        '
242 
-        'WebBrowser2
243 
-        '
244 
-        Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
245 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
246 
-        Me.WebBrowser2.Location = New System.Drawing.Point(5, 53)
247 
-        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
248 
-        Me.WebBrowser2.Name = "WebBrowser2"
249 
-        Me.WebBrowser2.Size = New System.Drawing.Size(1341, 299)
250 
-        Me.WebBrowser2.TabIndex = 691
251 
-        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
252 
-        '
253 
-        'WebBrowser1
254 
-        '
255 
-        Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
256 
-            Or System.Windows.Forms.AnchorStyles.Left) _
257 
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
258 
-        Me.WebBrowser1.Location = New System.Drawing.Point(6, 376)
259 
-        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
260 
-        Me.WebBrowser1.Name = "WebBrowser1"
261 
-        Me.WebBrowser1.Size = New System.Drawing.Size(1340, 302)
262 
-        Me.WebBrowser1.TabIndex = 690
263 
-        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
264 
-        '
265 155 
         '資料庫版本號_lb
266 156 
         '
267 157 
         Me.資料庫版本號_lb.AutoSize = True
268 158 
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
269 
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(799, 29)
159 
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(2, 36)
270 160 
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
271 161 
         Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
272 162 
         Me.資料庫版本號_lb.TabIndex = 689
273 163 
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
274 164 
         '
275 
-        'Label13
276 
-        '
277 
-        Me.Label13.AutoSize = True
278 
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
279 
-        Me.Label13.Location = New System.Drawing.Point(14, 7)
280 
-        Me.Label13.Name = "Label13"
281 
-        Me.Label13.Size = New System.Drawing.Size(55, 16)
282 
-        Me.Label13.TabIndex = 688
283 
-        Me.Label13.Text = "我的電腦"
284 
-        '
285 
-        'Button14
286 
-        '
287 
-        Me.Button14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
288 
-        Me.Button14.ForeColor = System.Drawing.Color.Blue
289 
-        Me.Button14.Location = New System.Drawing.Point(5, 26)
290 
-        Me.Button14.Name = "Button14"
291 
-        Me.Button14.Size = New System.Drawing.Size(97, 24)
292 
-        Me.Button14.TabIndex = 687
293 
-        Me.Button14.Text = "讀取料夾路徑"
294 
-        Me.Button14.UseVisualStyleBackColor = True
295 
-        '
296 165 
         'Button1
297 166 
         '
298 
-        Me.Button1.Location = New System.Drawing.Point(688, 2)
167 
+        Me.Button1.Location = New System.Drawing.Point(161, 3)
299 168 
         Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
300 169 
         Me.Button1.Name = "Button1"
301 170 
         Me.Button1.Size = New System.Drawing.Size(105, 48)
 
@@ -306,7 +175,7 @@ Partial Class 系統執行檔版本管理
306 175 
         '
307 176 
         Me.Label3.AutoSize = True
308 177 
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
309 
-        Me.Label3.Location = New System.Drawing.Point(111, 8)
178 
+        Me.Label3.Location = New System.Drawing.Point(8, 10)
310 179 
         Me.Label3.Name = "Label3"
311 180 
         Me.Label3.Size = New System.Drawing.Size(43, 16)
312 181 
         Me.Label3.TabIndex = 685
 
@@ -315,7 +184,7 @@ Partial Class 系統執行檔版本管理
315 184 
         '版本號_tb
316 185 
         '
317 186 
         Me.版本號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
318 
-        Me.版本號_tb.Location = New System.Drawing.Point(110, 26)
187 
+        Me.版本號_tb.Location = New System.Drawing.Point(59, 7)
319 188 
         Me.版本號_tb.Margin = New System.Windows.Forms.Padding(5)
320 189 
         Me.版本號_tb.Name = "版本號_tb"
321 190 
         Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
 
@@ -336,7 +205,7 @@ Partial Class 系統執行檔版本管理
336 205 
         '
337 206 
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
338 207 
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
339 
-        Me.ClientSize = New System.Drawing.Size(1350, 681)
208 
+        Me.ClientSize = New System.Drawing.Size(272, 55)
340 209 
         Me.Controls.Add(Me.中更5)
341 210 
         Me.Controls.Add(Me.中更4)
342 211 
         Me.Controls.Add(Me.中更3)
 
@@ -349,22 +218,17 @@ Partial Class 系統執行檔版本管理
349 218 
         Me.Controls.Add(Me.小更2)
350 219 
         Me.Controls.Add(Me.Label1)
351 220 
         Me.Controls.Add(Me.小更1)
352 
-        Me.Controls.Add(Me.Panel1)
353 
-        Me.Controls.Add(Me.Label12)
354 
-        Me.Controls.Add(Me.WebBrowser2)
355 
-        Me.Controls.Add(Me.WebBrowser1)
356 221 
         Me.Controls.Add(Me.資料庫版本號_lb)
357 
-        Me.Controls.Add(Me.Label13)
358 
-        Me.Controls.Add(Me.Button14)
359 222 
         Me.Controls.Add(Me.Button1)
360 223 
         Me.Controls.Add(Me.Label3)
361 224 
         Me.Controls.Add(Me.版本號_tb)
362 225 
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
363 226 
         Me.Margin = New System.Windows.Forms.Padding(4)
227 
+        Me.MaximizeBox = False
228 
+        Me.MinimizeBox = False
364 229 
         Me.Name = "系統執行檔版本管理"
230 
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
365 231 
         Me.Text = "系統執行檔版本管理"
366 
-        Me.Panel1.ResumeLayout(False)
367 
-        Me.Panel1.PerformLayout()
368 232 
         Me.ResumeLayout(False)
369 233 
         Me.PerformLayout()
370 234 
 
@@ -382,18 +246,7 @@ Partial Class 系統執行檔版本管理
382 246 
     Friend WithEvents 小更2 As TextBox
383 247 
     Friend WithEvents Label1 As Label
384 248 
     Friend WithEvents 小更1 As TextBox
385 
-    Friend WithEvents Panel1 As Panel
386 
-    Friend WithEvents TextBox3 As TextBox
387 
-    Friend WithEvents Button3 As Button
388 
-    Friend WithEvents TextBox1 As TextBox
389 
-    Friend WithEvents Label9 As Label
390 
-    Friend WithEvents TextBox4 As TextBox
391 
-    Friend WithEvents Label12 As Label
392 
-    Friend WithEvents WebBrowser2 As WebBrowser
393 
-    Friend WithEvents WebBrowser1 As WebBrowser
394 249 
     Friend WithEvents 資料庫版本號_lb As Label
395 
-    Friend WithEvents Label13 As Label
396 
-    Friend WithEvents Button14 As Button
397 250 
     Friend WithEvents Button1 As Button
398 251 
     Friend WithEvents Label3 As Label
399 252 
     Friend WithEvents 版本號_tb As TextBox

+ 0
- 74
YS-ERP-SYS/09、資料庫系統管理/系統執行檔版本管理.vb Wyświetl plik 

@@ -1,11 +1,6 @@
1 1 
 Option Strict Off
2 
-Imports System.Net
3 
-Imports System.IO
4 2 
 Public Class 系統執行檔版本管理
5 3 
     Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
6 
-        Me.MdiParent = YS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
7 
-        TextBox3.Visible = False : TextBox1.Visible = False : Panel1.SendToBack()
8 
-
9 4 
         SQL_系統認證版本號查詢()
10 5 
         If dr.Read() Then
11 6 
             資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 小更1.Text = dr("小更新1").ToString : 小更2.Text = dr("小更新2").ToString
 
@@ -13,11 +8,6 @@ Public Class 系統執行檔版本管理
13 8 
             版本號_tb.Text = dr("系統認證版本號") : 小更4.Text = dr("小更新4").ToString : 小更5.Text = dr("小更新5").ToString
14 9 
             中更3.Text = dr("中更新3").ToString : 中更4.Text = dr("中更新4").ToString : 中更5.Text = dr("中更新5").ToString
15 10 
         End If : conn.Close()
16 
-        Target1 = Target & AA(0) & "/" : Target2 = Target & AA(1) & "/"
17 
-        WebBrowser1.Url = New Uri(Target1)
18 
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
19 
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
20 
-        End If
21 11 
     End Sub
22 12 
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
23 13 
         timeNow = 0 : YS_ERP_SYS.Timer1.Enabled = False : YS_ERP_SYS.Timer1.Enabled = True
 
@@ -40,68 +30,4 @@ Public Class 系統執行檔版本管理
40 30 
             版本號_tb.Text = dr("系統認證版本號")
41 31 
         End If : conn.Close() : MsgBox("修改完成!!")
42 32 
     End Sub
43 
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
44 
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
45 
-            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
46 
-        End If
47 
-    End Sub
48 
-    Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox4.DragEnter
49 
-        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
50 
-            Dim files As String()
51 
-            Try
52 
-                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
53 
-                TextBox4.Text = files(files.Length - 1)
54 
-            Catch ex As Exception
55 
-                MessageBox.Show(ex.Message)
56 
-                Return
57 
-            End Try
58 
-        End If
59 
-
60 
-        Dim STR2 As Integer = 0
61 
-        TextBox3.Text = TextBox4.Text
62 
-        If TextBox4.Text = "" Then
63 
-        Else
64 
-            For i As Integer = 0 To 9999
65 
-                Dim STR1 As Integer = Strings.Len(TextBox3.Text)
66 
-                If Strings.Right((TextBox3.Text), 1) <> "\" Then
67 
-                    STR1 -= 1 : STR2 += 1
68 
-                    If STR1 = 0 Then
69 
-                        TextBox3.Text = ""
70 
-                        TextBox4.Text = ""
71 
-                        i = 9999
72 
-                    Else
73 
-                        TextBox3.Text = Strings.Left((TextBox3.Text), STR1)
74 
-                    End If
75 
-                Else
76 
-                    TextBox3.Text = Strings.Right((TextBox4.Text), STR2)
77 
-                    TextBox4.Text = TextBox3.Text
78 
-                    i = 9999
79 
-                End If
80 
-            Next
81 
-        End If
82 
-    End Sub
83 
-    Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox4.DragDrop
84 
-        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
85 
-        For Each file As String In files
86 
-            TextBox4.AppendText(file + Environment.NewLine)
87 
-        Next
88 
-    End Sub
89 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
90 
-        If TextBox4.Text = "" Then : MsgBox("請準備檔案!!") : Else
91 
-            Dim clsRequest12 As FtpWebRequest = DirectCast(WebRequest.Create(Target & AA(0) & "/" & TextBox4.Text), FtpWebRequest)
92 
-            TextBox1.Text = FolderBrowserDialog1.SelectedPath & "\" & TextBox4.Text
93 
-            clsRequest12.Credentials = New NetworkCredential(FTP帳號, FTP密碼)
94 
-            clsRequest12.Method = WebRequestMethods.Ftp.UploadFile
95 
-            ' read in file...
96 
-            Dim bFile12() As Byte = File.ReadAllBytes(TextBox1.Text)
97 
-
98 
-            ' upload file...
99 
-            Dim clsStream12 As Stream = clsRequest12.GetRequestStream()
100 
-            clsStream12.Write(bFile12, 0, bFile12.Length)
101 
-            clsStream12.Close()
102 
-            clsStream12.Dispose()
103 
-            TextBox4.Text = ""
104 
-            WebBrowser1.Refresh()
105 
-        End If
106 
-    End Sub
107 33 
 End Class

+ 31
- 1
YS-ERP-SYS/0、MyModule/SQL_客戶系統管理.vb Wyświetl plik 

@@ -62,16 +62,46 @@
62 62 
     End Sub
63 63 
     Friend Sub SQL_客戶訪談表讀取()
64 64 
         ConnOpen()
65 
-        SQL1 = "SELECT  流水號, 日期, 地點, 訪談內容, 內容追蹤, 會議名稱, 會議地點, 會議時間, 出席人員, 會議內容  FROM  客戶訪談資料
65 
+        SQL1 = "SELECT  流水號, 日期, 地點, 訪談內容, 內容追蹤, 會議名稱, 會議地點, 會議時間, 出席人員, 會議內容, 會議內容 AS 會議  FROM  客戶訪談資料
66 66 
                 WHERE 客戶編號 LIKE N'" & 客戶資料表.流水號_tb.Text & "' ORDER BY 流水號 DESC"
67 67 
         CmdSet_For_DGV()
68 68 
     End Sub
69 
+    Friend Sub SQL_客戶承租表讀取()
70 
+        ConnOpen()
71 
+        SQL1 = "SELECT    案件摘要_承租.承租狀態, 案件摘要總表.[地址/地號], 案件摘要_建坪.建坪編號,
72 
+                          案件摘要_承租.[坪數/區塊面積], 案件摘要_承租.租期開始 AS 租期, 案件摘要_承租.租期結束, 案件摘要_承租.免租期,
73 
+                          案件摘要_承租.租金
74 
+                FROM      案件摘要_承租 INNER JOIN
75 
+                          客戶資料表 ON 案件摘要_承租.承租客 = 客戶資料表.流水號 INNER JOIN
76 
+                          案件摘要_建坪 ON 案件摘要_承租.建坪編號 = 案件摘要_建坪.流水號 INNER JOIN
77 
+                          案件摘要總表 ON 案件摘要_承租.單據編號 = 案件摘要總表.單據編號
78 
+                WHERE     客戶資料表.流水號 LIKE N'" & 客戶資料表.流水號_tb.Text & "'
79 
+                ORDER BY  案件摘要_承租.承租狀態"
80 
+        CmdSet_For_DGV()
81 
+    End Sub
69 82 
     Friend Sub SQL_客戶類別()
70 83 
         ConnOpen() : SQL1 = "SELECT  類別  FROM  客戶資料表  GROUP BY  類別  ORDER BY  類別" : CmdSet_For_dr()
71 84 
     End Sub
72 85 
     Friend Sub SQL_客戶資料附件()
73 86 
         ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號, 流水號 AS 檔案  FROM  客戶資料表附件 WHERE 客戶編號 LIKE N'" & 客戶資料表.流水號_tb.Text & "' ORDER BY 流水號" : CmdSet_For_DGV()
74 87 
     End Sub
88 
+    Friend Sub SQL_客戶會議附件()
89 
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號, 流水號 AS 檔案  FROM  客戶會議附件 WHERE 訪談編號 LIKE N'" & 客戶資料表.訪談編號_tb.Text & "' ORDER BY 流水號" : CmdSet_For_DGV()
90 
+    End Sub
91 
+    Friend Sub SQL_客戶會議附件讀取()
92 
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  圖片  FROM  客戶會議附件  WHERE  (流水號 LIKE N'" & PA2 & "')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
93 
+    End Sub
94 
+    Friend Sub SQL_客戶會議附件流水驗證()
95 
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號  FROM  客戶會議附件  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
96 
+    End Sub
97 
+    Friend Sub SQL_會議附件圖片入系統()
98 
+        ConnOpen_圖庫SQL()
99 
+        SQL1 = "INSERT INTO 客戶會議附件 (流水號, 訪談編號, 圖片) SELECT N'" & PA1 & "', N'" & 客戶資料表.訪談編號_tb.Text & "', @binary_file"
100 
+        CmdSet_For_dr_pic()
101 
+    End Sub
102 
+    Friend Sub SQL_客戶會議附件刪除()
103 
+        ConnOpen_圖庫SQL() : SQL1 = "DELETE 客戶會議附件  WHERE  (流水號 LIKE  N'" & 客戶資料表.附件編碼1_lb.Text & "')" : CmdSet_For_dr()
104 
+    End Sub
75 105 
     Friend Sub SQL_客戶資料附件流水驗證()
76 106 
         ConnOpen_圖庫SQL() : SQL1 = "SELECT  流水號  FROM  客戶資料表附件  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
77 107 
     End Sub

+ 47
- 3
YS-ERP-SYS/0、MyModule/SQL_案件管理系統.vb Wyświetl plik 

@@ -27,6 +27,20 @@
27 27 
                          N'" & 案件摘要表.備註_tb.Text & "', N'" & 圖片庫 & "')"
28 28 
         CmdSet_For_dr()
29 29 
     End Sub
30 
+    Friend Sub SQL_案件太陽清單新增()
31 
+        ConnOpen()
32 
+        SQL1 = "INSERT INTO  案件摘要_太陽 (單據編號, 流水號, 太陽_出租人, 太陽_承租人, 太陽_KW數, 太陽_租期, [太陽_租金%]) VALUES
33 
+               (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.綠能編號_tb.Text & "', N'" & 案件摘要表.太_出租_tb.Text & "', N'" & 案件摘要表.太_承租_tb.Text & "',
34 
+                N'" & 案件摘要表.KW數_tb.Text & "', N'" & 案件摘要表.太陽開始_dtp.Text & " - " & 案件摘要表.太陽結束_dtp.Text & "', N'" & 案件摘要表.太_租金比_tb.Text & "')"
35 
+        CmdSet_For_dr()
36 
+    End Sub
37 
+    Friend Sub SQL_案件摘要太陽修改()
38 
+        ConnOpen()
39 
+        SQL1 = "UPDATE  案件摘要_太陽  SET 太陽_出租人 = N'" & 案件摘要表.太_出租_tb.Text & "', 太陽_承租人 = N'" & 案件摘要表.太_承租_tb.Text & "', 太陽_KW數 = N'" & 案件摘要表.KW數_tb.Text & "',
40 
+                                           太陽_租期 = N'" & 案件摘要表.太陽開始_dtp.Text & " - " & 案件摘要表.太陽結束_dtp.Text & "', [太陽_租金%] = N'" & 案件摘要表.太_租金比_tb.Text & "'
41 
+                WHERE   流水號 LIKE N'" & 案件摘要表.綠能編號_tb.Text & "'"
42 
+        CmdSet_For_dr()
43 
+    End Sub
30 44 
     Friend Sub SQL_案件摘要修改()
31 45 
         ConnOpen()
32 46 
         SQL1 = "UPDATE  案件摘要總表  SET  [地址/地號] = N'" & 案件摘要表.地址_tb.Text & "', 地主 = N'" & 案件摘要表.地主_tb.Text & "', 聯絡人 = N'" & 案件摘要表.聯絡人_tb.Text & "', 
@@ -48,12 +62,30 @@
48 62 
     End Sub
49 63 
     Friend Sub SQL_案件土地清單()
50 64 
         ConnOpen()
51 
-        SQL1 = "SELECT  單據編號, 流水號, 面積編號, 土地面積 AS [土地面積(平米)], 坪數  FROM  案件摘要_土地 WHERE 單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'"
65 
+        SQL1 = "SELECT  單據編號, 流水號, 地主, 面積編號, 土地面積 AS [土地面積(平米)], 坪數, 使用用途, 土地租期, 租期備註, 土地月租, 每坪月租,
66 
+                        保證月, [押金/保證金], 免租興建期, 建期備註, 建照核准日, 取得使用執照日, 備註  FROM  案件摘要_土地
67 
+                WHERE   單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'"
52 68 
         CmdSet_For_DGV()
53 69 
     End Sub
54 70 
     Friend Sub SQL_案件土地清單新增()
55 71 
         ConnOpen()
56 
-        SQL1 = "INSERT INTO  案件摘要_土地 (單據編號, 流水號, 面積編號, 土地面積, 坪數) VALUES (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.土地編號_tb.Text & "', N'*', N'0', N'0')"
72 
+        SQL1 = "INSERT INTO  案件摘要_土地 (單據編號, 流水號, 面積編號, 土地面積, 坪數, 使用用途, 土地租期, 租期備註, 土地月租, 每坪月租,
73 
+                                            保證月, [押金/保證金], 免租興建期, 建期備註, 建照核准日, 取得使用執照日, 備註, 地主)
74 
+                VALUES (N'" & 案件摘要表.流水號_tb.Text & "', N'" & 案件摘要表.土地編號_tb.Text & "', N'*', N'0', N'0', N'" & 案件摘要表.用途_cb.Text & "',
75 
+                        N'" & 案件摘要表.土地租期_nup.Value & "', N'" & 案件摘要表.租期開始_dtp.Text & " - " & 案件摘要表.租期結束_dtp.Text & "',
76 
+                        N'" & 案件摘要表.土地租金_nud.Value & "', N'" & 案件摘要表.月坪租金_nud.Value & "', N'" & 案件摘要表.保證月_nud.Text & "', N'" & 案件摘要表.保證金_nud.Text & "',
77 
+                        N'" & 案件摘要表.免租_nud.Value & "', N'" & 案件摘要表.免租開始_dtp.Text & " - " & 案件摘要表.免租結束_dtp.Text & "', N'" & 案件摘要表.建照_dtp.Text & "',
78 
+                        N'" & 案件摘要表.執照_dtp.Text & "', N'" & 案件摘要表.備註_tb.Text & "', N'*')"
79 
+        CmdSet_For_dr()
80 
+    End Sub
81 
+    Friend Sub SQL_案件土地修改1()
82 
+        ConnOpen()
83 
+        SQL1 = "UPDATE  案件摘要_土地  SET 使用用途 = N'" & 案件摘要表.用途_cb.Text & "', 土地租期 = N'" & 案件摘要表.土地租期_nup.Value & "',
84 
+                                           租期備註 = N'" & 案件摘要表.租期開始_dtp.Text & " - " & 案件摘要表.租期結束_dtp.Text & "', 土地月租 = N'" & 案件摘要表.土地租金_nud.Value & "',
85 
+                                           每坪月租 = N'" & 案件摘要表.月坪租金_nud.Value & "', 保證月 = N'" & 案件摘要表.保證月_nud.Text & "', [押金/保證金] = N'" & 案件摘要表.保證金_nud.Text & "',
86 
+                                           免租興建期 = N'" & 案件摘要表.免租_nud.Value & "', 建期備註 = N'" & 案件摘要表.免租開始_dtp.Text & " - " & 案件摘要表.免租結束_dtp.Text & "',
87 
+                                           建照核准日 = N'" & 案件摘要表.建照_dtp.Text & "', 取得使用執照日 = N'" & 案件摘要表.執照_dtp.Text & "', 備註 = N'" & 案件摘要表.備註_tb.Text & "'
88 
+                WHERE 流水號 LIKE N'" & 案件摘要表.土地編號_tb.Text & "'"
57 89 
         CmdSet_For_dr()
58 90 
     End Sub
59 91 
     Friend Sub SQL_案件土地流水()
 
@@ -61,7 +93,7 @@
61 93 
     End Sub
62 94 
     Friend Sub SQL_案件土地修改()
63 95 
         ConnOpen()
64 
-        SQL1 = "UPDATE  案件摘要_土地  SET  面積編號 = N'" & PA1 & "', 土地面積 = N'" & PA2 & "', 坪數 =  N'" & PA3 & "'  WHERE 流水號 LIKE N'" & PA & "'"
96 
+        SQL1 = "UPDATE  案件摘要_土地  SET  面積編號 = N'" & PA1 & "', 土地面積 = N'" & PA2 & "', 坪數 =  N'" & PA3 & "', 地主 =  N'" & PA4 & "'  WHERE 流水號 LIKE N'" & PA & "'"
65 97 
         CmdSet_For_dr()
66 98 
     End Sub
67 99 
     Friend Sub SQL_案件土地刪除()
 
@@ -76,6 +108,9 @@
76 108 
     Friend Sub SQL_案件建坪流水()
77 109 
         ConnOpen() : SQL1 = "SELECT  流水號  FROM  案件摘要_建坪  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
78 110 
     End Sub
111 
+    Friend Sub SQL_案件太陽流水()
112 
+        ConnOpen() : SQL1 = "SELECT  流水號  FROM  案件摘要_太陽  WHERE  (流水號 LIKE '%" & DTP1 & "%')  ORDER BY  流水號 DESC" : CmdSet_For_dr()
113 
+    End Sub
79 114 
     Friend Sub SQL_案件建坪清單新增()
80 115 
         ConnOpen()
81 116 
         SQL1 = "INSERT INTO  案件摘要_建坪 (單據編號, 流水號, 建坪編號, 備註, 坪數, 面寬, 深度) VALUES 
@@ -127,6 +162,15 @@
127 162 
                  WHERE  (案件摘要_承租.單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "') ORDER BY 案件摘要_承租.流水號 DESC"
128 163 
         CmdSet_For_DGV()
129 164 
     End Sub
165 
+    Friend Sub SQL_案件太陽讀取()
166 
+        ConnOpen()
167 
+        SQL1 = "SELECT  流水號, 流水號 AS 檔案, 太陽_出租人, 太陽_承租人, 太陽_KW數, 太陽_租期, [太陽_租金%]
168 
+                FROM    案件摘要_太陽  WHERE  (單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "')"
169 
+        CmdSet_For_DGV()
170 
+    End Sub
171 
+    Friend Sub SQL_案件太陽刪除()
172 
+        ConnOpen() : SQL1 = "DELETE  案件摘要_太陽 WHERE 流水號 LIKE N'" & 案件摘要表.綠能編號_tb.Text & "'" : CmdSet_For_dr()
173 
+    End Sub
130 174 
     Friend Sub SQL_建坪類別()
131 175 
         ConnOpen() : SQL1 = "SELECT  建坪編號  FROM  案件摘要_建坪  WHERE  單據編號 LIKE N'" & 案件摘要表.流水號_tb.Text & "'  GROUP BY  建坪編號  ORDER BY  建坪編號" : CmdSet_For_dr()
132 176 
     End Sub

+ 1
- 1
YS-ERP-SYS/0、MyModule/全域變數.vb Wyświetl plik 

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

+ 2
- 25
YS-ERP-SYS/LoginForm1.vb Wyświetl plik 

@@ -1,8 +1,4 @@
1 1 
 Imports System.IO
2 
-Imports System.Net
3 
-Imports System.Text
4 
-Imports System.Net.NetworkInformation
5 
-Imports System.Security.Cryptography
6 2 
 Public Class LoginForm1
7 3 
     Dim MACKK As String 'MAC碼
8 4 
     Dim diskId As String '數字ID
 
@@ -22,15 +18,6 @@ Public Class LoginForm1
22 18 
         da.Fill(ds3) : 系統登入_dgv.DataSource = ds3.Tables(0) : conn.Close()
23 19 
         系統登入_dgv.Columns(0).FillWeight = 120 : 系統登入_dgv.Columns(1).FillWeight = 30 : 系統登入_dgv.Columns(2).Visible = False : 系統登入_dgv.Columns(3).FillWeight = 50
24 20 
     End Sub
25 
-    Private Sub Set_清單1()
26 
-        Dim ds2 As New DataSet
27 
-        ftp清單_dgv.DataSource = Nothing : ds2.Clear()
28 
-        ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
29 
-        ftp清單_dgv.ColumnHeadersHeight = 25
30 
-        ftp清單_dgv.AllowUserToAddRows = False
31 
-        SQL_FTP資料夾路徑分配()
32 
-        da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
33 
-    End Sub
34 21 
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
35 22 
     End Sub
36 23 
     Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
 
@@ -113,22 +100,12 @@ Public Class LoginForm1
113 100 
         SQL_系統版本號驗證()
114 101 
         If dr.Read() Then : 資料庫版本 = dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
115 102 
         '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
116 
-        SQL_連線字串_國外() : SQL_FTP伺服器IP() : If dr.Read Then : FTPIP = dr("位址").ToString : End If
117 
-        PA = "測試雲端" : SQL_FTP伺服器登入位置()
118 
-        If dr.Read() Then
119 
-            Target = dr("FTP帳號") & FTPIP & dr("FTP密碼") : FTP帳號 = "" : FTP密碼 = "" : FTP物理位置 = dr("FTP物理位置")
120 
-        End If : conn.Close()
121 
-        Set_清單1()
122 
-        Dim HH As String
123 
-        For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
124 
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
125 
-            If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
126 
-        Next
103 
+        Target = "https://gcm-smart.com/ERP/YS-ERP/"
127 104 
     End Sub
128 105 
     Private Sub 自動更新2()
129 106 
         Dim Str As String = Application.StartupPath
130 107 
         If File.Exists(Str + "\NOTAUTO.txt") Then : Else
131 
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
108 
+            My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
132 109 
             Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
133 110 
             Me.Close()
134 111 
         End If

+ 6
- 15
YS-ERP-SYS/YS-ERP-SYS.Designer.vb Wyświetl plik 

@@ -61,7 +61,7 @@ Partial Class YS_ERP_SYS
61 61 
         Me.系統對應電腦註冊_tsm = New System.Windows.Forms.ToolStripMenuItem()
62 62 
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
63 63 
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
64 
-        Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
64 
+        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
65 65 
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
66 66 
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
67 67 
         Me.執行進度_tss = New System.Windows.Forms.ToolStripStatusLabel()
 
@@ -70,7 +70,6 @@ Partial Class YS_ERP_SYS
70 70 
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
71 71 
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
72 72 
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
73 
-        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
74 73 
         Me.MenuStrip.SuspendLayout()
75 74 
         Me.StatusStrip.SuspendLayout()
76 75 
         Me.SuspendLayout()
 
@@ -239,7 +238,7 @@ Partial Class YS_ERP_SYS
239 238 
         '
240 239 
         '資料庫系統管理_tsm
241 240 
         '
242 
-        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})
241 
+        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})
243 242 
         Me.資料庫系統管理_tsm.Image = Global.YS_ERP_SYS.My.Resources.Resources.system
244 243 
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
245 244 
         Me.資料庫系統管理_tsm.Size = New System.Drawing.Size(83, 20)
 
@@ -326,12 +325,11 @@ Partial Class YS_ERP_SYS
326 325 
         Me.系統執行檔版本管理_tsm.Size = New System.Drawing.Size(206, 22)
327 326 
         Me.系統執行檔版本管理_tsm.Text = "系統執行檔版本管理"
328 327 
         '
329 
-        'FTP資料夾管理_tsm
328 
+        'TESTToolStripMenuItem
330 329 
         '
331 
-        Me.FTP資料夾管理_tsm.Image = Global.YS_ERP_SYS.My.Resources.Resources.system
332 
-        Me.FTP資料夾管理_tsm.Name = "FTP資料夾管理_tsm"
333 
-        Me.FTP資料夾管理_tsm.Size = New System.Drawing.Size(206, 22)
334 
-        Me.FTP資料夾管理_tsm.Text = "FTP資料夾管理"
330 
+        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
331 
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
332 
+        Me.TESTToolStripMenuItem.Text = "TEST"
335 333 
         '
336 334 
         'StatusStrip
337 335 
         '
 
@@ -379,12 +377,6 @@ Partial Class YS_ERP_SYS
379 377 
         '
380 378 
         Me.Timer2.Interval = 1000
381 379 
         '
382 
-        'TESTToolStripMenuItem
383 
-        '
384 
-        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
385 
-        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
386 
-        Me.TESTToolStripMenuItem.Text = "TEST"
387 
-        '
388 380 
         'YS_ERP_SYS
389 381 
         '
390 382 
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
 
@@ -435,7 +427,6 @@ Partial Class YS_ERP_SYS
435 427 
     Friend WithEvents 系統編碼規則_tsm As ToolStripMenuItem
436 428 
     Friend WithEvents 系統對應電腦註冊_tsm As ToolStripMenuItem
437 429 
     Friend WithEvents 系統執行檔版本管理_tsm As ToolStripMenuItem
438 
-    Friend WithEvents FTP資料夾管理_tsm As ToolStripMenuItem
439 430 
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
440 431 
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
441 432 
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator

+ 2
- 17
YS-ERP-SYS/YS-ERP-SYS.vb Wyświetl plik 

@@ -51,7 +51,7 @@ Public Class YS_ERP_SYS
51 51 
         '-----系統管理---------------------------------------------------------------------------------------------------------------------------------------------------------------------
52 52 
         資料庫系統管理_tsm.Visible = CC(1) : 系統使用者管理_tsm.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統組織架構設定_tsm.Visible = CC(41)
53 53 
         部門權限設定_tsm.Visible = CC(87) : 系統組織結構與權限設定_tsm.Visible = CC(89) : 系統通用變數管理_tsm.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10)
54 
-        系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) : FTP資料夾管理_tsm.Visible = CC(3)
54 
+        系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4)
55 55
56 56 
         SQL_系統閒置時間設定讀取() : If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close() : 重登計時()
57 57 
         If gUser帳號 = LoginForm1.密碼驗證_tb.Text Then : 個人帳號管理.ShowDialog() : End If
 
@@ -104,11 +104,7 @@ Public Class YS_ERP_SYS
104 104 
     End Sub
105 105 
     Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
106 106 
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
107 
-        重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
108 
-    End Sub
109 
-    Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
110 
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
111 
-        重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
107 
+        重置() : 系統執行檔版本管理.ShowDialog()
112 108 
     End Sub
113 109 
     Private Sub 系統組織架構設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_tsm.Click
114 110 
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
 
@@ -157,15 +153,4 @@ Public Class YS_ERP_SYS
157 153 
     Private Sub TESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
158 154 
         Form1.Show() : Form1.BringToFront()
159 155 
     End Sub
160 
-    Private Sub 自動更新2()
161 
-        Dim Str As String = Application.StartupPath
162 
-        Dim url As String = "http://106.1.48.106:8080/GCM-ERP-SYS/GCM-LINE-SYS.exe"
163 
-        Dim client As New WebClient()
164 
-        Try
165 
-            client.DownloadFile(url, Str + "\GCM-LINE-SYS.exe")
166 
-            Shell(Str + "\GCM-LINE-SYS.exe", vbNormalFocus)
167 
-        Catch ex As Exception
168 
-            MessageBox.Show("下載更新檔案時出錯: " & ex.Message)
169 
-        End Try
170 
-    End Sub
171 156 
 End Class

BIN
YS-ERP-SYS/bin/Debug/YS-ERP-SYS.exe Wyświetl plik


BIN
YS-ERP-SYS/bin/Debug/YS-ERP-SYS.pdb Wyświetl plik


BIN
YS-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Wyświetl plik


BIN
YS-ERP-SYS/obj/Debug/YS-ERP-SYS.exe Wyświetl plik


BIN
YS-ERP-SYS/obj/Debug/YS-ERP-SYS.pdb Wyświetl plik


BIN
YS-ERP-SYS/obj/Debug/YS-ERP-SYS.vbproj.GenerateResource.cache Wyświetl plik


Napisz Podgląd
Ładowanie…
Anuluj
Zapisz