B70340 1 年之前
父節點
當前提交
a34f1eb463
共有 46 個文件被更改,包括 1912 次插入522 次删除
  1. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/42c5e83b-5d87-4b55-80db-8fa421ef7644.vsidx
  2. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/4bed4196-7382-4ea8-ad1a-df64ffaab82d.vsidx
  3. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/641e57f6-8b87-4df0-8cf9-0956324e6829.vsidx
  4. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/7c7cb303-4c05-4fd7-ba4b-68fd8b8a3236.vsidx
  5. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/a7edab67-02da-4da6-9eba-d2e77601fedd.vsidx
  6. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/c753f303-532e-4bf6-889b-efc17ef024cf.vsidx
  7. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/d8f1aa8e-4086-4c4d-8f2e-2649a3b970d8.vsidx
  8. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/dd436e3d-51a9-41fb-a15d-8e7d97fc8d9f.vsidx
  9. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/f8b068c0-8a51-4250-91b8-e6032dc845bc.vsidx
  10. 二進制
      .vs/HSKIN-MIS-SYS/FileContentIndex/fbe18e0c-d000-4b6a-ab6c-3b4dc51b9597.vsidx
  11. 二進制
      .vs/HSKIN-MIS-SYS/v17/.suo
  12. 152
    0
      .vs/HSKIN-MIS-SYS/v17/DocumentLayout.json
  13. 11
    8
      GRAMS-SYS/00、Module/SQL_休假與加班.vb
  14. 17
    5
      GRAMS-SYS/00、Module/SQL_排班系統.vb
  15. 73
    28
      GRAMS-SYS/00、Module/SQL_系統設定.vb
  16. 8
    7
      GRAMS-SYS/00、Module/SQL_考勤系統.vb
  17. 1
    1
      GRAMS-SYS/00、Module/全域變數.vb
  18. 349
    129
      GRAMS-SYS/01、排班管理/排班明細.Designer.vb
  19. 5
    0
      GRAMS-SYS/01、排班管理/排班明細.vb
  20. 306
    86
      GRAMS-SYS/01、排班管理/排班明細_參考.Designer.vb
  21. 5
    0
      GRAMS-SYS/01、排班管理/排班明細_參考.vb
  22. 19
    6
      GRAMS-SYS/01、排班管理/排班資料.Designer.vb
  23. 5
    2
      GRAMS-SYS/01、排班管理/排班資料.vb
  24. 8
    0
      GRAMS-SYS/02、休假管理/休假核准.vb
  25. 19
    6
      GRAMS-SYS/02、休假管理/休假歷史紀錄.Designer.vb
  26. 5
    1
      GRAMS-SYS/02、休假管理/休假歷史紀錄.vb
  27. 25
    5
      GRAMS-SYS/02、休假管理/休假申請.vb
  28. 3
    3
      GRAMS-SYS/04、考勤管理/考勤明細表.vb
  29. 397
    0
      GRAMS-SYS/05、業務管理/業務銷售控制表.Designer.vb
  30. 120
    0
      GRAMS-SYS/05、業務管理/業務銷售控制表.resx
  31. 114
    0
      GRAMS-SYS/05、業務管理/業務銷售控制表.vb
  32. 129
    164
      GRAMS-SYS/05、業務管理/適應症選擇.Designer.vb
  33. 62
    27
      GRAMS-SYS/05、業務管理/適應症選擇.vb
  34. 7
    7
      GRAMS-SYS/10、系統管理/系統設定.vb
  35. 36
    20
      GRAMS-SYS/HSKIN-MIS-SYS.Designer.vb
  36. 15
    6
      GRAMS-SYS/HSKIN-MIS-SYS.vb
  37. 9
    0
      GRAMS-SYS/HSKIN-MIS-SYS.vbproj
  38. 10
    10
      GRAMS-SYS/LoginForm1.Designer.vb
  39. 二進制
      GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.exe
  40. 二進制
      GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.pdb
  41. 二進制
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.exe
  42. 二進制
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.pdb
  43. 1
    1
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.CoreCompileInputs.cache
  44. 1
    0
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.FileListAbsolute.txt
  45. 二進制
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.GenerateResource.cache
  46. 二進制
      GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.業務銷售控制表.resources

二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/42c5e83b-5d87-4b55-80db-8fa421ef7644.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/4bed4196-7382-4ea8-ad1a-df64ffaab82d.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/641e57f6-8b87-4df0-8cf9-0956324e6829.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/7c7cb303-4c05-4fd7-ba4b-68fd8b8a3236.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/a7edab67-02da-4da6-9eba-d2e77601fedd.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/c753f303-532e-4bf6-889b-efc17ef024cf.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/d8f1aa8e-4086-4c4d-8f2e-2649a3b970d8.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/dd436e3d-51a9-41fb-a15d-8e7d97fc8d9f.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/f8b068c0-8a51-4250-91b8-e6032dc845bc.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/FileContentIndex/fbe18e0c-d000-4b6a-ab6c-3b4dc51b9597.vsidx 查看文件


二進制
.vs/HSKIN-MIS-SYS/v17/.suo 查看文件


+ 152
- 0
.vs/HSKIN-MIS-SYS/v17/DocumentLayout.json 查看文件

1
+{
2
+  "Version": 1,
3
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\",
4
+  "Documents": [
5
+    {
6
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\00\u3001module\\sql_\u4F11\u5047\u8207\u52A0\u73ED.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u4F11\u5047\u8207\u52A0\u73ED.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8
+    },
9
+    {
10
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
12
+    },
13
+    {
14
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
16
+    },
17
+    {
18
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
20
+    },
21
+    {
22
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
23
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
24
+    },
25
+    {
26
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\00\u3001module\\sql_\u7CFB\u7D71\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u7CFB\u7D71\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
28
+    },
29
+    {
30
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
32
+    },
33
+    {
34
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
35
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
36
+    }
37
+  ],
38
+  "DocumentGroupContainers": [
39
+    {
40
+      "Orientation": 0,
41
+      "VerticalTabListWidth": 256,
42
+      "DocumentGroups": [
43
+        {
44
+          "DockedWidth": 200,
45
+          "SelectedChildIndex": 8,
46
+          "Children": [
47
+            {
48
+              "$type": "Bookmark",
49
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
50
+            },
51
+            {
52
+              "$type": "Document",
53
+              "DocumentIndex": 3,
54
+              "Title": "\u4F11\u5047\u7533\u8ACB.vb",
55
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
56
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
57
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
58
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
59
+              "ViewState": "AQIAAEQAAAAAAAAAAAAAwE0AAAAmAAAA",
60
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
61
+              "WhenOpened": "2024-03-15T03:32:36.627Z"
62
+            },
63
+            {
64
+              "$type": "Document",
65
+              "DocumentIndex": 4,
66
+              "Title": "\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
67
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
68
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
69
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
70
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
71
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
72
+              "WhenOpened": "2024-03-15T03:32:34.061Z"
73
+            },
74
+            {
75
+              "$type": "Document",
76
+              "DocumentIndex": 2,
77
+              "Title": "\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
78
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
79
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
80
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
81
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
82
+              "ViewState": "AQIAAGQAAAAAAAAAAAAqwHUAAABXAAAA",
83
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
84
+              "WhenOpened": "2024-03-08T10:05:36.532Z",
85
+              "EditorCaption": ""
86
+            },
87
+            {
88
+              "$type": "Document",
89
+              "DocumentIndex": 1,
90
+              "Title": "\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb [\u8A2D\u8A08]",
91
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
92
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
93
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb [\u8A2D\u8A08]",
94
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb [\u8A2D\u8A08]",
95
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
96
+              "WhenOpened": "2024-03-08T10:04:28.187Z",
97
+              "EditorCaption": " [\u8A2D\u8A08]"
98
+            },
99
+            {
100
+              "$type": "Document",
101
+              "DocumentIndex": 6,
102
+              "Title": "HSKIN-MIS-SYS.vb",
103
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
104
+              "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
105
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
106
+              "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
107
+              "ViewState": "AQIAAC8AAAAAAAAAAAAkwE4AAAAkAAAA",
108
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
109
+              "WhenOpened": "2024-03-07T14:40:27.952Z"
110
+            },
111
+            {
112
+              "$type": "Document",
113
+              "DocumentIndex": 7,
114
+              "Title": "HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
115
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
116
+              "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
117
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
118
+              "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
119
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
120
+              "WhenOpened": "2024-03-07T14:37:20.431Z"
121
+            },
122
+            {
123
+              "$type": "Document",
124
+              "DocumentIndex": 5,
125
+              "Title": "SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
126
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
127
+              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
128
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
129
+              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
130
+              "ViewState": "AQIAAE0AAAAAAAAAAAAcwF4AAAAXAAAA",
131
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
132
+              "WhenOpened": "2024-03-07T09:10:46.777Z"
133
+            },
134
+            {
135
+              "$type": "Document",
136
+              "DocumentIndex": 0,
137
+              "Title": "SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
138
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
139
+              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
140
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
141
+              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
142
+              "ViewState": "AQIAALYAAAAAAAAAAAAAwMMAAAASAAAA",
143
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
144
+              "WhenOpened": "2024-03-05T07:15:38.921Z",
145
+              "EditorCaption": ""
146
+            }
147
+          ]
148
+        }
149
+      ]
150
+    }
151
+  ]
152
+}

+ 11
- 8
GRAMS-SYS/00、Module/SQL_休假與加班.vb 查看文件

18
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
18
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
19
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
19
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
20
                 WHERE (人事請假單.是否生效 NOT LIKE N'已核准')
20
                 WHERE (人事請假單.是否生效 NOT LIKE N'已核准')
21
-                ORDER BY ras_Users.UserName, 人事請假單.員工編號"
21
+                ORDER BY ras_Users.UserName, 人事請假單.日期"
22
         CmdSet_For_DGV()
22
         CmdSet_For_DGV()
23
     End Sub
23
     End Sub
24
     Friend Sub SQL_休假統計()
24
     Friend Sub SQL_休假統計()
54
                 FROM   人事請假單 INNER JOIN
54
                 FROM   人事請假單 INNER JOIN
