20240302備份

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

                        萬年曆 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 & "%')
+                      (人事請假單.請假類別 NOT LIKE N'離職')  AND (人事請假單.員工編號 LIKE N'" & PA & "%')
                 ORDER BY ras_Users.UserName, 人事請假單.日期"
         CmdSet_For_DGV()
     End Sub

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

         conn.Close()
     End Sub
     Private Sub 班表鎖定變化()
-        If 鎖定_bt.Enabled = False Then
-            存檔_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False
-            For no As Integer = 1 To 20
-                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)
-                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
-                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
-                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
-            Next
-        Else
+        If gUserName = "*系統管理者" Then
             存檔_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                 Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                 姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
             Next
+        Else
+            If 鎖定_bt.Enabled = False Then
+                存檔_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
+                Next
+            Else
+                存檔_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
+                Next
+            End If
         End If
     End Sub
     Private Sub 進度條變化1()
         行(9) = 行(8) + 行(0) : 行(10) = 行(9) + 行(0) : 行(11) = 行(10) + 行(0) : 行(12) = 行(11) + 行(0) : 行(13) = 行(12) + 行(0) : 行(14) = 行(13) + 行(0) : 行(15) = 行(14) + 行(0)
         行(16) = 行(15) + 行(0) : 行(17) = 行(16) + 行(0) : 行(18) = 行(17) + 行(0) : 行(19) = 行(18) + 行(0) : 行(20) = 行(19) + 行(0)
         '--------------複製權限---------------------------
-        If CC(17) = False Then
-            存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
-            For no As Integer = 1 To 20
-                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)
-                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
-                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
-                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
-            Next
-        Else
+        If gUserName = "*系統管理者" Then
             存檔_bt.Enabled = True : 複製班表_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True : 複製班表_bt.Enabled = True
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                 Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                 姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
             Next
+        Else
+            If CC(17) = False Then
+                存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
+                Next
+            Else
+                存檔_bt.Enabled = True : 複製班表_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True : 複製班表_bt.Enabled = True
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
+                Next
+            End If
         End If
         年_lb.Text = PA : 月_lb.Text = PA1
     End Sub

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

         conn.Close()
     End Sub
     Private Sub 班表鎖定變化()
-        If 鎖定_bt.Enabled = False Then
-            存檔_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False
-            For no As Integer = 1 To 20
-                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)
-                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
-                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
-                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
-            Next
-        Else
+        If gUserName = "*系統管理者" Then
             存檔_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                 Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                 姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
             Next
+        Else
+            If 鎖定_bt.Enabled = False Then
+                存檔_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
+                Next
+            Else
+                存檔_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
+                Next
+            End If
         End If
     End Sub
     Private Sub 進度條變化1()
         行(9) = 行(8) + 行(0) : 行(10) = 行(9) + 行(0) : 行(11) = 行(10) + 行(0) : 行(12) = 行(11) + 行(0) : 行(13) = 行(12) + 行(0) : 行(14) = 行(13) + 行(0) : 行(15) = 行(14) + 行(0)
         行(16) = 行(15) + 行(0) : 行(17) = 行(16) + 行(0) : 行(18) = 行(17) + 行(0) : 行(19) = 行(18) + 行(0) : 行(20) = 行(19) + 行(0)
         '--------------複製權限---------------------------
-        If CC(17) = False Then
-            存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
-            For no As Integer = 1 To 20
-                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)
-                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
-                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
-                姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
-            Next
-        Else
+        If gUserName = "*系統管理者" Then
             存檔_bt.Enabled = True : 複製班表_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True : 複製班表_bt.Enabled = True
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                 Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                 姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
             Next
+        Else
+            If CC(17) = False Then
+                存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = False : 班別_cbS.Enabled = False : CheckBoxS.Enabled = False : NumericUpDownS.Enabled = False : NUPS.Enabled = False
+                Next
+            Else
+                存檔_bt.Enabled = True : 複製班表_bt.Enabled = True : 人員_dgv.Enabled = True : 全_ch.Enabled = True : 複製班表_bt.Enabled = True
+                For no As Integer = 1 To 20
+                    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)
+                    Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
+                    Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
+                    姓名_tbS.Enabled = True : 班別_cbS.Enabled = True : CheckBoxS.Enabled = True : NumericUpDownS.Enabled = True : NUPS.Enabled = True
+                Next
+            End If
         End If
         年_lb.Text = PA : 月_lb.Text = PA1
     End Sub

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

         '
         'Button1
         '
