20240316備份

.vs/HSKIN-MIS-SYS/v17/DocumentLayout.json

@@ -0,0 +1,152 @@
+{
+  "Version": 1,
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\",
+  "Documents": [
+    {
+      "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}",
+      "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}"
+    },
+    {
+      "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",
+      "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"
+    },
+    {
+      "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}",
+      "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}"
+    },
+    {
+      "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}",
+      "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}"
+    },
+    {
+      "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",
+      "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"
+    },
+    {
+      "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}",
+      "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}"
+    },
+    {
+      "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}",
+      "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}"
+    },
+    {
+      "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",
+      "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"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 8,
+          "Children": [
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "\u4F11\u5047\u7533\u8ACB.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "ViewState": "AQIAAEQAAAAAAAAAAAAAwE0AAAAmAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-15T03:32:36.627Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-15T03:32:34.061Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "ViewState": "AQIAAGQAAAAAAAAAAAAqwHUAAABXAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-08T10:05:36.532Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb",
+              "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]",
+              "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6B77\u53F2\u7D00\u9304.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-08T10:04:28.187Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 6,
+              "Title": "HSKIN-MIS-SYS.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "ViewState": "AQIAAC8AAAAAAAAAAAAkwE4AAAAkAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
+              "WhenOpened": "2024-03-07T14:40:27.952Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
+              "WhenOpened": "2024-03-07T14:37:20.431Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
+              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
+              "ViewState": "AQIAAE0AAAAAAAAAAAAcwF4AAAAXAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-07T09:10:46.777Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
+              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
+              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
+              "ViewState": "AQIAALYAAAAAAAAAAAAAwMMAAAASAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-03-05T07:15:38.921Z",
+              "EditorCaption": ""
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

GRAMS-SYS/00、Module/SQL_休假與加班.vb

@@ -18,7 +18,7 @@
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
                 WHERE (人事請假單.是否生效 NOT LIKE N'已核准')
-                ORDER BY ras_Users.UserName, 人事請假單.員工編號"
+                ORDER BY ras_Users.UserName, 人事請假單.日期"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_休假統計()
@@ -54,9 +54,9 @@
                 FROM   人事請假單 INNER JOIN
                        萬年曆 ON 人事請假單.日期 = 萬年曆.日期 INNER JOIN
                        ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
-                WHERE (人事請假單.是否生效 LIKE N'已核准') AND (人事請假單.請假類別 NOT LIKE N'國定假日') AND (人事請假單.請假類別 NOT LIKE N'未到') AND 
-                      (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "%')
-                ORDER BY ras_Users.UserName, 人事請假單.日期"
+                WHERE (人事請假單.請假類別 NOT LIKE N'國定假日') AND (人事請假單.請假類別 NOT LIKE N'未到') AND 
+                      (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "')
+                ORDER BY ras_Users.UserName, 人事請假單.日期 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_國定假日設定_人員()
@@ -190,11 +190,14 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_休假申請明細()
+        ConnOpen() : SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由  FROM   人事請假單  WHERE (是否生效 NOT LIKE N'已核准')" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_休假申請明細_刪除()
         ConnOpen()
-        SQL1 = "SELECT 員工編號, 日期, 請假類別, 核准人, 核准日期, 是否生效, 事由
-                FROM   人事請假單
-                WHERE (是否生效 NOT LIKE N'已核准')"
-        CmdSet_For_DGV()
+        SQL1 = "DELETE 人事請假單 
+                WHERE (員工編號 LIKE N'" & 休假歷史紀錄.員工編號_tb.Text & "' AND 
+                       日期 LIKE N'" & 休假歷史紀錄.請假日期_tb.Text & "' AND 請假類別 LIKE N'" & 休假歷史紀錄.請假類別_cb.Text & "')"
+        CmdSet_For_dr()
     End Sub
     Friend Sub SQL_查詢最後一筆圖片編號()
         ConnOpen_圖庫SQL() : SQL1 = "SELECT TOP(1) 流水號 FROM 加班圖片庫 ORDER BY 流水號 DESC" : CmdSet_For_dr()

GRAMS-SYS/00、Module/SQL_排班系統.vb

@@ -33,7 +33,13 @@
             SQL1 = "SELECT 班別, STRING_AGG(姓名, N'、') AS 人員  FROM  排班資料表
                     WHERE  (日期 LIKE N'" & PA & "') AND (姓名 NOT LIKE N'') AND (排班資料表.班別 NOT LIKE N'休%')
                     GROUP BY  班別 ORDER BY 班別"
-        Else
+        ElseIf 排班資料.請休假_ch.Checked = True Then
+            SQL1 = "SELECT 人事請假單.請假類別 AS 班別, STRING_AGG(ras_Users.UserName, N'、') AS 人員
+                    FROM   人事請假單 INNER JOIN ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
+                    WHERE          (人事請假單.請假類別 NOT LIKE '未到') AND (人事請假單.請假類別 NOT LIKE '國定假日') AND 
+                            (人事請假單.請假類別 NOT LIKE '離職') AND (人事請假單.日期 LIKE N'" & PA & "')
+                    GROUP BY  人事請假單.請假類別 ORDER BY 人事請假單.請假類別"
+        ElseIf 排班資料.醫生_ch.Checked = True Then
             SQL1 = "SELECT    班別, 人員
                     FROM     (SELECT  診別 + '-' + '早' AS 班別, 早 AS 人員  FROM  門診資料  WHERE  (日期 LIKE N'" & PA & "')
                               UNION
@@ -68,10 +74,16 @@
     End Sub
     Friend Sub SQL_排班系統_班別_排班()
         ConnOpen()
-        SQL1 = "SELECT   姓名, 班別, 上班時段, 時數, 半天, 休息, 一段, 二段, 顏色1, 顏色2, 項次, CAST(項次 AS INT) AS 項
-                FROM     排班資料表
-                WHERE   (日期 LIKE N'" & PA & "')
-                ORDER BY CAST(項次 AS INT)"
+        SQL1 = "SELECT      排班資料表.姓名, 排班資料表.班別, 排班資料表.上班時段, 排班資料表.時數, 排班資料表.半天, 排班資料表.休息, 
+                            排班資料表.一段, 排班資料表.二段, 排班資料表.顏色1, 排班資料表.顏色2, 排班資料表.項次, 
+                            CAST(排班資料表.項次 AS INT) AS 項, AA.請假類別
+                FROM       (SELECT   人事請假單.請假類別, ras_Users.UserName, 人事請假單.是否生效
+                            FROM     人事請假單 INNER JOIN ras_Users ON 人事請假單.員工編號 = ras_Users.DIN
+                            WHERE   (人事請假單.請假類別 NOT LIKE '未到') AND (人事請假單.請假類別 NOT LIKE '國定假日') AND 
+                                    (人事請假單.請假類別 NOT LIKE '離職') AND (人事請假單.日期 LIKE N'" & PA & "')) 
+                            AS AA RIGHT OUTER JOIN 排班資料表 ON AA.UserName = 排班資料表.姓名
+                WHERE     (排班資料表.日期 LIKE N'" & PA & "')
+                ORDER BY   項"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_排班系統_個人整月排班()

GRAMS-SYS/00、Module/SQL_系統設定.vb

@@ -85,35 +85,91 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_申請刪除1()
-        ConnOpen()
-        SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & ""
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE N'" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & "" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_時段設定()
         ConnOpen()
-        SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息
-                FROM     時段設定 
-                ORDER BY ID"
+        SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息  FROM  時段設定  ORDER BY ID"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_適應症設定()
+    Friend Sub SQL_業務控制()
         ConnOpen_ERP()
-        SQL1 = "SELECT 編號, 適應症 FROM  業務對應適應症 ORDER BY 編號"
+        SQL1 = "SELECT  流水號, 日期, 醫師, 病歷號, 銷售人員, 銷售指定 AS 指定日期, 銷售成功, 備註 FROM  業務銷售控制表 " & SQL2 & "  ORDER BY 日期 DESC, 醫師"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_適應症刪除()
+    Friend Sub SQL_業務明細()
         ConnOpen_ERP()
-        SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"
-        CmdSet_For_dr()
+        SQL1 = "SELECT  適應症號 AS 建議治療  FROM  業務銷售明細表  WHERE  (流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "') GROUP BY 適應症號 ORDER BY 適應症號"
+        CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_適應症修改()
+    Friend Sub SQL_業務控制指定銷售()
+        ConnOpen_ERP()
+        SQL1 = "SELECT  銷售人員 FROM  業務銷售控制表 WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
+        CmdSet_For_dr()
+        If dr.Read Then
+            If dr("銷售人員").ToString = "" Then
+                ConnOpen_ERP()
+                SQL1 = "UPDATE  業務銷售控制表 SET 銷售人員 = N'" & 業務銷售控制表.銷售人員_tb.Text & "', 銷售指定 = N'" & Strings.Format(Today(), "yyyy/MM/dd") & "' 
+                        WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
+                CmdSet_For_dr()
+            Else
+                MsgBox("已有指定的銷售人員，如要修改請洽主管!!")
+            End If
+        End If
+    End Sub
+    Friend Sub SQL_業務控制指定銷售完成()
         ConnOpen_ERP()
-        SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'"
+        SQL1 = "SELECT  銷售人員 FROM  業務銷售控制表 WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
+        CmdSet_For_dr()
+        If dr.Read Then
+            If dr("銷售人員").ToString = "" Then
+                ConnOpen_ERP()
+                SQL1 = "UPDATE  業務銷售控制表 SET 銷售人員 = N'" & 業務銷售控制表.銷售人員_tb.Text & "', 銷售指定 = N'" & Strings.Format(Today(), "yyyy/MM/dd") & "' 
+                        WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
+                CmdSet_For_dr()
+            End If
+            ConnOpen_ERP()
+            SQL1 = "UPDATE  業務銷售控制表 SET 銷售狀態 = N'" & PA1 & "', 銷售成功 = N'" & PA2 & "' WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
+            CmdSet_For_dr()
+        End If
+    End Sub
+    Friend Sub SQL_業務控制備註存檔()
+        ConnOpen_ERP()
+        SQL1 = "UPDATE  業務銷售控制表 SET 備註 = N'" & 業務銷售控制表.備註_tb.Text & "' WHERE 流水號 LIKE N'" & 業務銷售控制表.流水號_bt.Text & "'"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_適應症主清單1()
+        ConnOpen_ERP() : SQL1 = "SELECT  適應症  FROM  適應症 GROUP BY 適應症  ORDER BY   適應症" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症主清單2()
+        ConnOpen_ERP() : SQL1 = "SELECT  治療建議  FROM  適應症  WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "'  ORDER BY   治療建議" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症設定()
+        ConnOpen_ERP() : SQL1 = "SELECT  流水號, 適應症, 治療建議  FROM  適應症  ORDER BY   適應症, 治療建議" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_適應症刪除()
+        ConnOpen_ERP() : SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症修改()
+        ConnOpen_ERP() : SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_查詢最後一筆適應症()
         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 編號 FROM 業務對應適應症 ORDER BY 編號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_適應症流水()
+        ConnOpen_ERP() : SQL1 = "SELECT 流水號 FROM 適應症 WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "' AND  治療建議 LIKE N'" & 適應症選擇.療程_cb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症刪除1()
+        ConnOpen_ERP() : SQL1 = "DELETE 適應症 WHERE 適應症 LIKE N'" & 適應症選擇.病症_cb.Text & "' AND  治療建議 LIKE N'" & 適應症選擇.療程_cb.Text & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症流水1()
+        ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 流水號 FROM 適應症 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_適應症新增1()
+        ConnOpen_ERP()
+        SQL1 = "INSERT INTO  適應症 (流水號, 適應症, 治療建議)  VALUES (N'" & PA & "', N'" & 適應症選擇.病症_cb.Text & "',N'" & 適應症選擇.療程_cb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_適應症新增()
         ConnOpen_ERP() : SQL1 = "INSERT INTO  業務對應適應症 (編號, 適應症)  VALUES (N'" & 系統設定.適應症_編號_tb.Text & "',N'" & 系統設定.適應症_tb.Text & "')" : CmdSet_For_dr()
     End Sub
@@ -136,11 +192,8 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_時段刪除()
-        ConnOpen()
-        SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'" : CmdSet_For_dr()
     End Sub
-
     Friend Sub SQL_FTP資料庫管理()
         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置  FROM  FTP資料庫管理 " : CmdSet_For_DGV()
     End Sub
@@ -157,9 +210,7 @@
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫刪除()
-        ConnOpen()
-        SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_工作職務()
         ConnOpen() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()
@@ -168,16 +219,11 @@
         ConnOpen() : SQL1 = "INSERT INTO 工作職務 (職務) VALUES (N'" & PA & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_工作修改()
-        ConnOpen()
-        SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_工作刪除()
-        ConnOpen()
-        SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE N'" & 系統設定.職務_tb.Text & "'" : CmdSet_For_dr()
     End Sub
-
     Friend Sub SQL_年份清單()
         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
     End Sub
@@ -218,7 +264,6 @@
         SQL1 = "UPDATE 門診資料 SET 星期 = N'" & PA3 & "', 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'"
         CmdSet_For_dr()
     End Sub
-
     '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_FTP資料夾管理新增()
         ConnOpen()

GRAMS-SYS/00、Module/SQL_考勤系統.vb

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

GRAMS-SYS/00、Module/全域變數.vb

@@ -7,7 +7,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
     Public AA(99) As String : Public CC(99) As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024013001"
+    Public 版本 As String = "2024030502"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     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,
            PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA49 As String

GRAMS-SYS/01、排班管理/排班明細.vb

@@ -31,6 +31,9 @@ Public Class 排班明細
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
+            If IsDBNull(排班明細_dgv.Rows(i).Cells("請假類別").Value) = True Then
+                排班明細_dgv.Rows(i).Cells("請假類別").Value = ""
+            End If
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
@@ -476,6 +479,7 @@ Public Class 排班明細
             Q = 0
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
+                Dim 請假_tbS As TextBox = CType(Me.Controls.Find("請假_tb" + no.ToString(), True)(0), TextBox)
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
@@ -495,6 +499,7 @@ Public Class 排班明細
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
+                請假_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("請假類別").Value.ToString
             Next
         End If
     End Sub

GRAMS-SYS/01、排班管理/排班明細_參考.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 排班明細_參考
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(排班明細_參考))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.存檔_ch = New System.Windows.Forms.CheckBox()
         Me.截圖_bt = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
@@ -354,6 +354,26 @@ Partial Class 排班明細_參考
         Me.穩定_ch = New System.Windows.Forms.CheckBox()
         Me.崗位05_ch = New System.Windows.Forms.CheckBox()
         Me.Label58 = New System.Windows.Forms.Label()
+        Me.請假_tb20 = New System.Windows.Forms.TextBox()
+        Me.請假_tb19 = New System.Windows.Forms.TextBox()
+        Me.請假_tb18 = New System.Windows.Forms.TextBox()
+        Me.請假_tb17 = New System.Windows.Forms.TextBox()
+        Me.請假_tb16 = New System.Windows.Forms.TextBox()
+        Me.請假_tb15 = New System.Windows.Forms.TextBox()
+        Me.請假_tb14 = New System.Windows.Forms.TextBox()
+        Me.請假_tb13 = New System.Windows.Forms.TextBox()
+        Me.請假_tb12 = New System.Windows.Forms.TextBox()
+        Me.請假_tb11 = New System.Windows.Forms.TextBox()
+        Me.請假_tb10 = New System.Windows.Forms.TextBox()
+        Me.請假_tb9 = New System.Windows.Forms.TextBox()
+        Me.請假_tb8 = New System.Windows.Forms.TextBox()
+        Me.請假_tb7 = New System.Windows.Forms.TextBox()
+        Me.請假_tb6 = New System.Windows.Forms.TextBox()
+        Me.請假_tb5 = New System.Windows.Forms.TextBox()
+        Me.請假_tb4 = New System.Windows.Forms.TextBox()
+        Me.請假_tb3 = New System.Windows.Forms.TextBox()
+        Me.請假_tb2 = New System.Windows.Forms.TextBox()
+        Me.請假_tb1 = New System.Windows.Forms.TextBox()
         Me.Panel1.SuspendLayout()
         CType(Me.NUP20, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NUP19, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2212,11 +2232,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox20.AutoSize = True
         Me.CheckBox20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox20.Location = New System.Drawing.Point(353, 622)
+        Me.CheckBox20.Location = New System.Drawing.Point(360, 622)
         Me.CheckBox20.Name = "CheckBox20"
-        Me.CheckBox20.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox20.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox20.TabIndex = 1945
-        Me.CheckBox20.Text = "半天"
+        Me.CheckBox20.Text = "半"
         Me.CheckBox20.UseVisualStyleBackColor = True
         '
         'NumericUpDown19
@@ -2236,11 +2256,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox19.AutoSize = True
         Me.CheckBox19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox19.Location = New System.Drawing.Point(353, 595)
+        Me.CheckBox19.Location = New System.Drawing.Point(360, 595)
         Me.CheckBox19.Name = "CheckBox19"
-        Me.CheckBox19.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox19.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox19.TabIndex = 1943
-        Me.CheckBox19.Text = "半天"
+        Me.CheckBox19.Text = "半"
         Me.CheckBox19.UseVisualStyleBackColor = True
         '
         'NumericUpDown18
@@ -2260,11 +2280,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox18.AutoSize = True
         Me.CheckBox18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox18.Location = New System.Drawing.Point(353, 569)
+        Me.CheckBox18.Location = New System.Drawing.Point(360, 569)
         Me.CheckBox18.Name = "CheckBox18"
-        Me.CheckBox18.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox18.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox18.TabIndex = 1941
-        Me.CheckBox18.Text = "半天"
+        Me.CheckBox18.Text = "半"
         Me.CheckBox18.UseVisualStyleBackColor = True
         '
         'NumericUpDown17
@@ -2284,11 +2304,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox17.AutoSize = True
         Me.CheckBox17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox17.Location = New System.Drawing.Point(353, 542)
+        Me.CheckBox17.Location = New System.Drawing.Point(360, 542)
         Me.CheckBox17.Name = "CheckBox17"
-        Me.CheckBox17.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox17.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox17.TabIndex = 1939
-        Me.CheckBox17.Text = "半天"
+        Me.CheckBox17.Text = "半"
         Me.CheckBox17.UseVisualStyleBackColor = True
         '
         'NumericUpDown16
@@ -2308,11 +2328,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox16.AutoSize = True
         Me.CheckBox16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox16.Location = New System.Drawing.Point(353, 514)
+        Me.CheckBox16.Location = New System.Drawing.Point(360, 514)
         Me.CheckBox16.Name = "CheckBox16"
-        Me.CheckBox16.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox16.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox16.TabIndex = 1937
-        Me.CheckBox16.Text = "半天"
+        Me.CheckBox16.Text = "半"
         Me.CheckBox16.UseVisualStyleBackColor = True
         '
         'NumericUpDown15
@@ -2332,11 +2352,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox15.AutoSize = True
         Me.CheckBox15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox15.Location = New System.Drawing.Point(353, 488)
+        Me.CheckBox15.Location = New System.Drawing.Point(360, 488)
         Me.CheckBox15.Name = "CheckBox15"
-        Me.CheckBox15.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox15.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox15.TabIndex = 1935
-        Me.CheckBox15.Text = "半天"
+        Me.CheckBox15.Text = "半"
         Me.CheckBox15.UseVisualStyleBackColor = True
         '
         'NumericUpDown14
@@ -2356,11 +2376,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox14.AutoSize = True
         Me.CheckBox14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox14.Location = New System.Drawing.Point(353, 460)
+        Me.CheckBox14.Location = New System.Drawing.Point(360, 460)
         Me.CheckBox14.Name = "CheckBox14"
-        Me.CheckBox14.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox14.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox14.TabIndex = 1933
-        Me.CheckBox14.Text = "半天"
+        Me.CheckBox14.Text = "半"
         Me.CheckBox14.UseVisualStyleBackColor = True
         '
         'NumericUpDown13
@@ -2380,11 +2400,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox13.AutoSize = True
         Me.CheckBox13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox13.Location = New System.Drawing.Point(353, 433)
+        Me.CheckBox13.Location = New System.Drawing.Point(360, 433)
         Me.CheckBox13.Name = "CheckBox13"
-        Me.CheckBox13.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox13.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox13.TabIndex = 1931
-        Me.CheckBox13.Text = "半天"
+        Me.CheckBox13.Text = "半"
         Me.CheckBox13.UseVisualStyleBackColor = True
         '
         'NumericUpDown12
@@ -2404,11 +2424,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox12.AutoSize = True
         Me.CheckBox12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox12.Location = New System.Drawing.Point(353, 406)
+        Me.CheckBox12.Location = New System.Drawing.Point(360, 406)
         Me.CheckBox12.Name = "CheckBox12"
-        Me.CheckBox12.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox12.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox12.TabIndex = 1929
-        Me.CheckBox12.Text = "半天"
+        Me.CheckBox12.Text = "半"
         Me.CheckBox12.UseVisualStyleBackColor = True
         '
         'NumericUpDown11
@@ -2428,11 +2448,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox11.AutoSize = True
         Me.CheckBox11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox11.Location = New System.Drawing.Point(353, 380)
+        Me.CheckBox11.Location = New System.Drawing.Point(360, 380)
         Me.CheckBox11.Name = "CheckBox11"
-        Me.CheckBox11.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox11.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox11.TabIndex = 1927
-        Me.CheckBox11.Text = "半天"
+        Me.CheckBox11.Text = "半"
         Me.CheckBox11.UseVisualStyleBackColor = True
         '
         'NumericUpDown10
@@ -2452,11 +2472,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox10.AutoSize = True
         Me.CheckBox10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox10.Location = New System.Drawing.Point(353, 351)
+        Me.CheckBox10.Location = New System.Drawing.Point(360, 351)
         Me.CheckBox10.Name = "CheckBox10"
-        Me.CheckBox10.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox10.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox10.TabIndex = 1925
-        Me.CheckBox10.Text = "半天"
+        Me.CheckBox10.Text = "半"
         Me.CheckBox10.UseVisualStyleBackColor = True
         '
         'NumericUpDown9
@@ -2476,11 +2496,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox9.AutoSize = True
         Me.CheckBox9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox9.Location = New System.Drawing.Point(353, 325)
+        Me.CheckBox9.Location = New System.Drawing.Point(360, 325)
         Me.CheckBox9.Name = "CheckBox9"
-        Me.CheckBox9.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox9.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox9.TabIndex = 1923
-        Me.CheckBox9.Text = "半天"
+        Me.CheckBox9.Text = "半"
         Me.CheckBox9.UseVisualStyleBackColor = True
         '
         'NumericUpDown8
@@ -2500,11 +2520,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox8.AutoSize = True
         Me.CheckBox8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox8.Location = New System.Drawing.Point(353, 298)
+        Me.CheckBox8.Location = New System.Drawing.Point(360, 298)
         Me.CheckBox8.Name = "CheckBox8"
-        Me.CheckBox8.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox8.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox8.TabIndex = 1921
-        Me.CheckBox8.Text = "半天"
+        Me.CheckBox8.Text = "半"
         Me.CheckBox8.UseVisualStyleBackColor = True
         '
         'NumericUpDown7
@@ -2524,11 +2544,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox7.AutoSize = True
         Me.CheckBox7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox7.Location = New System.Drawing.Point(353, 271)
+        Me.CheckBox7.Location = New System.Drawing.Point(360, 271)
         Me.CheckBox7.Name = "CheckBox7"
-        Me.CheckBox7.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox7.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox7.TabIndex = 1919
-        Me.CheckBox7.Text = "半天"
+        Me.CheckBox7.Text = "半"
         Me.CheckBox7.UseVisualStyleBackColor = True
         '
         'NumericUpDown6
@@ -2548,11 +2568,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox6.AutoSize = True
         Me.CheckBox6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox6.Location = New System.Drawing.Point(353, 244)
+        Me.CheckBox6.Location = New System.Drawing.Point(360, 244)
         Me.CheckBox6.Name = "CheckBox6"
-        Me.CheckBox6.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox6.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox6.TabIndex = 1917
-        Me.CheckBox6.Text = "半天"
+        Me.CheckBox6.Text = "半"
         Me.CheckBox6.UseVisualStyleBackColor = True
         '
         'NumericUpDown5
@@ -2572,11 +2592,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox5.Location = New System.Drawing.Point(353, 217)
+        Me.CheckBox5.Location = New System.Drawing.Point(360, 217)
         Me.CheckBox5.Name = "CheckBox5"
-        Me.CheckBox5.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox5.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox5.TabIndex = 1915
-        Me.CheckBox5.Text = "半天"
+        Me.CheckBox5.Text = "半"
         Me.CheckBox5.UseVisualStyleBackColor = True
         '
         'NumericUpDown4
@@ -2596,11 +2616,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox4.Location = New System.Drawing.Point(353, 190)
+        Me.CheckBox4.Location = New System.Drawing.Point(360, 190)
         Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox4.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox4.TabIndex = 1913
-        Me.CheckBox4.Text = "半天"
+        Me.CheckBox4.Text = "半"
         Me.CheckBox4.UseVisualStyleBackColor = True
         '
         'NumericUpDown3
@@ -2620,11 +2640,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox3.Location = New System.Drawing.Point(353, 163)
+        Me.CheckBox3.Location = New System.Drawing.Point(360, 163)
         Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox3.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox3.TabIndex = 1911
-        Me.CheckBox3.Text = "半天"
+        Me.CheckBox3.Text = "半"
         Me.CheckBox3.UseVisualStyleBackColor = True
         '
         'NumericUpDown2
@@ -2644,11 +2664,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox2.AutoSize = True
         Me.CheckBox2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox2.Location = New System.Drawing.Point(353, 137)
+        Me.CheckBox2.Location = New System.Drawing.Point(360, 137)
         Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox2.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox2.TabIndex = 1909
-        Me.CheckBox2.Text = "半天"
+        Me.CheckBox2.Text = "半"
         Me.CheckBox2.UseVisualStyleBackColor = True
         '
         'NumericUpDown1
@@ -2668,11 +2688,11 @@ Partial Class 排班明細_參考
         '
         Me.CheckBox1.AutoSize = True
         Me.CheckBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.CheckBox1.Location = New System.Drawing.Point(353, 109)
+        Me.CheckBox1.Location = New System.Drawing.Point(360, 109)
         Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(50, 20)
+        Me.CheckBox1.Size = New System.Drawing.Size(38, 20)
         Me.CheckBox1.TabIndex = 1907
-        Me.CheckBox1.Text = "半天"
+        Me.CheckBox1.Text = "半"
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
         '存檔_bt
@@ -2737,8 +2757,8 @@ Partial Class 排班明細_參考
         '
         '人員_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -2919,7 +2939,7 @@ Partial Class 排班明細_參考
         Me.班別_cb20.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb20.Location = New System.Drawing.Point(228, 620)
         Me.班別_cb20.Name = "班別_cb20"
-        Me.班別_cb20.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb20.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb20.TabIndex = 1859
         '
         '班別_cb19
@@ -2930,7 +2950,7 @@ Partial Class 排班明細_參考
         Me.班別_cb19.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb19.Location = New System.Drawing.Point(228, 593)
         Me.班別_cb19.Name = "班別_cb19"
-        Me.班別_cb19.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb19.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb19.TabIndex = 1858
         '
         '班別_cb18
@@ -2941,7 +2961,7 @@ Partial Class 排班明細_參考
         Me.班別_cb18.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb18.Location = New System.Drawing.Point(228, 566)
         Me.班別_cb18.Name = "班別_cb18"
-        Me.班別_cb18.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb18.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb18.TabIndex = 1857
         '
         '班別_cb17
@@ -2952,7 +2972,7 @@ Partial Class 排班明細_參考
         Me.班別_cb17.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb17.Location = New System.Drawing.Point(228, 539)
         Me.班別_cb17.Name = "班別_cb17"
-        Me.班別_cb17.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb17.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb17.TabIndex = 1856
         '
         '班別_cb16
@@ -2963,7 +2983,7 @@ Partial Class 排班明細_參考
         Me.班別_cb16.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb16.Location = New System.Drawing.Point(228, 512)
         Me.班別_cb16.Name = "班別_cb16"
-        Me.班別_cb16.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb16.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb16.TabIndex = 1855
         '
         '班別_cb15
@@ -2974,7 +2994,7 @@ Partial Class 排班明細_參考
         Me.班別_cb15.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb15.Location = New System.Drawing.Point(228, 485)
         Me.班別_cb15.Name = "班別_cb15"
-        Me.班別_cb15.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb15.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb15.TabIndex = 1854
         '
         '班別_cb14
@@ -2985,7 +3005,7 @@ Partial Class 排班明細_參考
         Me.班別_cb14.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb14.Location = New System.Drawing.Point(228, 458)
         Me.班別_cb14.Name = "班別_cb14"
-        Me.班別_cb14.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb14.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb14.TabIndex = 1853
         '
         '班別_cb13
@@ -2996,7 +3016,7 @@ Partial Class 排班明細_參考
         Me.班別_cb13.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb13.Location = New System.Drawing.Point(228, 431)
         Me.班別_cb13.Name = "班別_cb13"
-        Me.班別_cb13.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb13.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb13.TabIndex = 1852
         '
         '班別_cb12
@@ -3007,7 +3027,7 @@ Partial Class 排班明細_參考
         Me.班別_cb12.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb12.Location = New System.Drawing.Point(228, 404)
         Me.班別_cb12.Name = "班別_cb12"
-        Me.班別_cb12.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb12.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb12.TabIndex = 1851
         '
         '班別_cb11
@@ -3018,7 +3038,7 @@ Partial Class 排班明細_參考
         Me.班別_cb11.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb11.Location = New System.Drawing.Point(228, 377)
         Me.班別_cb11.Name = "班別_cb11"
-        Me.班別_cb11.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb11.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb11.TabIndex = 1850
         '
         '班別_cb10
@@ -3029,7 +3049,7 @@ Partial Class 排班明細_參考
         Me.班別_cb10.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb10.Location = New System.Drawing.Point(228, 350)
         Me.班別_cb10.Name = "班別_cb10"
-        Me.班別_cb10.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb10.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb10.TabIndex = 1849
         '
         '班別_cb9
@@ -3040,7 +3060,7 @@ Partial Class 排班明細_參考
         Me.班別_cb9.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb9.Location = New System.Drawing.Point(228, 323)
         Me.班別_cb9.Name = "班別_cb9"
-        Me.班別_cb9.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb9.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb9.TabIndex = 1848
         '
         '班別_cb8
@@ -3051,7 +3071,7 @@ Partial Class 排班明細_參考
         Me.班別_cb8.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb8.Location = New System.Drawing.Point(228, 296)
         Me.班別_cb8.Name = "班別_cb8"
-        Me.班別_cb8.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb8.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb8.TabIndex = 1847
         '
         '班別_cb7
@@ -3062,7 +3082,7 @@ Partial Class 排班明細_參考
         Me.班別_cb7.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb7.Location = New System.Drawing.Point(228, 269)
         Me.班別_cb7.Name = "班別_cb7"
-        Me.班別_cb7.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb7.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb7.TabIndex = 1846
         '
         '班別_cb6
@@ -3073,7 +3093,7 @@ Partial Class 排班明細_參考
         Me.班別_cb6.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb6.Location = New System.Drawing.Point(228, 242)
         Me.班別_cb6.Name = "班別_cb6"
-        Me.班別_cb6.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb6.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb6.TabIndex = 1845
         '
         '班別_cb5
@@ -3084,7 +3104,7 @@ Partial Class 排班明細_參考
         Me.班別_cb5.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb5.Location = New System.Drawing.Point(228, 215)
         Me.班別_cb5.Name = "班別_cb5"
-        Me.班別_cb5.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb5.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb5.TabIndex = 1844
         '
         '班別_cb4
@@ -3095,7 +3115,7 @@ Partial Class 排班明細_參考
         Me.班別_cb4.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb4.Location = New System.Drawing.Point(228, 188)
         Me.班別_cb4.Name = "班別_cb4"
-        Me.班別_cb4.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb4.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb4.TabIndex = 1843
         '
         '班別_cb3
@@ -3106,7 +3126,7 @@ Partial Class 排班明細_參考
         Me.班別_cb3.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb3.Location = New System.Drawing.Point(228, 161)
         Me.班別_cb3.Name = "班別_cb3"
-        Me.班別_cb3.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb3.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb3.TabIndex = 1842
         '
         '班別_cb2
@@ -3117,7 +3137,7 @@ Partial Class 排班明細_參考
         Me.班別_cb2.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb2.Location = New System.Drawing.Point(228, 134)
         Me.班別_cb2.Name = "班別_cb2"
-        Me.班別_cb2.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb2.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb2.TabIndex = 1841
         '
         '班別_cb1
@@ -3128,7 +3148,7 @@ Partial Class 排班明細_參考
         Me.班別_cb1.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
         Me.班別_cb1.Location = New System.Drawing.Point(228, 107)
         Me.班別_cb1.Name = "班別_cb1"
-        Me.班別_cb1.Size = New System.Drawing.Size(119, 24)
+        Me.班別_cb1.Size = New System.Drawing.Size(82, 24)
         Me.班別_cb1.TabIndex = 1840
         '
         'Label69
@@ -3925,8 +3945,8 @@ Partial Class 排班明細_參考
         '
         '排班明細_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.排班明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.排班明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.排班明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.排班明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -3980,12 +4000,192 @@ Partial Class 排班明細_參考
         Me.Label58.TabIndex = 2110
         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小時"
         '
+        '請假_tb20
+        '
+        Me.請假_tb20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb20.Location = New System.Drawing.Point(312, 621)
+        Me.請假_tb20.Name = "請假_tb20"
+        Me.請假_tb20.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb20.TabIndex = 2130
+        '
+        '請假_tb19
+        '
+        Me.請假_tb19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb19.Location = New System.Drawing.Point(312, 594)
+        Me.請假_tb19.Name = "請假_tb19"
+        Me.請假_tb19.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb19.TabIndex = 2129
+        '
+        '請假_tb18
+        '
+        Me.請假_tb18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb18.Location = New System.Drawing.Point(312, 567)
+        Me.請假_tb18.Name = "請假_tb18"
+        Me.請假_tb18.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb18.TabIndex = 2128
+        '
+        '請假_tb17
+        '
+        Me.請假_tb17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb17.Location = New System.Drawing.Point(312, 540)
+        Me.請假_tb17.Name = "請假_tb17"
+        Me.請假_tb17.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb17.TabIndex = 2127
+        '
+        '請假_tb16
+        '
+        Me.請假_tb16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb16.Location = New System.Drawing.Point(312, 513)
+        Me.請假_tb16.Name = "請假_tb16"
+        Me.請假_tb16.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb16.TabIndex = 2126
+        '
+        '請假_tb15
+        '
+        Me.請假_tb15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb15.Location = New System.Drawing.Point(312, 486)
+        Me.請假_tb15.Name = "請假_tb15"
+        Me.請假_tb15.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb15.TabIndex = 2125
+        '
+        '請假_tb14
+        '
+        Me.請假_tb14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb14.Location = New System.Drawing.Point(312, 459)
+        Me.請假_tb14.Name = "請假_tb14"
+        Me.請假_tb14.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb14.TabIndex = 2124
+        '
+        '請假_tb13
+        '
+        Me.請假_tb13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb13.Location = New System.Drawing.Point(312, 432)
+        Me.請假_tb13.Name = "請假_tb13"
+        Me.請假_tb13.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb13.TabIndex = 2123
+        '
+        '請假_tb12
+        '
+        Me.請假_tb12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb12.Location = New System.Drawing.Point(312, 405)
+        Me.請假_tb12.Name = "請假_tb12"
+        Me.請假_tb12.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb12.TabIndex = 2122
+        '
+        '請假_tb11
+        '
+        Me.請假_tb11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb11.Location = New System.Drawing.Point(312, 378)
+        Me.請假_tb11.Name = "請假_tb11"
+        Me.請假_tb11.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb11.TabIndex = 2121
+        '
+        '請假_tb10
+        '
+        Me.請假_tb10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb10.Location = New System.Drawing.Point(312, 351)
+        Me.請假_tb10.Name = "請假_tb10"
+        Me.請假_tb10.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb10.TabIndex = 2120
+        '
+        '請假_tb9
+        '
+        Me.請假_tb9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb9.Location = New System.Drawing.Point(312, 324)
+        Me.請假_tb9.Name = "請假_tb9"
+        Me.請假_tb9.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb9.TabIndex = 2119
+        '
+        '請假_tb8
+        '
+        Me.請假_tb8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb8.Location = New System.Drawing.Point(312, 297)
+        Me.請假_tb8.Name = "請假_tb8"
+        Me.請假_tb8.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb8.TabIndex = 2118
+        '
+        '請假_tb7
+        '
+        Me.請假_tb7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb7.Location = New System.Drawing.Point(312, 270)
+        Me.請假_tb7.Name = "請假_tb7"
+        Me.請假_tb7.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb7.TabIndex = 2117
+        '
+        '請假_tb6
+        '
+        Me.請假_tb6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb6.Location = New System.Drawing.Point(312, 243)
+        Me.請假_tb6.Name = "請假_tb6"
+        Me.請假_tb6.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb6.TabIndex = 2116
+        '
+        '請假_tb5
+        '
+        Me.請假_tb5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb5.Location = New System.Drawing.Point(312, 216)
+        Me.請假_tb5.Name = "請假_tb5"
+        Me.請假_tb5.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb5.TabIndex = 2115
+        '
+        '請假_tb4
+        '
+        Me.請假_tb4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb4.Location = New System.Drawing.Point(312, 189)
+        Me.請假_tb4.Name = "請假_tb4"
+        Me.請假_tb4.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb4.TabIndex = 2114
+        '
+        '請假_tb3
+        '
+        Me.請假_tb3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb3.Location = New System.Drawing.Point(312, 162)
+        Me.請假_tb3.Name = "請假_tb3"
+        Me.請假_tb3.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb3.TabIndex = 2113
+        '
+        '請假_tb2
+        '
+        Me.請假_tb2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb2.Location = New System.Drawing.Point(312, 135)
+        Me.請假_tb2.Name = "請假_tb2"
+        Me.請假_tb2.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb2.TabIndex = 2112
+        '
+        '請假_tb1
+        '
+        Me.請假_tb1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.請假_tb1.Location = New System.Drawing.Point(312, 108)
+        Me.請假_tb1.Name = "請假_tb1"
+        Me.請假_tb1.Size = New System.Drawing.Size(40, 23)
+        Me.請假_tb1.TabIndex = 2111
+        '
         '排班明細_參考
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.ClientSize = New System.Drawing.Size(1824, 759)
+        Me.Controls.Add(Me.請假_tb20)
+        Me.Controls.Add(Me.請假_tb19)
+        Me.Controls.Add(Me.請假_tb18)
+        Me.Controls.Add(Me.請假_tb17)
+        Me.Controls.Add(Me.請假_tb16)
+        Me.Controls.Add(Me.請假_tb15)
+        Me.Controls.Add(Me.請假_tb14)
+        Me.Controls.Add(Me.請假_tb13)
+        Me.Controls.Add(Me.請假_tb12)
+        Me.Controls.Add(Me.請假_tb11)
+        Me.Controls.Add(Me.請假_tb10)
+        Me.Controls.Add(Me.請假_tb9)
+        Me.Controls.Add(Me.請假_tb8)
+        Me.Controls.Add(Me.請假_tb7)
+        Me.Controls.Add(Me.請假_tb6)
+        Me.Controls.Add(Me.請假_tb5)
+        Me.Controls.Add(Me.請假_tb4)
+        Me.Controls.Add(Me.請假_tb3)
+        Me.Controls.Add(Me.請假_tb2)
+        Me.Controls.Add(Me.請假_tb1)
         Me.Controls.Add(Me.Label58)
         Me.Controls.Add(Me.存檔_ch)
         Me.Controls.Add(Me.截圖_bt)
@@ -4693,4 +4893,24 @@ Partial Class 排班明細_參考
     Friend WithEvents 穩定_ch As CheckBox
     Friend WithEvents 崗位05_ch As CheckBox
     Friend WithEvents Label58 As Label
+    Friend WithEvents 請假_tb20 As TextBox
+    Friend WithEvents 請假_tb19 As TextBox
+    Friend WithEvents 請假_tb18 As TextBox
+    Friend WithEvents 請假_tb17 As TextBox
+    Friend WithEvents 請假_tb16 As TextBox
+    Friend WithEvents 請假_tb15 As TextBox
+    Friend WithEvents 請假_tb14 As TextBox
+    Friend WithEvents 請假_tb13 As TextBox
+    Friend WithEvents 請假_tb12 As TextBox
+    Friend WithEvents 請假_tb11 As TextBox
+    Friend WithEvents 請假_tb10 As TextBox
+    Friend WithEvents 請假_tb9 As TextBox
+    Friend WithEvents 請假_tb8 As TextBox
+    Friend WithEvents 請假_tb7 As TextBox
+    Friend WithEvents 請假_tb6 As TextBox
+    Friend WithEvents 請假_tb5 As TextBox
+    Friend WithEvents 請假_tb4 As TextBox
+    Friend WithEvents 請假_tb3 As TextBox
+    Friend WithEvents 請假_tb2 As TextBox
+    Friend WithEvents 請假_tb1 As TextBox
 End Class

GRAMS-SYS/01、排班管理/排班明細_參考.vb

@@ -31,6 +31,9 @@ Public Class 排班明細_參考
         da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
         排班明細_dgv.Sort(排班明細_dgv.Columns("項"), System.ComponentModel.ListSortDirection.Ascending)
         For i As Integer = 0 To 排班明細_dgv.Rows.Count - 1
+            If IsDBNull(排班明細_dgv.Rows(i).Cells("請假類別").Value) = True Then
+                排班明細_dgv.Rows(i).Cells("請假類別").Value = ""
+            End If
             If CInt(排班明細_dgv.Rows(i).Cells("項次").Value.ToString) < 10 Then
                 排班明細_dgv.Rows(i).Cells("項次").Value = ("0" & i + 1)
             Else : 排班明細_dgv.Rows(i).Cells("項次").Value = (i + 1) : End If
@@ -476,6 +479,7 @@ Public Class 排班明細_參考
             Q = 0
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
+                Dim 請假_tbS As TextBox = CType(Me.Controls.Find("請假_tb" + no.ToString(), True)(0), TextBox)
                 Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                 Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                 Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
@@ -495,6 +499,7 @@ Public Class 排班明細_參考
                 CheckBoxS.Checked = 排班明細_dgv.Rows(no - 1).Cells("半天").Value
                 班別_cbS.Text = 排班明細_dgv.Rows(no - 1).Cells("班別").Value.ToString
                 姓名_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("姓名").Value.ToString
+                請假_tbS.Text = 排班明細_dgv.Rows(no - 1).Cells("請假類別").Value.ToString
             Next
         End If
     End Sub

GRAMS-SYS/01、排班管理/排班資料.Designer.vb

@@ -336,6 +336,7 @@ Partial Class 排班資料
         Me.職員_ch = New System.Windows.Forms.CheckBox()
         Me.重新讀取_bt = New System.Windows.Forms.Button()
         Me.列印_bt = New System.Windows.Forms.Button()
+        Me.請休假_ch = New System.Windows.Forms.CheckBox()
         Me.Panel1.SuspendLayout()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
@@ -3510,19 +3511,19 @@ Partial Class 排班資料
         Me.人員彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.人員彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.人員彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.人員彙總_dgv.Location = New System.Drawing.Point(4, 30)
+        Me.人員彙總_dgv.Location = New System.Drawing.Point(4, 53)
         Me.人員彙總_dgv.Name = "人員彙總_dgv"
         Me.人員彙總_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle45.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.人員彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
         Me.人員彙總_dgv.RowTemplate.Height = 24
-        Me.人員彙總_dgv.Size = New System.Drawing.Size(335, 928)
+        Me.人員彙總_dgv.Size = New System.Drawing.Size(335, 905)
         Me.人員彙總_dgv.TabIndex = 700
         '
         '醫生_ch
         '
         Me.醫生_ch.AutoSize = True
-        Me.醫生_ch.Location = New System.Drawing.Point(191, 5)
+        Me.醫生_ch.Location = New System.Drawing.Point(6, 30)
         Me.醫生_ch.Name = "醫生_ch"
         Me.醫生_ch.Size = New System.Drawing.Size(50, 20)
         Me.醫生_ch.TabIndex = 701
@@ -3534,7 +3535,7 @@ Partial Class 排班資料
         Me.職員_ch.AutoSize = True
         Me.職員_ch.Checked = True
         Me.職員_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.職員_ch.Location = New System.Drawing.Point(243, 5)
+        Me.職員_ch.Location = New System.Drawing.Point(68, 30)
         Me.職員_ch.Name = "職員_ch"
         Me.職員_ch.Size = New System.Drawing.Size(50, 20)
         Me.職員_ch.TabIndex = 702
@@ -3545,7 +3546,7 @@ Partial Class 排班資料
         '
         Me.重新讀取_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.renew
         Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.重新讀取_bt.Location = New System.Drawing.Point(288, 2)
+        Me.重新讀取_bt.Location = New System.Drawing.Point(187, 2)
         Me.重新讀取_bt.Name = "重新讀取_bt"
         Me.重新讀取_bt.Size = New System.Drawing.Size(26, 26)
         Me.重新讀取_bt.TabIndex = 704
@@ -3554,18 +3555,29 @@ Partial Class 排班資料
         '列印_bt
         '
         Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.列印_bt.Location = New System.Drawing.Point(314, 2)
+        Me.列印_bt.Location = New System.Drawing.Point(254, 26)
         Me.列印_bt.Name = "列印_bt"
         Me.列印_bt.Size = New System.Drawing.Size(86, 26)
         Me.列印_bt.TabIndex = 705
         Me.列印_bt.Text = "列印 EXCEL"
         Me.列印_bt.UseVisualStyleBackColor = True
         '
+        '請休假_ch
+        '
+        Me.請休假_ch.AutoSize = True
+        Me.請休假_ch.Location = New System.Drawing.Point(134, 30)
+        Me.請休假_ch.Name = "請休假_ch"
+        Me.請休假_ch.Size = New System.Drawing.Size(62, 20)
+        Me.請休假_ch.TabIndex = 706
+        Me.請休假_ch.Text = "請休假"
+        Me.請休假_ch.UseVisualStyleBackColor = True
+        '
         '排班資料
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1884, 961)
+        Me.Controls.Add(Me.請休假_ch)
         Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.重新讀取_bt)
         Me.Controls.Add(Me.職員_ch)
@@ -4031,4 +4043,5 @@ Partial Class 排班資料
     Friend WithEvents 醫生_ch As CheckBox
     Friend WithEvents 重新讀取_bt As Button
     Friend WithEvents 列印_bt As Button
+    Friend WithEvents 請休假_ch As CheckBox
 End Class

GRAMS-SYS/01、排班管理/排班資料.vb

@@ -1142,10 +1142,13 @@ Public Class 排班資料
         Next
     End Sub
     Private Sub 醫生_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 醫生_ch.Click
-        醫生_ch.Checked = True : 職員_ch.Checked = False : 日曆變動()
+        醫生_ch.Checked = True : 職員_ch.Checked = False : 請休假_ch.Checked = False : 日曆變動()
     End Sub
     Private Sub 職員_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 職員_ch.Click
-        醫生_ch.Checked = False : 職員_ch.Checked = True : 日曆變動()
+        醫生_ch.Checked = False : 職員_ch.Checked = True : 請休假_ch.Checked = False : 日曆變動()
+    End Sub
+    Private Sub 請休假_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請休假_ch.Click
+        醫生_ch.Checked = False : 職員_ch.Checked = False : 請休假_ch.Checked = True : 日曆變動()
     End Sub
     Private Sub B01_tb_Click(sender As Object, e As EventArgs) Handles B01_tb.Click
         PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb1.Text : 排班明細.Show()

GRAMS-SYS/02、休假管理/休假核准.vb

@@ -96,6 +96,14 @@ Public Class 休假核准
         Set_考勤明細()
     End Sub
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 月清單_DGV.Rows.Count - 1 Then : Exit Sub : Else
+            If Strings.Left(月清單_DGV("姓名", e.RowIndex).Value.ToString, 7) <> Strings.Left(月清單_DGV("姓名", e.RowIndex + 1).Value.ToString, 7) Then
+                Dim startX As Integer = IIf(月清單_DGV.RowHeadersVisible, 月清單_DGV.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 月清單_DGV.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月清單_DGV.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
         For I As Integer = 0 To 月清單_DGV.Rows.Count - 1
             If 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期六" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink
             ElseIf 月清單_DGV.Rows(I).Cells("星期").Value.ToString = "星期日" Then : 月清單_DGV.Rows(I).DefaultCellStyle.BackColor = Color.LightPink

GRAMS-SYS/02、休假管理/休假歷史紀錄.Designer.vb

@@ -22,8 +22,8 @@ Partial Class 休假歷史紀錄
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.月清單_DGV = New System.Windows.Forms.DataGridView()
         Me.事由_tb = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -46,6 +46,7 @@ Partial Class 休假歷史紀錄
         Me.資料指定圖庫_tb = New System.Windows.Forms.TextBox()
         Me.假期統計_dgv = New System.Windows.Forms.DataGridView()
         Me.列印_bt = New System.Windows.Forms.Button()
+        Me.刪除_tb = New System.Windows.Forms.Button()
         CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -55,8 +56,8 @@ Partial Class 休假歷史紀錄
         '
         '月清單_DGV
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Gainsboro
-        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Gainsboro
+        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.月清單_DGV.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -197,8 +198,8 @@ Partial Class 休假歷史紀錄
         '
         '人員_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -270,11 +271,22 @@ Partial Class 休假歷史紀錄
         Me.列印_bt.Text = "列印請假" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "申請資料"
         Me.列印_bt.UseVisualStyleBackColor = True
         '
+        '刪除_tb
+        '
+        Me.刪除_tb.ForeColor = System.Drawing.Color.Red
+        Me.刪除_tb.Location = New System.Drawing.Point(153, 78)
+        Me.刪除_tb.Name = "刪除_tb"
+        Me.刪除_tb.Size = New System.Drawing.Size(54, 46)
+        Me.刪除_tb.TabIndex = 1414
+        Me.刪除_tb.Text = "刪除" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "資料"
+        Me.刪除_tb.UseVisualStyleBackColor = True
+        '
         '休假歷史紀錄
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1238, 600)
+        Me.Controls.Add(Me.刪除_tb)
         Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.假期統計_dgv)
         Me.Controls.Add(Me.人員_dgv)
@@ -332,4 +344,5 @@ Partial Class 休假歷史紀錄
     Friend WithEvents 資料指定圖庫_tb As TextBox
     Friend WithEvents 假期統計_dgv As DataGridView
     Friend WithEvents 列印_bt As Button
+    Friend WithEvents 刪除_tb As Button
 End Class

GRAMS-SYS/02、休假管理/休假歷史紀錄.vb

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

GRAMS-SYS/02、休假管理/休假申請.vb

@@ -75,9 +75,30 @@ Public Class 休假申請
         If e.RowIndex = -1 Then : Else
             If 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期六" Or 月清單_DGV.Rows(e.RowIndex).Cells("星期").Value.ToString = "星期日" Or
                 月清單_DGV.Rows(e.RowIndex).Cells("請假類別").Value.ToString = "國定假日" Then
-                特假日期_tb.Text = "" : 事由_tb.Text = "" : PictureBox1.Image = Nothing
-                MsgBox("星期六/星期日或國定假日不需要申請休假!!")
-            Else 特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
+                If gUserName = "*系統管理者" Then
+                    特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
+                    事由_tb.Text = 月清單_DGV("事由", e.RowIndex).Value.ToString
+                    生效 = 月清單_DGV("是否生效", e.RowIndex).Value.ToString
+                    請假類別_cb.Text = 月清單_DGV("請假類別", e.RowIndex).Value.ToString
+                    請休假時數_cb.Text = 月清單_DGV("申請時數", e.RowIndex).Value.ToString
+                    資料指定圖庫_tb.Text = 月清單_DGV("圖片資料庫", e.RowIndex).Value.ToString : 圖片流水號_tb.Text = 月清單_DGV("圖片編號", e.RowIndex).Value.ToString
+                    '------------驗貨報告讀取--------------------------------------------------------------------------------------------
+                    If 資料指定圖庫_tb.Text <> "" And 圖片流水號_tb.Text <> "" Then
+                        圖片庫 = 資料指定圖庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片流水號_tb.Text
+                        SQL_請假圖() : PictureBox1.Image = Nothing
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
+                        End While : conn.Close() : PictureBox1.SizeMode = 4
+                    Else
+                        PictureBox1.Image = Nothing
+                    End If
+                Else
+                    特假日期_tb.Text = "" : 事由_tb.Text = "" : PictureBox1.Image = Nothing
+                    MsgBox("星期六/星期日或國定假日不需要申請休假!!")
+                End If
+            Else
+                特假日期_tb.Text = 月清單_DGV("日期", e.RowIndex).Value.ToString
                 事由_tb.Text = 月清單_DGV("事由", e.RowIndex).Value.ToString
                 生效 = 月清單_DGV("是否生效", e.RowIndex).Value.ToString
                 請假類別_cb.Text = 月清單_DGV("請假類別", e.RowIndex).Value.ToString
@@ -101,8 +122,7 @@ Public Class 休假申請
         If 特假日期_tb.Text = "" Or 請休假時數_cb.Text = "" Or 申請人_tb.Text = "" Then
             MsgBox("人員、日期、請休假時數 不能為空白!!")
         Else
-            If 生效 = "已核准" Or 生效 = "未核准" Then : MsgBox("已簽核的資料不能再做修改")
-            Else
+            If 生效 = "已核准" Or 生效 = "未核准" Then : MsgBox("已簽核的資料不能再做修改") : Else
                 SQL_請假申請讀取()
                 If dr.Read Then : SQL_請假申請修改() : Else : SQL_請假申請新增() : End If
                 Set_考勤明細() : MsgBox("儲存完成")

GRAMS-SYS/04、考勤管理/考勤明細表.vb

@@ -406,9 +406,9 @@ Public Class 考勤明細表
                 未到離職_tb.Text = Strings.Format((到離 * 8 * CDbl(時薪_tb.Text)), "#,##0.0")
                 事假_tb.Text = Strings.Format((事假 * CDbl(時薪_tb.Text)), "#,##0.0")
             Else
-                婚假_tb.Text = Strings.Format((特休 * CDbl(時薪_tb.Text)), "#,##0.0")
-                喪假_tb.Text = Strings.Format((婚假 * CDbl(時薪_tb.Text)), "#,##0.0")
-                特休_tb.Text = Strings.Format((喪假 * CDbl(時薪_tb.Text)), "#,##0.0")
+                婚假_tb.Text = Strings.Format((婚假 * CDbl(時薪_tb.Text)), "#,##0.0")
+                喪假_tb.Text = Strings.Format((喪假 * CDbl(時薪_tb.Text)), "#,##0.0")
+                特休_tb.Text = Strings.Format((特休 * CDbl(時薪_tb.Text)), "#,##0.0")
             End If
             '--------------------------第一種應付小計計算---------------------------------------------------
             第1段加班費1_tb.Text = Strings.Format(((CDbl(當月平日一段_tb.Text) + CDbl(一段假日加_tb.Text)) * CDbl(時薪_tb.Text) * 1.34), "#,##0.0")

GRAMS-SYS/05、業務管理/業務銷售控制表.Designer.vb

@@ -0,0 +1,397 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 業務銷售控制表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.業務_dgv = New System.Windows.Forms.DataGridView()
+        Me.人員_dgv = New System.Windows.Forms.DataGridView()
+        Me.流水號_bt = New System.Windows.Forms.TextBox()
+        Me.病歷號_tb = New System.Windows.Forms.TextBox()
+        Me.看診日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.看診日期_lb = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.看診醫生_tb = New System.Windows.Forms.TextBox()
+        Me.銷售人員_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.指定銷售_bt = New System.Windows.Forms.Button()
+        Me.未指定_ch = New System.Windows.Forms.CheckBox()
+        Me.未聯繫_ch = New System.Windows.Forms.CheckBox()
+        Me.成功_ch = New System.Windows.Forms.CheckBox()
+        Me.失誤_ch = New System.Windows.Forms.CheckBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.銷售取消_bt = New System.Windows.Forms.Button()
+        Me.銷售成功_bt = New System.Windows.Forms.Button()
+        Me.備註_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.治療建議_dgv = New System.Windows.Forms.DataGridView()
+        Me.備註存檔_bt = New System.Windows.Forms.Button()
+        CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '業務_dgv
+        '
+        Me.業務_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.業務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.業務_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.業務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.業務_dgv.Location = New System.Drawing.Point(3, 54)
+        Me.業務_dgv.Name = "業務_dgv"
+        Me.業務_dgv.RowHeadersWidth = 5
+        Me.業務_dgv.RowTemplate.Height = 24
+        Me.業務_dgv.Size = New System.Drawing.Size(597, 613)
+        Me.業務_dgv.TabIndex = 229
+        '
+        '人員_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.人員_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.人員_dgv.Location = New System.Drawing.Point(954, 54)
+        Me.人員_dgv.Name = "人員_dgv"
+        Me.人員_dgv.RowHeadersWidth = 5
+        Me.人員_dgv.RowTemplate.Height = 24
+        Me.人員_dgv.Size = New System.Drawing.Size(149, 613)
+        Me.人員_dgv.TabIndex = 787
+        '
+        '流水號_bt
+        '
+        Me.流水號_bt.Location = New System.Drawing.Point(28, 78)
+        Me.流水號_bt.Name = "流水號_bt"
+        Me.流水號_bt.Size = New System.Drawing.Size(100, 23)
+        Me.流水號_bt.TabIndex = 792
+        '
+        '病歷號_tb
+        '
+        Me.病歷號_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.病歷號_tb.Location = New System.Drawing.Point(64, 27)
+        Me.病歷號_tb.Name = "病歷號_tb"
+        Me.病歷號_tb.ReadOnly = True
+        Me.病歷號_tb.Size = New System.Drawing.Size(92, 23)
+        Me.病歷號_tb.TabIndex = 793
+        '
+        '看診日期_dtp
+        '
+        Me.看診日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.看診日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.看診日期_dtp.Location = New System.Drawing.Point(63, 3)
+        Me.看診日期_dtp.Name = "看診日期_dtp"
+        Me.看診日期_dtp.Size = New System.Drawing.Size(92, 23)
+        Me.看診日期_dtp.TabIndex = 794
+        '
+        '看診日期_lb
+        '
+        Me.看診日期_lb.AutoSize = True
+        Me.看診日期_lb.Location = New System.Drawing.Point(5, 6)
+        Me.看診日期_lb.Name = "看診日期_lb"
+        Me.看診日期_lb.Size = New System.Drawing.Size(55, 16)
+        Me.看診日期_lb.TabIndex = 795
+        Me.看診日期_lb.Text = "看診日期"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(5, 30)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
+        Me.Label1.TabIndex = 796
+        Me.Label1.Text = "病  歷  號"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(161, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
+        Me.Label2.TabIndex = 797
+        Me.Label2.Text = "看診醫生"
+        '
+        '看診醫生_tb
+        '
+        Me.看診醫生_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.看診醫生_tb.Location = New System.Drawing.Point(222, 3)
+        Me.看診醫生_tb.Name = "看診醫生_tb"
+        Me.看診醫生_tb.ReadOnly = True
+        Me.看診醫生_tb.Size = New System.Drawing.Size(92, 23)
+        Me.看診醫生_tb.TabIndex = 798
+        '
+        '銷售人員_tb
+        '
+        Me.銷售人員_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.銷售人員_tb.Location = New System.Drawing.Point(222, 27)
+        Me.銷售人員_tb.Name = "銷售人員_tb"
+        Me.銷售人員_tb.ReadOnly = True
+        Me.銷售人員_tb.Size = New System.Drawing.Size(92, 23)
+        Me.銷售人員_tb.TabIndex = 800
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(161, 30)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 799
+        Me.Label3.Text = "銷售人員"
+        '
+        '指定銷售_bt
+        '
+        Me.指定銷售_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.指定銷售_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.指定銷售_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.指定銷售_bt.Location = New System.Drawing.Point(665, 1)
+        Me.指定銷售_bt.Name = "指定銷售_bt"
+        Me.指定銷售_bt.Size = New System.Drawing.Size(50, 50)
+        Me.指定銷售_bt.TabIndex = 801
+        Me.指定銷售_bt.Text = "指定銷售"
+        Me.指定銷售_bt.UseVisualStyleBackColor = True
+        '
+        '未指定_ch
+        '
+        Me.未指定_ch.AutoSize = True
+        Me.未指定_ch.Checked = True
+        Me.未指定_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.未指定_ch.ForeColor = System.Drawing.Color.Green
+        Me.未指定_ch.Location = New System.Drawing.Point(6, 4)
+        Me.未指定_ch.Name = "未指定_ch"
+        Me.未指定_ch.Size = New System.Drawing.Size(110, 20)
+        Me.未指定_ch.TabIndex = 802
+        Me.未指定_ch.Text = "未指定銷售人員"
+        Me.未指定_ch.UseVisualStyleBackColor = True
+        '
+        '未聯繫_ch
+        '
+        Me.未聯繫_ch.AutoSize = True
+        Me.未聯繫_ch.ForeColor = System.Drawing.Color.Green
+        Me.未聯繫_ch.Location = New System.Drawing.Point(6, 30)
+        Me.未聯繫_ch.Name = "未聯繫_ch"
+        Me.未聯繫_ch.Size = New System.Drawing.Size(110, 20)
+        Me.未聯繫_ch.TabIndex = 803
+        Me.未聯繫_ch.Text = "未聯繫客戶清單"
+        Me.未聯繫_ch.UseVisualStyleBackColor = True
+        '
+        '成功_ch
+        '
+        Me.成功_ch.AutoSize = True
+        Me.成功_ch.ForeColor = System.Drawing.Color.Green
+        Me.成功_ch.Location = New System.Drawing.Point(122, 4)
+        Me.成功_ch.Name = "成功_ch"
+        Me.成功_ch.Size = New System.Drawing.Size(110, 20)
+        Me.成功_ch.TabIndex = 804
+        Me.成功_ch.Text = "銷售成功的清單"
+        Me.成功_ch.UseVisualStyleBackColor = True
+        '
+        '失誤_ch
+        '
+        Me.失誤_ch.AutoSize = True
+        Me.失誤_ch.ForeColor = System.Drawing.Color.Green
+        Me.失誤_ch.Location = New System.Drawing.Point(122, 30)
+        Me.失誤_ch.Name = "失誤_ch"
+        Me.失誤_ch.Size = New System.Drawing.Size(110, 20)
+        Me.失誤_ch.TabIndex = 805
+        Me.失誤_ch.Text = "銷售取消的清單"
+        Me.失誤_ch.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.備註存檔_bt)
+        Me.Panel1.Controls.Add(Me.銷售取消_bt)
+        Me.Panel1.Controls.Add(Me.銷售成功_bt)
+        Me.Panel1.Controls.Add(Me.備註_tb)
+        Me.Panel1.Controls.Add(Me.看診日期_lb)
+        Me.Panel1.Controls.Add(Me.病歷號_tb)
+        Me.Panel1.Controls.Add(Me.看診日期_dtp)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.指定銷售_bt)
+        Me.Panel1.Controls.Add(Me.看診醫生_tb)
+        Me.Panel1.Controls.Add(Me.銷售人員_tb)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Panel1.Location = New System.Drawing.Point(230, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(873, 55)
+        Me.Panel1.TabIndex = 806
+        '
+        '銷售取消_bt
+        '
+        Me.銷售取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售取消_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.銷售取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售取消_bt.Location = New System.Drawing.Point(818, 1)
+        Me.銷售取消_bt.Name = "銷售取消_bt"
+        Me.銷售取消_bt.Size = New System.Drawing.Size(50, 50)
+        Me.銷售取消_bt.TabIndex = 810
+        Me.銷售取消_bt.Text = "銷售取消"
+        Me.銷售取消_bt.UseVisualStyleBackColor = True
+        '
+        '銷售成功_bt
+        '
+        Me.銷售成功_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售成功_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.銷售成功_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售成功_bt.Location = New System.Drawing.Point(767, 1)
+        Me.銷售成功_bt.Name = "銷售成功_bt"
+        Me.銷售成功_bt.Size = New System.Drawing.Size(50, 50)
+        Me.銷售成功_bt.TabIndex = 809
+        Me.銷售成功_bt.Text = "銷售成功"
+        Me.銷售成功_bt.UseVisualStyleBackColor = True
+        '
+        '備註_tb
+        '
+        Me.備註_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.備註_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.備註_tb.Location = New System.Drawing.Point(346, 3)
+        Me.備註_tb.Multiline = True
+        Me.備註_tb.Name = "備註_tb"
+        Me.備註_tb.Size = New System.Drawing.Size(317, 47)
+        Me.備註_tb.TabIndex = 807
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(315, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 808
+        Me.Label4.Text = "備註"
+        '
+        '治療建議_dgv
+        '
+        Me.治療建議_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.治療建議_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.治療建議_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.治療建議_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.治療建議_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.治療建議_dgv.DefaultCellStyle = DataGridViewCellStyle3
+        Me.治療建議_dgv.Location = New System.Drawing.Point(599, 54)
+        Me.治療建議_dgv.Name = "治療建議_dgv"
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.治療建議_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.治療建議_dgv.RowHeadersWidth = 5
+        Me.治療建議_dgv.RowTemplate.Height = 24
+        Me.治療建議_dgv.Size = New System.Drawing.Size(356, 613)
+        Me.治療建議_dgv.TabIndex = 807
+        '
+        '備註存檔_bt
+        '
+        Me.備註存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.備註存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.備註存檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.備註存檔_bt.Location = New System.Drawing.Point(716, 1)
+        Me.備註存檔_bt.Name = "備註存檔_bt"
+        Me.備註存檔_bt.Size = New System.Drawing.Size(50, 50)
+        Me.備註存檔_bt.TabIndex = 811
+        Me.備註存檔_bt.Text = "備註存檔"
+        Me.備註存檔_bt.UseVisualStyleBackColor = True
+        '
+        '業務銷售控制表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1106, 669)
+        Me.Controls.Add(Me.人員_dgv)
+        Me.Controls.Add(Me.治療建議_dgv)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.失誤_ch)
+        Me.Controls.Add(Me.成功_ch)
+        Me.Controls.Add(Me.未聯繫_ch)
+        Me.Controls.Add(Me.未指定_ch)
+        Me.Controls.Add(Me.業務_dgv)
+        Me.Controls.Add(Me.流水號_bt)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "業務銷售控制表"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "業務銷售控制表"
+        CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 業務_dgv As DataGridView
+    Friend WithEvents 人員_dgv As DataGridView
+    Friend WithEvents 流水號_bt As TextBox
+    Friend WithEvents 病歷號_tb As TextBox
+    Friend WithEvents 看診日期_dtp As DateTimePicker
+    Friend WithEvents 看診日期_lb As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 看診醫生_tb As TextBox
+    Friend WithEvents 銷售人員_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 指定銷售_bt As Button
+    Friend WithEvents 未指定_ch As CheckBox
+    Friend WithEvents 未聯繫_ch As CheckBox
+    Friend WithEvents 成功_ch As CheckBox
+    Friend WithEvents 失誤_ch As CheckBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 銷售取消_bt As Button
+    Friend WithEvents 銷售成功_bt As Button
+    Friend WithEvents 備註_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 治療建議_dgv As DataGridView
+    Friend WithEvents 備註存檔_bt As Button
+End Class

GRAMS-SYS/05、業務管理/業務銷售控制表.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

GRAMS-SYS/05、業務管理/業務銷售控制表.vb

@@ -0,0 +1,114 @@
+Public Class 業務銷售控制表
+    Private Sub 讀取人員資料表()
+        Dim ds As New DataSet
+        人員_dgv.DataSource = Nothing : ds.Clear()
+        人員_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        人員_dgv.ColumnHeadersHeight = 25 : 人員_dgv.AllowUserToAddRows = False
+        SQL_考勤明細表_人員()
+        da.Fill(ds) : 人員_dgv.DataSource = ds.Tables(0) : conn.Close()
+        人員_dgv.Columns(0).FillWeight = 70 : 人員_dgv.Columns(1).FillWeight = 80 : 人員_dgv.Columns(2).FillWeight = 100 : 人員_dgv.Columns(3).Visible = False
+        人員_dgv.Columns(4).Visible = False : 人員_dgv.Columns(5).Visible = False : 人員_dgv.Columns(6).Visible = False : 人員_dgv.Columns(7).Visible = False
+        人員_dgv.Columns(8).Visible = False : 人員_dgv.Columns(9).Visible = False : 人員_dgv.Columns("到職日").Visible = False
+        For i As Integer = 0 To 人員_dgv.Rows.Count - 1
+            人員_dgv.Rows(i).Cells("No.").Value = i + 1
+        Next
+    End Sub
+    Private Sub Set_業務()
+        Dim ds2 As New DataSet
+        業務_dgv.DataSource = Nothing : ds2.Clear()
+        業務_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        業務_dgv.ColumnHeadersHeight = 25 : 業務_dgv.AllowUserToAddRows = False
+        If 未指定_ch.Checked = True And 未聯繫_ch.Checked = False And 成功_ch.Checked = False And 失誤_ch.Checked = False Then
+            SQL2 = " WHERE (銷售人員 IS NULL OR 銷售人員 LIKE '') AND (日期 NOT LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "') "
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = True And 成功_ch.Checked = False And 失誤_ch.Checked = False Then
+            SQL2 = " WHERE (銷售狀態 IS NULL OR 銷售狀態 LIKE '') "
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = False And 成功_ch.Checked = True And 失誤_ch.Checked = False Then
+            SQL2 = " WHERE (銷售狀態 LIKE N'成功') "
+        ElseIf 未指定_ch.Checked = False And 未聯繫_ch.Checked = False And 成功_ch.Checked = False And 失誤_ch.Checked = True Then
+            SQL2 = " WHERE (銷售狀態 LIKE N'失敗') "
+        End If
+        SQL_業務控制()
+        da.Fill(ds2) : 業務_dgv.DataSource = ds2.Tables(0) : conn.Close() : SQL2 = ""
+        業務_dgv.Columns(0).Visible = False : 業務_dgv.Columns(2).FillWeight = 80 : 業務_dgv.Columns(4).FillWeight = 80 : 業務_dgv.Columns("備註").FillWeight = 160
+        '適應症選擇()
+    End Sub
+    Private Sub 治療()
+        Dim ds As New DataSet
+        治療建議_dgv.DataSource = Nothing : ds.Clear()
+        治療建議_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        治療建議_dgv.ColumnHeadersHeight = 25 : 治療建議_dgv.AllowUserToAddRows = False
+        SQL_業務明細()
+        da.Fill(ds) : 治療建議_dgv.DataSource = ds.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 業務銷售控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If gUserName = "*系統管理者" Or gUserName = "黃院長" Or gUserName = "呂總監" Or gUserName = "蔡紋婷" Then
+            未指定_ch.Visible = True : 未聯繫_ch.Visible = True : 成功_ch.Visible = True : 失誤_ch.Visible = True
+        Else
+            未指定_ch.Visible = False : 未聯繫_ch.Visible = False : 成功_ch.Visible = False : 失誤_ch.Visible = False
+        End If
+    End Sub
+    Private Sub 業務銷售控制表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        讀取人員資料表() : Set_業務()
+    End Sub
+    Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 銷售人員_tb.Text = 人員_dgv("姓名", e.RowIndex).Value.ToString : End If
+    End Sub
+    Private Sub 業務_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 業務_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            看診日期_dtp.Text = 業務_dgv("日期", e.RowIndex).Value.ToString : 病歷號_tb.Text = 業務_dgv("病歷號", e.RowIndex).Value.ToString
+            看診醫生_tb.Text = 業務_dgv("醫師", e.RowIndex).Value.ToString : 銷售人員_tb.Text = 業務_dgv("銷售人員", e.RowIndex).Value.ToString
+            備註_tb.Text = 業務_dgv("備註", e.RowIndex).Value.ToString : 流水號_bt.Text = 業務_dgv("流水號", e.RowIndex).Value.ToString
+            治療()
+        End If
+    End Sub
+    Private Sub 業務_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 業務_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 業務_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If Strings.Left(業務_dgv("日期", e.RowIndex).Value.ToString, 10) <> Strings.Left(業務_dgv("日期", e.RowIndex + 1).Value.ToString, 10) Then
+                Dim startX As Integer = IIf(業務_dgv.RowHeadersVisible, 業務_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 業務_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 業務_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 未指定_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未指定_ch.Click
+        未指定_ch.Checked = True : 未聯繫_ch.Checked = False : 成功_ch.Checked = False : 失誤_ch.Checked = False : Set_業務()
+    End Sub
+    Private Sub 未聯繫_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未聯繫_ch.Click
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = True : 成功_ch.Checked = False : 失誤_ch.Checked = False : Set_業務()
+    End Sub
+    Private Sub 成功_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 成功_ch.Click
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = False : 成功_ch.Checked = True : 失誤_ch.Checked = False : Set_業務()
+    End Sub
+    Private Sub 失誤_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 失誤_ch.Click
+        未指定_ch.Checked = False : 未聯繫_ch.Checked = False : 成功_ch.Checked = False : 失誤_ch.Checked = True : Set_業務()
+    End Sub
+    Private Sub 指定銷售_bt_Click(sender As Object, e As EventArgs) Handles 指定銷售_bt.Click
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
+                SQL_業務控制指定銷售() : Set_業務() : MsgBox("指定業務人員完成!!")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售成功_bt_Click(sender As Object, e As EventArgs) Handles 銷售成功_bt.Click
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
+                PA1 = "成功" : PA2 = Strings.Format(Today(), "yyyy/MM/dd") : SQL_業務控制備註存檔() : SQL_業務控制指定銷售完成() : Set_業務() : MsgBox("單據記錄成功!!")
+            End If
+        End If
+    End Sub
+    Private Sub 銷售取消_bt_Click(sender As Object, e As EventArgs) Handles 銷售取消_bt.Click
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
+                PA1 = "失敗" : PA2 = "" : SQL_業務控制指定銷售完成() : SQL_業務控制備註存檔() : Set_業務() : MsgBox("單據記錄成功!!")
+            End If
+        End If
+    End Sub
+    Private Sub 備註存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註存檔_bt.Click
+        If 病歷號_tb.Text = "" Then : MsgBox("請先選擇銷售資料!!") : Else
+            If 銷售人員_tb.Text = "" Then : MsgBox("請先選擇銷售人員!!") : Else
+                SQL_業務控制備註存檔() : Set_業務() : MsgBox("單據記錄成功!!")
+            End If
+        End If
+    End Sub
+End Class

GRAMS-SYS/05、業務管理/適應症選擇.Designer.vb

@@ -23,25 +23,25 @@ Partial Class 適應症選擇
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Pulsed Dye Laser")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("VPL")
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2})
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Subcision")
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Acne Scar", New System.Windows.Forms.TreeNode() {TreeNode4})
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(適應症選擇))
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.病歷號_tb = New System.Windows.Forms.TextBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.CheckBox10 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox8 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.醫生_tb = New System.Windows.Forms.TextBox()
-        Me.確認_bt = New System.Windows.Forms.Button()
         Me.適應症_dgv = New System.Windows.Forms.DataGridView()
-        Me.GroupBox1.SuspendLayout()
+        Me.TreeView1 = New System.Windows.Forms.TreeView()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.病症_cb = New System.Windows.Forms.ComboBox()
+        Me.療程_cb = New System.Windows.Forms.ComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.確認_bt = New System.Windows.Forms.Button()
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -57,7 +57,7 @@ Partial Class 適應症選擇
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(3, 39)
+        Me.Label2.Location = New System.Drawing.Point(218, 9)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(57, 20)
         Me.Label2.TabIndex = 2
@@ -65,133 +65,11 @@ Partial Class 適應症選擇
         '
         '病歷號_tb
         '
-        Me.病歷號_tb.Location = New System.Drawing.Point(66, 33)
+        Me.病歷號_tb.Location = New System.Drawing.Point(281, 3)
         Me.病歷號_tb.Name = "病歷號_tb"
         Me.病歷號_tb.Size = New System.Drawing.Size(146, 29)
         Me.病歷號_tb.TabIndex = 3
         '
-        'GroupBox1
-        '
-        Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox1.Controls.Add(Me.CheckBox10)
-        Me.GroupBox1.Controls.Add(Me.CheckBox9)
-        Me.GroupBox1.Controls.Add(Me.CheckBox8)
-        Me.GroupBox1.Controls.Add(Me.CheckBox7)
-        Me.GroupBox1.Controls.Add(Me.CheckBox6)
-        Me.GroupBox1.Controls.Add(Me.CheckBox5)
-        Me.GroupBox1.Controls.Add(Me.CheckBox4)
-        Me.GroupBox1.Controls.Add(Me.CheckBox3)
-        Me.GroupBox1.Controls.Add(Me.CheckBox2)
-        Me.GroupBox1.Controls.Add(Me.CheckBox1)
-        Me.GroupBox1.Location = New System.Drawing.Point(4, 68)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(208, 331)
-        Me.GroupBox1.TabIndex = 4
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "適應症"
-        '
-        'CheckBox10
-        '
-        Me.CheckBox10.AutoSize = True
-        Me.CheckBox10.Location = New System.Drawing.Point(8, 298)
-        Me.CheckBox10.Name = "CheckBox10"
-        Me.CheckBox10.Size = New System.Drawing.Size(121, 24)
-        Me.CheckBox10.TabIndex = 9
-        Me.CheckBox10.Text = "CheckBox10"
-        Me.CheckBox10.UseVisualStyleBackColor = True
-        '
-        'CheckBox9
-        '
-        Me.CheckBox9.AutoSize = True
-        Me.CheckBox9.Location = New System.Drawing.Point(8, 268)
-        Me.CheckBox9.Name = "CheckBox9"
-        Me.CheckBox9.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox9.TabIndex = 8
-        Me.CheckBox9.Text = "CheckBox9"
-        Me.CheckBox9.UseVisualStyleBackColor = True
-        '
-        'CheckBox8
-        '
-        Me.CheckBox8.AutoSize = True
-        Me.CheckBox8.Location = New System.Drawing.Point(8, 238)
-        Me.CheckBox8.Name = "CheckBox8"
-        Me.CheckBox8.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox8.TabIndex = 7
-        Me.CheckBox8.Text = "CheckBox8"
-        Me.CheckBox8.UseVisualStyleBackColor = True
-        '
-        'CheckBox7
-        '
-        Me.CheckBox7.AutoSize = True
-        Me.CheckBox7.Location = New System.Drawing.Point(8, 208)
-        Me.CheckBox7.Name = "CheckBox7"
-        Me.CheckBox7.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox7.TabIndex = 6
-        Me.CheckBox7.Text = "CheckBox7"
-        Me.CheckBox7.UseVisualStyleBackColor = True
-        '
-        'CheckBox6
-        '
-        Me.CheckBox6.AutoSize = True
-        Me.CheckBox6.Location = New System.Drawing.Point(8, 178)
-        Me.CheckBox6.Name = "CheckBox6"
-        Me.CheckBox6.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox6.TabIndex = 5
-        Me.CheckBox6.Text = "CheckBox6"
-        Me.CheckBox6.UseVisualStyleBackColor = True
-        '
-        'CheckBox5
-        '
-        Me.CheckBox5.AutoSize = True
-        Me.CheckBox5.Location = New System.Drawing.Point(8, 148)
-        Me.CheckBox5.Name = "CheckBox5"
-        Me.CheckBox5.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox5.TabIndex = 4
-        Me.CheckBox5.Text = "CheckBox5"
-        Me.CheckBox5.UseVisualStyleBackColor = True
-        '
-        'CheckBox4
-        '
-        Me.CheckBox4.AutoSize = True
-        Me.CheckBox4.Location = New System.Drawing.Point(8, 118)
-        Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox4.TabIndex = 3
-        Me.CheckBox4.Text = "CheckBox4"
-        Me.CheckBox4.UseVisualStyleBackColor = True
-        '
-        'CheckBox3
-        '
-        Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Location = New System.Drawing.Point(8, 88)
-        Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox3.TabIndex = 2
-        Me.CheckBox3.Text = "CheckBox3"
-        Me.CheckBox3.UseVisualStyleBackColor = True
-        '
-        'CheckBox2
-        '
-        Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(8, 58)
-        Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox2.TabIndex = 1
-        Me.CheckBox2.Text = "CheckBox2"
-        Me.CheckBox2.UseVisualStyleBackColor = True
-        '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(8, 28)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(112, 24)
-        Me.CheckBox1.TabIndex = 0
-        Me.CheckBox1.Text = "CheckBox1"
-        Me.CheckBox1.UseVisualStyleBackColor = True
-        '
         '醫生_tb
         '
         Me.醫生_tb.Location = New System.Drawing.Point(66, 3)
@@ -200,16 +78,6 @@ Partial Class 適應症選擇
         Me.醫生_tb.Size = New System.Drawing.Size(146, 29)
         Me.醫生_tb.TabIndex = 6
         '
-        '確認_bt
-        '
-        Me.確認_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check
-        Me.確認_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.確認_bt.Location = New System.Drawing.Point(4, 402)
-        Me.確認_bt.Name = "確認_bt"
-        Me.確認_bt.Size = New System.Drawing.Size(208, 44)
-        Me.確認_bt.TabIndex = 5
-        Me.確認_bt.UseVisualStyleBackColor = True
-        '
         '適應症_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -223,21 +91,124 @@ Partial Class 適應症選擇
         Me.適應症_dgv.Name = "適應症_dgv"
         Me.適應症_dgv.RowHeadersWidth = 5
         Me.適應症_dgv.RowTemplate.Height = 24
-        Me.適應症_dgv.Size = New System.Drawing.Size(164, 267)
+        Me.適應症_dgv.Size = New System.Drawing.Size(164, 406)
         Me.適應症_dgv.TabIndex = 228
         '
+        'TreeView1
+        '
+        Me.TreeView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TreeView1.CheckBoxes = True
+        Me.TreeView1.Location = New System.Drawing.Point(3, 35)
+        Me.TreeView1.Name = "TreeView1"
+        TreeNode1.Name = "Node1"
+        TreeNode1.Text = "Pulsed Dye Laser"
+        TreeNode2.Name = "Node4"
+        TreeNode2.Text = "VPL"
+        TreeNode3.Name = "Node0"
+        TreeNode3.Text = "Acne"
+        TreeNode4.Name = "Node5"
+        TreeNode4.Text = "Subcision"
+        TreeNode5.Name = "Node3"
+        TreeNode5.Text = "Acne Scar"
+        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode5})
+        Me.TreeView1.Size = New System.Drawing.Size(512, 485)
+        Me.TreeView1.TabIndex = 229
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.Location = New System.Drawing.Point(12, 529)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(276, 24)
+        Me.Label3.TabIndex = 230
+        Me.Label3.Text = "新增適應症與療程建議的控制項" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        '
+        '病症_cb
+        '
+        Me.病症_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.病症_cb.FormattingEnabled = True
+        Me.病症_cb.Location = New System.Drawing.Point(3, 557)
+        Me.病症_cb.Name = "病症_cb"
+        Me.病症_cb.Size = New System.Drawing.Size(335, 28)
+        Me.病症_cb.TabIndex = 231
+        '
+        '療程_cb
+        '
+        Me.療程_cb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.療程_cb.FormattingEnabled = True
+        Me.療程_cb.Location = New System.Drawing.Point(342, 557)
+        Me.療程_cb.Name = "療程_cb"
+        Me.療程_cb.Size = New System.Drawing.Size(172, 28)
+        Me.療程_cb.TabIndex = 232
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(-4, 505)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(534, 20)
+        Me.Label4.TabIndex = 234
+        Me.Label4.Text = "___________________________________________________________________________"
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.刪除_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.GarbageEmpty
+        Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.刪除_bt.Location = New System.Drawing.Point(430, 524)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(85, 32)
+        Me.刪除_bt.TabIndex = 235
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.SAVER
+        Me.存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.存檔_bt.Location = New System.Drawing.Point(343, 524)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(85, 32)
+        Me.存檔_bt.TabIndex = 233
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '確認_bt
+        '
+        Me.確認_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.確認_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check
+        Me.確認_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.確認_bt.Location = New System.Drawing.Point(429, 1)
+        Me.確認_bt.Name = "確認_bt"
+        Me.確認_bt.Size = New System.Drawing.Size(85, 32)
+        Me.確認_bt.TabIndex = 5
+        Me.確認_bt.UseVisualStyleBackColor = True
+        '
         '適應症選擇
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(216, 449)
-        Me.Controls.Add(Me.適應症_dgv)
+        Me.ClientSize = New System.Drawing.Size(518, 588)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.療程_cb)
+        Me.Controls.Add(Me.病症_cb)
+        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.醫生_tb)
         Me.Controls.Add(Me.確認_bt)