55
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
55
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
56
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
56
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
57
-                WHERE (人事請假單.是否生效 LIKE N'已核准') AND (人事請假單.請假類別 NOT LIKE N'國定假日') AND (人事請假單.請假類別 NOT LIKE N'未到') AND 
58
-                      (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "%')
59
-                ORDER BY ras_Users.UserName, 人事請假單.日期"
57
+                WHERE (人事請假單.請假類別 NOT LIKE N'國定假日') AND (人事請假單.請假類別 NOT LIKE N'未到') AND 
58
+                      (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "')
59
+                ORDER BY ras_Users.UserName, 人事請假單.日期 DESC"
60
         CmdSet_For_DGV()
60
         CmdSet_For_DGV()
61
     End Sub
61
     End Sub
62
     Friend Sub SQL_國定假日設定_人員()
62
     Friend Sub SQL_國定假日設定_人員()
190
         CmdSet_For_dr()
190
         CmdSet_For_dr()
191
     End Sub
191
     End Sub
192
     Friend Sub SQL_休假申請明細()
192
     Friend Sub SQL_休假申請明細()
193
+        ConnOpen() : SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由  FROM   人事請假單  WHERE (是否生效 NOT LIKE N'已核准')" : CmdSet_For_DGV()
194
+    End Sub
195
+    Friend Sub SQL_休假申請明細_刪除()
193
         ConnOpen()
196
         ConnOpen()
194
-        SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由
195
-                FROM   人事請假單
196
-                WHERE (是否生效 NOT LIKE N'已核准')"
197
-        CmdSet_For_DGV()
197
+        SQL1 = "DELETE 人事請假單 
198
+                WHERE (員工編號 LIKE N'" & 休假歷史紀錄.員工編號_tb.Text & "' AND 
199
+                       日期 LIKE N'" & 休假歷史紀錄.請假日期_tb.Text & "' AND 請假類別 LIKE N'" & 休假歷史紀錄.請假類別_cb.Text & "')"
200
+        CmdSet_For_dr()
198
     End Sub
201
     End Sub
199
     Friend Sub SQL_查詢最後一筆圖片編號()
202
     Friend Sub SQL_查詢最後一筆圖片編號()
200
         ConnOpen_圖庫SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 加班圖片庫 ORDER BY 流水號 DESC" : CmdSet_For_dr()
203
         ConnOpen_圖庫SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 加班圖片庫 ORDER BY 流水號 DESC" : CmdSet_For_dr()

+ 17
- 5
GRAMS-SYS/00、Module/SQL_排班系統.vb 查看文件

33
             SQL1 = "SELECT 班別, STRING_AGG(姓名, N'、') AS 人員  FROM  排班資料表
33
             SQL1 = "SELECT 班別, STRING_AGG(姓名, N'、') AS 人員  FROM  排班資料表
34
                     WHERE  (日期 LIKE N'" & PA & "') AND (姓名 NOT LIKE N'') AND (排班資料表.班別 NOT LIKE N'休%')
34
                     WHERE  (日期 LIKE N'" & PA & "') AND (姓名 NOT LIKE N'') AND (排班資料表.班別 NOT LIKE N'休%')
35
                     GROUP BY  班別 ORDER BY 班別"
35
                     GROUP BY  班別 ORDER BY 班別"
36
-        Else
36
+        ElseIf 排班資料.請休假_ch.Checked = True Then
37
+            SQL1 = "SELECT 人事請假單.請假類別 AS 班別, STRING_AGG(ras_Users.UserName, N'、') AS 人員
38
+                    FROM   人事請假單 INNER JOIN ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
39
+                    WHERE          (人事請假單.請假類別 NOT LIKE '未到') AND (人事請假單.請假類別 NOT LIKE '國定假日') AND 
40
+                            (人事請假單.請假類別 NOT LIKE '離職') AND (人事請假單.日期 LIKE N'" & PA & "')
41
+                    GROUP BY  人事請假單.請假類別 ORDER BY 人事請假單.請假類別"
42
+        ElseIf 排班資料.醫生_ch.Checked = True Then
37
             SQL1 = "SELECT    班別, 人員
43
             SQL1 = "SELECT    班別, 人員
38
                     FROM     (SELECT  診別 + '-' + '早' AS 班別, 早 AS 人員  FROM  門診資料  WHERE  (日期 LIKE N'" & PA & "')
44
                     FROM     (SELECT  診別 + '-' + '早' AS 班別, 早 AS 人員  FROM  門診資料  WHERE  (日期 LIKE N'" & PA & "')
39
                               UNION
45
                               UNION
68
     End Sub
74
     End Sub
69
     Friend Sub SQL_排班系統_班別_排班()
75
     Friend Sub SQL_排班系統_班別_排班()
70
         ConnOpen()
76
         ConnOpen()
71
-        SQL1 = "SELECT   姓名, 班別, 上班時段, 時數, 半天, 休息, 一段, 二段, 顏色1, 顏色2, 項次, CAST(項次 AS INT) AS 項
72
-                FROM     排班資料表
73
-                WHERE   (日期 LIKE N'" & PA & "')
74
-                ORDER BY CAST(項次 AS INT)"
77
+        SQL1 = "SELECT      排班資料表.姓名, 排班資料表.班別, 排班資料表.上班時段, 排班資料表.時數, 排班資料表.半天, 排班資料表.休息, 
78
+                            排班資料表.一段, 排班資料表.二段, 排班資料表.顏色1, 排班資料表.顏色2, 排班資料表.項次, 
79
+                            CAST(排班資料表.項次 AS INT) AS 項, AA.請假類別
80
+                FROM       (SELECT   人事請假單.請假類別, ras_Users.UserName, 人事請假單.是否生效
81
+                            FROM     人事請假單 INNER JOIN ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
82
+                            WHERE   (人事請假單.請假類別 NOT LIKE '未到') AND (人事請假單.請假類別 NOT LIKE '國定假日') AND 
83
+                                    (人事請假單.請假類別 NOT LIKE '離職') AND (人事請假單.日期 LIKE N'" & PA & "')) 
84
+                            AS AA RIGHT OUTER JOIN 排班資料表 ON AA.UserName = 排班資料表.姓名
85
+                WHERE     (排班資料表.日期 LIKE N'" & PA & "')
86
+                ORDER BY   項"
75
         CmdSet_For_DGV()
87
         CmdSet_For_DGV()
76
     End Sub
88
     End Sub
77
     Friend Sub SQL_排班系統_個人整月排班()
89
     Friend Sub SQL_排班系統_個人整月排班()

+ 73
- 28
GRAMS-SYS/00、Module/SQL_系統設定.vb 查看文件

85
         CmdSet_For_dr()
85
         CmdSet_For_dr()
86
     End Sub
86
     End Sub
87
     Friend Sub SQL_申請刪除1()
87
     Friend Sub SQL_申請刪除1()
88
-        ConnOpen()
89
-        SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & ""
90
-        CmdSet_For_dr()
88
+        ConnOpen() : SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & "" : CmdSet_For_dr()
91
     End Sub
89
     End Sub
92
     Friend Sub SQL_時段設定()
90
     Friend Sub SQL_時段設定()
93
         ConnOpen()
91
         ConnOpen()
94
-        SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息
95
-                FROM     時段設定 
96
-                ORDER BY ID"
92
+        SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息  FROM  時段設定  ORDER BY ID"
97
         CmdSet_For_DGV()
93
         CmdSet_For_DGV()
98
     End Sub
94
     End Sub
99
-    Friend Sub SQL_適應症設定()
95
+    Friend Sub SQL_業務控制()
100
         ConnOpen_ERP()
96
         ConnOpen_ERP()
101
-        SQL1 = "SELECT 編號, 適應症 FROM  業務對應適應症 ORDER BY 編號"
97
+        SQL1 = "SELECT  流水號, 日期, 醫師, 病歷號, 銷售人員, 銷售指定 AS 指定日期, 銷售成功, 備註 FROM  業務銷售控制表 " & SQL2 & "  ORDER BY 日期 DESC, 醫師"
102
         CmdSet_For_DGV()
98
         CmdSet_For_DGV()
103
     End Sub
99
     End Sub
104
-    Friend Sub SQL_適應症刪除()
100
+    Friend Sub SQL_業務明細()
105
         ConnOpen_ERP()
101
         ConnOpen_ERP()
106
-        SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"
107
-        CmdSet_For_dr()
102
+        SQL1 = "SELECT  適應症號 AS 建議治療  FROM  業務銷售明細表  WHERE  (流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "') GROUP BY 適應症號 ORDER BY 適應症號"
103
+        CmdSet_For_DGV()
108
     End Sub
104
     End Sub
109
-    Friend Sub SQL_適應症修改()
105
+    Friend Sub SQL_業務控制指定銷售()
106
+        ConnOpen_ERP()
107
+        SQL1 = "SELECT  銷售人員 FROM  業務銷售控制表 WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
108
+        CmdSet_For_dr()
109
+        If dr.Read Then
110
+            If dr("銷售人員").ToString = "" Then
111
+                ConnOpen_ERP()
112
+                SQL1 = "UPDATE  業務銷售控制表 SET 銷售人員 = N'" & 業務銷售控制表.銷售人員_tb.Text & "', 銷售指定 = N'" & Strings.Format(Today(), "yyyy/MM/dd") & "' 
113
+                        WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
114
+                CmdSet_For_dr()
115
+            Else
116
+                MsgBox("已有指定的銷售人員,如要修改請洽主管!!")
117
+            End If
118
+        End If
119
+    End Sub
120
+    Friend Sub SQL_業務控制指定銷售完成()
110
         ConnOpen_ERP()
121
         ConnOpen_ERP()
111
-        SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"
122
+        SQL1 = "SELECT  銷售人員 FROM  業務銷售控制表 WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
123
+        CmdSet_For_dr()
124
+        If dr.Read Then
125
+            If dr("銷售人員").ToString = "" Then
126
+                ConnOpen_ERP()
127
+                SQL1 = "UPDATE  業務銷售控制表 SET 銷售人員 = N'" & 業務銷售控制表.銷售人員_tb.Text & "', 銷售指定 = N'" & Strings.Format(Today(), "yyyy/MM/dd") & "' 
128
+                        WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
129
+                CmdSet_For_dr()
130
+            End If
131
+            ConnOpen_ERP()
132
+            SQL1 = "UPDATE  業務銷售控制表 SET 銷售狀態 = N'" & PA1 & "', 銷售成功 = N'" & PA2 & "' WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
133
+            CmdSet_For_dr()
134
+        End If
135
+    End Sub
136
+    Friend Sub SQL_業務控制備註存檔()
137
+        ConnOpen_ERP()
138
+        SQL1 = "UPDATE  業務銷售控制表 SET 備註 = N'" & 業務銷售控制表.備註_tb.Text & "' WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
112
         CmdSet_For_dr()
139
         CmdSet_For_dr()
113
     End Sub
140
     End Sub
141
+    Friend Sub SQL_適應症主清單1()
142
+        ConnOpen_ERP() : SQL1 = "SELECT  適應症  FROM  適應症 GROUP BY 適應症  ORDER BY   適應症" : CmdSet_For_dr()
143
+    End Sub
144
+    Friend Sub SQL_適應症主清單2()
145
+        ConnOpen_ERP() : SQL1 = "SELECT  治療建議  FROM  適應症  WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "'  ORDER BY   治療建議" : CmdSet_For_dr()
146
+    End Sub
147
+    Friend Sub SQL_適應症設定()
148
+        ConnOpen_ERP() : SQL1 = "SELECT  流水號, 適應症, 治療建議  FROM  適應症  ORDER BY   適應症, 治療建議" : CmdSet_For_DGV()
149
+    End Sub
150
+    Friend Sub SQL_適應症刪除()
151
+        ConnOpen_ERP() : SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
152
+    End Sub
153
+    Friend Sub SQL_適應症修改()
154
+        ConnOpen_ERP() : SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
155
+    End Sub
114
     Friend Sub SQL_查詢最後一筆適應症()
156
     Friend Sub SQL_查詢最後一筆適應症()
115
         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 編號 FROM 業務對應適應症 ORDER BY 編號 DESC" : CmdSet_For_dr()
157
         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 編號 FROM 業務對應適應症 ORDER BY 編號 DESC" : CmdSet_For_dr()
116
     End Sub
158
     End Sub
159
+    Friend Sub SQL_適應症流水()
160
+        ConnOpen_ERP() : SQL1 = "SELECT 流水號 FROM 適應症 WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "' AND  治療建議 LIKE N'" & 適應症選擇.療程_cb.Text & "'" : CmdSet_For_dr()
161
+    End Sub
162
+    Friend Sub SQL_適應症刪除1()
163
+        ConnOpen_ERP() : SQL1 = "DELETE 適應症 WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "' AND  治療建議 LIKE N'" & 適應症選擇.療程_cb.Text & "'" : CmdSet_For_dr()
164
+    End Sub
165
+    Friend Sub SQL_適應症流水1()
166
+        ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 流水號 FROM 適應症 ORDER BY 流水號 DESC" : CmdSet_For_dr()
167
+    End Sub
168
+    Friend Sub SQL_適應症新增1()
169
+        ConnOpen_ERP()
170
+        SQL1 = "INSERT INTO  適應症 (流水號, 適應症, 治療建議)  VALUES (N'" & PA & "', N'" & 適應症選擇.病症_cb.Text & "',N'" & 適應症選擇.療程_cb.Text & "')"
171
+        CmdSet_For_dr()
172
+    End Sub
117
     Friend Sub SQL_適應症新增()
173
     Friend Sub SQL_適應症新增()
118
         ConnOpen_ERP() : SQL1 = "INSERT INTO  業務對應適應症 (編號, 適應症)  VALUES (N'" & 系統設定.適應症_編號_tb.Text & "',N'" & 系統設定.適應症_tb.Text & "')" : CmdSet_For_dr()
174
         ConnOpen_ERP() : SQL1 = "INSERT INTO  業務對應適應症 (編號, 適應症)  VALUES (N'" & 系統設定.適應症_編號_tb.Text & "',N'" & 系統設定.適應症_tb.Text & "')" : CmdSet_For_dr()
119
     End Sub
175
     End Sub
136
         CmdSet_For_dr()
192
         CmdSet_For_dr()
137
     End Sub
193
     End Sub
138
     Friend Sub SQL_時段刪除()
194
     Friend Sub SQL_時段刪除()
139
-        ConnOpen()
140
-        SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'"
141
-        CmdSet_For_dr()
195
+        ConnOpen() : SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'" : CmdSet_For_dr()
142
     End Sub
196
     End Sub
143
-
144
     Friend Sub SQL_FTP資料庫管理()
197
     Friend Sub SQL_FTP資料庫管理()
145
         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置  FROM  FTP資料庫管理 " : CmdSet_For_DGV()
198
         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置  FROM  FTP資料庫管理 " : CmdSet_For_DGV()
146
     End Sub
199
     End Sub
157
         CmdSet_For_dr()
210
         CmdSet_For_dr()
158
     End Sub
211
     End Sub
159
     Friend Sub SQL_資料庫刪除()
212
     Friend Sub SQL_資料庫刪除()
160
-        ConnOpen()
161
-        SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'"
162
-        CmdSet_For_dr()
213
+        ConnOpen() : SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'" : CmdSet_For_dr()
163
     End Sub
214
     End Sub
164
     Friend Sub SQL_工作職務()
215
     Friend Sub SQL_工作職務()
165
         ConnOpen() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()
216
         ConnOpen() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()
168
         ConnOpen() : SQL1 = "INSERT INTO 工作職務 (職務) VALUES (N'" & PA & "')" : CmdSet_For_dr()
219
         ConnOpen() : SQL1 = "INSERT INTO 工作職務 (職務) VALUES (N'" & PA & "')" : CmdSet_For_dr()
169
     End Sub
220
     End Sub
170
     Friend Sub SQL_工作修改()
221
     Friend Sub SQL_工作修改()
171
-        ConnOpen()
172
-        SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"
173
-        CmdSet_For_dr()
222
+        ConnOpen() : SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'" : CmdSet_For_dr()
174
     End Sub
223
     End Sub
175
     Friend Sub SQL_工作刪除()
224
     Friend Sub SQL_工作刪除()
176
-        ConnOpen()
177
-        SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"
178
-        CmdSet_For_dr()
225
+        ConnOpen() : SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'" : CmdSet_For_dr()
179
     End Sub
226
     End Sub
180
-
181
     Friend Sub SQL_年份清單()
227
     Friend Sub SQL_年份清單()
182
         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
228
         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
183
     End Sub
229
     End Sub
218
         SQL1 = "UPDATE 門診資料 SET 星期 = N'" & PA3 & "', 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'"
264
         SQL1 = "UPDATE 門診資料 SET 星期 = N'" & PA3 & "', 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'"
219
         CmdSet_For_dr()
265
         CmdSet_For_dr()
220
     End Sub
266
     End Sub
221
-
222
     '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
267
     '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
223
     Friend Sub SQL_FTP資料夾管理新增()
268
     Friend Sub SQL_FTP資料夾管理新增()
224
         ConnOpen()
269
         ConnOpen()

+ 8
- 7
GRAMS-SYS/00、Module/SQL_考勤系統.vb 查看文件

12
     End Sub
12
     End Sub
13
     Friend Sub SQL_考勤明細表_人員()
13
     Friend Sub SQL_考勤明細表_人員()
14
         ConnOpen()
14
         ConnOpen()
15
-        SQL1 = "SELECT   ras_Users.DIN AS [No.], ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名, 使用者權限管理表.CC18, 
16
-                         使用者權限管理表.月薪, 使用者權限管理表.時薪, 使用者權限管理表.主管加級, 使用者權限管理表.職務加級, 
17
-                         使用者權限管理表.勞保費, 使用者權限管理表.健保費, 使用者權限管理表.到職日
18
-                FROM     ras_Users INNER JOIN
19
-                        (SELECT DIN FROM ras_AttRecord WHERE (MONTH(Clock) = " & PA2 & ") AND (YEAR(Clock) = " & PA1 & ") GROUP BY DIN) AS QQQ 
20
-                         ON ras_Users.DIN = QQQ.DIN INNER JOIN 使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN
21
-                ORDER BY 編號"
15
+        SQL1 = "SELECT     ras_Users.DIN AS [No.], ras_Users.DIN AS 編號, ras_Users.UserName AS 姓名, 使用者權限管理表.CC18, 
16
+                           使用者權限管理表.月薪, 使用者權限管理表.時薪, 使用者權限管理表.主管加級, 使用者權限管理表.職務加級, 
17
+                           使用者權限管理表.勞保費, 使用者權限管理表.健保費, 使用者權限管理表.到職日
18
+                FROM       ras_Users INNER JOIN
19
+                           使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN
20
+                WHERE     (ras_Users.IsLockedOut = 0) AND (ras_Users.DIN NOT LIKE '999') AND (ras_Users.DIN NOT LIKE '18') AND 
21
+                          (ras_Users.DIN NOT LIKE '19') AND (ras_Users.DIN NOT LIKE '21')
22
+                ORDER BY   編號"
22
         CmdSet_For_DGV()
23
         CmdSet_For_DGV()
23
     End Sub
24
     End Sub
24
     Friend Sub SQL_考勤明細表_月份考勤()  '8、9、11、12、14、15
25
     Friend Sub SQL_考勤明細表_月份考勤()  '8、9、11、12、14、15

+ 1
- 1
GRAMS-SYS/00、Module/全域變數.vb 查看文件

7
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
7
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
8
     Public AA(99) As String : Public CC(99) As Boolean
8
     Public AA(99) As String : Public CC(99) As Boolean
9
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
10
-    Public 版本 As String = "2024013001"
10
+    Public 版本 As String = "2024030502"
11
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
11
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
12
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30,
12
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30,
13
            PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA49 As String
13
            PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA49 As String

+ 349
- 129
GRAMS-SYS/01、排班管理/排班明細.Designer.vb
文件差異過大導致無法顯示
查看文件


+ 5
- 0
GRAMS-SYS/01、排班管理/排班明細.vb 查看文件

31
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
31
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
32
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
32
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
33
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
33
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
34
+            If IsDBNull(排班明細_dgv.Rows(i).Cells("請假類別").Value) = True Then
35
+                排班明細_dgv.Rows(i).Cells("請假類別").Value = ""
36
+            End If
34
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
37
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
35
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
38
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
36
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
39
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
476
             Q = 0
479
             Q = 0
477
             For no As Integer = 1 To 20
480
             For no As Integer = 1 To 20
478
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
481
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
482
+                Dim 請假_tbS As TextBox = CType(Me.Controls.Find("請假_tb" + no.ToString(), True)(0), TextBox)
479
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
483
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
480
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
484
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
481
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
485
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
495
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
499
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
496
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
500
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
497
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
501
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
502
+                請假_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("請假類別").Value.ToString
498
             Next
503
             Next
499
         End If
504
         End If
500
     End Sub
505
     End Sub

+ 306
- 86
GRAMS-SYS/01、排班管理/排班明細_參考.Designer.vb 查看文件

23
     <System.Diagnostics.DebuggerStepThrough()>
23
     <System.Diagnostics.DebuggerStepThrough()>
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(排班明細_參考))
25
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(排班明細_參考))
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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
         Me.存檔_ch = New System.Windows.Forms.CheckBox()
28
         Me.存檔_ch = New System.Windows.Forms.CheckBox()
29
         Me.截圖_bt = New System.Windows.Forms.Button()
29
         Me.截圖_bt = New System.Windows.Forms.Button()
30
         Me.Panel1 = New System.Windows.Forms.Panel()
30
         Me.Panel1 = New System.Windows.Forms.Panel()
354
         Me.穩定_ch = New System.Windows.Forms.CheckBox()
354
         Me.穩定_ch = New System.Windows.Forms.CheckBox()
355
         Me.崗位05_ch = New System.Windows.Forms.CheckBox()
355
         Me.崗位05_ch = New System.Windows.Forms.CheckBox()
356
         Me.Label58 = New System.Windows.Forms.Label()
356
         Me.Label58 = New System.Windows.Forms.Label()
357
+        Me.請假_tb20 = New System.Windows.Forms.TextBox()
358
+        Me.請假_tb19 = New System.Windows.Forms.TextBox()
359
+        Me.請假_tb18 = New System.Windows.Forms.TextBox()
360
+        Me.請假_tb17 = New System.Windows.Forms.TextBox()
361
+        Me.請假_tb16 = New System.Windows.Forms.TextBox()
362
+        Me.請假_tb15 = New System.Windows.Forms.TextBox()
363
+        Me.請假_tb14 = New System.Windows.Forms.TextBox()
364
+        Me.請假_tb13 = New System.Windows.Forms.TextBox()
365
+        Me.請假_tb12 = New System.Windows.Forms.TextBox()
366
+        Me.請假_tb11 = New System.Windows.Forms.TextBox()
367
+        Me.請假_tb10 = New System.Windows.Forms.TextBox()
368
+        Me.請假_tb9 = New System.Windows.Forms.TextBox()
369
+        Me.請假_tb8 = New System.Windows.Forms.TextBox()
370
+        Me.請假_tb7 = New System.Windows.Forms.TextBox()
371
+        Me.請假_tb6 = New System.Windows.Forms.TextBox()
372
+        Me.請假_tb5 = New System.Windows.Forms.TextBox()
373
+        Me.請假_tb4 = New System.Windows.Forms.TextBox()
374
+        Me.請假_tb3 = New System.Windows.Forms.TextBox()
375
+        Me.請假_tb2 = New System.Windows.Forms.TextBox()
376
+        Me.請假_tb1 = New System.Windows.Forms.TextBox()
357
         Me.Panel1.SuspendLayout()
377
         Me.Panel1.SuspendLayout()
358
         CType(Me.NUP20, System.ComponentModel.ISupportInitialize).BeginInit()
378
         CType(Me.NUP20, System.ComponentModel.ISupportInitialize).BeginInit()
359
         CType(Me.NUP19, System.ComponentModel.ISupportInitialize).BeginInit()
379
         CType(Me.NUP19, System.ComponentModel.ISupportInitialize).BeginInit()
2212
         '
2232
         '
2213
         Me.CheckBox20.AutoSize = True
2233
         Me.CheckBox20.AutoSize = True
2214
         Me.CheckBox20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2234
         Me.CheckBox20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2215
-        Me.CheckBox20.Location = New System.Drawing.Point(353, 622)
2235
+        Me.CheckBox20.Location = New System.Drawing.Point(360, 622)
2216
         Me.CheckBox20.Name = "CheckBox20"
2236
         Me.CheckBox20.Name = "CheckBox20"
2217
-        Me.CheckBox20.Size = New System.Drawing.Size(50, 20)
2237
+        Me.CheckBox20.Size = New System.Drawing.Size(38, 20)
2218
         Me.CheckBox20.TabIndex = 1945
2238
         Me.CheckBox20.TabIndex = 1945
2219
-        Me.CheckBox20.Text = "半"
2239
+        Me.CheckBox20.Text = "半"
2220
         Me.CheckBox20.UseVisualStyleBackColor = True
2240
         Me.CheckBox20.UseVisualStyleBackColor = True
2221
         '
2241
         '
2222
         'NumericUpDown19
2242
         'NumericUpDown19
2236
         '
2256
         '
2237
         Me.CheckBox19.AutoSize = True
2257
         Me.CheckBox19.AutoSize = True
2238
         Me.CheckBox19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2258
         Me.CheckBox19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2239
-        Me.CheckBox19.Location = New System.Drawing.Point(353, 595)
2259
+        Me.CheckBox19.Location = New System.Drawing.Point(360, 595)
2240
         Me.CheckBox19.Name = "CheckBox19"
2260
         Me.CheckBox19.Name = "CheckBox19"
2241
-        Me.CheckBox19.Size = New System.Drawing.Size(50, 20)
2261
+        Me.CheckBox19.Size = New System.Drawing.Size(38, 20)
2242
         Me.CheckBox19.TabIndex = 1943
2262
         Me.CheckBox19.TabIndex = 1943
2243
-        Me.CheckBox19.Text = "半"
2263
+        Me.CheckBox19.Text = "半"
2244
         Me.CheckBox19.UseVisualStyleBackColor = True
2264
         Me.CheckBox19.UseVisualStyleBackColor = True
2245
         '
2265
         '
2246
         'NumericUpDown18
2266
         'NumericUpDown18
2260
         '
2280
         '
2261
         Me.CheckBox18.AutoSize = True
2281
         Me.CheckBox18.AutoSize = True
2262
         Me.CheckBox18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2282
         Me.CheckBox18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2263
-        Me.CheckBox18.Location = New System.Drawing.Point(353, 569)
2283
+        Me.CheckBox18.Location = New System.Drawing.Point(360, 569)
2264
         Me.CheckBox18.Name = "CheckBox18"
2284
         Me.CheckBox18.Name = "CheckBox18"
2265
-        Me.CheckBox18.Size = New System.Drawing.Size(50, 20)
2285
+        Me.CheckBox18.Size = New System.Drawing.Size(38, 20)
2266
         Me.CheckBox18.TabIndex = 1941
2286
         Me.CheckBox18.TabIndex = 1941
2267
-        Me.CheckBox18.Text = "半"
2287
+        Me.CheckBox18.Text = "半"
2268
         Me.CheckBox18.UseVisualStyleBackColor = True
2288
         Me.CheckBox18.UseVisualStyleBackColor = True
2269
         '
2289
         '
2270
         'NumericUpDown17
2290
         'NumericUpDown17
2284
         '
2304
         '
2285
         Me.CheckBox17.AutoSize = True
2305
         Me.CheckBox17.AutoSize = True
2286
         Me.CheckBox17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2306
         Me.CheckBox17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2287
-        Me.CheckBox17.Location = New System.Drawing.Point(353, 542)
2307
+        Me.CheckBox17.Location = New System.Drawing.Point(360, 542)
2288
         Me.CheckBox17.Name = "CheckBox17"
2308
         Me.CheckBox17.Name = "CheckBox17"
2289
-        Me.CheckBox17.Size = New System.Drawing.Size(50, 20)
2309
+        Me.CheckBox17.Size = New System.Drawing.Size(38, 20)
2290
         Me.CheckBox17.TabIndex = 1939
2310
         Me.CheckBox17.TabIndex = 1939
2291
-        Me.CheckBox17.Text = "半"
2311
+        Me.CheckBox17.Text = "半"
2292
         Me.CheckBox17.UseVisualStyleBackColor = True
2312
         Me.CheckBox17.UseVisualStyleBackColor = True
2293
         '
2313
         '
2294
         'NumericUpDown16
2314
         'NumericUpDown16
2308
         '
2328
         '
2309
         Me.CheckBox16.AutoSize = True
2329
         Me.CheckBox16.AutoSize = True
2310
         Me.CheckBox16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2330
         Me.CheckBox16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2311
-        Me.CheckBox16.Location = New System.Drawing.Point(353, 514)
2331
+        Me.CheckBox16.Location = New System.Drawing.Point(360, 514)
2312
         Me.CheckBox16.Name = "CheckBox16"
2332
         Me.CheckBox16.Name = "CheckBox16"
2313
-        Me.CheckBox16.Size = New System.Drawing.Size(50, 20)
2333
+        Me.CheckBox16.Size = New System.Drawing.Size(38, 20)
2314
         Me.CheckBox16.TabIndex = 1937
2334
         Me.CheckBox16.TabIndex = 1937
2315
-        Me.CheckBox16.Text = "半"
2335
+        Me.CheckBox16.Text = "半"
2316
         Me.CheckBox16.UseVisualStyleBackColor = True
2336
         Me.CheckBox16.UseVisualStyleBackColor = True
2317
         '
2337
         '
2318
         'NumericUpDown15
2338
         'NumericUpDown15
2332
         '
2352
         '
2333
         Me.CheckBox15.AutoSize = True
2353
         Me.CheckBox15.AutoSize = True
2334
         Me.CheckBox15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2354
         Me.CheckBox15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2335
-        Me.CheckBox15.Location = New System.Drawing.Point(353, 488)
2355
+        Me.CheckBox15.Location = New System.Drawing.Point(360, 488)
2336
         Me.CheckBox15.Name = "CheckBox15"
2356
         Me.CheckBox15.Name = "CheckBox15"
2337
-        Me.CheckBox15.Size = New System.Drawing.Size(50, 20)
2357
+        Me.CheckBox15.Size = New System.Drawing.Size(38, 20)
2338
         Me.CheckBox15.TabIndex = 1935
2358
         Me.CheckBox15.TabIndex = 1935
2339
-        Me.CheckBox15.Text = "半"
2359
+        Me.CheckBox15.Text = "半"
2340
         Me.CheckBox15.UseVisualStyleBackColor = True
2360
         Me.CheckBox15.UseVisualStyleBackColor = True
2341
         '
2361
         '
2342
         'NumericUpDown14
2362
         'NumericUpDown14
2356
         '
2376
         '
2357
         Me.CheckBox14.AutoSize = True
2377
         Me.CheckBox14.AutoSize = True
2358
         Me.CheckBox14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2378
         Me.CheckBox14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2359
-        Me.CheckBox14.Location = New System.Drawing.Point(353, 460)
2379
+        Me.CheckBox14.Location = New System.Drawing.Point(360, 460)
2360
         Me.CheckBox14.Name = "CheckBox14"
2380
         Me.CheckBox14.Name = "CheckBox14"
2361
-        Me.CheckBox14.Size = New System.Drawing.Size(50, 20)
2381
+        Me.CheckBox14.Size = New System.Drawing.Size(38, 20)
2362
         Me.CheckBox14.TabIndex = 1933
2382
         Me.CheckBox14.TabIndex = 1933
2363
-        Me.CheckBox14.Text = "半"
2383
+        Me.CheckBox14.Text = "半"
2364
         Me.CheckBox14.UseVisualStyleBackColor = True
2384
         Me.CheckBox14.UseVisualStyleBackColor = True
2365
         '
2385
         '
2366
         'NumericUpDown13
2386
         'NumericUpDown13
2380
         '
2400
         '
2381
         Me.CheckBox13.AutoSize = True
2401
         Me.CheckBox13.AutoSize = True
2382
         Me.CheckBox13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2402
         Me.CheckBox13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2383
-        Me.CheckBox13.Location = New System.Drawing.Point(353, 433)
2403
+        Me.CheckBox13.Location = New System.Drawing.Point(360, 433)
2384
         Me.CheckBox13.Name = "CheckBox13"
2404
         Me.CheckBox13.Name = "CheckBox13"
2385
-        Me.CheckBox13.Size = New System.Drawing.Size(50, 20)
2405
+        Me.CheckBox13.Size = New System.Drawing.Size(38, 20)
2386
         Me.CheckBox13.TabIndex = 1931
2406
         Me.CheckBox13.TabIndex = 1931
2387
-        Me.CheckBox13.Text = "半"
2407
+        Me.CheckBox13.Text = "半"
2388
         Me.CheckBox13.UseVisualStyleBackColor = True
2408
         Me.CheckBox13.UseVisualStyleBackColor = True
2389
         '
2409
         '
2390
         'NumericUpDown12
2410
         'NumericUpDown12
2404
         '
2424
         '
2405
         Me.CheckBox12.AutoSize = True
2425
         Me.CheckBox12.AutoSize = True
2406
         Me.CheckBox12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2426
         Me.CheckBox12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2407
-        Me.CheckBox12.Location = New System.Drawing.Point(353, 406)
2427
+        Me.CheckBox12.Location = New System.Drawing.Point(360, 406)
2408
         Me.CheckBox12.Name = "CheckBox12"
2428
         Me.CheckBox12.Name = "CheckBox12"
2409
-        Me.CheckBox12.Size = New System.Drawing.Size(50, 20)
2429
+        Me.CheckBox12.Size = New System.Drawing.Size(38, 20)
2410
         Me.CheckBox12.TabIndex = 1929
2430
         Me.CheckBox12.TabIndex = 1929
2411
-        Me.CheckBox12.Text = "半"
2431
+        Me.CheckBox12.Text = "半"
2412
         Me.CheckBox12.UseVisualStyleBackColor = True
2432
         Me.CheckBox12.UseVisualStyleBackColor = True
2413
         '
2433
         '
2414
         'NumericUpDown11
2434
         'NumericUpDown11
2428
         '
2448
         '
2429
         Me.CheckBox11.AutoSize = True
2449
         Me.CheckBox11.AutoSize = True
2430
         Me.CheckBox11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2450
         Me.CheckBox11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2431
-        Me.CheckBox11.Location = New System.Drawing.Point(353, 380)
2451
+        Me.CheckBox11.Location = New System.Drawing.Point(360, 380)
2432
         Me.CheckBox11.Name = "CheckBox11"
2452
         Me.CheckBox11.Name = "CheckBox11"
2433
-        Me.CheckBox11.Size = New System.Drawing.Size(50, 20)
2453
+        Me.CheckBox11.Size = New System.Drawing.Size(38, 20)
2434
         Me.CheckBox11.TabIndex = 1927
2454
         Me.CheckBox11.TabIndex = 1927
2435
-        Me.CheckBox11.Text = "半"
2455
+        Me.CheckBox11.Text = "半"
2436
         Me.CheckBox11.UseVisualStyleBackColor = True
2456
         Me.CheckBox11.UseVisualStyleBackColor = True
2437
         '
2457
         '
2438
         'NumericUpDown10
2458
         'NumericUpDown10
2452
         '
2472
         '
2453
         Me.CheckBox10.AutoSize = True
2473
         Me.CheckBox10.AutoSize = True
2454
         Me.CheckBox10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2474
         Me.CheckBox10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2455
-        Me.CheckBox10.Location = New System.Drawing.Point(353, 351)
2475
+        Me.CheckBox10.Location = New System.Drawing.Point(360, 351)
2456
         Me.CheckBox10.Name = "CheckBox10"
2476
         Me.CheckBox10.Name = "CheckBox10"
2457
-        Me.CheckBox10.Size = New System.Drawing.Size(50, 20)
2477
+        Me.CheckBox10.Size = New System.Drawing.Size(38, 20)
2458
         Me.CheckBox10.TabIndex = 1925
2478
         Me.CheckBox10.TabIndex = 1925
2459
-        Me.CheckBox10.Text = "半"
2479
+        Me.CheckBox10.Text = "半"
2460
         Me.CheckBox10.UseVisualStyleBackColor = True
2480
         Me.CheckBox10.UseVisualStyleBackColor = True
2461
         '
2481
         '
2462
         'NumericUpDown9
2482
         'NumericUpDown9
2476
         '
2496
         '
2477
         Me.CheckBox9.AutoSize = True
2497
         Me.CheckBox9.AutoSize = True
2478
         Me.CheckBox9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2498
         Me.CheckBox9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2479
-        Me.CheckBox9.Location = New System.Drawing.Point(353, 325)
2499
+        Me.CheckBox9.Location = New System.Drawing.Point(360, 325)
2480
         Me.CheckBox9.Name = "CheckBox9"
2500
         Me.CheckBox9.Name = "CheckBox9"
2481
-        Me.CheckBox9.Size = New System.Drawing.Size(50, 20)
2501
+        Me.CheckBox9.Size = New System.Drawing.Size(38, 20)
2482
         Me.CheckBox9.TabIndex = 1923
2502
         Me.CheckBox9.TabIndex = 1923
2483
-        Me.CheckBox9.Text = "半"
2503
+        Me.CheckBox9.Text = "半"
2484
         Me.CheckBox9.UseVisualStyleBackColor = True
2504
         Me.CheckBox9.UseVisualStyleBackColor = True
2485
         '
2505
         '
2486
         'NumericUpDown8
2506
         'NumericUpDown8
2500
         '
2520
         '
2501
         Me.CheckBox8.AutoSize = True
2521
         Me.CheckBox8.AutoSize = True
2502
         Me.CheckBox8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2522
         Me.CheckBox8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2503
-        Me.CheckBox8.Location = New System.Drawing.Point(353, 298)
2523
+        Me.CheckBox8.Location = New System.Drawing.Point(360, 298)
2504
         Me.CheckBox8.Name = "CheckBox8"
2524
         Me.CheckBox8.Name = "CheckBox8"
2505
-        Me.CheckBox8.Size = New System.Drawing.Size(50, 20)
2525
+        Me.CheckBox8.Size = New System.Drawing.Size(38, 20)
2506
         Me.CheckBox8.TabIndex = 1921
2526
         Me.CheckBox8.TabIndex = 1921
2507
-        Me.CheckBox8.Text = "半"
2527
+        Me.CheckBox8.Text = "半"
2508
         Me.CheckBox8.UseVisualStyleBackColor = True
2528
         Me.CheckBox8.UseVisualStyleBackColor = True
2509
         '
2529
         '
2510
         'NumericUpDown7
2530
         'NumericUpDown7
2524
         '
2544
         '
2525
         Me.CheckBox7.AutoSize = True
2545
         Me.CheckBox7.AutoSize = True
2526
         Me.CheckBox7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2546
         Me.CheckBox7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2527
-        Me.CheckBox7.Location = New System.Drawing.Point(353, 271)
2547
+        Me.CheckBox7.Location = New System.Drawing.Point(360, 271)
2528
         Me.CheckBox7.Name = "CheckBox7"
2548
         Me.CheckBox7.Name = "CheckBox7"
2529
-        Me.CheckBox7.Size = New System.Drawing.Size(50, 20)
2549
+        Me.CheckBox7.Size = New System.Drawing.Size(38, 20)
2530
         Me.CheckBox7.TabIndex = 1919
2550
         Me.CheckBox7.TabIndex = 1919
2531
-        Me.CheckBox7.Text = "半"
2551
+        Me.CheckBox7.Text = "半"
2532
         Me.CheckBox7.UseVisualStyleBackColor = True
2552
         Me.CheckBox7.UseVisualStyleBackColor = True
2533
         '
2553
         '
2534
         'NumericUpDown6
2554
         'NumericUpDown6
2548
         '
2568
         '
2549
         Me.CheckBox6.AutoSize = True
2569
         Me.CheckBox6.AutoSize = True
2550
         Me.CheckBox6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2570
         Me.CheckBox6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2551
-        Me.CheckBox6.Location = New System.Drawing.Point(353, 244)
2571
+        Me.CheckBox6.Location = New System.Drawing.Point(360, 244)
2552
         Me.CheckBox6.Name = "CheckBox6"
2572
         Me.CheckBox6.Name = "CheckBox6"
2553
-        Me.CheckBox6.Size = New System.Drawing.Size(50, 20)
2573
+        Me.CheckBox6.Size = New System.Drawing.Size(38, 20)
2554
         Me.CheckBox6.TabIndex = 1917
2574
         Me.CheckBox6.TabIndex = 1917
2555
-        Me.CheckBox6.Text = "半"
2575
+        Me.CheckBox6.Text = "半"
2556
         Me.CheckBox6.UseVisualStyleBackColor = True
2576
         Me.CheckBox6.UseVisualStyleBackColor = True
2557
         '
2577
         '
2558
         'NumericUpDown5
2578
         'NumericUpDown5
2572
         '
2592
         '
2573
         Me.CheckBox5.AutoSize = True
2593
         Me.CheckBox5.AutoSize = True
2574
         Me.CheckBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2594
         Me.CheckBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2575
-        Me.CheckBox5.Location = New System.Drawing.Point(353, 217)
2595
+        Me.CheckBox5.Location = New System.Drawing.Point(360, 217)
2576
         Me.CheckBox5.Name = "CheckBox5"
2596
         Me.CheckBox5.Name = "CheckBox5"
2577
-        Me.CheckBox5.Size = New System.Drawing.Size(50, 20)
2597
+        Me.CheckBox5.Size = New System.Drawing.Size(38, 20)
2578
         Me.CheckBox5.TabIndex = 1915
2598
         Me.CheckBox5.TabIndex = 1915
2579
-        Me.CheckBox5.Text = "半"
2599
+        Me.CheckBox5.Text = "半"
2580
         Me.CheckBox5.UseVisualStyleBackColor = True
2600
         Me.CheckBox5.UseVisualStyleBackColor = True
2581
         '
2601
         '
2582
         'NumericUpDown4
2602
         'NumericUpDown4
2596
         '
2616
         '
2597
         Me.CheckBox4.AutoSize = True
2617
         Me.CheckBox4.AutoSize = True
2598
         Me.CheckBox4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2618
         Me.CheckBox4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2599
-        Me.CheckBox4.Location = New System.Drawing.Point(353, 190)
2619
+        Me.CheckBox4.Location = New System.Drawing.Point(360, 190)
2600
         Me.CheckBox4.Name = "CheckBox4"
2620
         Me.CheckBox4.Name = "CheckBox4"
2601
-        Me.CheckBox4.Size = New System.Drawing.Size(50, 20)
2621
+        Me.CheckBox4.Size = New System.Drawing.Size(38, 20)
2602
         Me.CheckBox4.TabIndex = 1913
2622
         Me.CheckBox4.TabIndex = 1913
2603
-        Me.CheckBox4.Text = "半"
2623
+        Me.CheckBox4.Text = "半"
2604
         Me.CheckBox4.UseVisualStyleBackColor = True
2624
         Me.CheckBox4.UseVisualStyleBackColor = True
2605
         '
2625
         '
2606
         'NumericUpDown3
2626
         'NumericUpDown3
2620
         '
2640
         '
2621
         Me.CheckBox3.AutoSize = True
2641
         Me.CheckBox3.AutoSize = True
2622
         Me.CheckBox3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2642
         Me.CheckBox3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2623
-        Me.CheckBox3.Location = New System.Drawing.Point(353, 163)
2643
+        Me.CheckBox3.Location = New System.Drawing.Point(360, 163)
2624
         Me.CheckBox3.Name = "CheckBox3"
2644
         Me.CheckBox3.Name = "CheckBox3"
2625
-        Me.CheckBox3.Size = New System.Drawing.Size(50, 20)
2645
+        Me.CheckBox3.Size = New System.Drawing.Size(38, 20)
2626
         Me.CheckBox3.TabIndex = 1911
2646
         Me.CheckBox3.TabIndex = 1911
2627
-        Me.CheckBox3.Text = "半"
2647
+        Me.CheckBox3.Text = "半"
2628
         Me.CheckBox3.UseVisualStyleBackColor = True
2648
         Me.CheckBox3.UseVisualStyleBackColor = True
2629
         '
2649
         '
2630
         'NumericUpDown2
2650
         'NumericUpDown2
2644
         '
2664
         '
2645
         Me.CheckBox2.AutoSize = True
2665
         Me.CheckBox2.AutoSize = True
2646
         Me.CheckBox2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2666
         Me.CheckBox2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2647
-        Me.CheckBox2.Location = New System.Drawing.Point(353, 137)
2667
+        Me.CheckBox2.Location = New System.Drawing.Point(360, 137)
2648
         Me.CheckBox2.Name = "CheckBox2"
2668
         Me.CheckBox2.Name = "CheckBox2"
2649
-        Me.CheckBox2.Size = New System.Drawing.Size(50, 20)
2669
+        Me.CheckBox2.Size = New System.Drawing.Size(38, 20)
2650
         Me.CheckBox2.TabIndex = 1909
2670
         Me.CheckBox2.TabIndex = 1909
2651
-        Me.CheckBox2.Text = "半"
2671
+        Me.CheckBox2.Text = "半"
2652
         Me.CheckBox2.UseVisualStyleBackColor = True
2672
         Me.CheckBox2.UseVisualStyleBackColor = True
2653
         '
2673
         '
2654
         'NumericUpDown1
2674
         'NumericUpDown1
2668
         '
2688
         '
2669
         Me.CheckBox1.AutoSize = True
2689
         Me.CheckBox1.AutoSize = True
2670
         Me.CheckBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2690
         Me.CheckBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2671
-        Me.CheckBox1.Location = New System.Drawing.Point(353, 109)
2691
+        Me.CheckBox1.Location = New System.Drawing.Point(360, 109)
2672
         Me.CheckBox1.Name = "CheckBox1"
2692
         Me.CheckBox1.Name = "CheckBox1"
2673
-        Me.CheckBox1.Size = New System.Drawing.Size(50, 20)
2693
+        Me.CheckBox1.Size = New System.Drawing.Size(38, 20)
2674
         Me.CheckBox1.TabIndex = 1907
2694
         Me.CheckBox1.TabIndex = 1907
2675
-        Me.CheckBox1.Text = "半"
2695
+        Me.CheckBox1.Text = "半"
2676
         Me.CheckBox1.UseVisualStyleBackColor = True
2696
         Me.CheckBox1.UseVisualStyleBackColor = True
2677
         '
2697
         '
2678
         '存檔_bt
2698
         '存檔_bt
2737
         '
2757
         '
2738
         '人員_dgv
2758
         '人員_dgv
2739
         '
2759
         '
2740
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
2741
-        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
2760
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
2761
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
2742
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2762
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
2743
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
2763
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
2744
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2764
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2919
         Me.班別_cb20.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2939
         Me.班別_cb20.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2920
         Me.班別_cb20.Location = New System.Drawing.Point(228, 620)
2940
         Me.班別_cb20.Location = New System.Drawing.Point(228, 620)
2921
         Me.班別_cb20.Name = "班別_cb20"
2941
         Me.班別_cb20.Name = "班別_cb20"
2922
-        Me.班別_cb20.Size = New System.Drawing.Size(119, 24)
2942
+        Me.班別_cb20.Size = New System.Drawing.Size(82, 24)
2923
         Me.班別_cb20.TabIndex = 1859
2943
         Me.班別_cb20.TabIndex = 1859
2924
         '
2944
         '
2925
         '班別_cb19
2945
         '班別_cb19
2930
         Me.班別_cb19.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2950
         Me.班別_cb19.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2931
         Me.班別_cb19.Location = New System.Drawing.Point(228, 593)
2951
         Me.班別_cb19.Location = New System.Drawing.Point(228, 593)
2932
         Me.班別_cb19.Name = "班別_cb19"
2952
         Me.班別_cb19.Name = "班別_cb19"
2933
-        Me.班別_cb19.Size = New System.Drawing.Size(119, 24)
2953
+        Me.班別_cb19.Size = New System.Drawing.Size(82, 24)
2934
         Me.班別_cb19.TabIndex = 1858
2954
         Me.班別_cb19.TabIndex = 1858
2935
         '
2955
         '
2936
         '班別_cb18
2956
         '班別_cb18
2941
         Me.班別_cb18.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2961
         Me.班別_cb18.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2942
         Me.班別_cb18.Location = New System.Drawing.Point(228, 566)
2962
         Me.班別_cb18.Location = New System.Drawing.Point(228, 566)
2943
         Me.班別_cb18.Name = "班別_cb18"
2963
         Me.班別_cb18.Name = "班別_cb18"
2944
-        Me.班別_cb18.Size = New System.Drawing.Size(119, 24)
2964
+        Me.班別_cb18.Size = New System.Drawing.Size(82, 24)
2945
         Me.班別_cb18.TabIndex = 1857
2965
         Me.班別_cb18.TabIndex = 1857
2946
         '
2966
         '
2947
         '班別_cb17
2967
         '班別_cb17
2952
         Me.班別_cb17.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2972
         Me.班別_cb17.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2953
         Me.班別_cb17.Location = New System.Drawing.Point(228, 539)
2973
         Me.班別_cb17.Location = New System.Drawing.Point(228, 539)
2954
         Me.班別_cb17.Name = "班別_cb17"
2974
         Me.班別_cb17.Name = "班別_cb17"
2955
-        Me.班別_cb17.Size = New System.Drawing.Size(119, 24)
2975
+        Me.班別_cb17.Size = New System.Drawing.Size(82, 24)
2956
         Me.班別_cb17.TabIndex = 1856
2976
         Me.班別_cb17.TabIndex = 1856
2957
         '
2977
         '
2958
         '班別_cb16
2978
         '班別_cb16
2963
         Me.班別_cb16.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2983
         Me.班別_cb16.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2964
         Me.班別_cb16.Location = New System.Drawing.Point(228, 512)
2984
         Me.班別_cb16.Location = New System.Drawing.Point(228, 512)
2965
         Me.班別_cb16.Name = "班別_cb16"
2985
         Me.班別_cb16.Name = "班別_cb16"
2966
-        Me.班別_cb16.Size = New System.Drawing.Size(119, 24)
2986
+        Me.班別_cb16.Size = New System.Drawing.Size(82, 24)
2967
         Me.班別_cb16.TabIndex = 1855
2987
         Me.班別_cb16.TabIndex = 1855
2968
         '
2988
         '
2969
         '班別_cb15
2989
         '班別_cb15
2974
         Me.班別_cb15.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2994
         Me.班別_cb15.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2975
         Me.班別_cb15.Location = New System.Drawing.Point(228, 485)
2995
         Me.班別_cb15.Location = New System.Drawing.Point(228, 485)
2976
         Me.班別_cb15.Name = "班別_cb15"
2996
         Me.班別_cb15.Name = "班別_cb15"
2977
-        Me.班別_cb15.Size = New System.Drawing.Size(119, 24)
2997
+        Me.班別_cb15.Size = New System.Drawing.Size(82, 24)
2978
         Me.班別_cb15.TabIndex = 1854
2998
         Me.班別_cb15.TabIndex = 1854
2979
         '
2999
         '
2980
         '班別_cb14
3000
         '班別_cb14
2985
         Me.班別_cb14.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3005
         Me.班別_cb14.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2986
         Me.班別_cb14.Location = New System.Drawing.Point(228, 458)
3006
         Me.班別_cb14.Location = New System.Drawing.Point(228, 458)
2987
         Me.班別_cb14.Name = "班別_cb14"
3007
         Me.班別_cb14.Name = "班別_cb14"
2988
-        Me.班別_cb14.Size = New System.Drawing.Size(119, 24)
3008
+        Me.班別_cb14.Size = New System.Drawing.Size(82, 24)
2989
         Me.班別_cb14.TabIndex = 1853
3009
         Me.班別_cb14.TabIndex = 1853
2990
         '
3010
         '
2991
         '班別_cb13
3011
         '班別_cb13
2996
         Me.班別_cb13.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3016
         Me.班別_cb13.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
2997
         Me.班別_cb13.Location = New System.Drawing.Point(228, 431)
3017
         Me.班別_cb13.Location = New System.Drawing.Point(228, 431)
2998
         Me.班別_cb13.Name = "班別_cb13"
3018
         Me.班別_cb13.Name = "班別_cb13"
2999
-        Me.班別_cb13.Size = New System.Drawing.Size(119, 24)
3019
+        Me.班別_cb13.Size = New System.Drawing.Size(82, 24)
3000
         Me.班別_cb13.TabIndex = 1852
3020
         Me.班別_cb13.TabIndex = 1852
3001
         '
3021
         '
3002
         '班別_cb12
3022
         '班別_cb12
3007
         Me.班別_cb12.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3027
         Me.班別_cb12.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3008
         Me.班別_cb12.Location = New System.Drawing.Point(228, 404)
3028
         Me.班別_cb12.Location = New System.Drawing.Point(228, 404)
3009
         Me.班別_cb12.Name = "班別_cb12"
3029
         Me.班別_cb12.Name = "班別_cb12"
3010
-        Me.班別_cb12.Size = New System.Drawing.Size(119, 24)
3030
+        Me.班別_cb12.Size = New System.Drawing.Size(82, 24)
3011
         Me.班別_cb12.TabIndex = 1851
3031
         Me.班別_cb12.TabIndex = 1851
3012
         '
3032
         '
3013
         '班別_cb11
3033
         '班別_cb11
3018
         Me.班別_cb11.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3038
         Me.班別_cb11.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3019
         Me.班別_cb11.Location = New System.Drawing.Point(228, 377)
3039
         Me.班別_cb11.Location = New System.Drawing.Point(228, 377)
3020
         Me.班別_cb11.Name = "班別_cb11"
3040
         Me.班別_cb11.Name = "班別_cb11"
3021
-        Me.班別_cb11.Size = New System.Drawing.Size(119, 24)
3041
+        Me.班別_cb11.Size = New System.Drawing.Size(82, 24)
3022
         Me.班別_cb11.TabIndex = 1850
3042
         Me.班別_cb11.TabIndex = 1850
3023
         '
3043
         '
3024
         '班別_cb10
3044
         '班別_cb10
3029
         Me.班別_cb10.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3049
         Me.班別_cb10.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3030
         Me.班別_cb10.Location = New System.Drawing.Point(228, 350)
3050
         Me.班別_cb10.Location = New System.Drawing.Point(228, 350)
3031
         Me.班別_cb10.Name = "班別_cb10"
3051
         Me.班別_cb10.Name = "班別_cb10"
3032
-        Me.班別_cb10.Size = New System.Drawing.Size(119, 24)
3052
+        Me.班別_cb10.Size = New System.Drawing.Size(82, 24)
3033
         Me.班別_cb10.TabIndex = 1849
3053
         Me.班別_cb10.TabIndex = 1849
3034
         '
3054
         '
3035
         '班別_cb9
3055
         '班別_cb9
3040
         Me.班別_cb9.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3060
         Me.班別_cb9.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3041
         Me.班別_cb9.Location = New System.Drawing.Point(228, 323)
3061
         Me.班別_cb9.Location = New System.Drawing.Point(228, 323)
3042
         Me.班別_cb9.Name = "班別_cb9"
3062
         Me.班別_cb9.Name = "班別_cb9"
3043
-        Me.班別_cb9.Size = New System.Drawing.Size(119, 24)
3063
+        Me.班別_cb9.Size = New System.Drawing.Size(82, 24)
3044
         Me.班別_cb9.TabIndex = 1848
3064
         Me.班別_cb9.TabIndex = 1848
3045
         '
3065
         '
3046
         '班別_cb8
3066
         '班別_cb8
3051
         Me.班別_cb8.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3071
         Me.班別_cb8.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3052
         Me.班別_cb8.Location = New System.Drawing.Point(228, 296)
3072
         Me.班別_cb8.Location = New System.Drawing.Point(228, 296)
3053
         Me.班別_cb8.Name = "班別_cb8"
3073
         Me.班別_cb8.Name = "班別_cb8"
3054
-        Me.班別_cb8.Size = New System.Drawing.Size(119, 24)
3074
+        Me.班別_cb8.Size = New System.Drawing.Size(82, 24)
3055
         Me.班別_cb8.TabIndex = 1847
3075
         Me.班別_cb8.TabIndex = 1847
3056
         '
3076
         '
3057
         '班別_cb7
3077
         '班別_cb7
3062
         Me.班別_cb7.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3082
         Me.班別_cb7.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3063
         Me.班別_cb7.Location = New System.Drawing.Point(228, 269)
3083
         Me.班別_cb7.Location = New System.Drawing.Point(228, 269)
3064
         Me.班別_cb7.Name = "班別_cb7"
3084
         Me.班別_cb7.Name = "班別_cb7"
3065
-        Me.班別_cb7.Size = New System.Drawing.Size(119, 24)
3085
+        Me.班別_cb7.Size = New System.Drawing.Size(82, 24)
3066
         Me.班別_cb7.TabIndex = 1846
3086
         Me.班別_cb7.TabIndex = 1846
3067
         '
3087
         '
3068
         '班別_cb6
3088
         '班別_cb6
3073
         Me.班別_cb6.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3093
         Me.班別_cb6.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3074
         Me.班別_cb6.Location = New System.Drawing.Point(228, 242)
3094
         Me.班別_cb6.Location = New System.Drawing.Point(228, 242)
3075
         Me.班別_cb6.Name = "班別_cb6"
3095
         Me.班別_cb6.Name = "班別_cb6"
3076
-        Me.班別_cb6.Size = New System.Drawing.Size(119, 24)
3096
+        Me.班別_cb6.Size = New System.Drawing.Size(82, 24)
3077
         Me.班別_cb6.TabIndex = 1845
3097
         Me.班別_cb6.TabIndex = 1845
3078
         '
3098
         '
3079
         '班別_cb5
3099
         '班別_cb5
3084
         Me.班別_cb5.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3104
         Me.班別_cb5.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3085
         Me.班別_cb5.Location = New System.Drawing.Point(228, 215)
3105
         Me.班別_cb5.Location = New System.Drawing.Point(228, 215)
3086
         Me.班別_cb5.Name = "班別_cb5"
3106
         Me.班別_cb5.Name = "班別_cb5"
3087
-        Me.班別_cb5.Size = New System.Drawing.Size(119, 24)
3107
+        Me.班別_cb5.Size = New System.Drawing.Size(82, 24)
3088
         Me.班別_cb5.TabIndex = 1844
3108
         Me.班別_cb5.TabIndex = 1844
3089
         '
3109
         '
3090
         '班別_cb4
3110
         '班別_cb4
3095
         Me.班別_cb4.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3115
         Me.班別_cb4.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3096
         Me.班別_cb4.Location = New System.Drawing.Point(228, 188)
3116
         Me.班別_cb4.Location = New System.Drawing.Point(228, 188)
3097
         Me.班別_cb4.Name = "班別_cb4"
3117
         Me.班別_cb4.Name = "班別_cb4"
3098
-        Me.班別_cb4.Size = New System.Drawing.Size(119, 24)
3118
+        Me.班別_cb4.Size = New System.Drawing.Size(82, 24)
3099
         Me.班別_cb4.TabIndex = 1843
3119
         Me.班別_cb4.TabIndex = 1843
3100
         '
3120
         '
3101
         '班別_cb3
3121
         '班別_cb3
3106
         Me.班別_cb3.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3126
         Me.班別_cb3.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3107
         Me.班別_cb3.Location = New System.Drawing.Point(228, 161)
3127
         Me.班別_cb3.Location = New System.Drawing.Point(228, 161)
3108
         Me.班別_cb3.Name = "班別_cb3"
3128
         Me.班別_cb3.Name = "班別_cb3"
3109
-        Me.班別_cb3.Size = New System.Drawing.Size(119, 24)
3129
+        Me.班別_cb3.Size = New System.Drawing.Size(82, 24)
3110
         Me.班別_cb3.TabIndex = 1842
3130
         Me.班別_cb3.TabIndex = 1842
3111
         '
3131
         '
3112
         '班別_cb2
3132
         '班別_cb2
3117
         Me.班別_cb2.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3137
         Me.班別_cb2.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3118
         Me.班別_cb2.Location = New System.Drawing.Point(228, 134)
3138
         Me.班別_cb2.Location = New System.Drawing.Point(228, 134)
3119
         Me.班別_cb2.Name = "班別_cb2"
3139
         Me.班別_cb2.Name = "班別_cb2"
3120
-        Me.班別_cb2.Size = New System.Drawing.Size(119, 24)
3140
+        Me.班別_cb2.Size = New System.Drawing.Size(82, 24)
3121
         Me.班別_cb2.TabIndex = 1841
3141
         Me.班別_cb2.TabIndex = 1841
3122
         '
3142
         '
3123
         '班別_cb1
3143
         '班別_cb1
3128
         Me.班別_cb1.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3148
         Me.班別_cb1.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
3129
         Me.班別_cb1.Location = New System.Drawing.Point(228, 107)
3149
         Me.班別_cb1.Location = New System.Drawing.Point(228, 107)
3130
         Me.班別_cb1.Name = "班別_cb1"
3150
         Me.班別_cb1.Name = "班別_cb1"
3131
-        Me.班別_cb1.Size = New System.Drawing.Size(119, 24)
3151
+        Me.班別_cb1.Size = New System.Drawing.Size(82, 24)
3132
         Me.班別_cb1.TabIndex = 1840
3152
         Me.班別_cb1.TabIndex = 1840
3133
         '
3153
         '
3134
         'Label69
3154
         'Label69
3925
         '
3945
         '
3926
         '排班明細_dgv
3946
         '排班明細_dgv
3927
         '
3947
         '
3928
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
3929
-        Me.排班明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
3948
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
3949
+        Me.排班明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
3930
         Me.排班明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
3950
         Me.排班明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
3931
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
3951
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
3932
         Me.排班明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
3952
         Me.排班明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
3980
         Me.Label58.TabIndex = 2110
4000
         Me.Label58.TabIndex = 2110
3981
         Me.Label58.Text = "4週彈性工時" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "4週內可以將任意天數的工作" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "時數分配到其他工作天,但挪" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "移的時數每天不能超過2小時。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "每日正常工時可到10小時"
4001
         Me.Label58.Text = "4週彈性工時" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "4週內可以將任意天數的工作" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "時數分配到其他工作天,但挪" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "移的時數每天不能超過2小時。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "每日正常工時可到10小時"
3982
         '
4002
         '
4003
+        '請假_tb20
4004
+        '
4005
+        Me.請假_tb20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4006
+        Me.請假_tb20.Location = New System.Drawing.Point(312, 621)
4007
+        Me.請假_tb20.Name = "請假_tb20"
4008
+        Me.請假_tb20.Size = New System.Drawing.Size(40, 23)
4009
+        Me.請假_tb20.TabIndex = 2130
4010
+        '
4011
+        '請假_tb19
4012
+        '
4013
+        Me.請假_tb19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4014
+        Me.請假_tb19.Location = New System.Drawing.Point(312, 594)
4015
+        Me.請假_tb19.Name = "請假_tb19"
4016
+        Me.請假_tb19.Size = New System.Drawing.Size(40, 23)
4017
+        Me.請假_tb19.TabIndex = 2129
4018
+        '
4019
+        '請假_tb18
4020
+        '
4021
+        Me.請假_tb18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4022
+        Me.請假_tb18.Location = New System.Drawing.Point(312, 567)
4023
+        Me.請假_tb18.Name = "請假_tb18"
4024
+        Me.請假_tb18.Size = New System.Drawing.Size(40, 23)
4025
+        Me.請假_tb18.TabIndex = 2128
4026
+        '
4027
+        '請假_tb17
4028
+        '
4029
+        Me.請假_tb17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4030
+        Me.請假_tb17.Location = New System.Drawing.Point(312, 540)
4031
+        Me.請假_tb17.Name = "請假_tb17"
4032
+        Me.請假_tb17.Size = New System.Drawing.Size(40, 23)
4033
+        Me.請假_tb17.TabIndex = 2127
4034
+        '
4035
+        '請假_tb16
4036
+        '
4037
+        Me.請假_tb16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4038
+        Me.請假_tb16.Location = New System.Drawing.Point(312, 513)
4039
+        Me.請假_tb16.Name = "請假_tb16"
4040
+        Me.請假_tb16.Size = New System.Drawing.Size(40, 23)
4041
+        Me.請假_tb16.TabIndex = 2126
4042
+        '
4043
+        '請假_tb15
4044
+        '
4045
+        Me.請假_tb15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4046
+        Me.請假_tb15.Location = New System.Drawing.Point(312, 486)
4047
+        Me.請假_tb15.Name = "請假_tb15"
4048
+        Me.請假_tb15.Size = New System.Drawing.Size(40, 23)
4049
+        Me.請假_tb15.TabIndex = 2125
4050
+        '
4051
+        '請假_tb14
4052
+        '
4053
+        Me.請假_tb14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4054
+        Me.請假_tb14.Location = New System.Drawing.Point(312, 459)
4055
+        Me.請假_tb14.Name = "請假_tb14"
4056
+        Me.請假_tb14.Size = New System.Drawing.Size(40, 23)
4057
+        Me.請假_tb14.TabIndex = 2124
4058
+        '
4059
+        '請假_tb13
4060
+        '
4061
+        Me.請假_tb13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4062
+        Me.請假_tb13.Location = New System.Drawing.Point(312, 432)
4063
+        Me.請假_tb13.Name = "請假_tb13"
4064
+        Me.請假_tb13.Size = New System.Drawing.Size(40, 23)
4065
+        Me.請假_tb13.TabIndex = 2123
4066
+        '
4067
+        '請假_tb12
4068
+        '
4069
+        Me.請假_tb12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4070
+        Me.請假_tb12.Location = New System.Drawing.Point(312, 405)
4071
+        Me.請假_tb12.Name = "請假_tb12"
4072
+        Me.請假_tb12.Size = New System.Drawing.Size(40, 23)
4073
+        Me.請假_tb12.TabIndex = 2122
4074
+        '
4075
+        '請假_tb11
4076
+        '
4077
+        Me.請假_tb11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4078
+        Me.請假_tb11.Location = New System.Drawing.Point(312, 378)
4079
+        Me.請假_tb11.Name = "請假_tb11"
4080
+        Me.請假_tb11.Size = New System.Drawing.Size(40, 23)
4081
+        Me.請假_tb11.TabIndex = 2121
4082
+        '
4083
+        '請假_tb10
4084
+        '
4085
+        Me.請假_tb10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4086
+        Me.請假_tb10.Location = New System.Drawing.Point(312, 351)
4087
+        Me.請假_tb10.Name = "請假_tb10"
4088
+        Me.請假_tb10.Size = New System.Drawing.Size(40, 23)
4089
+        Me.請假_tb10.TabIndex = 2120
4090
+        '
4091
+        '請假_tb9
4092
+        '
4093
+        Me.請假_tb9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4094
+        Me.請假_tb9.Location = New System.Drawing.Point(312, 324)
4095
+        Me.請假_tb9.Name = "請假_tb9"
4096
+        Me.請假_tb9.Size = New System.Drawing.Size(40, 23)
4097
+        Me.請假_tb9.TabIndex = 2119
4098
+        '
4099
+        '請假_tb8
4100
+        '
4101
+        Me.請假_tb8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4102
+        Me.請假_tb8.Location = New System.Drawing.Point(312, 297)
4103
+        Me.請假_tb8.Name = "請假_tb8"
4104
+        Me.請假_tb8.Size = New System.Drawing.Size(40, 23)
4105
+        Me.請假_tb8.TabIndex = 2118
4106
+        '
4107
+        '請假_tb7
4108
+        '
4109
+        Me.請假_tb7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4110
+        Me.請假_tb7.Location = New System.Drawing.Point(312, 270)
4111
+        Me.請假_tb7.Name = "請假_tb7"
4112
+        Me.請假_tb7.Size = New System.Drawing.Size(40, 23)
4113
+        Me.請假_tb7.TabIndex = 2117
4114
+        '
4115
+        '請假_tb6
4116
+        '
4117
+        Me.請假_tb6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4118
+        Me.請假_tb6.Location = New System.Drawing.Point(312, 243)
4119
+        Me.請假_tb6.Name = "請假_tb6"
4120
+        Me.請假_tb6.Size = New System.Drawing.Size(40, 23)
4121
+        Me.請假_tb6.TabIndex = 2116
4122
+        '
4123
+        '請假_tb5
4124
+        '
4125
+        Me.請假_tb5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4126
+        Me.請假_tb5.Location = New System.Drawing.Point(312, 216)
4127
+        Me.請假_tb5.Name = "請假_tb5"
4128
+        Me.請假_tb5.Size = New System.Drawing.Size(40, 23)
4129
+        Me.請假_tb5.TabIndex = 2115
4130
+        '
4131
+        '請假_tb4
4132
+        '
4133
+        Me.請假_tb4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4134
+        Me.請假_tb4.Location = New System.Drawing.Point(312, 189)
4135
+        Me.請假_tb4.Name = "請假_tb4"
4136
+        Me.請假_tb4.Size = New System.Drawing.Size(40, 23)
4137
+        Me.請假_tb4.TabIndex = 2114
4138
+        '
4139
+        '請假_tb3
4140
+        '
4141
+        Me.請假_tb3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4142
+        Me.請假_tb3.Location = New System.Drawing.Point(312, 162)
4143
+        Me.請假_tb3.Name = "請假_tb3"
4144
+        Me.請假_tb3.Size = New System.Drawing.Size(40, 23)
4145
+        Me.請假_tb3.TabIndex = 2113
4146
+        '
4147
+        '請假_tb2
4148
+        '
4149
+        Me.請假_tb2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4150
+        Me.請假_tb2.Location = New System.Drawing.Point(312, 135)
4151
+        Me.請假_tb2.Name = "請假_tb2"
4152
+        Me.請假_tb2.Size = New System.Drawing.Size(40, 23)
4153
+        Me.請假_tb2.TabIndex = 2112
4154
+        '
4155
+        '請假_tb1
4156
+        '
4157
+        Me.請假_tb1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
4158
+        Me.請假_tb1.Location = New System.Drawing.Point(312, 108)
4159
+        Me.請假_tb1.Name = "請假_tb1"
4160
+        Me.請假_tb1.Size = New System.Drawing.Size(40, 23)
4161
+        Me.請假_tb1.TabIndex = 2111
4162
+        '
3983
         '排班明細_參考
4163
         '排班明細_參考
3984
         '
4164
         '
3985
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
4165
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
3986
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
4166
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
3987
         Me.AutoScroll = True
4167
         Me.AutoScroll = True
3988
         Me.ClientSize = New System.Drawing.Size(1824, 759)
4168
         Me.ClientSize = New System.Drawing.Size(1824, 759)
4169
+        Me.Controls.Add(Me.請假_tb20)
4170
+        Me.Controls.Add(Me.請假_tb19)
4171
+        Me.Controls.Add(Me.請假_tb18)
4172
+        Me.Controls.Add(Me.請假_tb17)
4173
+        Me.Controls.Add(Me.請假_tb16)
4174
+        Me.Controls.Add(Me.請假_tb15)
4175
+        Me.Controls.Add(Me.請假_tb14)
4176
+        Me.Controls.Add(Me.請假_tb13)
4177
+        Me.Controls.Add(Me.請假_tb12)
4178
+        Me.Controls.Add(Me.請假_tb11)
4179
+        Me.Controls.Add(Me.請假_tb10)
4180
+        Me.Controls.Add(Me.請假_tb9)
4181
+        Me.Controls.Add(Me.請假_tb8)
4182
+        Me.Controls.Add(Me.請假_tb7)
4183
+        Me.Controls.Add(Me.請假_tb6)
4184
+        Me.Controls.Add(Me.請假_tb5)
4185
+        Me.Controls.Add(Me.請假_tb4)
4186
+        Me.Controls.Add(Me.請假_tb3)
4187
+        Me.Controls.Add(Me.請假_tb2)
4188
+        Me.Controls.Add(Me.請假_tb1)
3989
         Me.Controls.Add(Me.Label58)
4189
         Me.Controls.Add(Me.Label58)
3990
         Me.Controls.Add(Me.存檔_ch)
4190
         Me.Controls.Add(Me.存檔_ch)
3991
         Me.Controls.Add(Me.截圖_bt)
4191
         Me.Controls.Add(Me.截圖_bt)
4693
     Friend WithEvents 穩定_ch As CheckBox
4893
     Friend WithEvents 穩定_ch As CheckBox
4694
     Friend WithEvents 崗位05_ch As CheckBox
4894
     Friend WithEvents 崗位05_ch As CheckBox
4695
     Friend WithEvents Label58 As Label
4895
     Friend WithEvents Label58 As Label
4896
+    Friend WithEvents 請假_tb20 As TextBox
4897
+    Friend WithEvents 請假_tb19 As TextBox
4898
+    Friend WithEvents 請假_tb18 As TextBox
4899
+    Friend WithEvents 請假_tb17 As TextBox
4900
+    Friend WithEvents 請假_tb16 As TextBox
4901
+    Friend WithEvents 請假_tb15 As TextBox
4902
+    Friend WithEvents 請假_tb14 As TextBox
4903
+    Friend WithEvents 請假_tb13 As TextBox
4904
+    Friend WithEvents 請假_tb12 As TextBox
4905
+    Friend WithEvents 請假_tb11 As TextBox
4906
+    Friend WithEvents 請假_tb10 As TextBox
4907
+    Friend WithEvents 請假_tb9 As TextBox
4908
+    Friend WithEvents 請假_tb8 As TextBox
4909
+    Friend WithEvents 請假_tb7 As TextBox
4910
+    Friend WithEvents 請假_tb6 As TextBox
4911
+    Friend WithEvents 請假_tb5 As TextBox
4912
+    Friend WithEvents 請假_tb4 As TextBox
4913
+    Friend WithEvents 請假_tb3 As TextBox
4914
+    Friend WithEvents 請假_tb2 As TextBox
4915
+    Friend WithEvents 請假_tb1 As TextBox
4696
 End Class
4916
 End Class

+ 5
- 0
GRAMS-SYS/01、排班管理/排班明細_參考.vb 查看文件

31
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
31
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
32
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
32
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
33
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
33
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
34
+            If IsDBNull(排班明細_dgv.Rows(i).Cells("請假類別").Value) = True Then
35
+                排班明細_dgv.Rows(i).Cells("請假類別").Value = ""
36
+            End If
34
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
37
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
35
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
38
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
36
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
39
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
476
             Q = 0
479
             Q = 0
477
             For no As Integer = 1 To 20
480
             For no As Integer = 1 To 20
478
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
481
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
482
+                Dim 請假_tbS As TextBox = CType(Me.Controls.Find("請假_tb" + no.ToString(), True)(0), TextBox)
479
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
483
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
480
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
484
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
481
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
485
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
495
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
499
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
496
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
500
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
497
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
501
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
502
+                請假_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("請假類別").Value.ToString
498
             Next
503
             Next
499
         End If
504
         End If
500
     End Sub
505
     End Sub

+ 19
- 6
GRAMS-SYS/01、排班管理/排班資料.Designer.vb 查看文件

336
         Me.職員_ch = New System.Windows.Forms.CheckBox()
336
         Me.職員_ch = New System.Windows.Forms.CheckBox()
337
         Me.重新讀取_bt = New System.Windows.Forms.Button()
337
         Me.重新讀取_bt = New System.Windows.Forms.Button()
338
         Me.列印_bt = New System.Windows.Forms.Button()
338
         Me.列印_bt = New System.Windows.Forms.Button()
339
+        Me.請休假_ch = New System.Windows.Forms.CheckBox()
339
         Me.Panel1.SuspendLayout()
340
         Me.Panel1.SuspendLayout()
340
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
341
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
341
         Me.Panel2.SuspendLayout()
342
         Me.Panel2.SuspendLayout()
3510
         Me.人員彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
3511
         Me.人員彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
3511
         Me.人員彙總_dgv.BackgroundColor = System.Drawing.Color.White
3512
         Me.人員彙總_dgv.BackgroundColor = System.Drawing.Color.White
3512
         Me.人員彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
3513
         Me.人員彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
3513
-        Me.人員彙總_dgv.Location = New System.Drawing.Point(4, 30)
3514
+        Me.人員彙總_dgv.Location = New System.Drawing.Point(4, 53)
3514
         Me.人員彙總_dgv.Name = "人員彙總_dgv"
3515
         Me.人員彙總_dgv.Name = "人員彙總_dgv"
3515
         Me.人員彙總_dgv.RowHeadersWidth = 5
3516
         Me.人員彙總_dgv.RowHeadersWidth = 5
3516
         DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
3517
         DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
3517
         Me.人員彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
3518
         Me.人員彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
3518
         Me.人員彙總_dgv.RowTemplate.Height = 24
3519
         Me.人員彙總_dgv.RowTemplate.Height = 24
3519
-        Me.人員彙總_dgv.Size = New System.Drawing.Size(335, 928)
3520
+        Me.人員彙總_dgv.Size = New System.Drawing.Size(335, 905)
3520
         Me.人員彙總_dgv.TabIndex = 700
3521
         Me.人員彙總_dgv.TabIndex = 700
3521
         '
3522
         '
3522
         '醫生_ch
3523
         '醫生_ch
3523
         '
3524
         '
3524
         Me.醫生_ch.AutoSize = True
3525
         Me.醫生_ch.AutoSize = True
3525
-        Me.醫生_ch.Location = New System.Drawing.Point(191, 5)
3526
+        Me.醫生_ch.Location = New System.Drawing.Point(6, 30)
3526
         Me.醫生_ch.Name = "醫生_ch"
3527
         Me.醫生_ch.Name = "醫生_ch"
3527
         Me.醫生_ch.Size = New System.Drawing.Size(50, 20)
3528
         Me.醫生_ch.Size = New System.Drawing.Size(50, 20)
3528
         Me.醫生_ch.TabIndex = 701
3529
         Me.醫生_ch.TabIndex = 701
3534
         Me.職員_ch.AutoSize = True
3535
         Me.職員_ch.AutoSize = True
3535
         Me.職員_ch.Checked = True
3536
         Me.職員_ch.Checked = True
3536
         Me.職員_ch.CheckState = System.Windows.Forms.CheckState.Checked
3537
         Me.職員_ch.CheckState = System.Windows.Forms.CheckState.Checked
3537
-        Me.職員_ch.Location = New System.Drawing.Point(243, 5)
3538
+        Me.職員_ch.Location = New System.Drawing.Point(68, 30)
3538
         Me.職員_ch.Name = "職員_ch"
3539
         Me.職員_ch.Name = "職員_ch"
3539
         Me.職員_ch.Size = New System.Drawing.Size(50, 20)
3540
         Me.職員_ch.Size = New System.Drawing.Size(50, 20)
3540
         Me.職員_ch.TabIndex = 702
3541
         Me.職員_ch.TabIndex = 702
3545
         '
3546
         '
3546
         Me.重新讀取_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.renew
3547
         Me.重新讀取_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.renew
3547
         Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
3548
         Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
3548
-        Me.重新讀取_bt.Location = New System.Drawing.Point(288, 2)
3549
+        Me.重新讀取_bt.Location = New System.Drawing.Point(187, 2)
3549
         Me.重新讀取_bt.Name = "重新讀取_bt"
3550
         Me.重新讀取_bt.Name = "重新讀取_bt"
3550
         Me.重新讀取_bt.Size = New System.Drawing.Size(26, 26)
3551
         Me.重新讀取_bt.Size = New System.Drawing.Size(26, 26)
3551
         Me.重新讀取_bt.TabIndex = 704
3552
         Me.重新讀取_bt.TabIndex = 704
3554
         '列印_bt
3555
         '列印_bt
3555
         '
3556
         '
3556
         Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
3557
         Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
3557
-        Me.列印_bt.Location = New System.Drawing.Point(314, 2)
3558
+        Me.列印_bt.Location = New System.Drawing.Point(254, 26)
3558
         Me.列印_bt.Name = "列印_bt"
3559
         Me.列印_bt.Name = "列印_bt"
3559
         Me.列印_bt.Size = New System.Drawing.Size(86, 26)
3560
         Me.列印_bt.Size = New System.Drawing.Size(86, 26)
3560
         Me.列印_bt.TabIndex = 705
3561
         Me.列印_bt.TabIndex = 705
3561
         Me.列印_bt.Text = "列印 EXCEL"
3562
         Me.列印_bt.Text = "列印 EXCEL"
3562
         Me.列印_bt.UseVisualStyleBackColor = True
3563
         Me.列印_bt.UseVisualStyleBackColor = True
3563
         '
3564
         '
3565
+        '請休假_ch
3566
+        '
3567
+        Me.請休假_ch.AutoSize = True
3568
+        Me.請休假_ch.Location = New System.Drawing.Point(134, 30)
3569
+        Me.請休假_ch.Name = "請休假_ch"
3570
+        Me.請休假_ch.Size = New System.Drawing.Size(62, 20)
3571
+        Me.請休假_ch.TabIndex = 706
3572
+        Me.請休假_ch.Text = "請休假"
3573
+        Me.請休假_ch.UseVisualStyleBackColor = True
3574
+        '
3564
         '排班資料
3575
         '排班資料
3565
         '
3576
         '
3566
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
3577
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
3567
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
3578
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
3568
         Me.ClientSize = New System.Drawing.Size(1884, 961)
3579
         Me.ClientSize = New System.Drawing.Size(1884, 961)
3580
+        Me.Controls.Add(Me.請休假_ch)
3569
         Me.Controls.Add(Me.列印_bt)
3581
         Me.Controls.Add(Me.列印_bt)
3570
         Me.Controls.Add(Me.重新讀取_bt)
3582
         Me.Controls.Add(Me.重新讀取_bt)
3571
         Me.Controls.Add(Me.職員_ch)
3583
         Me.Controls.Add(Me.職員_ch)
4031
     Friend WithEvents 醫生_ch As CheckBox
4043
     Friend WithEvents 醫生_ch As CheckBox
4032
     Friend WithEvents 重新讀取_bt As Button
4044
     Friend WithEvents 重新讀取_bt As Button
4033
     Friend WithEvents 列印_bt As Button
4045
     Friend WithEvents 列印_bt As Button
4046
+    Friend WithEvents 請休假_ch As CheckBox
4034
 End Class
4047
 End Class

+ 5
- 2
GRAMS-SYS/01、排班管理/排班資料.vb 查看文件

1142
         Next
1142
         Next
1143
     End Sub
1143
     End Sub
1144
     Private Sub 醫生_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 醫生_ch.Click
1144
     Private Sub 醫生_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 醫生_ch.Click
1145
-        醫生_ch.Checked = True : 職員_ch.Checked = False : 日曆變動()
1145
+        醫生_ch.Checked = True : 職員_ch.Checked = False : 請休假_ch.Checked = False : 日曆變動()
1146
     End Sub
1146
     End Sub
1147
     Private Sub 職員_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 職員_ch.Click
1147
     Private Sub 職員_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 職員_ch.Click
1148
-        醫生_ch.Checked = False : 職員_ch.Checked = True : 日曆變動()
1148
+        醫生_ch.Checked = False : 職員_ch.Checked = True : 請休假_ch.Checked = False : 日曆變動()
1149
+    End Sub
1150
+    Private Sub 請休假_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請休假_ch.Click
1151
+        醫生_ch.Checked = False : 職員_ch.Checked = False : 請休假_ch.Checked = True : 日曆變動()
1149
     End Sub
1152
     End Sub
1150
     Private Sub B01_tb_Click(sender As Object, e As EventArgs) Handles B01_tb.Click
1153
     Private Sub B01_tb_Click(sender As Object, e As EventArgs) Handles B01_tb.Click
1151
         PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb1.Text : 排班明細.Show()
1154
         PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb1.Text : 排班明細.Show()

+ 8
- 0
GRAMS-SYS/02、休假管理/休假核准.vb 查看文件

96
         Set_考勤明細()
96
         Set_考勤明細()
97
     End Sub
97
     End Sub
98
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint
98
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint
99
+        Dim linePen As New Pen(Color.Blue, 2)
100
+        If e.RowIndex = 月清單_DGV.Rows.Count - 1 Then : Exit Sub : Else
101
+            If Strings.Left(月清單_DGV("姓名", e.RowIndex).Value.ToString, 7) <> Strings.Left(月清單_DGV("姓名", e.RowIndex + 1).Value.ToString, 7) Then
102
+                Dim startX As Integer = IIf(月清單_DGV.RowHeadersVisible, 月清單_DGV.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
103
+                Dim endX As Integer = startX + 月清單_DGV.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月清單_DGV.HorizontalScrollingOffset
104
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
105
+            End If
106
+        End If
99
         For I As Integer = 0 To 月清單_DGV.Rows.Count - 1
107
         For I As Integer = 0 To 月清單_DGV.Rows.Count - 1
100
             If 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期六" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink
108
             If 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期六" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink
101
             ElseIf 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期日" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink
109
             ElseIf 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期日" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink

+ 19
- 6
GRAMS-SYS/02、休假管理/休假歷史紀錄.Designer.vb 查看文件

22
     '請勿使用程式碼編輯器進行修改。
22
     '請勿使用程式碼編輯器進行修改。
23
     <System.Diagnostics.DebuggerStepThrough()>
23
     <System.Diagnostics.DebuggerStepThrough()>
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
         Me.月清單_DGV = New System.Windows.Forms.DataGridView()
27
         Me.月清單_DGV = New System.Windows.Forms.DataGridView()
28
         Me.事由_tb = New System.Windows.Forms.TextBox()
28
         Me.事由_tb = New System.Windows.Forms.TextBox()
29
         Me.Label7 = New System.Windows.Forms.Label()
29
         Me.Label7 = New System.Windows.Forms.Label()
46
         Me.資料指定圖庫_tb = New System.Windows.Forms.TextBox()
46
         Me.資料指定圖庫_tb = New System.Windows.Forms.TextBox()
47
         Me.假期統計_dgv = New System.Windows.Forms.DataGridView()
47
         Me.假期統計_dgv = New System.Windows.Forms.DataGridView()
48
         Me.列印_bt = New System.Windows.Forms.Button()
48
         Me.列印_bt = New System.Windows.Forms.Button()
49
+        Me.刪除_tb = New System.Windows.Forms.Button()
49
         CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit()
50
         CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit()
50
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
51
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
51
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
52
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
55
         '
56
         '
56
         '月清單_DGV
57
         '月清單_DGV
57
         '
58
         '
58
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Gainsboro
59
-        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
59
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Gainsboro
60
+        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
60
         Me.月清單_DGV.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
61
         Me.月清單_DGV.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
61
             Or System.Windows.Forms.AnchorStyles.Left) _
62
             Or System.Windows.Forms.AnchorStyles.Left) _
62
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
63
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
197
         '
198
         '
198
         '人員_dgv
199
         '人員_dgv
199
         '
200
         '
200
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
201
-        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
201
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
202
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
202
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
203
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
203
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
204
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
204
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
205
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
270
         Me.列印_bt.Text = "列印請假" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "申請資料"
271
         Me.列印_bt.Text = "列印請假" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "申請資料"
271
         Me.列印_bt.UseVisualStyleBackColor = True
272
         Me.列印_bt.UseVisualStyleBackColor = True
272
         '
273
         '
274
+        '刪除_tb
275
+        '
276
+        Me.刪除_tb.ForeColor = System.Drawing.Color.Red
277
+        Me.刪除_tb.Location = New System.Drawing.Point(153, 78)
278
+        Me.刪除_tb.Name = "刪除_tb"
279
+        Me.刪除_tb.Size = New System.Drawing.Size(54, 46)
280
+        Me.刪除_tb.TabIndex = 1414
281
+        Me.刪除_tb.Text = "刪除" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "資料"
282
+        Me.刪除_tb.UseVisualStyleBackColor = True
283
+        '
273
         '休假歷史紀錄
284
         '休假歷史紀錄
274
         '
285
         '
275
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
286
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
276
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
287
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
277
         Me.ClientSize = New System.Drawing.Size(1238, 600)
288
         Me.ClientSize = New System.Drawing.Size(1238, 600)
289
+        Me.Controls.Add(Me.刪除_tb)
278
         Me.Controls.Add(Me.列印_bt)
290
         Me.Controls.Add(Me.列印_bt)
279
         Me.Controls.Add(Me.假期統計_dgv)
291
         Me.Controls.Add(Me.假期統計_dgv)
280
         Me.Controls.Add(Me.人員_dgv)
292
         Me.Controls.Add(Me.人員_dgv)
332
     Friend WithEvents 資料指定圖庫_tb As TextBox
344
     Friend WithEvents 資料指定圖庫_tb As TextBox
333
     Friend WithEvents 假期統計_dgv As DataGridView
345
     Friend WithEvents 假期統計_dgv As DataGridView
334
     Friend WithEvents 列印_bt As Button
346
     Friend WithEvents 列印_bt As Button
347
+    Friend WithEvents 刪除_tb As Button
335
 End Class
348
 End Class

+ 5
- 1
GRAMS-SYS/02、休假管理/休假歷史紀錄.vb 查看文件

64
         年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1 : 請假類別_cb.SelectedIndex = 0
64
         年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1 : 請假類別_cb.SelectedIndex = 0
65
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
65
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
66
         讀取人員資料表() : Set_考勤明細() : 剛開啟 = False
66
         讀取人員資料表() : Set_考勤明細() : 剛開啟 = False
67
+        If gUserName = "*系統管理者" Then : 刪除_tb.Visible = True : Else : 刪除_tb.Visible = False : End If
67
     End Sub
68
     End Sub
68
     Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
69
     Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
69
         If e.RowIndex = -1 Then : Else
70
         If e.RowIndex = -1 Then : Else
100
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint
101
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint
101
         Dim linePen As New Pen(Color.Blue, 2)
102
         Dim linePen As New Pen(Color.Blue, 2)
102
         If e.RowIndex = 月清單_DGV.Rows.Count - 1 Then : Exit Sub : Else
103
         If e.RowIndex = 月清單_DGV.Rows.Count - 1 Then : Exit Sub : Else
103
-            If Strings.Left(月清單_DGV("姓名", e.RowIndex).Value.ToString, 7) <> Strings.Left(月清單_DGV("姓名", e.RowIndex + 1).Value.ToString, 7) Then
104
+            If Strings.Left(月清單_DGV("日期", e.RowIndex).Value.ToString, 7) <> Strings.Left(月清單_DGV("日期", e.RowIndex + 1).Value.ToString, 7) Then
104
                 Dim startX As Integer = IIf(月清單_DGV.RowHeadersVisible, 月清單_DGV.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
105
                 Dim startX As Integer = IIf(月清單_DGV.RowHeadersVisible, 月清單_DGV.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
105
                 Dim endX As Integer = startX + 月清單_DGV.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月清單_DGV.HorizontalScrollingOffset
106
                 Dim endX As Integer = startX + 月清單_DGV.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月清單_DGV.HorizontalScrollingOffset
106
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
107
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
113
     Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
114
     Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
114
         If 剛開啟 = False Then : Set_考勤明細() : End If
115
         If 剛開啟 = False Then : Set_考勤明細() : End If
115
     End Sub
116
     End Sub
117
+    Private Sub 刪除_tb_Click(sender As Object, e As EventArgs) Handles 刪除_tb.Click
118
+        If 請假日期_tb.Text = "" And 員工編號_tb.Text = "" Then : MsgBox("沒有選擇資料!!!") : Else : SQL_休假申請明細_刪除() : Set_考勤明細() : MsgBox("刪除完成!!!") : End If
119
+    End Sub
116
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
120
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
117
         xlApp = CType(CreateObject("Excel.Application"), Application)
121
         xlApp = CType(CreateObject("Excel.Application"), Application)
118
         xlBook = xlApp.Workbooks.Add
122
         xlBook = xlApp.Workbooks.Add

+ 25
- 5
GRAMS-SYS/02、休假管理/休假申請.vb 查看文件

75
         If e.RowIndex = -1 Then : Else
75
         If e.RowIndex = -1 Then : Else
76
             If 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期六" Or 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期日" Or
76
             If 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期六" Or 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期日" Or
77
                 月清單_DGV.Rows(e.RowIndex).Cells("請假類別").Value.ToString = "國定假日" Then
77
                 月清單_DGV.Rows(e.RowIndex).Cells("請假類別").Value.ToString = "國定假日" Then
78
-                特假日期_tb.Text = "" : 事由_tb.Text = "" : PictureBox1.Image = Nothing
79
-                MsgBox("星期六/星期日或國定假日不需要申請休假!!")
80
-            Else 特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
78
+                If gUserName = "*系統管理者" Then
79
+                    特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
80
+                    事由_tb.Text = 月清單_DGV("事由", e.RowIndex).Value.ToString
81
+                    生效 = 月清單_DGV("是否生效", e.RowIndex).Value.ToString
82
+                    請假類別_cb.Text = 月清單_DGV("請假類別", e.RowIndex).Value.ToString
83
+                    請休假時數_cb.Text = 月清單_DGV("申請時數", e.RowIndex).Value.ToString
84
+                    資料指定圖庫_tb.Text = 月清單_DGV("圖片資料庫", e.RowIndex).Value.ToString : 圖片流水號_tb.Text = 月清單_DGV("圖片編號", e.RowIndex).Value.ToString
85
+                    '------------驗貨報告讀取--------------------------------------------------------------------------------------------
86
+                    If 資料指定圖庫_tb.Text <> "" And 圖片流水號_tb.Text <> "" Then
87
+                        圖片庫 = 資料指定圖庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片流水號_tb.Text
88
+                        SQL_請假圖() : PictureBox1.Image = Nothing
89
+                        While dr.Read() = True
90
+                            Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
91
+                            Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
92
+                        End While : conn.Close() : PictureBox1.SizeMode = 4
93
+                    Else
94
+                        PictureBox1.Image = Nothing
95
+                    End If
96
+                Else
97
+                    特假日期_tb.Text = "" : 事由_tb.Text = "" : PictureBox1.Image = Nothing
98
+                    MsgBox("星期六/星期日或國定假日不需要申請休假!!")
99
+                End If
100
+            Else
101
+                特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
81
                 事由_tb.Text = 月清單_DGV("事由", e.RowIndex).Value.ToString
102
                 事由_tb.Text = 月清單_DGV("事由", e.RowIndex).Value.ToString
82
                 生效 = 月清單_DGV("是否生效", e.RowIndex).Value.ToString
103
                 生效 = 月清單_DGV("是否生效", e.RowIndex).Value.ToString
83
                 請假類別_cb.Text = 月清單_DGV("請假類別", e.RowIndex).Value.ToString
104
                 請假類別_cb.Text = 月清單_DGV("請假類別", e.RowIndex).Value.ToString
101
         If 特假日期_tb.Text = "" Or 請休假時數_cb.Text = "" Or 申請人_tb.Text = "" Then
122
         If 特假日期_tb.Text = "" Or 請休假時數_cb.Text = "" Or 申請人_tb.Text = "" Then
102
             MsgBox("人員、日期、請休假時數 不能為空白!!")
123
             MsgBox("人員、日期、請休假時數 不能為空白!!")
103
         Else
124
         Else
104
-            If 生效 = "已核准" Or 生效 = "未核准" Then : MsgBox("已簽核的資料不能再做修改")
105
-            Else
125
+            If 生效 = "已核准" Or 生效 = "未核准" Then : MsgBox("已簽核的資料不能再做修改") : Else
106
                 SQL_請假申請讀取()
126
                 SQL_請假申請讀取()
107
                 If dr.Read Then : SQL_請假申請修改() : Else : SQL_請假申請新增() : End If
127
                 If dr.Read Then : SQL_請假申請修改() : Else : SQL_請假申請新增() : End If
108
                 Set_考勤明細() : MsgBox("儲存完成")
128
                 Set_考勤明細() : MsgBox("儲存完成")

+ 3
- 3
GRAMS-SYS/04、考勤管理/考勤明細表.vb 查看文件

406
                 未到離職_tb.Text = Strings.Format((到離 * 8 * CDbl(時薪_tb.Text)), "#,##0.0")
406
                 未到離職_tb.Text = Strings.Format((到離 * 8 * CDbl(時薪_tb.Text)), "#,##0.0")
407
                 事假_tb.Text = Strings.Format((事假 * CDbl(時薪_tb.Text)), "#,##0.0")
407
                 事假_tb.Text = Strings.Format((事假 * CDbl(時薪_tb.Text)), "#,##0.0")
408
             Else
408
             Else
409
-                婚假_tb.Text = Strings.Format((特休 * CDbl(時薪_tb.Text)), "#,##0.0")
410
-                喪假_tb.Text = Strings.Format((假 * CDbl(時薪_tb.Text)), "#,##0.0")
411
-                特休_tb.Text = Strings.Format((喪假 * CDbl(時薪_tb.Text)), "#,##0.0")
409
+                婚假_tb.Text = Strings.Format((婚假 * CDbl(時薪_tb.Text)), "#,##0.0")
410
+                喪假_tb.Text = Strings.Format((假 * CDbl(時薪_tb.Text)), "#,##0.0")
411
+                特休_tb.Text = Strings.Format((特休 * CDbl(時薪_tb.Text)), "#,##0.0")
412
             End If
412
             End If
413
             '--------------------------第一種應付小計計算---------------------------------------------------
413
             '--------------------------第一種應付小計計算---------------------------------------------------
414
             第1段加班費1_tb.Text = Strings.Format(((CDbl(當月平日一段_tb.Text) + CDbl(一段假日加_tb.Text)) * CDbl(時薪_tb.Text) * 1.34), "#,##0.0")
414
             第1段加班費1_tb.Text = Strings.Format(((CDbl(當月平日一段_tb.Text) + CDbl(一段假日加_tb.Text)) * CDbl(時薪_tb.Text) * 1.34), "#,##0.0")

+ 397
- 0
GRAMS-SYS/05、業務管理/業務銷售控制表.Designer.vb 查看文件

1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 業務銷售控制表
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Me.業務_dgv = New System.Windows.Forms.DataGridView()
30
+        Me.人員_dgv = New System.Windows.Forms.DataGridView()
31
+        Me.流水號_bt = New System.Windows.Forms.TextBox()
32
+        Me.病歷號_tb = New System.Windows.Forms.TextBox()
33
+        Me.看診日期_dtp = New System.Windows.Forms.DateTimePicker()
34
+        Me.看診日期_lb = New System.Windows.Forms.Label()
35
+        Me.Label1 = New System.Windows.Forms.Label()
36
+        Me.Label2 = New System.Windows.Forms.Label()
37
+        Me.看診醫生_tb = New System.Windows.Forms.TextBox()
38
+        Me.銷售人員_tb = New System.Windows.Forms.TextBox()
39
+        Me.Label3 = New System.Windows.Forms.Label()
40
+        Me.指定銷售_bt = New System.Windows.Forms.Button()
41
+        Me.未指定_ch = New System.Windows.Forms.CheckBox()
42
+        Me.未聯繫_ch = New System.Windows.Forms.CheckBox()
43
+        Me.成功_ch = New System.Windows.Forms.CheckBox()
44
+        Me.失誤_ch = New System.Windows.Forms.CheckBox()
45
+        Me.Panel1 = New System.Windows.Forms.Panel()
46
+        Me.銷售取消_bt = New System.Windows.Forms.Button()
47
+        Me.銷售成功_bt = New System.Windows.Forms.Button()
48
+        Me.備註_tb = New System.Windows.Forms.TextBox()
49
+        Me.Label4 = New System.Windows.Forms.Label()
50
+        Me.治療建議_dgv = New System.Windows.Forms.DataGridView()
51
+        Me.備註存檔_bt = New System.Windows.Forms.Button()
52
+        CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
53
+        CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
54
+        Me.Panel1.SuspendLayout()
55
+        CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
56
+        Me.SuspendLayout()
57
+        '
58
+        '業務_dgv
59
+        '
60
+        Me.業務_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
61
+            Or System.Windows.Forms.AnchorStyles.Left) _
62
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
63
+        Me.業務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
64
+        Me.業務_dgv.BackgroundColor = System.Drawing.Color.White
65
+        Me.業務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
66
+        Me.業務_dgv.Location = New System.Drawing.Point(3, 54)
67
+        Me.業務_dgv.Name = "業務_dgv"
68
+        Me.業務_dgv.RowHeadersWidth = 5
69
+        Me.業務_dgv.RowTemplate.Height = 24
70
+        Me.業務_dgv.Size = New System.Drawing.Size(597, 613)
71
+        Me.業務_dgv.TabIndex = 229
72
+        '
73
+        '人員_dgv
74
+        '
75
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
76
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
77
+        Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
78
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
79
+        Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
80
+        Me.人員_dgv.BackgroundColor = System.Drawing.Color.White
81
+        Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
82
+        Me.人員_dgv.Location = New System.Drawing.Point(954, 54)
83
+        Me.人員_dgv.Name = "人員_dgv"
84
+        Me.人員_dgv.RowHeadersWidth = 5
85
+        Me.人員_dgv.RowTemplate.Height = 24
86
+        Me.人員_dgv.Size = New System.Drawing.Size(149, 613)
87
+        Me.人員_dgv.TabIndex = 787
88
+        '
89
+        '流水號_bt
90
+        '
91
+        Me.流水號_bt.Location = New System.Drawing.Point(28, 78)
92
+        Me.流水號_bt.Name = "流水號_bt"
93
+        Me.流水號_bt.Size = New System.Drawing.Size(100, 23)
94
+        Me.流水號_bt.TabIndex = 792
95
+        '
96
+        '病歷號_tb
97
+        '
98
+        Me.病歷號_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
99
+        Me.病歷號_tb.Location = New System.Drawing.Point(64, 27)
100
+        Me.病歷號_tb.Name = "病歷號_tb"
101
+        Me.病歷號_tb.ReadOnly = True
102
+        Me.病歷號_tb.Size = New System.Drawing.Size(92, 23)
103
+        Me.病歷號_tb.TabIndex = 793
104
+        '
105
+        '看診日期_dtp
106
+        '
107
+        Me.看診日期_dtp.CustomFormat = "yyyy/MM/dd"
108
+        Me.看診日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
109
+        Me.看診日期_dtp.Location = New System.Drawing.Point(63, 3)
110
+        Me.看診日期_dtp.Name = "看診日期_dtp"
111
+        Me.看診日期_dtp.Size = New System.Drawing.Size(92, 23)
112
+        Me.看診日期_dtp.TabIndex = 794
113
+        '
114
+        '看診日期_lb
115
+        '
116
+        Me.看診日期_lb.AutoSize = True
117
+        Me.看診日期_lb.Location = New System.Drawing.Point(5, 6)
118
+        Me.看診日期_lb.Name = "看診日期_lb"
119
+        Me.看診日期_lb.Size = New System.Drawing.Size(55, 16)
120
+        Me.看診日期_lb.TabIndex = 795
121
+        Me.看診日期_lb.Text = "看診日期"
122
+        '
123
+        'Label1
124
+        '
125
+        Me.Label1.AutoSize = True
126
+        Me.Label1.Location = New System.Drawing.Point(5, 30)
127
+        Me.Label1.Name = "Label1"
128
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
129
+        Me.Label1.TabIndex = 796
130
+        Me.Label1.Text = "病  歷  號"
131
+        '
132
+        'Label2
133
+        '
134
+        Me.Label2.AutoSize = True
135
+        Me.Label2.Location = New System.Drawing.Point(161, 6)
136
+        Me.Label2.Name = "Label2"
137
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
138
+        Me.Label2.TabIndex = 797
139
+        Me.Label2.Text = "看診醫生"
140
+        '
141
+        '看診醫生_tb
142
+        '
143
+        Me.看診醫生_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
144
+        Me.看診醫生_tb.Location = New System.Drawing.Point(222, 3)
145
+        Me.看診醫生_tb.Name = "看診醫生_tb"
146
+        Me.看診醫生_tb.ReadOnly = True
147
+        Me.看診醫生_tb.Size = New System.Drawing.Size(92, 23)
148
+        Me.看診醫生_tb.TabIndex = 798
149
+        '
150
+        '銷售人員_tb
151
+        '
152
+        Me.銷售人員_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
153
+        Me.銷售人員_tb.Location = New System.Drawing.Point(222, 27)
154
+        Me.銷售人員_tb.Name = "銷售人員_tb"
155
+        Me.銷售人員_tb.ReadOnly = True
156
+        Me.銷售人員_tb.Size = New System.Drawing.Size(92, 23)
157
+        Me.銷售人員_tb.TabIndex = 800
158
+        '
159
+        'Label3
160
+        '
161
+        Me.Label3.AutoSize = True
162
+        Me.Label3.Location = New System.Drawing.Point(161, 30)
163
+        Me.Label3.Name = "Label3"
164
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
165
+        Me.Label3.TabIndex = 799
166
+        Me.Label3.Text = "銷售人員"
167
+        '
168
+        '指定銷售_bt
169
+        '
170
+        Me.指定銷售_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
171
+        Me.指定銷售_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
172
+        Me.指定銷售_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
173
+        Me.指定銷售_bt.Location = New System.Drawing.Point(665, 1)
174
+        Me.指定銷售_bt.Name = "指定銷售_bt"
175
+        Me.指定銷售_bt.Size = New System.Drawing.Size(50, 50)
176
+        Me.指定銷售_bt.TabIndex = 801
177
+        Me.指定銷售_bt.Text = "指定銷售"
178
+        Me.指定銷售_bt.UseVisualStyleBackColor = True
179
+        '
180
+        '未指定_ch
181
+        '
182
+        Me.未指定_ch.AutoSize = True
183
+        Me.未指定_ch.Checked = True
184
+        Me.未指定_ch.CheckState = System.Windows.Forms.CheckState.Checked
185
+        Me.未指定_ch.ForeColor = System.Drawing.Color.Green
186
+        Me.未指定_ch.Location = New System.Drawing.Point(6, 4)
187
+        Me.未指定_ch.Name = "未指定_ch"
188
+        Me.未指定_ch.Size = New System.Drawing.Size(110, 20)
189
+        Me.未指定_ch.TabIndex = 802
190
+        Me.未指定_ch.Text = "未指定銷售人員"
191
+        Me.未指定_ch.UseVisualStyleBackColor = True
192
+        '
193
+        '未聯繫_ch
194
+        '
195
+        Me.未聯繫_ch.AutoSize = True
196
+        Me.未聯繫_ch.ForeColor = System.Drawing.Color.Green
197
+        Me.未聯繫_ch.Location = New System.Drawing.Point(6, 30)
198
+        Me.未聯繫_ch.Name = "未聯繫_ch"
199
+        Me.未聯繫_ch.Size = New System.Drawing.Size(110, 20)
200
+        Me.未聯繫_ch.TabIndex = 803
201
+        Me.未聯繫_ch.Text = "未聯繫客戶清單"
202
+        Me.未聯繫_ch.UseVisualStyleBackColor = True
203
+        '
204
+        '成功_ch
205
+        '
206
+        Me.成功_ch.AutoSize = True
207
+        Me.成功_ch.ForeColor = System.Drawing.Color.Green
208
+        Me.成功_ch.Location = New System.Drawing.Point(122, 4)
209
+        Me.成功_ch.Name = "成功_ch"
210
+        Me.成功_ch.Size = New System.Drawing.Size(110, 20)
211
+        Me.成功_ch.TabIndex = 804
212
+        Me.成功_ch.Text = "銷售成功的清單"
213
+        Me.成功_ch.UseVisualStyleBackColor = True
214
+        '
215
+        '失誤_ch
216
+        '
217
+        Me.失誤_ch.AutoSize = True
218
+        Me.失誤_ch.ForeColor = System.Drawing.Color.Green
219
+        Me.失誤_ch.Location = New System.Drawing.Point(122, 30)
220
+        Me.失誤_ch.Name = "失誤_ch"
221
+        Me.失誤_ch.Size = New System.Drawing.Size(110, 20)
222
+        Me.失誤_ch.TabIndex = 805
223
+        Me.失誤_ch.Text = "銷售取消的清單"
224
+        Me.失誤_ch.UseVisualStyleBackColor = True
225
+        '
226
+        'Panel1
227
+        '
228
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
229
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
230
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
231
+        Me.Panel1.Controls.Add(Me.備註存檔_bt)
232
+        Me.Panel1.Controls.Add(Me.銷售取消_bt)
233
+        Me.Panel1.Controls.Add(Me.銷售成功_bt)
234
+        Me.Panel1.Controls.Add(Me.備註_tb)
235
+        Me.Panel1.Controls.Add(Me.看診日期_lb)
236
+        Me.Panel1.Controls.Add(Me.病歷號_tb)
237
+        Me.Panel1.Controls.Add(Me.看診日期_dtp)
238
+        Me.Panel1.Controls.Add(Me.Label1)
239
+        Me.Panel1.Controls.Add(Me.Label2)
240
+        Me.Panel1.Controls.Add(Me.指定銷售_bt)
241
+        Me.Panel1.Controls.Add(Me.看診醫生_tb)
242
+        Me.Panel1.Controls.Add(Me.銷售人員_tb)
243
+        Me.Panel1.Controls.Add(Me.Label3)
244
+        Me.Panel1.Controls.Add(Me.Label4)
245
+        Me.Panel1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
246
+        Me.Panel1.Location = New System.Drawing.Point(230, 0)
247
+        Me.Panel1.Name = "Panel1"
248
+        Me.Panel1.Size = New System.Drawing.Size(873, 55)
249
+        Me.Panel1.TabIndex = 806
250
+        '
251
+        '銷售取消_bt
252
+        '
253
+        Me.銷售取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
254
+        Me.銷售取消_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
255
+        Me.銷售取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
256
+        Me.銷售取消_bt.Location = New System.Drawing.Point(818, 1)
257
+        Me.銷售取消_bt.Name = "銷售取消_bt"
258
+        Me.銷售取消_bt.Size = New System.Drawing.Size(50, 50)
259
+        Me.銷售取消_bt.TabIndex = 810
260
+        Me.銷售取消_bt.Text = "銷售取消"
261
+        Me.銷售取消_bt.UseVisualStyleBackColor = True
262
+        '
263
+        '銷售成功_bt
264
+        '
265
+        Me.銷售成功_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
266
+        Me.銷售成功_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
267
+        Me.銷售成功_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
268
+        Me.銷售成功_bt.Location = New System.Drawing.Point(767, 1)
269
+        Me.銷售成功_bt.Name = "銷售成功_bt"
270
+        Me.銷售成功_bt.Size = New System.Drawing.Size(50, 50)
271
+        Me.銷售成功_bt.TabIndex = 809
272
+        Me.銷售成功_bt.Text = "銷售成功"
273
+        Me.銷售成功_bt.UseVisualStyleBackColor = True
274
+        '
275
+        '備註_tb
276
+        '
277
+        Me.備註_tb.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
+        Me.備註_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
280
+        Me.備註_tb.Location = New System.Drawing.Point(346, 3)
281
+        Me.備註_tb.Multiline = True
282
+        Me.備註_tb.Name = "備註_tb"
283
+        Me.備註_tb.Size = New System.Drawing.Size(317, 47)
284
+        Me.備註_tb.TabIndex = 807
285
+        '
286
+        'Label4
287
+        '
288
+        Me.Label4.AutoSize = True
289
+        Me.Label4.Location = New System.Drawing.Point(315, 6)
290
+        Me.Label4.Name = "Label4"
291
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
292
+        Me.Label4.TabIndex = 808
293
+        Me.Label4.Text = "備註"
294
+        '
295
+        '治療建議_dgv
296
+        '
297
+        Me.治療建議_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
298
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
299
+        Me.治療建議_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
300
+        Me.治療建議_dgv.BackgroundColor = System.Drawing.Color.White
301
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
302
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
303
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
304
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
305
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White
306
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
307
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
308
+        Me.治療建議_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
309
+        Me.治療建議_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
310
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
311
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
312
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
313
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
314
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White
315
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
316
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
317
+        Me.治療建議_dgv.DefaultCellStyle = DataGridViewCellStyle3
318
+        Me.治療建議_dgv.Location = New System.Drawing.Point(599, 54)
319
+        Me.治療建議_dgv.Name = "治療建議_dgv"
320
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
321
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
322
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
323
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
324
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.White
325
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black
326
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
327
+        Me.治療建議_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
328
+        Me.治療建議_dgv.RowHeadersWidth = 5
329
+        Me.治療建議_dgv.RowTemplate.Height = 24
330
+        Me.治療建議_dgv.Size = New System.Drawing.Size(356, 613)
331
+        Me.治療建議_dgv.TabIndex = 807
332
+        '
333
+        '備註存檔_bt
334
+        '
335
+        Me.備註存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
336
+        Me.備註存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
337
+        Me.備註存檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
338
+        Me.備註存檔_bt.Location = New System.Drawing.Point(716, 1)
339
+        Me.備註存檔_bt.Name = "備註存檔_bt"
340
+        Me.備註存檔_bt.Size = New System.Drawing.Size(50, 50)
341
+        Me.備註存檔_bt.TabIndex = 811
342
+        Me.備註存檔_bt.Text = "備註存檔"
343
+        Me.備註存檔_bt.UseVisualStyleBackColor = True
344
+        '
345
+        '業務銷售控制表
346
+        '
347
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
348
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
349
+        Me.ClientSize = New System.Drawing.Size(1106, 669)
350
+        Me.Controls.Add(Me.人員_dgv)
351
+        Me.Controls.Add(Me.治療建議_dgv)
352
+        Me.Controls.Add(Me.Panel1)
353
+        Me.Controls.Add(Me.失誤_ch)
354
+        Me.Controls.Add(Me.成功_ch)
355
+        Me.Controls.Add(Me.未聯繫_ch)
356
+        Me.Controls.Add(Me.未指定_ch)
357
+        Me.Controls.Add(Me.業務_dgv)
358
+        Me.Controls.Add(Me.流水號_bt)
359
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
360
+        Me.Margin = New System.Windows.Forms.Padding(4)
361
+        Me.Name = "業務銷售控制表"
362
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
363
+        Me.Text = "業務銷售控制表"
364
+        CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).EndInit()
365
+        CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).EndInit()
366
+        Me.Panel1.ResumeLayout(False)
367
+        Me.Panel1.PerformLayout()
368
+        CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).EndInit()
369
+        Me.ResumeLayout(False)
370
+        Me.PerformLayout()
371
+
372
+    End Sub
373
+
374
+    Friend WithEvents 業務_dgv As DataGridView
375
+    Friend WithEvents 人員_dgv As DataGridView
376
+    Friend WithEvents 流水號_bt As TextBox
377
+    Friend WithEvents 病歷號_tb As TextBox
378
+    Friend WithEvents 看診日期_dtp As DateTimePicker
379
+    Friend WithEvents 看診日期_lb As Label
380
+    Friend WithEvents Label1 As Label
381
+    Friend WithEvents Label2 As Label
382
+    Friend WithEvents 看診醫生_tb As TextBox
383
+    Friend WithEvents 銷售人員_tb As TextBox
384
+    Friend WithEvents Label3 As Label
385
+    Friend WithEvents 指定銷售_bt As Button
386
+    Friend WithEvents 未指定_ch As CheckBox
387
+    Friend WithEvents 未聯繫_ch As CheckBox
388
+    Friend WithEvents 成功_ch As CheckBox
389
+    Friend WithEvents 失誤_ch As CheckBox
390
+    Friend WithEvents Panel1 As Panel
391
+    Friend WithEvents 銷售取消_bt As Button
392
+    Friend WithEvents 銷售成功_bt As Button
393
+    Friend WithEvents 備註_tb As TextBox
394
+    Friend WithEvents Label4 As Label
395
+    Friend WithEvents 治療建議_dgv As DataGridView
396
+    Friend WithEvents 備註存檔_bt As Button
397
+End Class