-        Me.Button1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button1.Location = New System.Drawing.Point(3, 99)
         Me.Button1.Name = "Button1"
         '
         '事由_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.Location = New System.Drawing.Point(54, 54)
         Me.事由_tb.Multiline = True
         Me.事由_tb.Name = "事由_tb"
         '
         '假期統計_dgv
         '
-        Me.假期統計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top 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
         '
         'Label8
         '
-        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
         Me.Label8.Location = New System.Drawing.Point(552, 2)
         Me.Label8.Name = "Label8"

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

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 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()
         '
         '月清單_DGV
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Gainsboro
-        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Gainsboro
+        Me.月清單_DGV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         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(2, 125)
+        Me.月清單_DGV.Location = New System.Drawing.Point(155, 125)
         Me.月清單_DGV.Name = "月清單_DGV"
         Me.月清單_DGV.RowHeadersWidth = 5
         Me.月清單_DGV.RowTemplate.Height = 24
         '
         '事由_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.Location = New System.Drawing.Point(52, 54)
+        Me.事由_tb.Location = New System.Drawing.Point(205, 54)
         Me.事由_tb.Multiline = True
         Me.事由_tb.Name = "事由_tb"
         Me.事由_tb.Size = New System.Drawing.Size(367, 69)
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(2, 57)
+        Me.Label7.Location = New System.Drawing.Point(155, 57)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(43, 16)
         Me.Label7.TabIndex = 799
         '請假日期_tb
         '
         Me.請假日期_tb.Enabled = False
-        Me.請假日期_tb.Location = New System.Drawing.Point(306, 3)
+        Me.請假日期_tb.Location = New System.Drawing.Point(459, 3)
         Me.請假日期_tb.Name = "請假日期_tb"
         Me.請假日期_tb.Size = New System.Drawing.Size(113, 23)
         Me.請假日期_tb.TabIndex = 798
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(244, 6)
+        Me.Label6.Location = New System.Drawing.Point(397, 6)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 797
-        Me.Label6.Text = "特假日期"
+        Me.Label6.Text = "請假日期"
         '
         '員工編號_tb
         '
         Me.員工編號_tb.Enabled = False
-        Me.員工編號_tb.Location = New System.Drawing.Point(306, 29)
+        Me.員工編號_tb.Location = New System.Drawing.Point(459, 29)
         Me.員工編號_tb.Name = "員工編號_tb"
         Me.員工編號_tb.Size = New System.Drawing.Size(113, 23)
         Me.員工編號_tb.TabIndex = 796
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(244, 32)
+        Me.Label4.Location = New System.Drawing.Point(397, 32)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 795
         '申請人_tb
         '
         Me.申請人_tb.Enabled = False
-        Me.申請人_tb.Location = New System.Drawing.Point(52, 29)
+        Me.申請人_tb.Location = New System.Drawing.Point(205, 29)
         Me.申請人_tb.Name = "申請人_tb"
         Me.申請人_tb.Size = New System.Drawing.Size(71, 23)
         Me.申請人_tb.TabIndex = 794
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(2, 32)
+        Me.Label3.Location = New System.Drawing.Point(155, 32)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 793
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(129, 32)
+        Me.Label1.Location = New System.Drawing.Point(282, 32)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 792
         Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.請假類別_cb.FormattingEnabled = True
         Me.請假類別_cb.Items.AddRange(New Object() {"特休", "病假", "婚嫁", "喪假", "事假"})
-        Me.請假類別_cb.Location = New System.Drawing.Point(167, 29)
+        Me.請假類別_cb.Location = New System.Drawing.Point(320, 29)
         Me.請假類別_cb.Name = "請假類別_cb"
         Me.請假類別_cb.Size = New System.Drawing.Size(71, 24)
         Me.請假類別_cb.TabIndex = 791
         Me.月份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.月份_cb.FormattingEnabled = True
         Me.月份_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
-        Me.月份_cb.Location = New System.Drawing.Point(167, 3)
+        Me.月份_cb.Location = New System.Drawing.Point(320, 3)
         Me.月份_cb.Name = "月份_cb"
         Me.月份_cb.Size = New System.Drawing.Size(71, 24)
         Me.月份_cb.TabIndex = 790
         Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.年份_cb.FormattingEnabled = True
         Me.年份_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