-        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.病歷號_tb)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TreeView1)
+        Me.Controls.Add(Me.適應症_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5)
@@ -246,8 +217,6 @@ Partial Class 適應症選擇
         Me.Name = "適應症選擇"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "適應症選擇"
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox1.PerformLayout()
         CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -257,18 +226,14 @@ Partial Class 適應症選擇
     Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents 病歷號_tb As TextBox
-    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents CheckBox10 As CheckBox
-    Friend WithEvents CheckBox9 As CheckBox
-    Friend WithEvents CheckBox8 As CheckBox
-    Friend WithEvents CheckBox7 As CheckBox
-    Friend WithEvents CheckBox6 As CheckBox
-    Friend WithEvents CheckBox5 As CheckBox
-    Friend WithEvents CheckBox4 As CheckBox
-    Friend WithEvents CheckBox3 As CheckBox
-    Friend WithEvents CheckBox2 As CheckBox
-    Friend WithEvents CheckBox1 As CheckBox
     Friend WithEvents 確認_bt As Button
     Friend WithEvents 醫生_tb As TextBox
     Friend WithEvents 適應症_dgv As DataGridView
+    Friend WithEvents TreeView1 As TreeView
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 病症_cb As ComboBox
+    Friend WithEvents 療程_cb As ComboBox
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 刪除_bt As Button
 End Class