+ 120
- 0
GRAMS-SYS/05、業務管理/業務銷售控制表.resx 查看文件

1
+<?xml version="1.0" encoding="utf-8"?>
2
+<root>
3
+  <!-- 
4
+    Microsoft ResX Schema 
5
+    
6
+    Version 2.0
7
+    
8
+    The primary goals of this format is to allow a simple XML format 
9
+    that is mostly human readable. The generation and parsing of the 
10
+    various data types are done through the TypeConverter classes 
11
+    associated with the data types.
12
+    
13
+    Example:
14
+    
15
+    ... ado.net/XML headers & schema ...
16
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
+    <resheader name="version">2.0</resheader>
18
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
+    </data>
25
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
+        <comment>This is a comment</comment>
28
+    </data>
29
+                
30
+    There are any number of "resheader" rows that contain simple 
31
+    name/value pairs.
32
+    
33
+    Each data row contains a name, and value. The row also contains a 
34
+    type or mimetype. Type corresponds to a .NET class that support 
35
+    text/value conversion through the TypeConverter architecture. 
36
+    Classes that don't support this are serialized and stored with the 
37
+    mimetype set.
38
+    
39
+    The mimetype is used for serialized objects, and tells the 
40
+    ResXResourceReader how to depersist the object. This is currently not 
41
+    extensible. For a given mimetype the value must be set accordingly:
42
+    
43
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
+    that the ResXResourceWriter will generate, however the reader can 
45
+    read any of the formats listed below.
46
+    
47
+    mimetype: application/x-microsoft.net.object.binary.base64
48
+    value   : The object must be serialized with 
49
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
+            : and then encoded with base64 encoding.
51
+    
52
+    mimetype: application/x-microsoft.net.object.soap.base64
53
+    value   : The object must be serialized with 
54
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
+            : and then encoded with base64 encoding.
56
+
57
+    mimetype: application/x-microsoft.net.object.bytearray.base64
58
+    value   : The object must be serialized into a byte array 
59
+            : using a System.ComponentModel.TypeConverter
60
+            : and then encoded with base64 encoding.
61
+    -->
62
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
+    <xsd:element name="root" msdata:IsDataSet="true">
65
+      <xsd:complexType>
66
+        <xsd:choice maxOccurs="unbounded">
67
+          <xsd:element name="metadata">
68
+            <xsd:complexType>
69
+              <xsd:sequence>
70
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
+              </xsd:sequence>
72
+              <xsd:attribute name="name" use="required" type="xsd:string" />
73
+              <xsd:attribute name="type" type="xsd:string" />
74
+              <xsd:attribute name="mimetype" type="xsd:string" />
75
+              <xsd:attribute ref="xml:space" />
76
+            </xsd:complexType>
77
+          </xsd:element>
78
+          <xsd:element name="assembly">
79
+            <xsd:complexType>
80
+              <xsd:attribute name="alias" type="xsd:string" />
81
+              <xsd:attribute name="name" type="xsd:string" />
82
+            </xsd:complexType>
83
+          </xsd:element>
84
+          <xsd:element name="data">
85
+            <xsd:complexType>
86
+              <xsd:sequence>
87
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
+              </xsd:sequence>
90
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
+              <xsd:attribute ref="xml:space" />
94
+            </xsd:complexType>
95
+          </xsd:element>
96
+          <xsd:element name="resheader">
97
+            <xsd:complexType>
98
+              <xsd:sequence>
99
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
+              </xsd:sequence>
101
+              <xsd:attribute name="name" type="xsd:string" use="required" />
102
+            </xsd:complexType>
103
+          </xsd:element>
104
+        </xsd:choice>
105
+      </xsd:complexType>
106
+    </xsd:element>
107
+  </xsd:schema>
108
+  <resheader name="resmimetype">
109
+    <value>text/microsoft-resx</value>
110
+  </resheader>
111
+  <resheader name="version">
112
+    <value>2.0</value>
113
+  </resheader>
114
+  <resheader name="reader">
115
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
+  </resheader>
117
+  <resheader name="writer">
118
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
+  </resheader>
120
+</root>