-        Me.年份_cb.Location = New System.Drawing.Point(52, 3)
+        Me.年份_cb.Location = New System.Drawing.Point(205, 3)
         Me.年份_cb.Name = "年份_cb"
         Me.年份_cb.Size = New System.Drawing.Size(71, 24)
         Me.年份_cb.TabIndex = 789
         'Label16
         '
         Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(129, 6)
+        Me.Label16.Location = New System.Drawing.Point(282, 6)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(31, 16)
         Me.Label16.TabIndex = 788
         'Label17
         '
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(3, 6)
+        Me.Label17.Location = New System.Drawing.Point(156, 6)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(40, 16)
         Me.Label17.TabIndex = 787
         '
         '人員_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        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
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.人員_dgv.BackgroundColor = System.Drawing.Color.White
         Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.人員_dgv.Location = New System.Drawing.Point(3, 36)
+        Me.人員_dgv.Location = New System.Drawing.Point(3, 1)
         Me.人員_dgv.Name = "人員_dgv"
         Me.人員_dgv.RowHeadersWidth = 5
         Me.人員_dgv.RowTemplate.Height = 24
-        Me.人員_dgv.Size = New System.Drawing.Size(80, 38)
+        Me.人員_dgv.Size = New System.Drawing.Size(149, 596)
         Me.人員_dgv.TabIndex = 786
-        Me.人員_dgv.Visible = False
         '
         'PictureBox2
         '
         Me.PictureBox2.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.Picture
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.PictureBox2.Location = New System.Drawing.Point(688, 2)
+        Me.PictureBox2.Location = New System.Drawing.Point(841, 2)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(392, 594)
         Me.PictureBox2.TabIndex = 1408
         '
         Me.Panel1.Controls.Add(Me.圖片流水號_tb)
         Me.Panel1.Controls.Add(Me.資料指定圖庫_tb)
-        Me.Panel1.Controls.Add(Me.人員_dgv)
-        Me.Panel1.Location = New System.Drawing.Point(110, 175)
+        Me.Panel1.Location = New System.Drawing.Point(263, 175)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(200, 100)
         Me.Panel1.TabIndex = 1409
         '
         '假期統計_dgv
         '
-        Me.假期統計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top 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(421, 2)
+        Me.假期統計_dgv.Location = New System.Drawing.Point(574, 2)
         Me.假期統計_dgv.Name = "假期統計_dgv"
         Me.假期統計_dgv.RowHeadersWidth = 5
         Me.假期統計_dgv.RowTemplate.Height = 24
         '
         '列印_bt
         '
-        Me.列印_bt.Location = New System.Drawing.Point(601, 1)
+        Me.列印_bt.Location = New System.Drawing.Point(754, 1)
         Me.列印_bt.Name = "列印_bt"
         Me.列印_bt.Size = New System.Drawing.Size(83, 122)
         Me.列印_bt.TabIndex = 1413
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1083, 600)
+        Me.ClientSize = New System.Drawing.Size(1238, 600)
         Me.Controls.Add(Me.列印_bt)
         Me.Controls.Add(Me.假期統計_dgv)
+        Me.Controls.Add(Me.人員_dgv)
         Me.Controls.Add(Me.PictureBox2)
         Me.Controls.Add(Me.事由_tb)
         Me.Controls.Add(Me.Label7)

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

         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("到職日").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
         月清單_DGV.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月清單_DGV.ColumnHeadersHeight = 40
         月清單_DGV.AllowUserToAddRows = False
-        PA = 年份_cb.Text & "/" & 月份_cb.Text : SQL_休假清單()
+        PA = 員工編號_tb.Text : SQL_休假清單()    'PA = 年份_cb.Text & "/" & 月份_cb.Text : 
         da.Fill(ds1) : 月清單_DGV.DataSource = ds1.Tables(0) : conn.Close()
 
         月清單_DGV.Columns(0).FillWeight = 80 : 月清單_DGV.Columns(1).FillWeight = 40 : 月清單_DGV.Columns(2).FillWeight = 90 : 月清單_DGV.Columns(3).FillWeight = 65
         月清單_DGV.Columns(4).FillWeight = 55 : 月清單_DGV.Columns(5).FillWeight = 150 : 月清單_DGV.Columns(6).FillWeight = 60 : 月清單_DGV.Columns(7).FillWeight = 80
         月清單_DGV.Columns(8).FillWeight = 80 : 月清單_DGV.Columns("圖片資料庫").Visible = False : 月清單_DGV.Columns("圖片編號").Visible = False
         月清單_DGV.Columns("申請時數").FillWeight = 50