GRAMS-SYS/05、業務管理/適應症選擇.vb

@@ -7,17 +7,16 @@
         SQL_適應症設定()
         da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
         適應症_dgv.Columns(0).FillWeight = 30
+        適應症選擇()
+    End Sub
+    Private Sub SQL_下拉清單載入1()
+        SQL_適應症主清單1() : 病症_cb.Items.Clear() : While (dr.Read()) : 病症_cb.Items.Add(dr("適應症")) : End While : conn.Close()
+    End Sub
+    Private Sub SQL_下拉清單載入2()
+        SQL_適應症主清單2() : 療程_cb.Items.Clear() : While (dr.Read()) : 療程_cb.Items.Add(dr("治療建議")) : End While : conn.Close()
     End Sub
     Private Sub 適應症選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        適應症_dgv.SendToBack() : Set_適應症設定()
-        For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
-            Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
-            If 適應症_dgv(1, I).Value.ToString = "" Then
-                CheckBoxs.Visible = False
-            Else
-                CheckBoxs.Visible = True : CheckBoxs.Text = 適應症_dgv(1, I).Value.ToString
-            End If
-        Next
+        適應症_dgv.SendToBack() : Set_適應症設定() : SQL_下拉清單載入1()
     End Sub
     Private Sub 適應症選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         醫生_tb.Text = PA