+ 114
- 0
GRAMS-SYS/05、業務管理/業務銷售控制表.vb 查看文件

1
+Public Class 業務銷售控制表
2
+    Private Sub 讀取人員資料表()
3
+        Dim ds As New DataSet
4
+        人員_dgv.DataSource = Nothing : ds.Clear()
5
+        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
6
+        人員_dgv.ColumnHeadersHeight = 25 : 人員_dgv.AllowUserToAddRows = False
7
+        SQL_考勤明細表_人員()
8
+        da.Fill(ds) : 人員_dgv.DataSource = ds.Tables(0) : conn.Close()
9
+        人員_dgv.Columns(0).FillWeight = 70 : 人員_dgv.Columns(1).FillWeight = 80 : 人員_dgv.Columns(2).FillWeight = 100 : 人員_dgv.Columns(3).Visible = False
10
+        人員_dgv.Columns(4).Visible = False : 人員_dgv.Columns(5).Visible = False : 人員_dgv.Columns(6).Visible = False : 人員_dgv.Columns(7).Visible = False
11
+        人員_dgv.Columns(8).Visible = False : 人員_dgv.Columns(9).Visible = False : 人員_dgv.Columns("到職日").Visible = False
12
+        For i As Integer = 0 To 人員_dgv.Rows.Count - 1
13
+            人員_dgv.Rows(i).Cells("No.").Value = i + 1
14
+        Next
15
+    End Sub
16
+    Private Sub Set_業務()
17
+        Dim ds2 As New DataSet
18
+        業務_dgv.DataSource = Nothing : ds2.Clear()
19
+        業務_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
20
+        業務_dgv.ColumnHeadersHeight = 25 : 業務_dgv.AllowUserToAddRows = False
21
+        If 未指定_ch.Checked = True And 未聯繫_ch.Checked = False And 成功_ch.Checked = False And 失誤_ch.Checked = False Then
22
+            SQL2 = " WHERE (銷售人員 IS NULL OR 銷售人員 LIKE '') AND (日期 NOT LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "') "
23
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = True And 成功_ch.Checked = False And 失誤_ch.Checked = False Then
24
+            SQL2 = " WHERE (銷售狀態 IS NULL OR 銷售狀態 LIKE '') "
25
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = False And 成功_ch.Checked = True And 失誤_ch.Checked = False Then
26
+            SQL2 = " WHERE (銷售狀態 LIKE N'成功') "
27
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = False And 成功_ch.Checked = False And 失誤_ch.Checked = True Then
28
+            SQL2 = " WHERE (銷售狀態 LIKE N'失敗') "
29
+        End If
30
+        SQL_業務控制()
31
+        da.Fill(ds2) : 業務_dgv.DataSource = ds2.Tables(0) : conn.Close() : SQL2 = ""
32
+        業務_dgv.Columns(0).Visible = False : 業務_dgv.Columns(2).FillWeight = 80 : 業務_dgv.Columns(4).FillWeight = 80 : 業務_dgv.Columns("備註").FillWeight = 160
33
+        '適應症選擇()
34
+    End Sub
35
+    Private Sub 治療()
36
+        Dim ds As New DataSet
37
+        治療建議_dgv.DataSource = Nothing : ds.Clear()
38
+        治療建議_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
39
+        治療建議_dgv.ColumnHeadersHeight = 25 : 治療建議_dgv.AllowUserToAddRows = False
40
+        SQL_業務明細()
41
+        da.Fill(ds) : 治療建議_dgv.DataSource = ds.Tables(0) : conn.Close()
42
+    End Sub
43
+    Private Sub 業務銷售控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
44
+        If gUserName = "*系統管理者" Or gUserName = "黃院長" Or gUserName = "呂總監" Or gUserName = "蔡紋婷" Then
45
+            未指定_ch.Visible = True : 未聯繫_ch.Visible = True : 成功_ch.Visible = True : 失誤_ch.Visible = True
46
+        Else
47
+            未指定_ch.Visible = False : 未聯繫_ch.Visible = False : 成功_ch.Visible = False : 失誤_ch.Visible = False
48
+        End If
49
+    End Sub
50
+    Private Sub 業務銷售控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
51
+        讀取人員資料表() : Set_業務()
52
+    End Sub
53
+    Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
54
+        If e.RowIndex = -1 Then : Else : 銷售人員_tb.Text = 人員_dgv("姓名", e.RowIndex).Value.ToString : End If
55
+    End Sub
56
+    Private Sub 業務_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 業務_dgv.CellClick
57
+        If e.RowIndex = -1 Then : Else
58
+            看診日期_dtp.Text = 業務_dgv("日期", e.RowIndex).Value.ToString : 病歷號_tb.Text = 業務_dgv("病歷號", e.RowIndex).Value.ToString
59
+            看診醫生_tb.Text = 業務_dgv("醫師", e.RowIndex).Value.ToString : 銷售人員_tb.Text = 業務_dgv("銷售人員", e.RowIndex).Value.ToString
60
+            備註_tb.Text = 業務_dgv("備註", e.RowIndex).Value.ToString : 流水號_bt.Text = 業務_dgv("流水號", e.RowIndex).Value.ToString
61
+            治療()
62
+        End If
63
+    End Sub
64
+    Private Sub 業務_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 業務_dgv.RowPostPaint
65
+        Dim linePen As New Pen(Color.Blue, 2)
66
+        If e.RowIndex = 業務_dgv.Rows.Count - 1 Then : Exit Sub : Else
67
+            If Strings.Left(業務_dgv("日期", e.RowIndex).Value.ToString, 10) <> Strings.Left(業務_dgv("日期", e.RowIndex + 1).Value.ToString, 10) Then
68
+                Dim startX As Integer = IIf(業務_dgv.RowHeadersVisible, 業務_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
69
+                Dim endX As Integer = startX + 業務_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 業務_dgv.HorizontalScrollingOffset
70
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
71
+            End If
72
+        End If
73
+    End Sub
74
+    Private Sub 未指定_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未指定_ch.Click
75
+        未指定_ch.Checked = True : 未聯繫_ch.Checked = False : 成功_ch.Checked = False : 失誤_ch.Checked = False : Set_業務()
76
+    End Sub
77
+    Private Sub 未聯繫_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未聯繫_ch.Click
78
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = True : 成功_ch.Checked = False : 失誤_ch.Checked = False : Set_業務()
79
+    End Sub
80
+    Private Sub 成功_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 成功_ch.Click
81
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = False : 成功_ch.Checked = True : 失誤_ch.Checked = False : Set_業務()
82
+    End Sub
83
+    Private Sub 失誤_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 失誤_ch.Click
84
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = False : 成功_ch.Checked = False : 失誤_ch.Checked = True : Set_業務()
85
+    End Sub
86
+    Private Sub 指定銷售_bt_Click(sender As Object, e As EventArgs) Handles 指定銷售_bt.Click
87
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
88
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
89
+                SQL_業務控制指定銷售() : Set_業務() : MsgBox("指定業務人員完成!!")
90
+            End If
91
+        End If
92
+    End Sub
93
+    Private Sub 銷售成功_bt_Click(sender As Object, e As EventArgs) Handles 銷售成功_bt.Click
94
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
95
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
96
+                PA1 = "成功" : PA2 = Strings.Format(Today(), "yyyy/MM/dd") : SQL_業務控制備註存檔() : SQL_業務控制指定銷售完成() : Set_業務() : MsgBox("單據記錄成功!!")
97
+            End If
98
+        End If
99
+    End Sub
100
+    Private Sub 銷售取消_bt_Click(sender As Object, e As EventArgs) Handles 銷售取消_bt.Click
101
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
102
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
103
+                PA1 = "失敗" : PA2 = "" : SQL_業務控制指定銷售完成() : SQL_業務控制備註存檔() : Set_業務() : MsgBox("單據記錄成功!!")
104
+            End If
105
+        End If
106
+    End Sub
107
+    Private Sub 備註存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註存檔_bt.Click
108
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
109
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
110
+                SQL_業務控制備註存檔() : Set_業務() : MsgBox("單據記錄成功!!")
111
+            End If
112
+        End If
113
+    End Sub
114
+End Class

+ 129
- 164
GRAMS-SYS/05、業務管理/適應症選擇.Designer.vb 查看文件

23
     <System.Diagnostics.DebuggerStepThrough()> _
23
     <System.Diagnostics.DebuggerStepThrough()> _
24
     Private Sub InitializeComponent()
24
     Private Sub InitializeComponent()
25
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Pulsed Dye Laser")
27
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("VPL")
28
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2})
29
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Subcision")
30
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne Scar", New System.Windows.Forms.TreeNode() {TreeNode4})
26
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(適應症選擇))
31
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(適應症選擇))
27
         Me.Label1 = New System.Windows.Forms.Label()