+        If 月清單_DGV.Rows.Count > 0 Then
+            請假日期_tb.Text = 月清單_DGV("日期", 0).Value.ToString : Set_假期統計()
+        Else
+            假期統計_dgv.DataSource = Nothing
+        End If
     End Sub
     Private Sub Set_假期統計()
         Dim ds As New DataSet
     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 : 申請人_tb.Text = 人員_dgv("姓名", e.RowIndex).Value.ToString
-            Set_考勤明細()
+            Set_考勤明細() : 請假日期_tb.Text = 年份_cb.Text & "/" & 月份_cb.Text : Set_假期統計()
         End If
     End Sub
     Private Sub 月清單_DGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 月清單_DGV.CellClick
                 Else
                     PictureBox2.Image = Nothing
                 End If
-            End If : Set_假期統計()
+            End If
         End If
     End Sub
     Private Sub 月清單_DGV_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月清單_DGV.RowPostPaint

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

         Me.資料指定圖庫_tb = New System.Windows.Forms.TextBox()
         Me.檔案路徑2_tb = New System.Windows.Forms.TextBox()
         Me.預設圖片庫_tb = New System.Windows.Forms.TextBox()
+        Me.假期統計_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.月清單_DGV, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.Panel2.SuspendLayout()
+        CType(Me.假期統計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '月清單_DGV
         Me.人員_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
         Me.人員_dgv.RowHeadersWidth = 5
         Me.人員_dgv.RowTemplate.Height = 24
-        Me.人員_dgv.Size = New System.Drawing.Size(186, 595)
+        Me.人員_dgv.Size = New System.Drawing.Size(186, 475)
         Me.人員_dgv.TabIndex = 785
         '
         'PictureBox1
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.假期統計_dgv)
         Me.Panel1.Controls.Add(Me.Label5)
         Me.Panel1.Controls.Add(Me.請休假時數_cb)
         Me.Panel1.Controls.Add(Me.視窗2_pl)
         Me.預設圖片庫_tb.Size = New System.Drawing.Size(94, 22)
         Me.預設圖片庫_tb.TabIndex = 813
         '
+        '假期統計_dgv
+        '
+        Me.假期統計_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.假期統計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.假期統計_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.假期統計_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.假期統計_dgv.Location = New System.Drawing.Point(2, 477)
+        Me.假期統計_dgv.Name = "假期統計_dgv"
+        Me.假期統計_dgv.RowHeadersWidth = 5
+        Me.假期統計_dgv.RowTemplate.Height = 24
+        Me.假期統計_dgv.Size = New System.Drawing.Size(186, 120)
+        Me.假期統計_dgv.TabIndex = 1413
+        '
         '休假申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.Panel4.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
+        CType(Me.假期統計_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
     Friend WithEvents 預設圖片庫_tb As TextBox
     Friend WithEvents 請休假時數_cb As ComboBox
     Friend WithEvents Label5 As Label
+    Friend WithEvents 假期統計_dgv As DataGridView
 End Class

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

             ElseIf 月清單_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.LightYellow
             End If
-        Next
+        Next : 特假日期_tb.Text = 月清單_DGV("日期", 0).Value.ToString : Set_假期統計()
+    End Sub
+    Private Sub Set_假期統計()
+        Dim ds As New DataSet
+        假期統計_dgv.DataSource = Nothing : ds.Clear()
+        假期統計_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        假期統計_dgv.ColumnHeadersHeight = 25
+        假期統計_dgv.AllowUserToAddRows = False
+        PA = 員工編號_tb.Text : PA1 = 特假日期_tb.Text : 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
         Panel2.SendToBack() : 視窗2_pl.Visible = False : 剛開啟 = True

GRAMS-SYS/10、系統管理/系統使用者管理.vb

         For i As Integer = 1 To 權限數量
             使用者清單_dgv.Columns(i + 3).Visible = False
         Next
-        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1   'UserName
+        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
+            If IsDBNull(使用者清單_dgv.Rows(i).Cells("CC17").Value) Then
+                使用者清單_dgv.Rows(i).Cells("CC17").Value = False
+            End If
             If 使用者清單_dgv.Rows(i).Cells("CC17").Value = True Then
                 使用者清單_dgv.Rows(i).Cells("Password").Value = "******"
             End If