@@ -25,6 +24,31 @@
     Private Sub 適應症選擇_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         LoginForm1.Close()
     End Sub
+    Private Sub 適應症選擇()
+        TreeView1.Nodes.Clear() : Dim 主項數量 As Integer = -1 : Dim 症狀 As String = ""
+        For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
+            If 症狀 <> 適應症_dgv("適應症", I).Value.ToString Then
+                TreeView1.Nodes.Add(適應症_dgv("適應症", I).Value.ToString) : 症狀 = 適應症_dgv("適應症", I).Value.ToString : 主項數量 += 1
+            End If
+            If 症狀 = 適應症_dgv("適應症", I).Value.ToString Then
+                TreeView1.Nodes(主項數量).Nodes.Add(適應症_dgv("治療建議", I).Value.ToString)
+            End If
+        Next
+    End Sub
+    Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick  ' 判斷是否點擊在 CheckBox 的範圍內
+        If e.Node.Bounds.Contains(e.Location) Then                                                                             ' 判斷是否為第二層節點
+            If e.Node.Parent IsNot Nothing Then : e.Node.Checked = Not e.Node.Checked : End If                                 ' 切換 CheckBox 的勾選狀態
+        Else                                                                                                                   ' 如果是第一層節點，判斷是否已經展開
+            If e.Node.IsExpanded Then : e.Node.Expand()                                                                        ' 如果已經展開，則收合
+            Else : e.Node.Collapse() : End If                                                                                  ' 如果未展開，則展開
+        End If
+    End Sub
+    Private Sub CheckChildNodes(parentNode As TreeNode)
+        For Each childNode As TreeNode In parentNode.Nodes
+            If childNode.Checked Then : PA1 = childNode.Text : SQL_銷售明細新增() : End If
+            If childNode.Nodes.Count > 0 Then : CheckChildNodes(childNode) : End If            ' 如果有子節點，遞迴檢查
+        Next
+    End Sub
     Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
         If 病歷號_tb.Text = "" Then
             MsgBox("病歷號 沒有填寫!!")