32
         Me.Label1 = New System.Windows.Forms.Label()
28
         Me.Label2 = New System.Windows.Forms.Label()
33
         Me.Label2 = New System.Windows.Forms.Label()
29
         Me.病歷號_tb = New System.Windows.Forms.TextBox()
34
         Me.病歷號_tb = New System.Windows.Forms.TextBox()
30
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
31
-        Me.CheckBox10 = New System.Windows.Forms.CheckBox()
32
-        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
33
-        Me.CheckBox8 = New System.Windows.Forms.CheckBox()
34
-        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
35
-        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
36
-        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
37
-        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
38
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
39
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
40
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
41
         Me.醫生_tb = New System.Windows.Forms.TextBox()
35
         Me.醫生_tb = New System.Windows.Forms.TextBox()
42
-        Me.確認_bt = New System.Windows.Forms.Button()
43
         Me.適應症_dgv = New System.Windows.Forms.DataGridView()
36
         Me.適應症_dgv = New System.Windows.Forms.DataGridView()
44
-        Me.GroupBox1.SuspendLayout()
37
+        Me.TreeView1 = New System.Windows.Forms.TreeView()
38
+        Me.Label3 = New System.Windows.Forms.Label()
39
+        Me.病症_cb = New System.Windows.Forms.ComboBox()
40
+        Me.療程_cb = New System.Windows.Forms.ComboBox()
41
+        Me.Label4 = New System.Windows.Forms.Label()
42
+        Me.刪除_bt = New System.Windows.Forms.Button()
43
+        Me.存檔_bt = New System.Windows.Forms.Button()
44
+        Me.確認_bt = New System.Windows.Forms.Button()
45
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
45
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
46
         Me.SuspendLayout()
46
         Me.SuspendLayout()
47
         '
47
         '
57
         'Label2
57
         'Label2
58
         '
58
         '
59
         Me.Label2.AutoSize = True
59
         Me.Label2.AutoSize = True
60
-        Me.Label2.Location = New System.Drawing.Point(3, 39)
60
+        Me.Label2.Location = New System.Drawing.Point(218, 9)
61
         Me.Label2.Name = "Label2"
61
         Me.Label2.Name = "Label2"
62
         Me.Label2.Size = New System.Drawing.Size(57, 20)
62
         Me.Label2.Size = New System.Drawing.Size(57, 20)
63
         Me.Label2.TabIndex = 2
63
         Me.Label2.TabIndex = 2
65
         '
65
         '
66
         '病歷號_tb
66
         '病歷號_tb
67
         '
67
         '
68
-        Me.病歷號_tb.Location = New System.Drawing.Point(66, 33)
68
+        Me.病歷號_tb.Location = New System.Drawing.Point(281, 3)
69
         Me.病歷號_tb.Name = "病歷號_tb"
69
         Me.病歷號_tb.Name = "病歷號_tb"
70
         Me.病歷號_tb.Size = New System.Drawing.Size(146, 29)
70
         Me.病歷號_tb.Size = New System.Drawing.Size(146, 29)
71
         Me.病歷號_tb.TabIndex = 3
71
         Me.病歷號_tb.TabIndex = 3
72
         '
72
         '
73
-        'GroupBox1
74
-        '
75
-        Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
76
-            Or System.Windows.Forms.AnchorStyles.Left) _
77
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
78
-        Me.GroupBox1.Controls.Add(Me.CheckBox10)
79
-        Me.GroupBox1.Controls.Add(Me.CheckBox9)
80
-        Me.GroupBox1.Controls.Add(Me.CheckBox8)
81
-        Me.GroupBox1.Controls.Add(Me.CheckBox7)
82
-        Me.GroupBox1.Controls.Add(Me.CheckBox6)
83
-        Me.GroupBox1.Controls.Add(Me.CheckBox5)
84
-        Me.GroupBox1.Controls.Add(Me.CheckBox4)
85
-        Me.GroupBox1.Controls.Add(Me.CheckBox3)
86
-        Me.GroupBox1.Controls.Add(Me.CheckBox2)
87
-        Me.GroupBox1.Controls.Add(Me.CheckBox1)
88
-        Me.GroupBox1.Location = New System.Drawing.Point(4, 68)
89
-        Me.GroupBox1.Name = "GroupBox1"
90
-        Me.GroupBox1.Size = New System.Drawing.Size(208, 331)
91
-        Me.GroupBox1.TabIndex = 4
92
-        Me.GroupBox1.TabStop = False
93
-        Me.GroupBox1.Text = "適應症"
94
-        '
95
-        'CheckBox10
96
-        '
97
-        Me.CheckBox10.AutoSize = True
98
-        Me.CheckBox10.Location = New System.Drawing.Point(8, 298)
99
-        Me.CheckBox10.Name = "CheckBox10"
100
-        Me.CheckBox10.Size = New System.Drawing.Size(121, 24)
101
-        Me.CheckBox10.TabIndex = 9
102
-        Me.CheckBox10.Text = "CheckBox10"
103
-        Me.CheckBox10.UseVisualStyleBackColor = True
104
-        '
105
-        'CheckBox9
106
-        '
107
-        Me.CheckBox9.AutoSize = True
108
-        Me.CheckBox9.Location = New System.Drawing.Point(8, 268)
109
-        Me.CheckBox9.Name = "CheckBox9"
110
-        Me.CheckBox9.Size = New System.Drawing.Size(112, 24)
111
-        Me.CheckBox9.TabIndex = 8
112
-        Me.CheckBox9.Text = "CheckBox9"
113
-        Me.CheckBox9.UseVisualStyleBackColor = True
114
-        '
115
-        'CheckBox8
116
-        '
117
-        Me.CheckBox8.AutoSize = True
118
-        Me.CheckBox8.Location = New System.Drawing.Point(8, 238)
119
-        Me.CheckBox8.Name = "CheckBox8"
120
-        Me.CheckBox8.Size = New System.Drawing.Size(112, 24)
121
-        Me.CheckBox8.TabIndex = 7
122
-        Me.CheckBox8.Text = "CheckBox8"
123
-        Me.CheckBox8.UseVisualStyleBackColor = True
124
-        '
125
-        'CheckBox7
126
-        '
127
-        Me.CheckBox7.AutoSize = True
128
-        Me.CheckBox7.Location = New System.Drawing.Point(8, 208)
129
-        Me.CheckBox7.Name = "CheckBox7"
130
-        Me.CheckBox7.Size = New System.Drawing.Size(112, 24)
131
-        Me.CheckBox7.TabIndex = 6
132
-        Me.CheckBox7.Text = "CheckBox7"
133
-        Me.CheckBox7.UseVisualStyleBackColor = True
134
-        '
135
-        'CheckBox6
136
-        '
137
-        Me.CheckBox6.AutoSize = True
138
-        Me.CheckBox6.Location = New System.Drawing.Point(8, 178)
139
-        Me.CheckBox6.Name = "CheckBox6"
140
-        Me.CheckBox6.Size = New System.Drawing.Size(112, 24)
141
-        Me.CheckBox6.TabIndex = 5
142
-        Me.CheckBox6.Text = "CheckBox6"
143
-        Me.CheckBox6.UseVisualStyleBackColor = True
144
-        '
145
-        'CheckBox5
146
-        '
147
-        Me.CheckBox5.AutoSize = True
148
-        Me.CheckBox5.Location = New System.Drawing.Point(8, 148)
149
-        Me.CheckBox5.Name = "CheckBox5"
150
-        Me.CheckBox5.Size = New System.Drawing.Size(112, 24)
151
-        Me.CheckBox5.TabIndex = 4
152
-        Me.CheckBox5.Text = "CheckBox5"
153
-        Me.CheckBox5.UseVisualStyleBackColor = True
154
-        '
155
-        'CheckBox4
156
-        '
157
-        Me.CheckBox4.AutoSize = True
158
-        Me.CheckBox4.Location = New System.Drawing.Point(8, 118)
159
-        Me.CheckBox4.Name = "CheckBox4"
160
-        Me.CheckBox4.Size = New System.Drawing.Size(112, 24)
161
-        Me.CheckBox4.TabIndex = 3
162
-        Me.CheckBox4.Text = "CheckBox4"
163
-        Me.CheckBox4.UseVisualStyleBackColor = True
164
-        '
165
-        'CheckBox3
166
-        '
167
-        Me.CheckBox3.AutoSize = True
168
-        Me.CheckBox3.Location = New System.Drawing.Point(8, 88)
169
-        Me.CheckBox3.Name = "CheckBox3"
170
-        Me.CheckBox3.Size = New System.Drawing.Size(112, 24)
171
-        Me.CheckBox3.TabIndex = 2
172
-        Me.CheckBox3.Text = "CheckBox3"
173
-        Me.CheckBox3.UseVisualStyleBackColor = True
174
-        '
175
-        'CheckBox2
176
-        '
177
-        Me.CheckBox2.AutoSize = True
178
-        Me.CheckBox2.Location = New System.Drawing.Point(8, 58)
179
-        Me.CheckBox2.Name = "CheckBox2"
180
-        Me.CheckBox2.Size = New System.Drawing.Size(112, 24)
181
-        Me.CheckBox2.TabIndex = 1
182
-        Me.CheckBox2.Text = "CheckBox2"
183
-        Me.CheckBox2.UseVisualStyleBackColor = True
184
-        '
185
-        'CheckBox1
186
-        '
187
-        Me.CheckBox1.AutoSize = True
188
-        Me.CheckBox1.Location = New System.Drawing.Point(8, 28)
189
-        Me.CheckBox1.Name = "CheckBox1"
190
-        Me.CheckBox1.Size = New System.Drawing.Size(112, 24)
191
-        Me.CheckBox1.TabIndex = 0
192
-        Me.CheckBox1.Text = "CheckBox1"
193
-        Me.CheckBox1.UseVisualStyleBackColor = True
194
-        '
195
         '醫生_tb