@@ -32,12 +56,7 @@
             Dim 流水號 As String = "" : Dim 流水 As Integer : SQL_查詢銷售()
             If dr.Read Then
                 PA = dr("流水號").ToString : SQL_銷售明細刪除()
-                For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
-                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
-                    If CheckBoxs.Checked = True Then
-                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
-                    End If
-                Next
+                For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
             Else
                 SQL_銷售流水號()
                 If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
@@ -50,20 +69,36 @@
                 ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "PO" & "0" & 流水
                 ElseIf 流水 > 9999999 Then : 流水號 = "PO" & 流水 : End If : PA = 流水號
                 SQL_銷售控制新增() : SQL_銷售明細刪除()
-                For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
-                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
-                    If CheckBoxs.Checked = True Then
-                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
-                    End If
-                Next
+                For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
             End If
-
             MsgBox("資料傳遞 至 業務系統 完成!!")
-            病歷號_tb.Text = ""
-            For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
-                Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
-                CheckBoxs.Checked = False
-            Next
+            病歷號_tb.Text = "" : 適應症選擇()
+        End If
+    End Sub
+    Private Sub 病症_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 病症_cb.SelectedIndexChanged
+        療程_cb.Text = "" : SQL_下拉清單載入2()
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 病症_cb.Text = "" Or 病症_cb.Text = "" Then : MsgBox("資料空白無法執行!!") : Else
+            SQL_適應症流水()
+            If dr.Read Then : MsgBox("資料已存在不需要重複新增!!") : Else
+                Dim 流水號 As String = "" : Dim 流水 As Integer
+                SQL_適應症流水1()
+                If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
+                If 流水 < 10 Then : 流水號 = "IN" & "0000000" & 流水
+                ElseIf 流水 > 9 And 流水 < 100 Then : 流水號 = "IN" & "000000" & 流水
+                ElseIf 流水 > 99 And 流水 < 1000 Then : 流水號 = "IN" & "00000" & 流水
+                ElseIf 流水 > 999 And 流水 < 10000 Then : 流水號 = "IN" & "0000" & 流水
+                ElseIf 流水 > 9999 And 流水 < 100000 Then : 流水號 = "IN" & "000" & 流水
+                ElseIf 流水 > 99999 And 流水 < 1000000 Then : 流水號 = "IN" & "00" & 流水
+                ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "IN" & "0" & 流水
+                ElseIf 流水 > 9999999 Then : 流水號 = "IN" & 流水 : End If : PA = 流水號
+                SQL_適應症新增1() : Set_適應症設定()
+            End If
         End If
     End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        Dim cc As MsgBoxResult = MsgBox("確定要刪除這筆適應症資料嗎??", MsgBoxStyle.OkCancel)