73
         '醫生_tb
196
         '
74
         '
197
         Me.醫生_tb.Location = New System.Drawing.Point(66, 3)
75
         Me.醫生_tb.Location = New System.Drawing.Point(66, 3)
200
         Me.醫生_tb.Size = New System.Drawing.Size(146, 29)
78
         Me.醫生_tb.Size = New System.Drawing.Size(146, 29)
201
         Me.醫生_tb.TabIndex = 6
79
         Me.醫生_tb.TabIndex = 6
202
         '
80
         '
203
-        '確認_bt
204
-        '
205
-        Me.確認_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check
206
-        Me.確認_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
207
-        Me.確認_bt.Location = New System.Drawing.Point(4, 402)
208
-        Me.確認_bt.Name = "確認_bt"
209
-        Me.確認_bt.Size = New System.Drawing.Size(208, 44)
210
-        Me.確認_bt.TabIndex = 5
211
-        Me.確認_bt.UseVisualStyleBackColor = True
212
-        '
213
         '適應症_dgv
81
         '適應症_dgv
214
         '
82
         '
215
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
83
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
223
         Me.適應症_dgv.Name = "適應症_dgv"
91
         Me.適應症_dgv.Name = "適應症_dgv"
224
         Me.適應症_dgv.RowHeadersWidth = 5
92
         Me.適應症_dgv.RowHeadersWidth = 5
225
         Me.適應症_dgv.RowTemplate.Height = 24
93
         Me.適應症_dgv.RowTemplate.Height = 24
226
-        Me.適應症_dgv.Size = New System.Drawing.Size(164, 267)
94
+        Me.適應症_dgv.Size = New System.Drawing.Size(164, 406)
227
         Me.適應症_dgv.TabIndex = 228
95
         Me.適應症_dgv.TabIndex = 228
228
         '
96
         '
97
+        'TreeView1
98
+        '
99
+        Me.TreeView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
100
+            Or System.Windows.Forms.AnchorStyles.Left) _
101
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
102
+        Me.TreeView1.CheckBoxes = True
103
+        Me.TreeView1.Location = New System.Drawing.Point(3, 35)
104
+        Me.TreeView1.Name = "TreeView1"
105
+        TreeNode1.Name = "Node1"
106
+        TreeNode1.Text = "Pulsed Dye Laser"
107
+        TreeNode2.Name = "Node4"
108
+        TreeNode2.Text = "VPL"
109
+        TreeNode3.Name = "Node0"
110
+        TreeNode3.Text = "Acne"
111
+        TreeNode4.Name = "Node5"
112
+        TreeNode4.Text = "Subcision"
113
+        TreeNode5.Name = "Node3"
114
+        TreeNode5.Text = "Acne Scar"
115
+        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode5})
116
+        Me.TreeView1.Size = New System.Drawing.Size(512, 485)
117
+        Me.TreeView1.TabIndex = 229
118
+        '
119
+        'Label3
120
+        '
121
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
122
+        Me.Label3.AutoSize = True
123
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
124
+        Me.Label3.Location = New System.Drawing.Point(12, 529)
125
+        Me.Label3.Name = "Label3"
126
+        Me.Label3.Size = New System.Drawing.Size(276, 24)
127
+        Me.Label3.TabIndex = 230
128
+        Me.Label3.Text = "新增適應症與療程建議的控制項" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
129
+        '
130
+        '病症_cb
131
+        '
132
+        Me.病症_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
133
+        Me.病症_cb.FormattingEnabled = True
134
+        Me.病症_cb.Location = New System.Drawing.Point(3, 557)
135
+        Me.病症_cb.Name = "病症_cb"
136
+        Me.病症_cb.Size = New System.Drawing.Size(335, 28)
137
+        Me.病症_cb.TabIndex = 231
138
+        '
139
+        '療程_cb
140
+        '
141
+        Me.療程_cb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
142
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
143
+        Me.療程_cb.FormattingEnabled = True
144
+        Me.療程_cb.Location = New System.Drawing.Point(342, 557)
145
+        Me.療程_cb.Name = "療程_cb"
146
+        Me.療程_cb.Size = New System.Drawing.Size(172, 28)
147
+        Me.療程_cb.TabIndex = 232
148
+        '
149
+        'Label4
150
+        '
151
+        Me.Label4.AutoSize = True
152
+        Me.Label4.Location = New System.Drawing.Point(-4, 505)
153
+        Me.Label4.Name = "Label4"
154
+        Me.Label4.Size = New System.Drawing.Size(534, 20)
155
+        Me.Label4.TabIndex = 234
156
+        Me.Label4.Text = "___________________________________________________________________________"
157
+        '
158
+        '刪除_bt
159
+        '
160
+        Me.刪除_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
161
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
162
+        Me.刪除_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.GarbageEmpty
163
+        Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
164
+        Me.刪除_bt.Location = New System.Drawing.Point(430, 524)
165
+        Me.刪除_bt.Name = "刪除_bt"
166
+        Me.刪除_bt.Size = New System.Drawing.Size(85, 32)
167
+        Me.刪除_bt.TabIndex = 235
168
+        Me.刪除_bt.UseVisualStyleBackColor = True
169
+        '
170
+        '存檔_bt
171
+        '
172
+        Me.存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
173
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
174
+        Me.存檔_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.SAVER
175
+        Me.存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
176
+        Me.存檔_bt.Location = New System.Drawing.Point(343, 524)
177
+        Me.存檔_bt.Name = "存檔_bt"
178
+        Me.存檔_bt.Size = New System.Drawing.Size(85, 32)
179
+        Me.存檔_bt.TabIndex = 233
180
+        Me.存檔_bt.UseVisualStyleBackColor = True
181
+        '
182
+        '確認_bt
183
+        '
184
+        Me.確認_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
185
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
186
+        Me.確認_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check
187
+        Me.確認_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
188
+        Me.確認_bt.Location = New System.Drawing.Point(429, 1)
189
+        Me.確認_bt.Name = "確認_bt"
190
+        Me.確認_bt.Size = New System.Drawing.Size(85, 32)
191
+        Me.確認_bt.TabIndex = 5
192
+        Me.確認_bt.UseVisualStyleBackColor = True
193
+        '
229
         '適應症選擇
194
         '適應症選擇
230
         '
195
         '
231
         Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
196
         Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
232
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
197
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
233
-        Me.ClientSize = New System.Drawing.Size(216, 449)
234
-        Me.Controls.Add(Me.適應症_dgv)
198
+        Me.ClientSize = New System.Drawing.Size(518, 588)
199
+        Me.Controls.Add(Me.刪除_bt)
200
+        Me.Controls.Add(Me.存檔_bt)
201
+        Me.Controls.Add(Me.療程_cb)
202
+        Me.Controls.Add(Me.病症_cb)
203
+        Me.Controls.Add(Me.Label3)
235
         Me.Controls.Add(Me.醫生_tb)
204
         Me.Controls.Add(Me.醫生_tb)
236
         Me.Controls.Add(Me.確認_bt)
205
         Me.Controls.Add(Me.確認_bt)
237
-        Me.Controls.Add(Me.GroupBox1)
238
         Me.Controls.Add(Me.病歷號_tb)
206
         Me.Controls.Add(Me.病歷號_tb)
239
         Me.Controls.Add(Me.Label2)
207
         Me.Controls.Add(Me.Label2)
240
         Me.Controls.Add(Me.Label1)
208
         Me.Controls.Add(Me.Label1)
209
+        Me.Controls.Add(Me.Label4)
210
+        Me.Controls.Add(Me.TreeView1)
211
+        Me.Controls.Add(Me.適應症_dgv)
241
         Me.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
212
         Me.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
242
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
213
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
243
         Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5)
214
         Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5)
246
         Me.Name = "適應症選擇"
217
         Me.Name = "適應症選擇"
247
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
218
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
248
         Me.Text = "適應症選擇"
219
         Me.Text = "適應症選擇"
249
-        Me.GroupBox1.ResumeLayout(False)
250
-        Me.GroupBox1.PerformLayout()
251
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).EndInit()
220
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).EndInit()
252
         Me.ResumeLayout(False)
221
         Me.ResumeLayout(False)
253
         Me.PerformLayout()
222
         Me.PerformLayout()
257
     Friend WithEvents Label1 As Label
226
     Friend WithEvents Label1 As Label
258
     Friend WithEvents Label2 As Label
227
     Friend WithEvents Label2 As Label
259
     Friend WithEvents 病歷號_tb As TextBox
228
     Friend WithEvents 病歷號_tb As TextBox
260
-    Friend WithEvents GroupBox1 As GroupBox
261
-    Friend WithEvents CheckBox10 As CheckBox
262
-    Friend WithEvents CheckBox9 As CheckBox
263
-    Friend WithEvents CheckBox8 As CheckBox
264
-    Friend WithEvents CheckBox7 As CheckBox
265
-    Friend WithEvents CheckBox6 As CheckBox
266
-    Friend WithEvents CheckBox5 As CheckBox
267
-    Friend WithEvents CheckBox4 As CheckBox
268
-    Friend WithEvents CheckBox3 As CheckBox
269
-    Friend WithEvents CheckBox2 As CheckBox
270
-    Friend WithEvents CheckBox1 As CheckBox
271
     Friend WithEvents 確認_bt As Button
229
     Friend WithEvents 確認_bt As Button
272
     Friend WithEvents 醫生_tb As TextBox
230
     Friend WithEvents 醫生_tb As TextBox
273
     Friend WithEvents 適應症_dgv As DataGridView
231
     Friend WithEvents 適應症_dgv As DataGridView
232
+    Friend WithEvents TreeView1 As TreeView
233
+    Friend WithEvents Label3 As Label
234
+    Friend WithEvents 病症_cb As ComboBox
235
+    Friend WithEvents 療程_cb As ComboBox
236
+    Friend WithEvents 存檔_bt As Button
237
+    Friend WithEvents Label4 As Label
238
+    Friend WithEvents 刪除_bt As Button
274
 End Class
239
 End Class

+ 62
- 27
GRAMS-SYS/05、業務管理/適應症選擇.vb 查看文件

7
         SQL_適應症設定()
7
         SQL_適應症設定()
8
         da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
8
         da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
9
         適應症_dgv.Columns(0).FillWeight = 30
9
         適應症_dgv.Columns(0).FillWeight = 30
10
+        適應症選擇()
11
+    End Sub
12
+    Private Sub SQL_下拉清單載入1()
13
+        SQL_適應症主清單1() : 病症_cb.Items.Clear() : While (dr.Read()) : 病症_cb.Items.Add(dr("適應症")) : End While : conn.Close()
14
+    End Sub
15
+    Private Sub SQL_下拉清單載入2()
16
+        SQL_適應症主清單2() : 療程_cb.Items.Clear() : While (dr.Read()) : 療程_cb.Items.Add(dr("治療建議")) : End While : conn.Close()
10
     End Sub
17
     End Sub
11
     Private Sub 適應症選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
18
     Private Sub 適應症選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
12
-        適應症_dgv.SendToBack() : Set_適應症設定()
13
-        For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
14
-            Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
15
-            If 適應症_dgv(1, I).Value.ToString = "" Then
16
-                CheckBoxs.Visible = False
17
-            Else
18
-                CheckBoxs.Visible = True : CheckBoxs.Text = 適應症_dgv(1, I).Value.ToString
19
-            End If
20
-        Next
19
+        適應症_dgv.SendToBack() : Set_適應症設定() : SQL_下拉清單載入1()
21
     End Sub
20
     End Sub
22
     Private Sub 適應症選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
21
     Private Sub 適應症選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
23
         醫生_tb.Text = PA
22
         醫生_tb.Text = PA
25
     Private Sub 適應症選擇_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
24
     Private Sub 適應症選擇_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
26
         LoginForm1.Close()
25
         LoginForm1.Close()
27
     End Sub
26
     End Sub
27
+    Private Sub 適應症選擇()
28
+        TreeView1.Nodes.Clear() : Dim 主項數量 As Integer = -1 : Dim 症狀 As String = ""
29
+        For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
30
+            If 症狀 <> 適應症_dgv("適應症", I).Value.ToString Then
31
+                TreeView1.Nodes.Add(適應症_dgv("適應症", I).Value.ToString) : 症狀 = 適應症_dgv("適應症", I).Value.ToString : 主項數量 += 1
32
+            End If
33
+            If 症狀 = 適應症_dgv("適應症", I).Value.ToString Then
34
+                TreeView1.Nodes(主項數量).Nodes.Add(適應症_dgv("治療建議", I).Value.ToString)
35
+            End If
36
+        Next
37
+    End Sub
38
+    Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick  ' 判斷是否點擊在 CheckBox 的範圍內
39
+        If e.Node.Bounds.Contains(e.Location) Then                                                                             ' 判斷是否為第二層節點
40
+            If e.Node.Parent IsNot Nothing Then : e.Node.Checked = Not e.Node.Checked : End If                                 ' 切換 CheckBox 的勾選狀態
41
+        Else                                                                                                                   ' 如果是第一層節點,判斷是否已經展開
42
+            If e.Node.IsExpanded Then : e.Node.Expand()                                                                        ' 如果已經展開,則收合
43
+            Else : e.Node.Collapse() : End If                                                                                  ' 如果未展開,則展開
44
+        End If
45
+    End Sub
46
+    Private Sub CheckChildNodes(parentNode As TreeNode)
47
+        For Each childNode As TreeNode In parentNode.Nodes
48
+            If childNode.Checked Then : PA1 = childNode.Text : SQL_銷售明細新增() : End If
49
+            If childNode.Nodes.Count > 0 Then : CheckChildNodes(childNode) : End If            ' 如果有子節點,遞迴檢查
50
+        Next
51
+    End Sub
28
     Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
52
     Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
29
         If 病歷號_tb.Text = "" Then
53
         If 病歷號_tb.Text = "" Then
30
             MsgBox("病歷號 沒有填寫!!")
54
             MsgBox("病歷號 沒有填寫!!")
32
             Dim 流水號 As String = "" : Dim 流水 As Integer : SQL_查詢銷售()
56
             Dim 流水號 As String = "" : Dim 流水 As Integer : SQL_查詢銷售()
33
             If dr.Read Then
57
             If dr.Read Then
34
                 PA = dr("流水號").ToString : SQL_銷售明細刪除()
58
                 PA = dr("流水號").ToString : SQL_銷售明細刪除()
35
-                For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
36
-                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
37
-                    If CheckBoxs.Checked = True Then
38
-                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
39
-                    End If
40
-                Next
59
+                For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
41
             Else
60
             Else
42
                 SQL_銷售流水號()
61
                 SQL_銷售流水號()
43
                 If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
62
                 If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
50
                 ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "PO" & "0" & 流水
69
                 ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "PO" & "0" & 流水
51
                 ElseIf 流水 > 9999999 Then : 流水號 = "PO" & 流水 : End If : PA = 流水號
70
                 ElseIf 流水 > 9999999 Then : 流水號 = "PO" & 流水 : End If : PA = 流水號
52
                 SQL_銷售控制新增() : SQL_銷售明細刪除()
71
                 SQL_銷售控制新增() : SQL_銷售明細刪除()
53
-                For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
54
-                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
55
-                    If CheckBoxs.Checked = True Then
56
-                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
57
-                    End If
58
-                Next
72
+                For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
59
             End If
73
             End If
60
-
61
             MsgBox("資料傳遞 至 業務系統 完成!!")
74
             MsgBox("資料傳遞 至 業務系統 完成!!")
62
-            病歷號_tb.Text = ""
63
-            For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
64
-                Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
65
-                CheckBoxs.Checked = False
66
-            Next
75
+            病歷號_tb.Text = "" : 適應症選擇()
76
+        End If
77
+    End Sub
78
+    Private Sub 病症_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 病症_cb.SelectedIndexChanged
79
+        療程_cb.Text = "" : SQL_下拉清單載入2()
80
+    End Sub
81
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
82
+        If 病症_cb.Text = "" Or 病症_cb.Text = "" Then : MsgBox("資料空白無法執行!!") : Else
83
+            SQL_適應症流水()
84
+            If dr.Read Then : MsgBox("資料已存在不需要重複新增!!") : Else
85
+                Dim 流水號 As String = "" : Dim 流水 As Integer
86
+                SQL_適應症流水1()
87
+                If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
88
+                If 流水 < 10 Then : 流水號 = "IN" & "0000000" & 流水
89
+                ElseIf 流水 > 9 And 流水 < 100 Then : 流水號 = "IN" & "000000" & 流水
90
+                ElseIf 流水 > 99 And 流水 < 1000 Then : 流水號 = "IN" & "00000" & 流水
91
+                ElseIf 流水 > 999 And 流水 < 10000 Then : 流水號 = "IN" & "0000" & 流水
92
+                ElseIf 流水 > 9999 And 流水 < 100000 Then : 流水號 = "IN" & "000" & 流水
93
+                ElseIf 流水 > 99999 And 流水 < 1000000 Then : 流水號 = "IN" & "00" & 流水
94
+                ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "IN" & "0" & 流水
95
+                ElseIf 流水 > 9999999 Then : 流水號 = "IN" & 流水 : End If : PA = 流水號
96
+                SQL_適應症新增1() : Set_適應症設定()
97
+            End If
67
         End If
98
         End If
68
     End Sub
99
     End Sub
100
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
101
+        Dim cc As MsgBoxResult = MsgBox("確定要刪除這筆適應症資料嗎??", MsgBoxStyle.OkCancel)
102
+        If cc = MsgBoxResult.Ok Then : SQL_適應症刪除1() : Set_適應症設定() : End If
103
+    End Sub
69
 End Class
104
 End Class

+ 7
- 7
GRAMS-SYS/10、系統管理/系統設定.vb 查看文件

8
         da.Fill(ds2) : 醫師_dgv.DataSource = ds2.Tables(0) : conn.Close()
8
         da.Fill(ds2) : 醫師_dgv.DataSource = ds2.Tables(0) : conn.Close()
9
     End Sub
9
     End Sub
10
     Private Sub Set_適應症設定()
10
     Private Sub Set_適應症設定()
11
-        Dim ds2 As New DataSet
12
-        適應症_dgv.DataSource = Nothing : ds2.Clear()
13
-        適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
14
-        適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
15
-        SQL_適應症設定()
16
-        da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
17
-        適應症_dgv.Columns(0).FillWeight = 30
11
+        'Dim ds2 As New DataSet
12
+        '適應症_dgv.DataSource = Nothing : ds2.Clear()
13
+        '適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
14
+        '適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
15
+        'SQL_適應症設定()
16
+        'da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
17
+        '適應症_dgv.Columns(0).FillWeight = 30
18
     End Sub
18
     End Sub
19
     Private Sub Set_時段設定()
19
     Private Sub Set_時段設定()
20
         Dim ds2 As New DataSet
20
         Dim ds2 As New DataSet

+ 36
- 20
GRAMS-SYS/HSKIN-MIS-SYS.Designer.vb 查看文件

57
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
57
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
58
         Me.到離職管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
58
         Me.到離職管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
59
         Me.薪資資料設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
59
         Me.薪資資料設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
60
+        Me.薪資表_tsm = New System.Windows.Forms.ToolStripMenuItem()
60
         Me.業務管理系統_tsm = New System.Windows.Forms.ToolStripMenuItem()
61
         Me.業務管理系統_tsm = New System.Windows.Forms.ToolStripMenuItem()
62
+        Me.業務銷售控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
63
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
61
         Me.業績獎金計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
64
         Me.業績獎金計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
62
         Me.產品銷售分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
65
         Me.產品銷售分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
63
         Me.來客資料分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
66
         Me.來客資料分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
78
         Me.FTP清單_dgv = New System.Windows.Forms.DataGridView()
81
         Me.FTP清單_dgv = New System.Windows.Forms.DataGridView()
79
         Me.加班單_dgv = New System.Windows.Forms.DataGridView()
82
         Me.加班單_dgv = New System.Windows.Forms.DataGridView()
80
         Me.休假單_dgv = New System.Windows.Forms.DataGridView()
83
         Me.休假單_dgv = New System.Windows.Forms.DataGridView()
81
-        Me.薪資表_tsm = New System.Windows.Forms.ToolStripMenuItem()
82
         Me.MenuStrip.SuspendLayout()
84
         Me.MenuStrip.SuspendLayout()
83
         Me.StatusStrip.SuspendLayout()
85
         Me.StatusStrip.SuspendLayout()
84
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
86
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
286
         '
288
         '
287
         Me.考勤明細表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
289
         Me.考勤明細表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
288
         Me.考勤明細表_tsm.Name = "考勤明細表_tsm"
290
         Me.考勤明細表_tsm.Name = "考勤明細表_tsm"
289
-        Me.考勤明細表_tsm.Size = New System.Drawing.Size(180, 22)
291
+        Me.考勤明細表_tsm.Size = New System.Drawing.Size(146, 22)
290
         Me.考勤明細表_tsm.Text = "考勤明細表"
292
         Me.考勤明細表_tsm.Text = "考勤明細表"
291
         '
293
         '
292
         'ToolStripSeparator3
294
         'ToolStripSeparator3
293
         '
295
         '
294
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
296
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
295
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
297
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(143, 6)
296
         '
298
         '
297
         '到離職管理_tsm
299
         '到離職管理_tsm
298
         '
300
         '
299
         Me.到離職管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
301
         Me.到離職管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
300
         Me.到離職管理_tsm.Name = "到離職管理_tsm"
302
         Me.到離職管理_tsm.Name = "到離職管理_tsm"
301
-        Me.到離職管理_tsm.Size = New System.Drawing.Size(180, 22)
303
+        Me.到離職管理_tsm.Size = New System.Drawing.Size(146, 22)
302
         Me.到離職管理_tsm.Text = "到離職管理"
304
         Me.到離職管理_tsm.Text = "到離職管理"
303
         '
305
         '
304
         '薪資資料設定_tsm
306
         '薪資資料設定_tsm
305
         '
307
         '
306
         Me.薪資資料設定_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
308
         Me.薪資資料設定_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
307
         Me.薪資資料設定_tsm.Name = "薪資資料設定_tsm"
309
         Me.薪資資料設定_tsm.Name = "薪資資料設定_tsm"
308
-        Me.薪資資料設定_tsm.Size = New System.Drawing.Size(180, 22)
310
+        Me.薪資資料設定_tsm.Size = New System.Drawing.Size(146, 22)
309
         Me.薪資資料設定_tsm.Text = "薪資資料設定"
311
         Me.薪資資料設定_tsm.Text = "薪資資料設定"
310
         '
312
         '
313
+        '薪資表_tsm
314
+        '
315
+        Me.薪資表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
316
+        Me.薪資表_tsm.Name = "薪資表_tsm"
317
+        Me.薪資表_tsm.Size = New System.Drawing.Size(146, 22)
318
+        Me.薪資表_tsm.Text = "薪資表"
319
+        '
311
         '業務管理系統_tsm
320
         '業務管理系統_tsm
312
         '
321
         '
313
-        Me.業務管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績獎金計算表_tsm, Me.產品銷售分析表_tsm, Me.來客資料分析表_tsm, Me.人員貢獻分析表_tsm, Me.ToolStripSeparator24, Me.業務系統資料管理_tsm, Me.交易明細表導入_tsm})
322
+        Me.業務管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業務銷售控制表_tsm, Me.ToolStripSeparator4, Me.業績獎金計算表_tsm, Me.產品銷售分析表_tsm, Me.來客資料分析表_tsm, Me.人員貢獻分析表_tsm, Me.ToolStripSeparator24, Me.業務系統資料管理_tsm, Me.交易明細表導入_tsm})
314
         Me.業務管理系統_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
323
         Me.業務管理系統_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
315
         Me.業務管理系統_tsm.Name = "業務管理系統_tsm"
324
         Me.業務管理系統_tsm.Name = "業務管理系統_tsm"
316
         Me.業務管理系統_tsm.Size = New System.Drawing.Size(107, 20)
325
         Me.業務管理系統_tsm.Size = New System.Drawing.Size(107, 20)
317
         Me.業務管理系統_tsm.Text = "業務管理系統"
326
         Me.業務管理系統_tsm.Text = "業務管理系統"
318
         '
327
         '
328
+        '業務銷售控制表_tsm
329
+        '
330
+        Me.業務銷售控制表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
331
+        Me.業務銷售控制表_tsm.Name = "業務銷售控制表_tsm"
332
+        Me.業務銷售控制表_tsm.Size = New System.Drawing.Size(180, 22)
333
+        Me.業務銷售控制表_tsm.Text = "業務銷售控制表"
334
+        '
335
+        'ToolStripSeparator4
336
+        '
337
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
338
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
339
+        '
319
         '業績獎金計算表_tsm
340
         '業績獎金計算表_tsm
320
         '
341
         '
321
         Me.業績獎金計算表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
342
         Me.業績獎金計算表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
322
         Me.業績獎金計算表_tsm.Name = "業績獎金計算表_tsm"
343
         Me.業績獎金計算表_tsm.Name = "業績獎金計算表_tsm"
323
-        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(170, 22)
344
+        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(180, 22)
324
         Me.業績獎金計算表_tsm.Text = "業績獎金計算表"
345
         Me.業績獎金計算表_tsm.Text = "業績獎金計算表"
325
         '
346
         '
326
         '產品銷售分析表_tsm
347
         '產品銷售分析表_tsm
327
         '
348
         '
328
         Me.產品銷售分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
349
         Me.產品銷售分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
329
         Me.產品銷售分析表_tsm.Name = "產品銷售分析表_tsm"
350
         Me.產品銷售分析表_tsm.Name = "產品銷售分析表_tsm"
330
-        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(170, 22)
351
+        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(180, 22)
331
         Me.產品銷售分析表_tsm.Text = "產品銷售分析表"
352
         Me.產品銷售分析表_tsm.Text = "產品銷售分析表"
332
         '
353
         '
333
         '來客資料分析表_tsm
354
         '來客資料分析表_tsm
334
         '
355
         '
335
         Me.來客資料分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
356
         Me.來客資料分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
336
         Me.來客資料分析表_tsm.Name = "來客資料分析表_tsm"
357
         Me.來客資料分析表_tsm.Name = "來客資料分析表_tsm"
337
-        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(170, 22)
358
+        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(180, 22)
338
         Me.來客資料分析表_tsm.Text = "來客資料分析表"
359
         Me.來客資料分析表_tsm.Text = "來客資料分析表"
339
         '
360
         '
340
         '人員貢獻分析表_tsm
361
         '人員貢獻分析表_tsm
341
         '
362
         '
342
         Me.人員貢獻分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
363
         Me.人員貢獻分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
343
         Me.人員貢獻分析表_tsm.Name = "人員貢獻分析表_tsm"
364
         Me.人員貢獻分析表_tsm.Name = "人員貢獻分析表_tsm"
344
-        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(170, 22)
365
+        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(180, 22)
345
         Me.人員貢獻分析表_tsm.Text = "人員貢獻分析表"
366
         Me.人員貢獻分析表_tsm.Text = "人員貢獻分析表"
346
         '
367
         '
347
         'ToolStripSeparator24
368
         'ToolStripSeparator24
348
         '
369
         '
349
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
370
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
350
-        Me.ToolStripSeparator24.Size = New System.Drawing.Size(167, 6)
371
+        Me.ToolStripSeparator24.Size = New System.Drawing.Size(177, 6)
351
         '
372
         '
352
         '業務系統資料管理_tsm
373
         '業務系統資料管理_tsm
353
         '
374
         '
354
         Me.業務系統資料管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
375
         Me.業務系統資料管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
355
         Me.業務系統資料管理_tsm.Name = "業務系統資料管理_tsm"
376
         Me.業務系統資料管理_tsm.Name = "業務系統資料管理_tsm"
356
-        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(170, 22)
377
+        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(180, 22)
357
         Me.業務系統資料管理_tsm.Text = "業務系統資料管理"
378
         Me.業務系統資料管理_tsm.Text = "業務系統資料管理"
358
         '
379
         '
359
         '交易明細表導入_tsm
380
         '交易明細表導入_tsm
360
         '
381
         '
361
         Me.交易明細表導入_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
382
         Me.交易明細表導入_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
362
         Me.交易明細表導入_tsm.Name = "交易明細表導入_tsm"
383
         Me.交易明細表導入_tsm.Name = "交易明細表導入_tsm"
363
-        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(170, 22)
384
+        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(180, 22)
364
         Me.交易明細表導入_tsm.Text = "交易明細表導入"
385
         Me.交易明細表導入_tsm.Text = "交易明細表導入"
365
         '
386
         '
366
         '系統設定_tsm
387
         '系統設定_tsm
461
         Me.休假單_dgv.TabIndex = 667
482
         Me.休假單_dgv.TabIndex = 667
462
         Me.休假單_dgv.Visible = False
483
         Me.休假單_dgv.Visible = False
463
         '
484
         '
464
-        '薪資表_tsm
465
-        '
466
-        Me.薪資表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
467
-        Me.薪資表_tsm.Name = "薪資表_tsm"
468
-        Me.薪資表_tsm.Size = New System.Drawing.Size(180, 22)
469
-        Me.薪資表_tsm.Text = "薪資表"
470
-        '
471
         'GRAMS_SYS
485
         'GRAMS_SYS
472
         '
486
         '
473
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
487
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
553
     Friend WithEvents 個人班表_tsm As ToolStripMenuItem
567
     Friend WithEvents 個人班表_tsm As ToolStripMenuItem
554
     Friend WithEvents 薪資資料設定_tsm As ToolStripMenuItem
568
     Friend WithEvents 薪資資料設定_tsm As ToolStripMenuItem
555
     Friend WithEvents 薪資表_tsm As ToolStripMenuItem
569
     Friend WithEvents 薪資表_tsm As ToolStripMenuItem
570
+    Friend WithEvents 業務銷售控制表_tsm As ToolStripMenuItem
571
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
556
 End Class
572
 End Class

+ 15
- 6
GRAMS-SYS/HSKIN-MIS-SYS.vb 查看文件

64
 
64
 
65
         Me.Text = "HSKIN醫美集團 -- 黃柏翰皮膚專科/美容醫學診所 -- 管理系統 --  系統版本  :  " & 版本 & " -- 登入人員 : " & gUserName
65
         Me.Text = "HSKIN醫美集團 -- 黃柏翰皮膚專科/美容醫學診所 -- 管理系統 --  系統版本  :  " & 版本 & " -- 登入人員 : " & gUserName
66
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
66
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
67
-        系統設定_tsm.Enabled = CC(1) : 系統使用者權限設定_tsm.Enabled = CC(2) : 系統通用變數設定_tsm.Enabled = CC(3) : ID卡配置設定_tsm.Enabled = CC(4) : 人員資料表_tsm.Enabled = CC(5)
67
+        系統設定_tsm.Visible = CC(1) : 系統使用者權限設定_tsm.Visible = CC(2) : 系統通用變數設定_tsm.Visible = CC(3) : ID卡配置設定_tsm.Visible = CC(4) : 人員資料表_tsm.Visible = CC(5)
68
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
68
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
69
-        排班管理系統_tsm.Enabled = CC(6) : 排班資料_tsm.Enabled = CC(6) : 醫生班表修改_tsm.Enabled = CC(17)
69
+        排班管理系統_tsm.Visible = CC(6) : 排班資料_tsm.Visible = CC(6) : 醫生班表修改_tsm.Visible = CC(17)
70
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
70
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
71
-        加班申請_審核_tsm.Enabled = CC(7) : 加班申請_tsm.Enabled = CC(8) : 加班核准_tsm.Enabled = CC(9) : 醫師下診時間紀錄_tsm.Enabled = CC(10) : 加班申請資料_tsm.Enabled = CC(24)
71
+        加班申請_審核_tsm.Visible = CC(7) : 加班申請_tsm.Visible = CC(8) : 加班核准_tsm.Visible = CC(9) : 醫師下診時間紀錄_tsm.Visible = CC(10) : 加班申請資料_tsm.Visible = CC(24)
72
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
72
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
73
-        補休申請審核_tsm.Enabled = CC(11) : 補休申請_tsm.Enabled = CC(12) : 補休核准_tsm.Enabled = CC(13) : 國定假日設定_tsm.Enabled = CC(15) : 歷史休假紀錄_tsm.Enabled = CC(25)
73
+        補休申請審核_tsm.Visible = CC(11) : 補休申請_tsm.Visible = CC(12) : 補休核准_tsm.Visible = CC(13) : 國定假日設定_tsm.Visible = CC(15) : 歷史休假紀錄_tsm.Visible = CC(25)
74
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
74
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
75
-        考勤管理_tsm.Enabled = CC(14) : 考勤明細表_tsm.Enabled = CC(26) : 到離職管理_tsm.Enabled = CC(27) : 薪資資料設定_tsm.Enabled = CC(16)
75
+        考勤管理_tsm.Visible = CC(14) : 考勤明細表_tsm.Visible = CC(26) : 到離職管理_tsm.Visible = CC(27) : 薪資資料設定_tsm.Visible = CC(16)
76
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
76
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
77
-        業務管理系統_tsm.Enabled = CC(19) : 業績獎金計算表_tsm.Enabled = CC(20) : 產品銷售分析表_tsm.Enabled = CC(21) : 來客資料分析表_tsm.Enabled = CC(22) : 人員貢獻分析表_tsm.Enabled = CC(23)
77
+        業務管理系統_tsm.Visible = CC(19) : 業績獎金計算表_tsm.Visible = CC(20) : 產品銷售分析表_tsm.Visible = CC(21) : 來客資料分析表_tsm.Visible = CC(22) : 人員貢獻分析表_tsm.Visible = CC(23)
78
+        業務銷售控制表_tsm.Visible = CC(19)
79
+        If gUserName = "*系統管理者" Then
80
+            業務系統資料管理_tsm.Visible = True : 交易明細表導入_tsm.Visible = True
81
+        Else
82
+            業務系統資料管理_tsm.Visible = False : 交易明細表導入_tsm.Visible = False
83
+        End If
78
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
84
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
79
 
85
 
80
         Set_加班明細() : Set_請假明細()
86
         Set_加班明細() : Set_請假明細()
164
     Private Sub 薪資表_tsm_Click(sender As Object, e As EventArgs) Handles 薪資表_tsm.Click
170
     Private Sub 薪資表_tsm_Click(sender As Object, e As EventArgs) Handles 薪資表_tsm.Click
165
         PA = "" : 薪資表.Show() : 薪資表.BringToFront()
171
         PA = "" : 薪資表.Show() : 薪資表.BringToFront()
166
     End Sub
172
     End Sub
173
+    Private Sub 業務銷售控制表_tsm_Click(sender As Object, e As EventArgs) Handles 業務銷售控制表_tsm.Click
174
+        PA = "" : 業務銷售控制表.Show() : 業務銷售控制表.BringToFront()
175
+    End Sub
167
     Private Sub 業績獎金計算表_tsm_Click(sender As Object, e As EventArgs) Handles 業績獎金計算表_tsm.Click
176
     Private Sub 業績獎金計算表_tsm_Click(sender As Object, e As EventArgs) Handles 業績獎金計算表_tsm.Click
168
         PA = "" : 業績獎金計算表.Show() : 業績獎金計算表.BringToFront()
177
         PA = "" : 業績獎金計算表.Show() : 業績獎金計算表.BringToFront()
169
     End Sub
178
     End Sub

+ 9
- 0
GRAMS-SYS/HSKIN-MIS-SYS.vbproj 查看文件

200
     <Compile Include="05、業務管理\業務系統資料管理.vb">
200
     <Compile Include="05、業務管理\業務系統資料管理.vb">
201
       <SubType>Form</SubType>
201
       <SubType>Form</SubType>
202
     </Compile>
202
     </Compile>
203
+    <Compile Include="05、業務管理\業務銷售控制表.Designer.vb">
204
+      <DependentUpon>業務銷售控制表.vb</DependentUpon>
205
+    </Compile>
206
+    <Compile Include="05、業務管理\業務銷售控制表.vb">
207
+      <SubType>Form</SubType>
208
+    </Compile>
203
     <Compile Include="05、業務管理\業績獎金計算表.Designer.vb">
209
     <Compile Include="05、業務管理\業績獎金計算表.Designer.vb">
204
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
210
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
205
     </Compile>
211
     </Compile>
380
     <EmbeddedResource Include="05、業務管理\業務系統資料管理.resx">
386
     <EmbeddedResource Include="05、業務管理\業務系統資料管理.resx">
381
       <DependentUpon>業務系統資料管理.vb</DependentUpon>
387
       <DependentUpon>業務系統資料管理.vb</DependentUpon>
382
     </EmbeddedResource>
388
     </EmbeddedResource>
389
+    <EmbeddedResource Include="05、業務管理\業務銷售控制表.resx">
390
+      <DependentUpon>業務銷售控制表.vb</DependentUpon>
391
+    </EmbeddedResource>
383
     <EmbeddedResource Include="05、業務管理\業績獎金計算表.resx">
392
     <EmbeddedResource Include="05、業務管理\業績獎金計算表.resx">
384
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
393
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
385
     </EmbeddedResource>
394
     </EmbeddedResource>

+ 10
- 10
GRAMS-SYS/LoginForm1.Designer.vb 查看文件

57
         'UsernameLabel
57
         'UsernameLabel
58
         '
58
         '
59
         Me.UsernameLabel.BackColor = System.Drawing.Color.White
59
         Me.UsernameLabel.BackColor = System.Drawing.Color.White
60
-        Me.UsernameLabel.Location = New System.Drawing.Point(66, 102)
60
+        Me.UsernameLabel.Location = New System.Drawing.Point(81, 102)
61
         Me.UsernameLabel.Name = "UsernameLabel"
61
         Me.UsernameLabel.Name = "UsernameLabel"
62
         Me.UsernameLabel.Size = New System.Drawing.Size(195, 23)
62
         Me.UsernameLabel.Size = New System.Drawing.Size(195, 23)
63
         Me.UsernameLabel.TabIndex = 0
63
         Me.UsernameLabel.TabIndex = 0
67
         'PasswordLabel
67
         'PasswordLabel
68
         '
68
         '
69
         Me.PasswordLabel.BackColor = System.Drawing.Color.White
69
         Me.PasswordLabel.BackColor = System.Drawing.Color.White
70
-        Me.PasswordLabel.Location = New System.Drawing.Point(66, 149)
70
+        Me.PasswordLabel.Location = New System.Drawing.Point(81, 149)
71
         Me.PasswordLabel.Name = "PasswordLabel"
71
         Me.PasswordLabel.Name = "PasswordLabel"
72
         Me.PasswordLabel.Size = New System.Drawing.Size(195, 23)
72
         Me.PasswordLabel.Size = New System.Drawing.Size(195, 23)
73
         Me.PasswordLabel.TabIndex = 2
73
         Me.PasswordLabel.TabIndex = 2
76
         '
76
         '
77
         '密碼_tb
77
         '密碼_tb
78
         '
78
         '
79
-        Me.密碼_tb.Location = New System.Drawing.Point(367, 202)
79
+        Me.密碼_tb.Location = New System.Drawing.Point(382, 202)
80
         Me.密碼_tb.Name = "密碼_tb"
80
         Me.密碼_tb.Name = "密碼_tb"
81
         Me.密碼_tb.Size = New System.Drawing.Size(53, 22)
81
         Me.密碼_tb.Size = New System.Drawing.Size(53, 22)
82
         Me.密碼_tb.TabIndex = 1
82
         Me.密碼_tb.TabIndex = 1
84
         '
84
         '
85
         'PasswordTextBox
85
         'PasswordTextBox
86
         '
86
         '
87
-        Me.PasswordTextBox.Location = New System.Drawing.Point(68, 169)
87
+        Me.PasswordTextBox.Location = New System.Drawing.Point(83, 169)
88
         Me.PasswordTextBox.MaxLength = 10
88
         Me.PasswordTextBox.MaxLength = 10
89
         Me.PasswordTextBox.Name = "PasswordTextBox"
89
         Me.PasswordTextBox.Name = "PasswordTextBox"
90
         Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
90
         Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
93
         '
93
         '
94
         'OK
94
         'OK
95
         '
95
         '
96
-        Me.OK.Location = New System.Drawing.Point(267, 107)
96
+        Me.OK.Location = New System.Drawing.Point(282, 107)
97
         Me.OK.Name = "OK"
97
         Me.OK.Name = "OK"
98
         Me.OK.Size = New System.Drawing.Size(94, 41)
98
         Me.OK.Size = New System.Drawing.Size(94, 41)
99
         Me.OK.TabIndex = 4
99
         Me.OK.TabIndex = 4
102
         'Cancel
102
         'Cancel
103
         '
103
         '
104
         Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
104
         Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
105
-        Me.Cancel.Location = New System.Drawing.Point(267, 150)
105
+        Me.Cancel.Location = New System.Drawing.Point(282, 150)
106
         Me.Cancel.Name = "Cancel"
106
         Me.Cancel.Name = "Cancel"
107
         Me.Cancel.Size = New System.Drawing.Size(94, 41)
107
         Me.Cancel.Size = New System.Drawing.Size(94, 41)
108
         Me.Cancel.TabIndex = 5
108
         Me.Cancel.TabIndex = 5
145
         '
145
         '
146
         Me.Label2.AutoSize = True
146
         Me.Label2.AutoSize = True
147
         Me.Label2.BackColor = System.Drawing.Color.White
147
         Me.Label2.BackColor = System.Drawing.Color.White
148
-        Me.Label2.Location = New System.Drawing.Point(215, 205)
148
+        Me.Label2.Location = New System.Drawing.Point(230, 205)
149
         Me.Label2.Name = "Label2"
149
         Me.Label2.Name = "Label2"
150
         Me.Label2.Size = New System.Drawing.Size(146, 12)
150
         Me.Label2.Size = New System.Drawing.Size(146, 12)
151
         Me.Label2.TabIndex = 614
151
         Me.Label2.TabIndex = 614
155
         '
155
         '
156
         Me.Label1.AutoSize = True
156
         Me.Label1.AutoSize = True
157
         Me.Label1.BackColor = System.Drawing.Color.White
157
         Me.Label1.BackColor = System.Drawing.Color.White
158
-        Me.Label1.Location = New System.Drawing.Point(63, 205)
158
+        Me.Label1.Location = New System.Drawing.Point(78, 205)
159
         Me.Label1.Name = "Label1"
159
         Me.Label1.Name = "Label1"
160
         Me.Label1.Size = New System.Drawing.Size(146, 12)
160
         Me.Label1.Size = New System.Drawing.Size(146, 12)
161
         Me.Label1.TabIndex = 613
161
         Me.Label1.TabIndex = 613
180
         '
180
         '
181
         Me.手動更新_cb.AutoSize = True
181
         Me.手動更新_cb.AutoSize = True
182
         Me.手動更新_cb.BackColor = System.Drawing.Color.White
182
         Me.手動更新_cb.BackColor = System.Drawing.Color.White
183
-        Me.手動更新_cb.Location = New System.Drawing.Point(285, 224)
183
+        Me.手動更新_cb.Location = New System.Drawing.Point(300, 224)
184
         Me.手動更新_cb.Name = "手動更新_cb"
184
         Me.手動更新_cb.Name = "手動更新_cb"
185
         Me.手動更新_cb.Size = New System.Drawing.Size(72, 16)
185
         Me.手動更新_cb.Size = New System.Drawing.Size(72, 16)
186
         Me.手動更新_cb.TabIndex = 638
186
         Me.手動更新_cb.TabIndex = 638
191
         '
191
         '
192
         Me.使用者_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
192
         Me.使用者_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
193
         Me.使用者_cb.FormattingEnabled = True
193
         Me.使用者_cb.FormattingEnabled = True
194
-        Me.使用者_cb.Location = New System.Drawing.Point(68, 126)
194
+        Me.使用者_cb.Location = New System.Drawing.Point(83, 126)
195
         Me.使用者_cb.Name = "使用者_cb"
195
         Me.使用者_cb.Name = "使用者_cb"
196
         Me.使用者_cb.Size = New System.Drawing.Size(195, 20)
196
         Me.使用者_cb.Size = New System.Drawing.Size(195, 20)
197
         Me.使用者_cb.TabIndex = 639
197
         Me.使用者_cb.TabIndex = 639

二進制
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.exe 查看文件


二進制
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.pdb 查看文件


二進制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.exe 查看文件


二進制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.pdb 查看文件


+ 1
- 1
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.CoreCompileInputs.cache 查看文件

1
-b4371dd067a13eeb2d315dd0e58ad0714646416bafef762e26d844843940f40d
1
+8a15cd7fbe84bae7d993fbd735dfbae649189b875ce92b95aae1ea87c8d8e6c4

+ 1
- 0
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.FileListAbsolute.txt 查看文件

117
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.排班資料列印選擇.resources
117
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.排班資料列印選擇.resources
118
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.適應症選擇.resources
118
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.適應症選擇.resources
119
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.醫師.resources
119
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.醫師.resources
120
+D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.業務銷售控制表.resources

二進制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.GenerateResource.cache 查看文件


二進制
GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.業務銷售控制表.resources 查看文件


Loading…
取消
儲存