+        If cc = MsgBoxResult.Ok Then : SQL_適應症刪除1() : Set_適應症設定() : End If
+    End Sub
 End Class

GRAMS-SYS/10、系統管理/系統設定.vb

@@ -8,13 +8,13 @@
         da.Fill(ds2) : 醫師_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_適應症設定()
-        Dim ds2 As New DataSet
-        適應症_dgv.DataSource = Nothing : ds2.Clear()
-        適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
-        SQL_適應症設定()
-        da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
-        適應症_dgv.Columns(0).FillWeight = 30
+        'Dim ds2 As New DataSet
+        '適應症_dgv.DataSource = Nothing : ds2.Clear()
+        '適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        '適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
+        'SQL_適應症設定()
+        'da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        '適應症_dgv.Columns(0).FillWeight = 30
     End Sub
     Private Sub Set_時段設定()
         Dim ds2 As New DataSet

GRAMS-SYS/HSKIN-MIS-SYS.Designer.vb

@@ -57,7 +57,10 @@ Partial Class GRAMS_SYS
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.到離職管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.薪資資料設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.薪資表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.業務管理系統_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.業務銷售控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.業績獎金計算表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.產品銷售分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.來客資料分析表_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -78,7 +81,6 @@ Partial Class GRAMS_SYS
         Me.FTP清單_dgv = New System.Windows.Forms.DataGridView()
         Me.加班單_dgv = New System.Windows.Forms.DataGridView()
         Me.休假單_dgv = New System.Windows.Forms.DataGridView()
-        Me.薪資表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -286,81 +288,100 @@ Partial Class GRAMS_SYS
         '
         Me.考勤明細表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
         Me.考勤明細表_tsm.Name = "考勤明細表_tsm"
-        Me.考勤明細表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.考勤明細表_tsm.Size = New System.Drawing.Size(146, 22)
         Me.考勤明細表_tsm.Text = "考勤明細表"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(143, 6)
         '
         '到離職管理_tsm
         '
         Me.到離職管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
         Me.到離職管理_tsm.Name = "到離職管理_tsm"
-        Me.到離職管理_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.到離職管理_tsm.Size = New System.Drawing.Size(146, 22)
         Me.到離職管理_tsm.Text = "到離職管理"
         '
         '薪資資料設定_tsm
         '
         Me.薪資資料設定_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
         Me.薪資資料設定_tsm.Name = "薪資資料設定_tsm"
-        Me.薪資資料設定_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.薪資資料設定_tsm.Size = New System.Drawing.Size(146, 22)
         Me.薪資資料設定_tsm.Text = "薪資資料設定"
         '
+        '薪資表_tsm
+        '
+        Me.薪資表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
+        Me.薪資表_tsm.Name = "薪資表_tsm"
+        Me.薪資表_tsm.Size = New System.Drawing.Size(146, 22)
+        Me.薪資表_tsm.Text = "薪資表"
+        '
         '業務管理系統_tsm
         '
-        Me.業務管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業績獎金計算表_tsm, Me.產品銷售分析表_tsm, Me.來客資料分析表_tsm, Me.人員貢獻分析表_tsm, Me.ToolStripSeparator24, Me.業務系統資料管理_tsm, Me.交易明細表導入_tsm})
+        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})
         Me.業務管理系統_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
         Me.業務管理系統_tsm.Name = "業務管理系統_tsm"
         Me.業務管理系統_tsm.Size = New System.Drawing.Size(107, 20)
         Me.業務管理系統_tsm.Text = "業務管理系統"
         '
+        '業務銷售控制表_tsm
+        '
+        Me.業務銷售控制表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
+        Me.業務銷售控制表_tsm.Name = "業務銷售控制表_tsm"
+        Me.業務銷售控制表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.業務銷售控制表_tsm.Text = "業務銷售控制表"
+        '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
+        '
         '業績獎金計算表_tsm
         '
         Me.業績獎金計算表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
         Me.業績獎金計算表_tsm.Name = "業績獎金計算表_tsm"
-        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.業績獎金計算表_tsm.Text = "業績獎金計算表"
         '
         '產品銷售分析表_tsm
         '
         Me.產品銷售分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
         Me.產品銷售分析表_tsm.Name = "產品銷售分析表_tsm"
-        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.產品銷售分析表_tsm.Text = "產品銷售分析表"
         '
         '來客資料分析表_tsm
         '
         Me.來客資料分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
         Me.來客資料分析表_tsm.Name = "來客資料分析表_tsm"
-        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.來客資料分析表_tsm.Text = "來客資料分析表"
         '
         '人員貢獻分析表_tsm
         '
         Me.人員貢獻分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
         Me.人員貢獻分析表_tsm.Name = "人員貢獻分析表_tsm"
-        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(180, 22)
         Me.人員貢獻分析表_tsm.Text = "人員貢獻分析表"
         '
         'ToolStripSeparator24
         '
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
-        Me.ToolStripSeparator24.Size = New System.Drawing.Size(167, 6)
+        Me.ToolStripSeparator24.Size = New System.Drawing.Size(177, 6)
         '
         '業務系統資料管理_tsm
         '
         Me.業務系統資料管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
         Me.業務系統資料管理_tsm.Name = "業務系統資料管理_tsm"
-        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(180, 22)
         Me.業務系統資料管理_tsm.Text = "業務系統資料管理"
         '
         '交易明細表導入_tsm
         '
         Me.交易明細表導入_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
         Me.交易明細表導入_tsm.Name = "交易明細表導入_tsm"
-        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(170, 22)
+        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(180, 22)
         Me.交易明細表導入_tsm.Text = "交易明細表導入"
         '
         '系統設定_tsm
@@ -461,13 +482,6 @@ Partial Class GRAMS_SYS
         Me.休假單_dgv.TabIndex = 667
         Me.休假單_dgv.Visible = False
         '
-        '薪資表_tsm
-        '
-        Me.薪資表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
-        Me.薪資表_tsm.Name = "薪資表_tsm"
-        Me.薪資表_tsm.Size = New System.Drawing.Size(180, 22)
-        Me.薪資表_tsm.Text = "薪資表"
-        '
         'GRAMS_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -553,4 +567,6 @@ Partial Class GRAMS_SYS
     Friend WithEvents 個人班表_tsm As ToolStripMenuItem
     Friend WithEvents 薪資資料設定_tsm As ToolStripMenuItem
     Friend WithEvents 薪資表_tsm As ToolStripMenuItem
+    Friend WithEvents 業務銷售控制表_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
 End Class

GRAMS-SYS/HSKIN-MIS-SYS.vb

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

GRAMS-SYS/HSKIN-MIS-SYS.vbproj

@@ -200,6 +200,12 @@
     <Compile Include="05、業務管理\業務系統資料管理.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="05、業務管理\業務銷售控制表.Designer.vb">
+      <DependentUpon>業務銷售控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="05、業務管理\業務銷售控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="05、業務管理\業績獎金計算表.Designer.vb">
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
     </Compile>
@@ -380,6 +386,9 @@
     <EmbeddedResource Include="05、業務管理\業務系統資料管理.resx">
       <DependentUpon>業務系統資料管理.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="05、業務管理\業務銷售控制表.resx">
+      <DependentUpon>業務銷售控制表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="05、業務管理\業績獎金計算表.resx">
       <DependentUpon>業績獎金計算表.vb</DependentUpon>
     </EmbeddedResource>

GRAMS-SYS/LoginForm1.Designer.vb

@@ -57,7 +57,7 @@ Partial Class LoginForm1
         'UsernameLabel
         '
         Me.UsernameLabel.BackColor = System.Drawing.Color.White
-        Me.UsernameLabel.Location = New System.Drawing.Point(66, 102)
+        Me.UsernameLabel.Location = New System.Drawing.Point(81, 102)
         Me.UsernameLabel.Name = "UsernameLabel"
         Me.UsernameLabel.Size = New System.Drawing.Size(195, 23)
         Me.UsernameLabel.TabIndex = 0
@@ -67,7 +67,7 @@ Partial Class LoginForm1
         'PasswordLabel
         '
         Me.PasswordLabel.BackColor = System.Drawing.Color.White
-        Me.PasswordLabel.Location = New System.Drawing.Point(66, 149)
+        Me.PasswordLabel.Location = New System.Drawing.Point(81, 149)
         Me.PasswordLabel.Name = "PasswordLabel"
         Me.PasswordLabel.Size = New System.Drawing.Size(195, 23)
         Me.PasswordLabel.TabIndex = 2
@@ -76,7 +76,7 @@ Partial Class LoginForm1
         '
         '密碼_tb
         '
-        Me.密碼_tb.Location = New System.Drawing.Point(367, 202)
+        Me.密碼_tb.Location = New System.Drawing.Point(382, 202)
         Me.密碼_tb.Name = "密碼_tb"
         Me.密碼_tb.Size = New System.Drawing.Size(53, 22)
         Me.密碼_tb.TabIndex = 1
@@ -84,7 +84,7 @@ Partial Class LoginForm1
         '
         'PasswordTextBox
         '
-        Me.PasswordTextBox.Location = New System.Drawing.Point(68, 169)
+        Me.PasswordTextBox.Location = New System.Drawing.Point(83, 169)
         Me.PasswordTextBox.MaxLength = 10
         Me.PasswordTextBox.Name = "PasswordTextBox"
         Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
@@ -93,7 +93,7 @@ Partial Class LoginForm1
         '
         'OK
         '
-        Me.OK.Location = New System.Drawing.Point(267, 107)
+        Me.OK.Location = New System.Drawing.Point(282, 107)
         Me.OK.Name = "OK"
         Me.OK.Size = New System.Drawing.Size(94, 41)
         Me.OK.TabIndex = 4
@@ -102,7 +102,7 @@ Partial Class LoginForm1
         'Cancel
         '
         Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Cancel.Location = New System.Drawing.Point(267, 150)
+        Me.Cancel.Location = New System.Drawing.Point(282, 150)
         Me.Cancel.Name = "Cancel"
         Me.Cancel.Size = New System.Drawing.Size(94, 41)
         Me.Cancel.TabIndex = 5
@@ -145,7 +145,7 @@ Partial Class LoginForm1
         '
         Me.Label2.AutoSize = True
         Me.Label2.BackColor = System.Drawing.Color.White
-        Me.Label2.Location = New System.Drawing.Point(215, 205)
+        Me.Label2.Location = New System.Drawing.Point(230, 205)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(146, 12)
         Me.Label2.TabIndex = 614
@@ -155,7 +155,7 @@ Partial Class LoginForm1
         '
         Me.Label1.AutoSize = True
         Me.Label1.BackColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(63, 205)
+        Me.Label1.Location = New System.Drawing.Point(78, 205)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(146, 12)
         Me.Label1.TabIndex = 613
@@ -180,7 +180,7 @@ Partial Class LoginForm1
         '
         Me.手動更新_cb.AutoSize = True
         Me.手動更新_cb.BackColor = System.Drawing.Color.White
-        Me.手動更新_cb.Location = New System.Drawing.Point(285, 224)
+        Me.手動更新_cb.Location = New System.Drawing.Point(300, 224)
         Me.手動更新_cb.Name = "手動更新_cb"
         Me.手動更新_cb.Size = New System.Drawing.Size(72, 16)
         Me.手動更新_cb.TabIndex = 638
@@ -191,7 +191,7 @@ Partial Class LoginForm1
         '
         Me.使用者_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.使用者_cb.FormattingEnabled = True
-        Me.使用者_cb.Location = New System.Drawing.Point(68, 126)
+        Me.使用者_cb.Location = New System.Drawing.Point(83, 126)
         Me.使用者_cb.Name = "使用者_cb"
         Me.使用者_cb.Size = New System.Drawing.Size(195, 20)
         Me.使用者_cb.TabIndex = 639

GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-b4371dd067a13eeb2d315dd0e58ad0714646416bafef762e26d844843940f40d
+8a15cd7fbe84bae7d993fbd735dfbae649189b875ce92b95aae1ea87c8d8e6c4

GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.FileListAbsolute.txt

@@ -117,3 +117,4 @@ D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.休假歷史
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.排班資料列印選擇.resources
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.適應症選擇.resources
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.醫師.resources
+D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.業務銷售控制表.resources