HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 Commits
1 Branch
Tree: ffdb5b9c73
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/考勤打卡/考勤明細表.vb

考勤明細表.vb 181KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767 
  1. Option Explicit On

  2. Imports System.IO

  3. Imports Microsoft.Office.Interop.Excel.Constants

  4. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  5. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  6. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  7. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  8. Imports Microsoft.Office.Interop.Excel.XlWindowState

  9. Imports Microsoft.Office.Interop.Excel

  10. Public Class 考勤明細表

  11.     Dim xlApp As Application

  12.     Dim xlBook As Workbook

  13.     Dim xlSheet As Worksheet

  14.     Dim 暫時不開 As Boolean

  15.     Dim 時段(6), 計算(6), X1 As String

  16.     Dim 間隔1, 時長, 總時, VBN, CBN As Integer

  17.     Dim RI As Integer = -1

  18.     Dim SK As String = "要查找的 KEY"

  19.     Dim Str As String = System.Windows.Forms.Application.StartupPath

  20.     DIM 對話框(40) As String

  21.     Private Sub Set_萬年曆()

  22.         Dim ds1 As New DataSet

  23.         萬年曆_dgv.DataSource = Nothing : ds1.Clear()

  24.         萬年曆_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  25.         萬年曆_dgv.ColumnHeadersHeight = 25 : 萬年曆_dgv.AllowUserToAddRows = False : 萬年曆_dgv.RowTemplate.Height = 25

  26. 

  27.         SQL_萬年曆()

  28.         da.Fill(ds1) : 萬年曆_dgv.DataSource = ds1.Tables(0) : conn.Close()

  29.         萬年曆_dgv.Columns(0).Visible = False : 萬年曆_dgv.Columns(表頭(18)).FillWeight = 70

  30.         萬年曆_dgv.Columns(1).ReadOnly = True : 萬年曆_dgv.Columns(2).ReadOnly = True

  31.         For i As Integer = 0 To 萬年曆_dgv.Rows.Count - 1

  32.             If IsDBNull(萬年曆_dgv.Rows(i).Cells(表頭(18)).Value) Then : 萬年曆_dgv.Rows(i).Cells(表頭(18)).Value = False : End If

  33.             If 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期一" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(0)

  34.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期二" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(1)

  35.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期三" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(2)

  36.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期四" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(3)

  37.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期五" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(4)

  38.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期六" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(5)

  39.             ElseIf 萬年曆_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" Then : 萬年曆_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(6)

  40.             End If

  41.             '-------------清單介面優化------------------------------------

  42.             If 深色風格 = False Then

  43.                 If 萬年曆_dgv.Rows(i).Cells(0).Value.ToString = "星期六" Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  44.                 ElseIf 萬年曆_dgv.Rows(i).Cells(0).Value.ToString = "星期日" Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If

  45.                 If 萬年曆_dgv.Rows(i).Cells(表頭(18)).Value = True Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If

  46.             Else

  47.                 If 萬年曆_dgv.Rows(i).Cells(0).Value.ToString = "星期六" Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  48.                 ElseIf 萬年曆_dgv.Rows(i).Cells(0).Value.ToString = "星期日" Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed : End If

  49.                 If 萬年曆_dgv.Rows(i).Cells(表頭(18)).Value = True Then : 萬年曆_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed : End If

  50.             End If

  51.         Next

  52.     End Sub

  53.     Private Sub Set_查詢表()

  54.         Dim ds1 As New DataSet

  55.         查詢表_dgv.DataSource = Nothing : ds1.Clear()

  56.         查詢表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  57.         查詢表_dgv.ColumnHeadersHeight = 25 : 查詢表_dgv.AllowUserToAddRows = False : 查詢表_dgv.RowTemplate.Height = 25

  58. 

  59.         PA15 = Strings.Format(日期1_dtp.Value, "yyyy/MM/dd") : PA25 = 部門1_cb.SelectedIndex : PA14 = 級別2_cb.Text : SQL_考勤查詢清單() : PA25 = ""

  60. 

  61.         da.Fill(ds1) : 查詢表_dgv.DataSource = ds1.Tables(0) : conn.Close()

  62.         查詢表_dgv.Columns(0).FillWeight = 180 : 查詢表_dgv.Columns(1).Visible = False : 查詢表_dgv.Columns(2).Visible = False : 查詢表_dgv.Columns(表頭(17)).FillWeight = 50

  63.         查詢表_dgv.Columns(表頭(1)).FillWeight = 50 : 查詢表_dgv.Columns(表頭(18)).FillWeight = 50 : 查詢表_dgv.Columns(表頭(26)).FillWeight = 85

  64.         查詢表_dgv.Columns(表頭(19)).FillWeight = 160

  65.         For I As Integer = 4 To 16 : 查詢表_dgv.Columns(表頭(I)).FillWeight = 70 : Next

  66. 

  67.         查詢表_dgv.Columns("第一").Visible = False : 查詢表_dgv.Columns("第二").Visible = False : 查詢表_dgv.Columns("第三").Visible = False

  68.         查詢表_dgv.Columns("第四").Visible = False : 查詢表_dgv.Columns("第五").Visible = False : 查詢表_dgv.Columns("第六").Visible = False

  69.         查詢表_dgv.Columns("假別編號").Visible = False

  70.         查詢表_dgv.Columns(表頭(18)).ReadOnly = True

  71. 

  72.         資料規格1() : 總時 = 0

  73.         For I As Integer = 4 To 9 : 查詢表_dgv.Columns(表頭(I)).Visible = True : Next : For I As Integer = 10 To 15 : 查詢表_dgv.Columns(表頭(I)).Visible = False : Next : 總時 = 0

  74.         For i As Integer = 0 To 查詢表_dgv.Rows.Count - 1

  75.             Dim 驗證 As String = "" : Dim 取變數 As String

  76.             取變數 = 查詢表_dgv.Rows(i).Cells(表頭(19)).Value.ToString : NN1 = 0

  77.             For ii As Integer = 1 To 20

  78.                 If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else

  79.                     If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If

  80.                 End If

  81.             Next

  82.             If 系統語言 = "繁體中文" Then : 查詢表_dgv.Rows(i).Cells(表頭(19)).Value = 驗證 : Else

  83.                 If Strings.Left(查詢表_dgv.Rows(i).Cells(表頭(19)).Value.ToString, 2) = "0." Then : 查詢表_dgv.Rows(i).Cells(表頭(19)).Value = "0.NA" : Else

  84.                     查詢表_dgv.Rows(i).Cells(表頭(19)).Value = Strings.Left(查詢表_dgv.Rows(i).Cells(表頭(19)).Value.ToString, 2) &

  85.                                                                  Strings.Mid(查詢表_dgv.Rows(i).Cells(表頭(19)).Value.ToString, NN1 + 2, 100)

  86.                 End If

  87.             End If

  88.             '-------------基本資料準備------------------------------------

  89.             If 工人_ch.Checked = True Then : 查詢表_dgv.Rows(i).Cells(表頭(17)).Value = True

  90.             Else : If IsDBNull(查詢表_dgv.Rows(i).Cells(表頭(17)).Value) Then : 查詢表_dgv.Rows(i).Cells(表頭(17)).Value = False : End If : End If

  91.             If IsDBNull(查詢表_dgv.Rows(i).Cells(表頭(18)).Value) Then : 查詢表_dgv.Rows(i).Cells(表頭(18)).Value = False : End If

  92.             If 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期一" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(0)

  93.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期二" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(1)

  94.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期三" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(2)

  95.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期四" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(3)

  96.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期五" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(4)

  97.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期六" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(5)

  98.             ElseIf 查詢表_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" Then : 查詢表_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(6)

  99.             End If

  100.             Dim DFG(6) As String : Dim CV As Integer = 1 : For V As Integer = 0 To 6 : DFG(V) = "" : Next

  101.             If 查詢表_dgv.Rows(i).Cells("第一").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第一").Value.ToString : CV += 1 : End If

  102.             If 查詢表_dgv.Rows(i).Cells("第二").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第二").Value.ToString : CV += 1 : End If

  103.             If 查詢表_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第三").Value.ToString : CV += 1 : End If

  104.             If 查詢表_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第四").Value.ToString : CV += 1 : End If

  105.             If 查詢表_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第五").Value.ToString : CV += 1 : End If

  106.             If 查詢表_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then : DFG(CV) = 查詢表_dgv.Rows(i).Cells("第六").Value.ToString : CV += 1 : End If

  107. 

  108.             時段(1) = DFG(1) : 時段(2) = DFG(2)

  109.             時段(3) = DFG(3) : 時段(4) = DFG(4)

  110.             時段(5) = DFG(5) : 時段(6) = DFG(6)

  111.             For II As Integer = 4 To 16 : 查詢表_dgv.Rows(i).Cells(表頭(II)).Value = "" : Next

  112. 

  113.             If 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = ""

  114.             ElseIf 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "1" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(9)

  115.             ElseIf 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "2" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(10)

  116.             ElseIf 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "3" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(11)

  117.             ElseIf 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "4" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(12)

  118.             ElseIf 查詢表_dgv.Rows(i).Cells("假別編號").Value.ToString = "5" Then : 查詢表_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(13)

  119.             End If

  120.             '-------------時間推移計算------------------------------------

  121.             If 時段(1) = "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  122.             ElseIf 時段(1) <> "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  123.                 X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  124.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  125.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  126.                 If 間隔1 >= 665 Then

  127.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  128.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(2)

  129.                     'X1 = 時段(1) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = X1 : 時段(2) = X1

  130.                     'X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1 : 時段(3) = X1

  131.                     'X1 = 時段(3) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = X1 : 時段(4) = X1

  132.                     'X1 = 時段(4) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = X1

  133.                     查詢表_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  134.                     查詢表_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  135.                     查詢表_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  136.                     查詢表_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  137.                 ElseIf 間隔1 >= 325 And 間隔1 < 665 Then

  138.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  139.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(2)

  140.                     'X1 = 時段(1) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = X1 : 時段(2) = X1

  141.                     'X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1 : 時段(3) = X1

  142.                     查詢表_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  143.                     查詢表_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  144.                 ElseIf 間隔1 < 325 Then

  145.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  146.                     X1 = 時段(1) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  147.                 End If

  148.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  149.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  150.                 If 間隔1 >= 665 Then          '---------大於十小時

  151.                     X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  152.                     If 間隔1 <= 325 Then

  153.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  154.                         X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  155.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  156.                         'X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1 : 時段(3) = X1

  157.                         'X1 = 時段(3) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = X1 : 時段(4) = X1

  158.                         'X1 = 時段(4) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = X1

  159.                         查詢表_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  160.                         查詢表_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  161.                         查詢表_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  162.                     ElseIf 間隔1 > 325 Then

  163.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  164.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  165.                         'X1 = 時段(1) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = X1 : 時段(2) = X1

  166.                         'X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1 : 時段(3) = X1

  167.                         'X1 = 時段(3) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = X1 : 時段(4) = X1

  168.                         'X1 = 時段(4) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = X1

  169.                         查詢表_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  170.                         查詢表_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  171.                         查詢表_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  172.                         查詢表_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  173.                     End If

  174.                 ElseIf 間隔1 > 325 And 間隔1 < 665 Then

  175.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  176.                     X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  177.                     'X1 = 時段(1) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = X1 : 時段(2) = X1

  178.                     'X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1 : 時段(3) = X1

  179.                     查詢表_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  180.                     查詢表_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  181.                 ElseIf 間隔1 >= 325 Then

  182.                     X1 = 時段(2) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  183.                     If 間隔1 >= 90 Then

  184.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  185.                         X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  186.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  187.                         X1 = 時段(2) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = X1

  188.                     Else

  189.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  190.                         X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  191.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1

  192.                     End If

  193.                 Else

  194.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  195.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  196.                     X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1

  197.                 End If

  198.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) = "" And 時段(6) = "" Then

  199.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(4) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  200.                 If 間隔1 >= 665 Then

  201.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  202.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  203.                     X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  204.                     X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(4)

  205.                     'X1 = 時段(3) : Set_時段定點_加四小時() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = X1 : 時段(4) = X1

  206.                     'X1 = 時段(4) : Set_時段定點_加一小時() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = X1

  207.                     查詢表_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  208.                     查詢表_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  209.                 Else

  210.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  211.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  212.                     X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  213.                     X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  214.                 End If

  215.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) = "" Then

  216.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  217.                 If 間隔1 >= 665 Then

  218.                     X1 = 時段(4) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  219.                     If 間隔1 >= 90 Then

  220.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  221.                         X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  222.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  223.                         X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  224.                         X1 = 時段(5) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  225.                         X1 = 時段(5) : Set_時段定點_減一小時() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = X1

  226.                     Else

  227.                         X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  228.                         X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  229.                         X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  230.                         X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  231.                         X1 = 時段(5) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  232.                     End If

  233.                 Else

  234.                     X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  235.                     X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  236.                     X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  237.                     X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  238.                     X1 = 時段(5) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  239.                 End If

  240.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) <> "" Then

  241.                 X1 = 時段(1) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  242.                 X1 = 時段(2) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  243.                 X1 = 時段(3) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  244.                 X1 = 時段(4) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  245.                 X1 = 時段(5) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  246.                 X1 = 時段(6) : Set_時段定點() : 查詢表_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 查詢表_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  247.             End If

  248.             '-------------時間彙總計算------------------------------------

  249.             時長 = 0

  250.             If 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  251.                    查詢表_dgv.Rows(i).Cells(表頭(12)).Value.ToString = "" And 查詢表_dgv.Rows(i).Cells(表頭(13)).Value.ToString = "" And

  252.                    查詢表_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 查詢表_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  253.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  254.                 If 時長 <= 8 Then : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : End If

  255.             ElseIf 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  256.                    查詢表_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  257.                    查詢表_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 查詢表_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  258.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  259.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  260.                 If 時長 <= 8 Then : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  261.                     If 查詢表_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  262.                         查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  263.                     Else

  264.                         If 時長 < 10 Then : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  265.                         Else : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  266.                     End If

  267.                 End If

  268.             ElseIf 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  269.                    查詢表_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  270.                    查詢表_dgv.Rows(i).Cells(表頭(14)).Value.ToString <> "" And 查詢表_dgv.Rows(i).Cells(表頭(15)).Value.ToString <> "" Then

  271.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  272.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  273.                 計算(0) = 查詢表_dgv.Rows(i).Cells(表頭(14)).Value.ToString : 計算(1) = 查詢表_dgv.Rows(i).Cells(表頭(15)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  274.                 If 時長 <= 8 Then : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  275.                     If 查詢表_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  276.                         查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  277.                     Else

  278.                         If 時長 < 10 Then : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  279.                         Else : 查詢表_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  280.                     End If

  281.                 End If

  282.             End If

  283.             '-------------清單介面優化------------------------------------

  284.             If 深色風格 = False Then

  285.                 If 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  286.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  287.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink

  288.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  289.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

  290.             Else

  291.                 If 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  292.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  293.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed

  294.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  295.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

  296.             End If

  297.         Next

  298.         查詢表_dgv.Columns(表頭(27)).FillWeight = 120

  299.     End Sub

  300.     Private Sub Set_使用者清單()

  301.         Dim ds1 As New DataSet

  302.         清單1_dgv.DataSource = Nothing : ds1.Clear()

  303.         清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  304.         清單1_dgv.ColumnHeadersHeight = 25 : 清單1_dgv.AllowUserToAddRows = False : 清單1_dgv.RowTemplate.Height = 25

  305.         If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 清單1_dgv.RowTemplate.Height = 75

  306.         ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 清單1_dgv.RowTemplate.Height = 45

  307.         ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 清單1_dgv.RowTemplate.Height = 25 : End If

  308. 

  309.         PA25 = 地區_cb.SelectedIndex : SQL3 = "" : PA14 = 級別_cb.Text : SQL_考勤明細表清單() : PA25 = ""

  310.         da.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()

  311.         清單1_dgv.Columns(0).FillWeight = 90 : 清單1_dgv.Columns(1).Visible = False : 清單1_dgv.Columns(2).Visible = False : 清單1_dgv.Columns(7).FillWeight = 20

  312.         清單1_dgv.Columns(4).Visible = False : 清單1_dgv.Columns(5).Visible = False : 清單1_dgv.Columns(6).Visible = False : 清單1_dgv.Columns(3).Visible = False

  313.         清單1_dgv.Columns(8).Visible = False : 清單1_dgv.Columns(9).Visible = False

  314.         清單1_dgv.Columns(0).ReadOnly = True : 清單1_dgv.Columns(3).ReadOnly = True

  315.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  316.             If 深色風格 = False Then

  317.                 If 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  318.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  319.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink

  320.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  321.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

  322.             Else

  323.                 If 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  324.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  325.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed

  326.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  327.                 ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

  328.             End If

  329.         Next

  330.         明細_dgv.DataSource = Nothing

  331.     End Sub

  332.     Private Sub Set_考勤彙總()

  333.         Dim ds1 As New DataSet

  334.         考勤彙總_dgv.DataSource = Nothing : ds1.Clear()

  335.         考勤彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  336.         考勤彙總_dgv.ColumnHeadersHeight = 25 : 考勤彙總_dgv.AllowUserToAddRows = False : 考勤彙總_dgv.RowTemplate.Height = 25

  337.         If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 考勤彙總_dgv.RowTemplate.Height = 75

  338.         ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 考勤彙總_dgv.RowTemplate.Height = 45

  339.         ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 考勤彙總_dgv.RowTemplate.Height = 25 : End If

  340. 

  341.         PA25 = 地區1_cb.SelectedIndex : PA14 = 級別1_cb.Text : SQL_考勤明細表清單() : PA25 = ""

  342.         da.Fill(ds1) : 考勤彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()

  343.         考勤彙總_dgv.Columns(0).FillWeight = 120 : 考勤彙總_dgv.Columns(7).FillWeight = 30 : 考勤彙總_dgv.Columns(表頭(20)).FillWeight = 50

  344.         考勤彙總_dgv.Columns(表頭(21)).FillWeight = 50 : 考勤彙總_dgv.Columns(表頭(22)).FillWeight = 50

  345.         考勤彙總_dgv.Columns("ID卡號").Visible = False : 考勤彙總_dgv.Columns(0).ReadOnly = True : 考勤彙總_dgv.Columns(3).ReadOnly = True

  346.         考勤彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  347.         考勤彙總_dgv.Columns(表頭(20)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  348.         考勤彙總_dgv.Columns(表頭(21)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  349.         考勤彙總_dgv.Columns(表頭(22)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  350.         Dim 上班天數, 總時間 As Integer

  351.         For i As Integer = 0 To 考勤彙總_dgv.Rows.Count - 1

  352.             考勤彙總_dgv.Rows(i).Cells(表頭(20)).Value = "" : 考勤彙總_dgv.Rows(i).Cells(表頭(21)).Value = ""

  353.             If 深色風格 = False Then

  354.                 If 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  355.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  356.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink

  357.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  358.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

  359.             Else

  360.                 If 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  361.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  362.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed

  363.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  364.                 ElseIf 考勤彙總_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 考勤彙總_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

  365.             End If

  366. 

  367.             Dim 驗證 As String = "" : Dim 取變數 As String

  368.             取變數 = 考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value.ToString : NN1 = 0

  369.             For ii As Integer = 1 To 20

  370.                 If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : NN1 += 1 : Else

  371.                     If Strings.Mid(取變數, ii, 1) = " " Then : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : NN1 += 1 : End If

  372.                 End If

  373.             Next

  374.             If 系統語言 = "繁體中文" Then : 考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value = 驗證 : Else

  375.                 If Strings.Left(考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value.ToString, 2) = "0." Then : 考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value = "0.NA" : Else

  376.                     考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value = Strings.Left(考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value.ToString, 2) &

  377.                                                                  Strings.Mid(考勤彙總_dgv.Rows(i).Cells(表頭(19)).Value.ToString, NN1 + 2, 100)

  378.                 End If

  379.             End If

  380.             If 考勤彙總_dgv.Rows(i).Cells("ID卡號").Value.ToString <> "" Then

  381.                 上班天數 = 0 : 總時間 = 0

  382.                 For II As Integer = 0 To 總清單_dgv.Rows.Count - 1

  383.                     If 考勤彙總_dgv.Rows(i).Cells("ID卡號").Value.ToString = 總清單_dgv.Rows(II).Cells("ID卡號").Value.ToString Then

  384.                         If 總清單_dgv.Rows(II).Cells(表頭(16)).Value.ToString <> "" And Strings.Left(總清單_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2) <> "00" Then

  385.                             上班天數 += 1

  386.                             總時間 += CInt(Strings.Left(總清單_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2))

  387.                         End If

  388.                     End If

  389.                 Next

  390. 

  391.                 考勤彙總_dgv.Rows(i).Cells(表頭(20)).Value = 上班天數

  392.                 If 總時間 < 10 Then : 考勤彙總_dgv.Rows(i).Cells(表頭(21)).Value = "0" & 總時間 & " H 00 M" : Else : 考勤彙總_dgv.Rows(i).Cells(表頭(21)).Value = 總時間 & " H 00 M" : End If

  393.             End If

  394.         Next

  395.     End Sub

  396.     Private Sub Set_總清單()

  397.         Dim ds1 As New DataSet

  398.         總清單_dgv.DataSource = Nothing : ds1.Clear()

  399.         總清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  400.         總清單_dgv.ColumnHeadersHeight = 25 : 總清單_dgv.AllowUserToAddRows = False : 總清單_dgv.RowTemplate.Height = 25

  401. 

  402.         PA25 = 地區_cb.SelectedIndex : SQL_考勤總明細() : PA25 = ""

  403.         da.Fill(ds1) : 總清單_dgv.DataSource = ds1.Tables(0) : conn.Close()

  404.         總清單_dgv.Columns(表頭(17)).FillWeight = 70 : 總清單_dgv.Columns(表頭(18)).FillWeight = 70

  405.         總清單_dgv.Columns("第一").Visible = False : 總清單_dgv.Columns("第二").Visible = False : 總清單_dgv.Columns("第三").Visible = False

  406.         總清單_dgv.Columns("第四").Visible = False : 總清單_dgv.Columns("第五").Visible = False : 總清單_dgv.Columns("第六").Visible = False

  407. 

  408.         For I As Integer = 4 To 9 : 總清單_dgv.Columns(表頭(I)).Visible = False : Next : For I As Integer = 10 To 15 : 總清單_dgv.Columns(表頭(I)).Visible = True : Next : 總時 = 0

  409.         For i As Integer = 0 To 總清單_dgv.Rows.Count - 1

  410.             '-------------基本資料準備------------------------------------

  411.             If 工人_ch.Checked = True Then : 總清單_dgv.Rows(i).Cells(表頭(17)).Value = True

  412.             Else : If IsDBNull(總清單_dgv.Rows(i).Cells(表頭(17)).Value) Then : 總清單_dgv.Rows(i).Cells(表頭(17)).Value = False : End If : End If

  413.             If IsDBNull(總清單_dgv.Rows(i).Cells(表頭(18)).Value) Then : 總清單_dgv.Rows(i).Cells(表頭(18)).Value = False : End If

  414.             If 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期一" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(0)

  415.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期二" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(1)

  416.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期三" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(2)

  417.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期四" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(3)

  418.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期五" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(4)

  419.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期六" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(5)

  420.             ElseIf 總清單_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" Then : 總清單_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(6)

  421.             End If

  422.             Dim DFG(6) As String : Dim CV As Integer = 1 : For V As Integer = 0 To 6 : DFG(V) = "" : Next

  423.             If 總清單_dgv.Rows(i).Cells("第一").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第一").Value.ToString : CV += 1 : End If

  424.             If 總清單_dgv.Rows(i).Cells("第二").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第二").Value.ToString : CV += 1 : End If

  425.             If 總清單_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第三").Value.ToString : CV += 1 : End If

  426.             If 總清單_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第四").Value.ToString : CV += 1 : End If

  427.             If 總清單_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第五").Value.ToString : CV += 1 : End If

  428.             If 總清單_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第六").Value.ToString : CV += 1 : End If

  429. 

  430.             時段(1) = DFG(1) : 時段(2) = DFG(2)

  431.             時段(3) = DFG(3) : 時段(4) = DFG(4)

  432.             時段(5) = DFG(5) : 時段(6) = DFG(6)

  433.             For II As Integer = 4 To 16 : 總清單_dgv.Rows(i).Cells(表頭(II)).Value = "" : Next

  434.             '-------------時間推移計算------------------------------------

  435.             If 時段(1) = "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  436.             ElseIf 時段(1) <> "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  437.                 X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  438.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  439.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  440.                 If 間隔1 >= 665 Then

  441.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  442.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(2)

  443.                     總清單_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  444.                     總清單_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  445.                     總清單_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  446.                     總清單_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  447.                 ElseIf 間隔1 >= 325 And 間隔1 < 665 Then

  448.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  449.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(2)

  450.                     總清單_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  451.                     總清單_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  452.                 ElseIf 間隔1 < 325 Then

  453.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  454.                     X1 = 時段(1) : Set_時段定點_加四小時() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  455.                 End If

  456.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  457.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  458.                 If 間隔1 >= 665 Then          '---------大於十小時

  459.                     X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  460.                     If 間隔1 <= 325 Then

  461.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  462.                         X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  463.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  464.                         總清單_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  465.                         總清單_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  466.                         總清單_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  467.                     ElseIf 間隔1 > 325 Then

  468.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  469.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  470.                         總清單_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  471.                         總清單_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  472.                         總清單_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  473.                         總清單_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  474.                     End If

  475.                 ElseIf 間隔1 > 325 And 間隔1 < 625 Then

  476.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  477.                     X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  478.                     總清單_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  479.                     總清單_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  480.                 ElseIf 間隔1 >= 325 Then

  481.                     X1 = 時段(2) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  482.                     If 間隔1 >= 90 Then

  483.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  484.                         X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  485.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  486.                         X1 = 時段(2) : Set_時段定點_加一小時() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = X1

  487.                     Else

  488.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  489.                         X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  490.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1

  491.                     End If

  492.                 Else

  493.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  494.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  495.                     X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1

  496.                 End If

  497.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) = "" And 時段(6) = "" Then

  498.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(4) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  499.                 If 間隔1 >= 665 Then

  500.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  501.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  502.                     X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  503.                     X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(4)

  504.                     總清單_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  505.                     總清單_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  506.                 Else

  507.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  508.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  509.                     X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  510.                     X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  511.                 End If

  512.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) = "" Then

  513.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  514.                 If 間隔1 >= 665 Then

  515.                     X1 = 時段(4) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  516.                     If 間隔1 >= 90 Then

  517.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  518.                         X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  519.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  520.                         X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  521.                         X1 = 時段(5) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  522.                         X1 = 時段(5) : Set_時段定點_減一小時() : 總清單_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = X1

  523.                     Else

  524.                         X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  525.                         X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  526.                         X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  527.                         X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  528.                         X1 = 時段(5) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  529.                     End If

  530.                 Else

  531.                     X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  532.                     X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  533.                     X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  534.                     X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  535.                     X1 = 時段(5) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  536.                 End If

  537.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) <> "" Then

  538.                 X1 = 時段(1) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  539.                 X1 = 時段(2) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  540.                 X1 = 時段(3) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  541.                 X1 = 時段(4) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  542.                 X1 = 時段(5) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  543.                 X1 = 時段(6) : Set_時段定點() : 總清單_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 總清單_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  544.             End If

  545.             '-------------時間彙總計算------------------------------------

  546.             時長 = 0

  547.             If 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  548.                總清單_dgv.Rows(i).Cells(表頭(12)).Value.ToString = "" And 總清單_dgv.Rows(i).Cells(表頭(13)).Value.ToString = "" And

  549.                總清單_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 總清單_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  550.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  551.                 If 時長 <= 8 Then : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : End If

  552.             ElseIf 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  553.                總清單_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  554.                總清單_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 總清單_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  555.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  556.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  557.                 If 時長 <= 8 Then : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  558.                     If 總清單_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  559.                         總清單_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  560.                     Else

  561.                         If 時長 < 10 Then : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  562.                         Else : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  563.                     End If

  564.                 End If

  565.             ElseIf 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  566.                總清單_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  567.                總清單_dgv.Rows(i).Cells(表頭(14)).Value.ToString <> "" And 總清單_dgv.Rows(i).Cells(表頭(15)).Value.ToString <> "" Then

  568.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  569.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  570.                 計算(0) = 總清單_dgv.Rows(i).Cells(表頭(14)).Value.ToString : 計算(1) = 總清單_dgv.Rows(i).Cells(表頭(15)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  571.                 If 時長 <= 8 Then : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  572.                     If 總清單_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  573.                         總清單_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  574.                     Else

  575.                         If 時長 < 10 Then : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  576.                         Else : 總清單_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  577.                     End If

  578.                 End If

  579.             End If

  580.         Next

  581.         Set_考勤彙總()

  582.     End Sub

  583.     Private Sub Set_考勤明細()

  584.         Dim ds1 As New DataSet

  585.         明細_dgv.DataSource = Nothing : ds1.Clear()

  586.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  587.         明細_dgv.ColumnHeadersHeight = 25 : 明細_dgv.AllowUserToAddRows = False : 明細_dgv.RowTemplate.Height = 25

  588.         If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 明細_dgv.RowTemplate.Height = 75

  589.         ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 45

  590.         ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 25 : End If

  591.         SQL_考勤明細()

  592.         da.Fill(ds1) : 明細_dgv.DataSource = ds1.Tables(0) : conn.Close()

  593.         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 60 : 明細_dgv.Columns(2).FillWeight = 80 : 明細_dgv.Columns(表頭(17)).FillWeight = 50

  594.         明細_dgv.Columns(表頭(18)).FillWeight = 50 : 明細_dgv.Columns(表頭(26)).FillWeight = 85

  595.         For I As Integer = 4 To 16 : 明細_dgv.Columns(表頭(I)).FillWeight = 70 : Next

  596. 

  597.         明細_dgv.Columns("第一").Visible = False : 明細_dgv.Columns("第二").Visible = False : 明細_dgv.Columns("第三").Visible = False

  598.         明細_dgv.Columns("第四").Visible = False : 明細_dgv.Columns("第五").Visible = False : 明細_dgv.Columns("第六").Visible = False

  599.         明細_dgv.Columns("假別編號").Visible = False

  600.         明細_dgv.Columns(表頭(18)).ReadOnly = True

  601. 

  602.         資料規格() : 總時 = 0 : 總時數_tb.Text = ""

  603.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  604.             '-------------基本資料準備------------------------------------

  605.             If 工人_ch.Checked = True Then : 明細_dgv.Rows(i).Cells(表頭(17)).Value = True

  606.             Else : If IsDBNull(明細_dgv.Rows(i).Cells(表頭(17)).Value) Then : 明細_dgv.Rows(i).Cells(表頭(17)).Value = False : End If : End If

  607.             If IsDBNull(明細_dgv.Rows(i).Cells(表頭(18)).Value) Then : 明細_dgv.Rows(i).Cells(表頭(18)).Value = False : End If

  608.             If 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期一" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(0)

  609.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期二" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(1)

  610.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期三" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(2)

  611.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期四" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(3)

  612.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期五" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(4)

  613.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期六" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(5)

  614.             ElseIf 明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" Then : 明細_dgv.Rows(i).Cells(表頭(2)).Value = 對話框(6)

  615.             End If

  616.             Dim DFG(6) As String : Dim CV As Integer = 1 : For V As Integer = 0 To 6 : DFG(V) = "" : Next

  617.             If 明細_dgv.Rows(i).Cells("第一").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第一").Value.ToString : CV += 1 : End If

  618.             If 明細_dgv.Rows(i).Cells("第二").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第二").Value.ToString : CV += 1 : End If

  619.             If 明細_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第三").Value.ToString : CV += 1 : End If

  620.             If 明細_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第四").Value.ToString : CV += 1 : End If

  621.             If 明細_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第五").Value.ToString : CV += 1 : End If

  622.             If 明細_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then : DFG(CV) = 明細_dgv.Rows(i).Cells("第六").Value.ToString : CV += 1 : End If

  623. 

  624.             時段(1) = DFG(1) : 時段(2) = DFG(2)

  625.             時段(3) = DFG(3) : 時段(4) = DFG(4)

  626.             時段(5) = DFG(5) : 時段(6) = DFG(6)

  627.             For II As Integer = 4 To 16 : 明細_dgv.Rows(i).Cells(表頭(II)).Value = "" : Next

  628. 

  629.             If 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = ""

  630.             ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "1" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(9)

  631.             ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "2" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(10)

  632.             ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "3" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(11)

  633.             ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "4" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(12)

  634.             ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "5" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(13)

  635.             End If

  636.             '-------------時間推移計算------------------------------------

  637.             If 時段(1) = "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  638.             ElseIf 時段(1) <> "" And 時段(2) = "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  639.                 X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  640.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) = "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  641.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  642.                 If 間隔1 >= 665 Then

  643.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  644.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(2)

  645.                     明細_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 明細_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  646.                     明細_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 明細_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  647.                     明細_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 明細_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  648.                     明細_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 明細_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  649.                 ElseIf 間隔1 >= 325 And 間隔1 < 665 Then

  650.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  651.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(2)

  652.                     明細_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 明細_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  653.                     明細_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 明細_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  654.                 ElseIf 間隔1 < 325 Then

  655.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  656.                     X1 = 時段(1) : Set_時段定點_加四小時() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  657.                 End If

  658.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) = "" And 時段(5) = "" And 時段(6) = "" Then

  659.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  660.                 If 間隔1 >= 665 Then          '---------大於十小時

  661.                     X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(2) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  662.                     If 間隔1 <= 325 Then

  663.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  664.                         X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  665.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  666.                         明細_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 明細_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  667.                         明細_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 明細_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  668.                         明細_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 明細_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  669.                     ElseIf 間隔1 > 325 Then

  670.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  671.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(3)

  672.                         明細_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 明細_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  673.                         明細_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 明細_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  674.                         明細_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 明細_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  675.                         明細_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 明細_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  676.                     End If

  677.                 ElseIf 間隔1 > 325 And 間隔1 < 625 Then

  678.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  679.                     X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  680.                     明細_dgv.Rows(i).Cells(表頭(11)).Value = "12:00:00" : 明細_dgv.Rows(i).Cells(表頭(5)).Value = "12:00:00"

  681.                     明細_dgv.Rows(i).Cells(表頭(12)).Value = "13:00:00" : 明細_dgv.Rows(i).Cells(表頭(6)).Value = "13:00:00"

  682.                 ElseIf 間隔1 >= 325 Then

  683.                     X1 = 時段(2) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(3) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  684.                     If 間隔1 >= 90 Then

  685.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  686.                         X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  687.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(3)

  688.                         X1 = 時段(2) : Set_時段定點_加一小時() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = X1

  689.                     Else

  690.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  691.                         X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  692.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1

  693.                     End If

  694.                 Else

  695.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  696.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  697.                     X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1

  698.                 End If

  699.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) = "" And 時段(6) = "" Then

  700.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(4) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  701.                 If 間隔1 >= 665 Then

  702.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  703.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  704.                     X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  705.                     X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(4)

  706.                     明細_dgv.Rows(i).Cells(表頭(13)).Value = "17:00:00" : 明細_dgv.Rows(i).Cells(表頭(7)).Value = "17:00:00"

  707.                     明細_dgv.Rows(i).Cells(表頭(14)).Value = "18:00:00" : 明細_dgv.Rows(i).Cells(表頭(8)).Value = "18:00:00"

  708.                 Else

  709.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  710.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  711.                     X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  712.                     X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  713.                 End If

  714.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) = "" Then

  715.                 X1 = 時段(1) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  716.                 If 間隔1 >= 665 Then

  717.                     X1 = 時段(4) : Set_時段定點() : 計算(0) = X1 : X1 = 時段(5) : Set_時段定點() : 計算(1) = X1 : 時間比對()

  718.                     If 間隔1 >= 90 Then

  719.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  720.                         X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  721.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  722.                         X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  723.                         X1 = 時段(5) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  724.                         X1 = 時段(5) : Set_時段定點_減一小時() : 明細_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = X1

  725.                     Else

  726.                         X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  727.                         X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  728.                         X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  729.                         X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  730.                         X1 = 時段(5) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  731.                     End If

  732.                 Else

  733.                     X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  734.                     X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  735.                     X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  736.                     X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  737.                     X1 = 時段(5) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  738.                 End If

  739.             ElseIf 時段(1) <> "" And 時段(2) <> "" And 時段(3) <> "" And 時段(4) <> "" And 時段(5) <> "" And 時段(6) <> "" Then

  740.                 X1 = 時段(1) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(10)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(4)).Value = 時段(1)

  741.                 X1 = 時段(2) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(11)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(5)).Value = 時段(2)

  742.                 X1 = 時段(3) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(12)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(6)).Value = 時段(3)

  743.                 X1 = 時段(4) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(13)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(7)).Value = 時段(4)

  744.                 X1 = 時段(5) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(14)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(8)).Value = 時段(5)

  745.                 X1 = 時段(6) : Set_時段定點() : 明細_dgv.Rows(i).Cells(表頭(15)).Value = X1 : 明細_dgv.Rows(i).Cells(表頭(9)).Value = 時段(6)

  746.             End If

  747.             '-------------時間彙總計算------------------------------------

  748.             時長 = 0

  749.             If (明細_dgv.Rows(i).Cells(表頭(17)).Value = False And 明細_dgv.Rows(i).Cells(表頭(18)).Value = True) Or

  750.                (明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(i).Cells(表頭(17)).Value = False) Then

  751.                 明細_dgv.Rows(i).Cells(表頭(16)).Value = "00 H 00 M"

  752.             Else

  753.                 If 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  754.                    明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString = "" And

  755.                    明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  756.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  757.                     If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : End If

  758.                 ElseIf 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  759.                    明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  760.                    明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  761.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  762.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  763.                     If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  764.                         If 明細_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  765.                             明細_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  766.                         Else

  767.                             If 時長 < 10 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  768.                             Else : 明細_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  769.                         End If

  770.                     End If

  771.                 ElseIf 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  772.                    明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  773.                    明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString <> "" Then

  774.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  775.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  776.                     計算(0) = 明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  777.                     If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  778.                         If 明細_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  779.                             明細_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  780.                         Else

  781.                             If 時長 < 10 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  782.                             Else : 明細_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  783.                         End If

  784.                     End If

  785.                 End If

  786.                 If 明細_dgv.Rows(i).Cells(表頭(16)).Value.ToString <> "" Then

  787.                     總時 += CInt(Strings.Left(明細_dgv.Rows(i).Cells(表頭(16)).Value.ToString, 2))

  788.                     If 總時 < 10 Then : 總時數_tb.Text = "0" & 總時 & " H 00 M" : Else : 總時數_tb.Text = 總時 & " H 00 M" : End If

  789.                 End If

  790.             End If

  791.             '-------------清單介面優化------------------------------------

  792.             If 深色風格 = False Then

  793.                 If 明細_dgv.Rows(i).Cells(0).Value.ToString = "星期六" Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  794.                 ElseIf 明細_dgv.Rows(i).Cells(0).Value.ToString = "星期日" Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If

  795.                 If 明細_dgv.Rows(i).Cells(表頭(18)).Value = True Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If

  796.             Else

  797.                 If 明細_dgv.Rows(i).Cells(0).Value.ToString = "星期六" Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  798.                 ElseIf 明細_dgv.Rows(i).Cells(0).Value.ToString = "星期日" Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed : End If

  799.                 If 明細_dgv.Rows(i).Cells(表頭(18)).Value = True Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed : End If

  800.             End If

  801.         Next : 明細_dgv.Columns(表頭(27)).FillWeight = 120 : 明細_dgv.Columns("C_No").FillWeight = 50

  802.         'Set_明細_dgv_下拉式清單1() : 

  803.     End Sub

  804.     Private Sub Set_明細_dgv_下拉式清單1()

  805.         Dim Col As New DataGridViewComboBoxColumn With {

  806.             .FillWeight = 40,

  807.             .DataPropertyName = "假別編號"

  808.         }

  809.         Col.Items.Clear()

  810.         Col.Items.Add("") : Col.Items.Add("1") : Col.Items.Add("2") : Col.Items.Add("3") : Col.Items.Add("4") : Col.Items.Add("5")

  811.         Col.HeaderText = "C_No" : Col.Name = "C_No"

  812.         明細_dgv.Columns.Insert(27, Col)

  813.     End Sub

  814.     Private Sub 資料規格()

  815.         If 實際打卡_cb.Checked = True Then

  816.             For I As Integer = 4 To 9 : 明細_dgv.Columns(表頭(I)).Visible = True : Next : For I As Integer = 10 To 15 : 明細_dgv.Columns(表頭(I)).Visible = False : Next

  817.         Else

  818.             For I As Integer = 4 To 9 : 明細_dgv.Columns(表頭(I)).Visible = False : Next : For I As Integer = 10 To 15 : 明細_dgv.Columns(表頭(I)).Visible = True : Next

  819.         End If

  820.     End Sub

  821.     Private Sub 資料規格1()

  822.         If 實際打卡_cb.Checked = True Then

  823.             For I As Integer = 4 To 9 : 查詢表_dgv.Columns(表頭(I)).Visible = True : Next : For I As Integer = 10 To 15 : 查詢表_dgv.Columns(表頭(I)).Visible = False : Next

  824.         Else

  825.             For I As Integer = 4 To 9 : 查詢表_dgv.Columns(表頭(I)).Visible = False : Next : For I As Integer = 10 To 15 : 查詢表_dgv.Columns(表頭(I)).Visible = True : Next

  826.         End If

  827.     End Sub

  828.     Private Sub 時間比對()

  829.         Dim dateA As Date = Date.ParseExact("[" & 計算(0) & "]", "[HH:mm:ss]", Nothing)

  830.         Dim dateB As Date = Date.ParseExact("[" & 計算(1) & "]", "[HH:mm:ss]", Nothing)

  831.         Dim hoursDiff As Integer = DateDiff(DateInterval.Minute, dateA, dateB)

  832.         間隔1 = Math.Abs(hoursDiff)

  833.     End Sub

  834.     Private Sub Set_時段定點()

  835.         Dim 時 As String = Strings.Left(X1, 2) : Dim 分 As String = Strings.Mid(X1, 4, 2)

  836.         If (時 = "23" And CInt(分) >= 30) Or (時 = "00" And CInt(分) < 0) Then : X1 = "23:59:59" : ElseIf (時 = "00" And CInt(分) >= 30) Or (時 = "01" And CInt(分) < 30) Then : X1 = "01:00:00"

  837.         ElseIf (時 = "01" And CInt(分) >= 30) Or (時 = "02" And CInt(分) < 30) Then : X1 = "02:00:00" : ElseIf (時 = "02" And CInt(分) >= 30) Or (時 = "03" And CInt(分) < 30) Then : X1 = "03:00:00"

  838.         ElseIf (時 = "03" And CInt(分) >= 30) Or (時 = "04" And CInt(分) < 30) Then : X1 = "04:00:00" : ElseIf (時 = "04" And CInt(分) >= 30) Or (時 = "05" And CInt(分) < 30) Then : X1 = "05:00:00"

  839.         ElseIf (時 = "05" And CInt(分) >= 30) Or (時 = "06" And CInt(分) < 30) Then : X1 = "06:00:00" : ElseIf (時 = "06" And CInt(分) >= 30) Or (時 = "07" And CInt(分) < 30) Then : X1 = "07:00:00"

  840.         ElseIf (時 = "07" And CInt(分) >= 30) Or (時 = "08" And CInt(分) < 30) Then : X1 = "08:00:00" : ElseIf (時 = "08" And CInt(分) >= 30) Or (時 = "09" And CInt(分) < 30) Then : X1 = "09:00:00"

  841.         ElseIf (時 = "09" And CInt(分) >= 30) Or (時 = "10" And CInt(分) < 30) Then : X1 = "10:00:00" : ElseIf (時 = "10" And CInt(分) >= 30) Or (時 = "11" And CInt(分) < 30) Then : X1 = "11:00:00"

  842.         ElseIf (時 = "11" And CInt(分) >= 30) Or (時 = "12" And CInt(分) < 30) Then : X1 = "12:00:00" : ElseIf (時 = "12" And CInt(分) >= 30) Or (時 = "13" And CInt(分) < 30) Then : X1 = "13:00:00"

  843.         ElseIf (時 = "13" And CInt(分) >= 30) Or (時 = "14" And CInt(分) < 30) Then : X1 = "14:00:00" : ElseIf (時 = "14" And CInt(分) >= 30) Or (時 = "15" And CInt(分) < 30) Then : X1 = "15:00:00"

  844.         ElseIf (時 = "15" And CInt(分) >= 30) Or (時 = "16" And CInt(分) < 30) Then : X1 = "16:00:00" : ElseIf (時 = "16" And CInt(分) >= 30) Or (時 = "17" And CInt(分) < 30) Then : X1 = "17:00:00"

  845.         ElseIf (時 = "17" And CInt(分) >= 30) Or (時 = "18" And CInt(分) < 30) Then : X1 = "18:00:00" : ElseIf (時 = "18" And CInt(分) >= 30) Or (時 = "19" And CInt(分) < 30) Then : X1 = "19:00:00"

  846.         ElseIf (時 = "19" And CInt(分) >= 30) Or (時 = "20" And CInt(分) < 30) Then : X1 = "20:00:00" : ElseIf (時 = "20" And CInt(分) >= 30) Or (時 = "21" And CInt(分) < 30) Then : X1 = "21:00:00"

  847.         ElseIf (時 = "21" And CInt(分) >= 30) Or (時 = "22" And CInt(分) < 30) Then : X1 = "22:00:00" : ElseIf (時 = "22" And CInt(分) >= 30) Or (時 = "23" And CInt(分) < 30) Then : X1 = "23:00:00"

  848.         End If

  849.     End Sub

  850.     Private Sub Set_時段定點_減一小時()

  851.         Dim 時 As String = Strings.Left(X1, 2) : Dim 分 As String = Strings.Mid(X1, 4, 2)

  852.         If (時 = "23" And CInt(分) >= 30) Or (時 = "00" And CInt(分) < 30) Then : X1 = "23:00:00" : ElseIf (時 = "00" And CInt(分) >= 30) Or (時 = "01" And CInt(分) < 30) Then : X1 = "00:00:00"

  853.         ElseIf (時 = "01" And CInt(分) >= 30) Or (時 = "02" And CInt(分) < 30) Then : X1 = "01:00:00" : ElseIf (時 = "02" And CInt(分) >= 30) Or (時 = "03" And CInt(分) < 30) Then : X1 = "02:00:00"

  854.         ElseIf (時 = "03" And CInt(分) >= 30) Or (時 = "04" And CInt(分) < 30) Then : X1 = "03:00:00" : ElseIf (時 = "04" And CInt(分) >= 30) Or (時 = "05" And CInt(分) < 30) Then : X1 = "04:00:00"

  855.         ElseIf (時 = "05" And CInt(分) >= 30) Or (時 = "06" And CInt(分) < 30) Then : X1 = "05:00:00" : ElseIf (時 = "06" And CInt(分) >= 30) Or (時 = "07" And CInt(分) < 30) Then : X1 = "06:00:00"

  856.         ElseIf (時 = "07" And CInt(分) >= 30) Or (時 = "08" And CInt(分) < 30) Then : X1 = "07:00:00" : ElseIf (時 = "08" And CInt(分) >= 30) Or (時 = "09" And CInt(分) < 30) Then : X1 = "08:00:00"

  857.         ElseIf (時 = "09" And CInt(分) >= 30) Or (時 = "10" And CInt(分) < 30) Then : X1 = "09:00:00" : ElseIf (時 = "10" And CInt(分) >= 30) Or (時 = "11" And CInt(分) < 30) Then : X1 = "10:00:00"

  858.         ElseIf (時 = "11" And CInt(分) >= 30) Or (時 = "12" And CInt(分) < 30) Then : X1 = "11:00:00" : ElseIf (時 = "12" And CInt(分) >= 30) Or (時 = "13" And CInt(分) < 30) Then : X1 = "12:00:00"

  859.         ElseIf (時 = "13" And CInt(分) >= 30) Or (時 = "14" And CInt(分) < 30) Then : X1 = "13:00:00" : ElseIf (時 = "14" And CInt(分) >= 30) Or (時 = "15" And CInt(分) < 30) Then : X1 = "14:00:00"

  860.         ElseIf (時 = "15" And CInt(分) >= 30) Or (時 = "16" And CInt(分) < 30) Then : X1 = "15:00:00" : ElseIf (時 = "16" And CInt(分) >= 30) Or (時 = "17" And CInt(分) < 30) Then : X1 = "16:00:00"

  861.         ElseIf (時 = "17" And CInt(分) >= 30) Or (時 = "18" And CInt(分) < 30) Then : X1 = "17:00:00" : ElseIf (時 = "18" And CInt(分) >= 30) Or (時 = "19" And CInt(分) < 30) Then : X1 = "18:00:00"

  862.         ElseIf (時 = "19" And CInt(分) >= 30) Or (時 = "20" And CInt(分) < 30) Then : X1 = "19:00:00" : ElseIf (時 = "20" And CInt(分) >= 30) Or (時 = "21" And CInt(分) < 30) Then : X1 = "20:00:00"

  863.         ElseIf (時 = "21" And CInt(分) >= 30) Or (時 = "22" And CInt(分) < 30) Then : X1 = "21:00:00" : ElseIf (時 = "22" And CInt(分) >= 30) Or (時 = "23" And CInt(分) < 30) Then : X1 = "22:00:00"

  864.         End If

  865.     End Sub

  866.     Private Sub Set_時段定點_加一小時()

  867.         Dim 時 As String = Strings.Left(X1, 2) : Dim 分 As String = Strings.Mid(X1, 4, 2)

  868.         If (時 = "23" And CInt(分) >= 30) Or (時 = "00" And CInt(分) < 30) Then : X1 = "01:00:00" : ElseIf (時 = "00" And CInt(分) >= 30) Or (時 = "01" And CInt(分) < 30) Then : X1 = "02:00:00"

  869.         ElseIf (時 = "01" And CInt(分) >= 30) Or (時 = "02" And CInt(分) < 30) Then : X1 = "03:00:00" : ElseIf (時 = "02" And CInt(分) >= 30) Or (時 = "03" And CInt(分) < 30) Then : X1 = "04:00:00"

  870.         ElseIf (時 = "03" And CInt(分) >= 30) Or (時 = "04" And CInt(分) < 30) Then : X1 = "05:00:00" : ElseIf (時 = "04" And CInt(分) >= 30) Or (時 = "05" And CInt(分) < 30) Then : X1 = "06:00:00"

  871.         ElseIf (時 = "05" And CInt(分) >= 30) Or (時 = "06" And CInt(分) < 30) Then : X1 = "07:00:00" : ElseIf (時 = "06" And CInt(分) >= 30) Or (時 = "07" And CInt(分) < 30) Then : X1 = "08:00:00"

  872.         ElseIf (時 = "07" And CInt(分) >= 30) Or (時 = "08" And CInt(分) < 30) Then : X1 = "09:00:00" : ElseIf (時 = "08" And CInt(分) >= 30) Or (時 = "09" And CInt(分) < 30) Then : X1 = "10:00:00"

  873.         ElseIf (時 = "09" And CInt(分) >= 30) Or (時 = "10" And CInt(分) < 30) Then : X1 = "11:00:00" : ElseIf (時 = "10" And CInt(分) >= 30) Or (時 = "11" And CInt(分) < 30) Then : X1 = "12:00:00"

  874.         ElseIf (時 = "11" And CInt(分) >= 30) Or (時 = "12" And CInt(分) < 30) Then : X1 = "13:00:00" : ElseIf (時 = "12" And CInt(分) >= 30) Or (時 = "13" And CInt(分) < 30) Then : X1 = "14:00:00"

  875.         ElseIf (時 = "13" And CInt(分) >= 30) Or (時 = "14" And CInt(分) < 30) Then : X1 = "15:00:00" : ElseIf (時 = "14" And CInt(分) >= 30) Or (時 = "15" And CInt(分) < 30) Then : X1 = "16:00:00"

  876.         ElseIf (時 = "15" And CInt(分) >= 30) Or (時 = "16" And CInt(分) < 30) Then : X1 = "17:00:00" : ElseIf (時 = "16" And CInt(分) >= 30) Or (時 = "17" And CInt(分) < 30) Then : X1 = "18:00:00"

  877.         ElseIf (時 = "17" And CInt(分) >= 30) Or (時 = "18" And CInt(分) < 30) Then : X1 = "19:00:00" : ElseIf (時 = "18" And CInt(分) >= 30) Or (時 = "19" And CInt(分) < 30) Then : X1 = "20:00:00"

  878.         ElseIf (時 = "19" And CInt(分) >= 30) Or (時 = "20" And CInt(分) < 30) Then : X1 = "21:00:00" : ElseIf (時 = "20" And CInt(分) >= 30) Or (時 = "21" And CInt(分) < 30) Then : X1 = "22:00:00"

  879.         ElseIf (時 = "21" And CInt(分) >= 30) Or (時 = "22" And CInt(分) < 30) Then : X1 = "23:00:00" : ElseIf (時 = "22" And CInt(分) >= 30) Or (時 = "23" And CInt(分) < 30) Then : X1 = "24:00:00"

  880.         End If

  881.     End Sub

  882.     Private Sub Set_時段定點_加四小時()

  883.         Dim 時 As String = Strings.Left(X1, 2) : Dim 分 As String = Strings.Mid(X1, 4, 2)

  884.         If (時 = "23" And CInt(分) >= 30) Or (時 = "00" And CInt(分) < 30) Then : X1 = "04:00:00" : ElseIf (時 = "00" And CInt(分) >= 30) Or (時 = "01" And CInt(分) < 30) Then : X1 = "05:00:00"

  885.         ElseIf (時 = "01" And CInt(分) >= 30) Or (時 = "02" And CInt(分) < 30) Then : X1 = "06:00:00" : ElseIf (時 = "02" And CInt(分) >= 30) Or (時 = "03" And CInt(分) < 30) Then : X1 = "07:00:00"

  886.         ElseIf (時 = "03" And CInt(分) >= 30) Or (時 = "04" And CInt(分) < 30) Then : X1 = "08:00:00" : ElseIf (時 = "04" And CInt(分) >= 30) Or (時 = "05" And CInt(分) < 30) Then : X1 = "09:00:00"

  887.         ElseIf (時 = "05" And CInt(分) >= 30) Or (時 = "06" And CInt(分) < 30) Then : X1 = "10:00:00" : ElseIf (時 = "06" And CInt(分) >= 30) Or (時 = "07" And CInt(分) < 30) Then : X1 = "11:00:00"

  888.         ElseIf (時 = "07" And CInt(分) >= 30) Or (時 = "08" And CInt(分) < 30) Then : X1 = "12:00:00" : ElseIf (時 = "08" And CInt(分) >= 30) Or (時 = "09" And CInt(分) < 30) Then : X1 = "13:00:00"

  889.         ElseIf (時 = "09" And CInt(分) >= 30) Or (時 = "10" And CInt(分) < 30) Then : X1 = "14:00:00" : ElseIf (時 = "10" And CInt(分) >= 30) Or (時 = "11" And CInt(分) < 30) Then : X1 = "15:00:00"

  890.         ElseIf (時 = "11" And CInt(分) >= 30) Or (時 = "12" And CInt(分) < 30) Then : X1 = "16:00:00" : ElseIf (時 = "12" And CInt(分) >= 30) Or (時 = "13" And CInt(分) < 30) Then : X1 = "17:00:00"

  891.         ElseIf (時 = "13" And CInt(分) >= 30) Or (時 = "14" And CInt(分) < 30) Then : X1 = "18:00:00" : ElseIf (時 = "14" And CInt(分) >= 30) Or (時 = "15" And CInt(分) < 30) Then : X1 = "19:00:00"

  892.         ElseIf (時 = "15" And CInt(分) >= 30) Or (時 = "16" And CInt(分) < 30) Then : X1 = "20:00:00" : ElseIf (時 = "16" And CInt(分) >= 30) Or (時 = "17" And CInt(分) < 30) Then : X1 = "21:00:00"

  893.         ElseIf (時 = "17" And CInt(分) >= 30) Or (時 = "18" And CInt(分) < 30) Then : X1 = "22:00:00" : ElseIf (時 = "18" And CInt(分) >= 30) Or (時 = "19" And CInt(分) < 30) Then : X1 = "23:00:00"

  894.         ElseIf (時 = "19" And CInt(分) >= 30) Or (時 = "20" And CInt(分) < 30) Then : X1 = "00:00:00" : ElseIf (時 = "20" And CInt(分) >= 30) Or (時 = "21" And CInt(分) < 30) Then : X1 = "01:00:00"

  895.         ElseIf (時 = "21" And CInt(分) >= 30) Or (時 = "22" And CInt(分) < 30) Then : X1 = "02:00:00" : ElseIf (時 = "22" And CInt(分) >= 30) Or (時 = "23" And CInt(分) < 30) Then : X1 = "03:00:00"

  896.         End If

  897.     End Sub

  898.     Private Sub 語言轉換讀取()

  899.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  900.         Me.Text = 系統語言字典("H001-270-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 實際打卡_cb.Text = 系統語言字典("H609-121-" & 語言)

  901.         在職_bt.Text = 系統語言字典("H607-108-" & 語言) : 離職_bt.Text = 系統語言字典("H002-116-" & 語言) : 考勤計算_cb.Text = 系統語言字典("H609-122-" & 語言)

  902.         考勤明細表_tp.Text = 系統語言字典("H001-270-" & 語言) : 考勤彙總表_tp.Text = 系統語言字典("H609-126-" & 語言) : Label56.Text = 系統語言字典("H609-127-" & 語言)

  903.         假日設定_bt.Text = 系統語言字典("H609-127-" & 語言) : 考勤查詢表_tp.Text = 系統語言字典("H609-140-" & 語言) : 單一列印_cb.Text = 系統語言字典("H609-143-" & 語言)

  904.         工人_ch.Text = 系統語言字典("G000-159-" & 語言) : Label12.Text = 系統語言字典("H609-111-" & 語言) : Label21.Text = 系統語言字典("H609-111-" & 語言)

  905.         Label11.Text = 系統語言字典("H609-139-" & 語言) : Label24.Text = 系統語言字典("H609-139-" & 語言) : Label8.Text = 系統語言字典("H609-130-" & 語言)

  906.         Label6.Text = 系統語言字典("H609-109-" & 語言) : Label23.Text = 系統語言字典("H609-109-" & 語言) : Label9.Text = 系統語言字典("H609-131-" & 語言)

  907.         Label7.Text = 系統語言字典("H609-110-" & 語言) : Label22.Text = 系統語言字典("H609-110-" & 語言) : Label10.Text = 系統語言字典("H609-132-" & 語言)

  908.         Label13.Text = 系統語言字典("H609-112-" & 語言) : Label20.Text = 系統語言字典("H609-112-" & 語言) : 表頭(21) = 系統語言字典("H609-125-" & 語言)

  909.         Label14.Text = 系統語言字典("H609-113-" & 語言) : Label19.Text = 系統語言字典("H609-113-" & 語言) : Label1.Text = 系統語言字典("H609-125-" & 語言)

  910.         Label15.Text = 系統語言字典("H609-114-" & 語言) : Label18.Text = 系統語言字典("H609-114-" & 語言)

  911. 

  912.         表頭(0) = 系統語言字典("H601-103-" & 語言) : 表頭(1) = 系統語言字典("H602-104-" & 語言) : 表頭(2) = 系統語言字典("H609-107-" & 語言) : 表頭(3) = 系統語言字典("H609-108-" & 語言)

  913.         表頭(10) = 系統語言字典("H609-115-" & 語言) : 表頭(11) = 系統語言字典("H609-116-" & 語言) : 表頭(12) = 系統語言字典("H609-117-" & 語言) : 表頭(13) = 系統語言字典("H609-118-" & 語言)

  914.         表頭(14) = 系統語言字典("H609-119-" & 語言) : 表頭(15) = 系統語言字典("H609-120-" & 語言) : 表頭(16) = 系統語言字典("H609-123-" & 語言) : 表頭(17) = 系統語言字典("H609-124-" & 語言)

  915.         表頭(22) = 系統語言字典("H607-103-" & 語言) : 表頭(18) = 系統語言字典("H609-128-" & 語言) : 表頭(19) = 系統語言字典("H601-108-" & 語言) : 表頭(20) = 系統語言字典("H609-129-" & 語言)

  916.         表頭(4) = 系統語言字典("H609-109-" & 語言) : 表頭(26) = 系統語言字典("H609-138-" & 語言) : 表頭(27) = 系統語言字典("G000-155-" & 語言) : 表頭(8) = 系統語言字典("H609-113-" & 語言)

  917.         表頭(9) = 系統語言字典("H609-114-" & 語言) : 表頭(7) = 系統語言字典("H609-112-" & 語言) : 表頭(6) = 系統語言字典("H609-111-" & 語言) : 表頭(5) = 系統語言字典("H609-110-" & 語言)

  918.         表頭(25) = 系統語言字典("H609-132-" & 語言) : 表頭(24) = 系統語言字典("H609-131-" & 語言) : 表頭(23) = 系統語言字典("H609-130-" & 語言)

  919. 

  920.         對話框(0) = 系統語言字典("H609-100-" & 語言) : 對話框(1) = 系統語言字典("H609-101-" & 語言) : 對話框(7) = 系統語言字典("G000-110-" & 語言) : 對話框(12) = 系統語言字典("H609-136-" & 語言)

  921.         對話框(2) = 系統語言字典("H609-102-" & 語言) : 對話框(3) = 系統語言字典("H609-103-" & 語言) : 對話框(8) = 系統語言字典("G000-119-" & 語言) : 對話框(13) = 系統語言字典("H609-137-" & 語言)

  922.         對話框(4) = 系統語言字典("H609-104-" & 語言) : 對話框(5) = 系統語言字典("H609-105-" & 語言) : 對話框(10) = 系統語言字典("H609-134-" & 語言) : 對話框(11) = 系統語言字典("H609-135-" & 語言)

  923.         對話框(14) = 系統語言字典("G000-158-" & 語言) : 對話框(16) = 系統語言字典("H609-141-" & 語言) : 對話框(17) = 系統語言字典("H609-142-" & 語言) : 對話框(18) = 系統語言字典("H204-134-" & 語言)

  924.         對話框(9) = 系統語言字典("H609-133-" & 語言) : 對話框(6) = 系統語言字典("H609-106-" & 語言) : 對話框(15) = 系統語言字典("H609-139-" & 語言)

  925.         請假編號_cb.Items.Clear() : 請假編號_cb.Items.Add("") : 請假編號_cb.Items.Add(對話框(9)) : 請假編號_cb.Items.Add(對話框(10))

  926.         請假編號_cb.Items.Add(對話框(11)) : 請假編號_cb.Items.Add(對話框(12)) : 請假編號_cb.Items.Add(對話框(13))

  927.     End Sub

  928.     Private Sub 考勤編輯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 考勤編輯_bt.MouseEnter

  929.         ToolTip1.SetToolTip(Me.考勤編輯_bt, 對話框(15))

  930.     End Sub

  931.     Private Sub 考勤編輯1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 考勤編輯1_bt.MouseEnter

  932.         ToolTip1.SetToolTip(Me.考勤編輯1_bt, 對話框(15))

  933.     End Sub

  934.     Private Sub 考勤調整_bt_MouseEnter(sender As Object, e As EventArgs) Handles 考勤調整_bt.MouseEnter

  935.         ToolTip1.SetToolTip(Me.考勤調整_bt, 對話框(7))

  936.     End Sub

  937.     Private Sub 考勤調整1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 考勤調整1_bt.MouseEnter

  938.         ToolTip1.SetToolTip(Me.考勤調整1_bt, 對話框(7))

  939.     End Sub

  940.     Private Sub 存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_bt.MouseEnter

  941.         ToolTip1.SetToolTip(Me.存檔_bt, 對話框(7))

  942.     End Sub

  943.     Private Sub 加班請假_bt_MouseEnter(sender As Object, e As EventArgs) Handles 加班請假_bt.MouseEnter

  944.         ToolTip1.SetToolTip(Me.加班請假_bt, 對話框(7))

  945.     End Sub

  946.     Private Sub 年分清單()

  947.         SQL_年分清單() : 年份_cb.Items.Clear() : 年份1_cb.Items.Clear() : 年份2_cb.Items.Clear()

  948.         While (dr.Read()) : 年份_cb.Items.Add(dr("日期")) : 年份1_cb.Items.Add(dr("日期")) : 年份2_cb.Items.Add(dr("日期")) : End While : conn.Close()

  949.     End Sub

  950.     Private Sub 級別清單()

  951.         SQL_考勤級別讀取() : 級別_cb.Items.Clear() : 級別_cb.Items.Add("") : 級別1_cb.Items.Clear() : 級別1_cb.Items.Add("") : 級別2_cb.Items.Clear() : 級別2_cb.Items.Add("")

  952.         While (dr.Read()) : 級別_cb.Items.Add(dr("級別")) : 級別1_cb.Items.Add(dr("級別")) : 級別2_cb.Items.Add(dr("級別")) : End While : conn.Close()

  953.     End Sub

  954.     Private Sub 地區清單()

  955.         地區_cb.Items.Clear() : 地區_cb.Items.Add("") : 地區_cb.Items.Add(對話框(16)) : 地區_cb.Items.Add(對話框(17))

  956.         地區1_cb.Items.Clear() : 地區1_cb.Items.Add("") : 地區1_cb.Items.Add(對話框(16)) : 地區1_cb.Items.Add(對話框(17))

  957.         部門1_cb.Items.Clear() : 部門1_cb.Items.Add("") : 部門1_cb.Items.Add(對話框(16)) : 部門1_cb.Items.Add(對話框(17))

  958.     End Sub

  959.     Private Sub 考勤明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  960.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  961.         風格() : H(609) = True : 介面 = "H609" : 語言轉換讀取() : 顯示說明(999, True)

  962.         在職 = True : Panel1.SendToBack() : 實際打卡_cb.Checked = True : 視窗4_pl.Visible = False : 視窗3_pl.Visible = False : 視窗2_pl.Visible = False

  963.         If CInt(登入人級別) <= 5 Then : 高級_cb.Checked = True : Else : 高級_cb.Checked = False : End If

  964.         計算分流.Enabled = True

  965.     End Sub

  966.     Private Sub 計算分流_Tick(sender As Object, e As EventArgs) Handles 計算分流.Tick

  967.         計算分流.Enabled = False

  968.         地區清單() : 級別清單() : Set_使用者清單() : 年分清單() : 暫時不開 = True

  969.         年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1 : 年份1_cb.Text = Year(Today) : 月份1_cb.SelectedIndex = Month(Today) - 1

  970.         年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1 : Set_考勤明細() : Set_總清單()

  971.         If 清單1_dgv.Rows.Count > 0 Then

  972.             PA1 = 清單1_dgv.Rows(0).Cells("ID卡號").Value.ToString : 姓名_tb.Text = 清單1_dgv.Rows(0).Cells(表頭(0)).Value.ToString.ToUpper

  973.             員工代碼_tb.Text = 清單1_dgv.Rows(0).Cells(表頭(23)).Value.ToString.ToUpper : 員工崗位_tb.Text = 清單1_dgv.Rows(0).Cells(表頭(24)).Value.ToString.ToUpper

  974.             部門名稱_tb.Text = 清單1_dgv.Rows(0).Cells(表頭(25)).Value.ToString.ToUpper

  975.             ID_tb.Text = PA1

  976.             PA2 = 年份_cb.Text : PA3 = 月份_cb.Text : Set_考勤明細()

  977.         End If : 首次開啟 = True

  978.     End Sub

  979.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  980.         H(609) = True : 介面 = "H609" : 語言轉換讀取()

  981.         首次開啟 = False : 計算分流.Enabled = True

  982.     End Sub

  983.     Private Sub 考勤明細表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  984.         H(607) = False : MyMod.虛擬桌面開啟()

  985.     End Sub

  986.     Private Sub 考勤明細表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  987.         MyMod.清單字體大小調整()

  988.         查詢表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  989.         考勤彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  990.         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  991.         清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  992.     End Sub

  993.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  994.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  995.     End Sub

  996.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  997.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  998.     End Sub

  999.     Private Sub 查詢表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 查詢表_dgv.RowPostPaint

  1000.         Dim linePen As New  Pen(Color.Blue, 2)

  1001.         If e.RowIndex = 查詢表_dgv.Rows.Count - 1 Then

  1002.             Exit Sub

  1003.         Else

  1004.             If 查詢表_dgv(表頭(19), e.RowIndex).Value.ToString <> 查詢表_dgv(表頭(19), e.RowIndex + 1).Value.ToString Then

  1005.                 Dim startX As Integer = IIf(查詢表_dgv.RowHeadersVisible, 查詢表_dgv.RowHeadersWidth, 0)

  1006.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  1007.                 Dim endX As Integer = startX + 查詢表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 查詢表_dgv.HorizontalScrollingOffset

  1008.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  1009.                 Exit Sub

  1010.             End If

  1011.         End If

  1012.         For i As Integer = 0 To 查詢表_dgv.Rows.Count - 1

  1013.             If 深色風格 = False Then

  1014.                 If 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  1015.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  1016.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink

  1017.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  1018.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

  1019.             Else

  1020.                 If 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  1021.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  1022.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed

  1023.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  1024.                 ElseIf 查詢表_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 查詢表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

  1025.             End If

  1026.         Next

  1027.     End Sub

  1028.     Private Sub 清單1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_dgv.RowPostPaint

  1029.         If 首次開啟 = True Then

  1030.             Dim linePen As New  Pen(Color.Blue, 2)

  1031.             If e.RowIndex = 清單1_dgv.Rows.Count - 1 Then

  1032.                 Exit Sub

  1033.             Else

  1034.                 If 清單1_dgv(表頭(19), e.RowIndex).Value.ToString <> 清單1_dgv(表頭(19), e.RowIndex + 1).Value.ToString Then

  1035.                     Dim startX As Integer = IIf(清單1_dgv.RowHeadersVisible, 清單1_dgv.RowHeadersWidth, 0)

  1036.                     Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  1037.                     Dim endX As Integer = startX + 清單1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單1_dgv.HorizontalScrollingOffset

  1038.                     e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  1039.                     Exit Sub

  1040.                 End If

  1041.             End If

  1042.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  1043.                 If 深色風格 = False Then

  1044.                     If 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow

  1045.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  1046.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink

  1047.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  1048.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue : End If

  1049.                 Else

  1050.                     If 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "01" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple

  1051.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "02" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  1052.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "03" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed

  1053.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "04" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  1054.                     ElseIf 清單1_dgv.Rows(i).Cells(表頭(1)).Value.ToString = "05" Then : 清單1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue : End If

  1055.                 End If

  1056.             Next

  1057.         End If

  1058.     End Sub

  1059.     Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick

  1060.         If e.RowIndex = -1 Then : Else

  1061.             PA1 = 清單1_dgv.Rows(e.RowIndex).Cells("ID卡號").Value.ToString : 姓名_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells(表頭(0)).Value.ToString.ToUpper

  1062.             員工代碼_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells(表頭(23)).Value.ToString.ToUpper : 員工崗位_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells(表頭(24)).Value.ToString.ToUpper

  1063.             部門名稱_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells(表頭(25)).Value.ToString.ToUpper

  1064.             ID_tb.Text = PA1

  1065.             PA2 = 年份_cb.Text : PA3 = 月份_cb.Text : Set_考勤明細()

  1066.         End If

  1067.     End Sub

  1068.     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp

  1069.         'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If

  1070.         If 明細_dgv.SelectedCells.Count > 0 Then

  1071.             If 明細_dgv.SelectedCells(0).ColumnIndex = 27 Then

  1072.                 If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "" Then : 請假編號_cb.Text = ""

  1073.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "1" Then : 請假編號_cb.Text = 對話框(9)

  1074.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "2" Then : 請假編號_cb.Text = 對話框(10)

  1075.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "3" Then : 請假編號_cb.Text = 對話框(11)

  1076.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "4" Then : 請假編號_cb.Text = 對話框(12)

  1077.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value.ToString = "5" Then : 請假編號_cb.Text = 對話框(13) : End If

  1078.                 CB選擇清單(請假編號_cb, 請假編號_cb.Text)

  1079.                 If 請假編號_cb.Text = "" Then

  1080.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = ""

  1081.                 ElseIf 請假編號_cb.Text = 對話框(9) Then

  1082.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "1" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = "1"

  1083.                 ElseIf 請假編號_cb.Text = 對話框(10) Then

  1084.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "2" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = "2"

  1085.                 ElseIf 請假編號_cb.Text = 對話框(11) Then

  1086.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "3" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = "3"

  1087.                 ElseIf 請假編號_cb.Text = 對話框(12) Then

  1088.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "4" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = "4"

  1089.                 ElseIf 請假編號_cb.Text = 對話框(13) Then

  1090.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(26).Value = "5" : 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(27).Value = "5"

  1091.                 End If

  1092.                 If 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "" Then

  1093.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = ""

  1094.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "1" Then

  1095.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = 對話框(9)

  1096.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "2" Then

  1097.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = 對話框(10)

  1098.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "3" Then

  1099.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = 對話框(11)

  1100.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "4" Then

  1101.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = 對話框(12)

  1102.                 ElseIf 明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells("假別編號").Value.ToString = "5" Then

  1103.                     明細_dgv.Rows(明細_dgv.SelectedCells(0).RowIndex).Cells(表頭(26)).Value = 對話框(13)

  1104.                 End If

  1105.             End If

  1106.         End If

  1107.     End Sub

  1108.     Private Sub 明細_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick

  1109.         If e.RowIndex = -1 Then : Else

  1110.             日期_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells(表頭(3)).Value.ToString

  1111.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(4)).Value.ToString = "" Then : 時段1_rtp.Value = "08:00:00" : S1.Checked = False : 時段1_rtp.Enabled = True

  1112.             Else : 時段1_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(4)).Value.ToString : S1.Checked = True : 時段1_rtp.Enabled = False : End If

  1113.             If 高級_cb.Checked = True And 時段1_rtp.Enabled = False Then : 時段1_rtp.Enabled = True : End If

  1114. 

  1115.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(5)).Value.ToString = "" Then : 時段2_rtp.Value = "12:00:00" : S2.Checked = False : 時段2_rtp.Enabled = True

  1116.             Else : 時段2_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(5)).Value.ToString : S2.Checked = True : 時段2_rtp.Enabled = False : End If

  1117.             If 高級_cb.Checked = True And 時段2_rtp.Enabled = False Then : 時段2_rtp.Enabled = True : End If

  1118. 

  1119.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(6)).Value.ToString = "" Then : 時段3_rtp.Value = "13:00:00" : S3.Checked = False : 時段3_rtp.Enabled = True

  1120.             Else : 時段3_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(6)).Value.ToString : S3.Checked = True : 時段3_rtp.Enabled = False : End If

  1121.             If 高級_cb.Checked = True And 時段3_rtp.Enabled = False Then : 時段3_rtp.Enabled = True : End If

  1122. 

  1123.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(7)).Value.ToString = "" Then : 時段4_rtp.Value = "17:00:00" : S4.Checked = False : 時段4_rtp.Enabled = True

  1124.             Else : 時段4_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(7)).Value.ToString : S4.Checked = True : 時段4_rtp.Enabled = False : End If

  1125.             If 高級_cb.Checked = True And 時段4_rtp.Enabled = False Then : 時段4_rtp.Enabled = True : End If

  1126. 

  1127.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(8)).Value.ToString = "" Then : 時段5_rtp.Value = "18:00:00" : S5.Checked = False : 時段5_rtp.Enabled = True

  1128.             Else : 時段5_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(8)).Value.ToString : S5.Checked = True : 時段5_rtp.Enabled = False : End If

  1129.             If 高級_cb.Checked = True And 時段5_rtp.Enabled = False Then : 時段5_rtp.Enabled = True : End If

  1130. 

  1131.             If 明細_dgv.Rows(e.RowIndex).Cells(表頭(9)).Value.ToString = "" Then : 時段6_rtp.Value = "20:00:00" : S6.Checked = False : 時段6_rtp.Enabled = True

  1132.             Else : 時段6_rtp.Value = 明細_dgv.Rows(e.RowIndex).Cells(表頭(9)).Value.ToString : S6.Checked = True : 時段6_rtp.Enabled = False : End If

  1133.             If 高級_cb.Checked = True And 時段6_rtp.Enabled = False Then : 時段6_rtp.Enabled = True : End If

  1134. 

  1135.             總時 = 0 : 總時數_tb.Text = ""

  1136.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  1137.                 '-------------時間彙總計算------------------------------------

  1138.                 時長 = 0

  1139.                 If (明細_dgv.Rows(i).Cells(表頭(17)).Value = False And 明細_dgv.Rows(i).Cells(表頭(18)).Value = True) Or

  1140.                    (明細_dgv.Rows(i).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(i).Cells(表頭(17)).Value = False) Then

  1141.                     明細_dgv.Rows(i).Cells(表頭(16)).Value = "00 H 00 M"

  1142.                 Else

  1143.                     If 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  1144.                        明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString = "" And

  1145.                        明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  1146.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1147.                         If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : End If

  1148.                     ElseIf 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  1149.                            明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  1150.                            明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString = "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString = "" Then

  1151.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1152.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1153.                         If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  1154.                             If 明細_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  1155.                                 明細_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  1156.                             Else

  1157.                                 If 時長 < 10 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  1158.                                 Else : 明細_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  1159.                             End If

  1160.                         End If

  1161.                     ElseIf 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString <> "" And

  1162.                            明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" And

  1163.                            明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString <> "" And 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString <> "" Then

  1164.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(10)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1165.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(12)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1166.                         計算(0) = 明細_dgv.Rows(i).Cells(表頭(14)).Value.ToString : 計算(1) = 明細_dgv.Rows(i).Cells(表頭(15)).Value.ToString : 時間比對() : 時長 += (間隔1 / 60)

  1167.                         If 時長 <= 8 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M" : Else

  1168.                             If 明細_dgv.Rows(i).Cells(表頭(17)).Value = False Then

  1169.                                 明細_dgv.Rows(i).Cells(表頭(16)).Value = "08 H 00 M"

  1170.                             Else

  1171.                                 If 時長 < 10 Then : 明細_dgv.Rows(i).Cells(表頭(16)).Value = "0" & 時長 & " H 00 M"

  1172.                                 Else : 明細_dgv.Rows(i).Cells(表頭(16)).Value = 時長 & " H 00 M" : End If

  1173.                             End If

  1174.                         End If

  1175.                     End If

  1176.                 End If

  1177.                 If 明細_dgv.Rows(i).Cells(表頭(16)).Value.ToString <> "" Then

  1178.                     總時 += CInt(Strings.Left(明細_dgv.Rows(i).Cells(表頭(16)).Value.ToString, 2))

  1179.                     If 總時 < 10 Then : 總時數_tb.Text = "0" & 總時 & " H 00 M" : Else : 總時數_tb.Text = 總時 & " H 00 M" : End If

  1180.                 End If

  1181. 

  1182.                 If 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = ""

  1183.                 ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "1" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(9)

  1184.                 ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "2" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(10)

  1185.                 ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "3" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(11)

  1186.                 ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "4" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(12)

  1187.                 ElseIf 明細_dgv.Rows(i).Cells("假別編號").Value.ToString = "5" Then : 明細_dgv.Rows(i).Cells(表頭(26)).Value = 對話框(13)

  1188.                 End If

  1189.             Next

  1190.         End If

  1191.     End Sub

  1192.     Private Sub 假日設定_bt_Click(sender As Object, e As EventArgs) Handles 假日設定_bt.Click

  1193.         If 視窗4_pl.Visible = False Then

  1194.             暫時不開 = True

  1195.             PA2 = 年份1_cb.Text : PA3 = 月份1_cb.Text : Set_萬年曆()

  1196.             Dim XC As Integer = Me.Size.Width : Dim YC As Integer = Me.Size.Height

  1197.             Dim XD As Integer = 視窗4_pl.Width : Dim YD As Integer = 視窗4_pl.Height

  1198.             視窗4_pl.Location = New System.Drawing.Point((XC - XD) / 2, (YC - YD) / 2) : 視窗4_pl.Visible = True : 視窗4_pl.BringToFront()

  1199.             暫時不開 = False

  1200.         Else : 視窗4_pl.Visible = False : End If

  1201.     End Sub

  1202.     Private Sub 考勤編輯_bt_Click(sender As Object, e As EventArgs) Handles 考勤編輯_bt.Click

  1203.         Dim XC As Integer = Me.Size.Width : Dim YC As Integer = Me.Size.Height

  1204.         Dim XD As Integer = 視窗3_pl.Width : Dim YD As Integer = 視窗3_pl.Height

  1205.         If 視窗3_pl.Visible = False Then : 視窗3_pl.Location = New System.Drawing.Point((XC - XD) / 2, (YC - YD) / 2) : 視窗3_pl.Visible = True : 視窗3_pl.BringToFront()

  1206.             時段1_rtp.Enabled = False : 時段2_rtp.Enabled = False : 時段3_rtp.Enabled = False

  1207.             時段4_rtp.Enabled = False : 時段5_rtp.Enabled = False : 時段6_rtp.Enabled = False

  1208.         Else : 視窗3_pl.Visible = False : End If

  1209.     End Sub

  1210.     Private Sub 考勤編輯1_bt_Click(sender As Object, e As EventArgs) Handles 考勤編輯1_bt.Click

  1211.         If 視窗2_pl.Visible = False Then

  1212.             時段A1_rtp.Value = "08:00:00" : 時段A2_rtp.Value = "12:00:00" : 時段A3_rtp.Value = "13:00:00"

  1213.             時段A4_rtp.Value = "17:00:00" : 時段A5_rtp.Value = "18:00:00" : 時段A6_rtp.Value = "20:00:00"

  1214.             Dim XC As Integer = Me.Size.Width : Dim YC As Integer = Me.Size.Height

  1215.             Dim XD As Integer = 視窗2_pl.Width : Dim YD As Integer = 視窗2_pl.Height

  1216.             視窗2_pl.Location = New System.Drawing.Point((XC - XD) / 2, (YC - YD) / 2) : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront()

  1217.         Else : 視窗2_pl.Visible = False : End If

  1218.     End Sub

  1219.     Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click

  1220.         If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else : 視窗2_pl.Visible = False : Set_查詢表() : End If

  1221.     End Sub

  1222.     Private Sub CanceL3_bt_Click(sender As Object, e As EventArgs) Handles CanceL3_bt.Click

  1223.         If 視窗3_pl.Visible = False Then : 視窗3_pl.Visible = True : 視窗3_pl.BringToFront() : Else : 視窗3_pl.Visible = False : Set_考勤明細() : End If

  1224.     End Sub

  1225.     Private Sub CanceL4_bt_Click(sender As Object, e As EventArgs) Handles CanceL4_bt.Click

  1226.         If 視窗4_pl.Visible = False Then : 視窗4_pl.Visible = True : 視窗4_pl.BringToFront() : Else : 視窗4_pl.Visible = False : Set_考勤明細() : End If

  1227.     End Sub

  1228.     Private Sub 月份1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份1_cb.SelectedIndexChanged

  1229.         If 暫時不開 = False Then : PA2 = 年份1_cb.Text : PA3 = 月份1_cb.Text : Set_萬年曆() : End If

  1230.     End Sub

  1231.     Private Sub 年份1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份1_cb.SelectedIndexChanged

  1232.         If 暫時不開 = False Then : PA2 = 年份1_cb.Text : PA3 = 月份1_cb.Text : Set_萬年曆() : End If

  1233.     End Sub

  1234.     Private Sub 在職_bt_Click(sender As Object, e As EventArgs) Handles 在職_bt.Click

  1235.         在職 = True : Set_使用者清單()

  1236.     End Sub

  1237.     Private Sub 離職_bt_Click(sender As Object, e As EventArgs) Handles 離職_bt.Click

  1238.         在職 = False : Set_使用者清單()

  1239.     End Sub

  1240.     Private Sub 實際打卡_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 實際打卡_cb.Click

  1241.         實際打卡_cb.Checked = True : 考勤計算_cb.Checked = False : 資料規格()

  1242.     End Sub

  1243.     Private Sub 考勤計算_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 考勤計算_cb.Click

  1244.         實際打卡_cb.Checked = False : 考勤計算_cb.Checked = True : 資料規格()

  1245.     End Sub

  1246.     Private Sub 級別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 級別_cb.SelectedIndexChanged

  1247.         Set_使用者清單()

  1248.     End Sub

  1249.     Private Sub 級別1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 級別1_cb.SelectedIndexChanged

  1250.         Set_考勤彙總()

  1251.     End Sub

  1252.     Private Sub 級別2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 級別2_cb.SelectedIndexChanged

  1253.         Set_查詢表()

  1254.     End Sub

  1255.     Private Sub 部門1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門1_cb.SelectedIndexChanged

  1256.         Set_查詢表()

  1257.     End Sub

  1258.     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click

  1259.         For i As Integer = 0 To 萬年曆_dgv.Rows.Count - 1

  1260.             PA15 = 萬年曆_dgv.Rows(i).Cells(表頭(3)).Value.ToString() : BL1 = 萬年曆_dgv.Rows(i).Cells(表頭(18)).Value : SQL_萬年曆_休假標註()

  1261.         Next : Set_萬年曆() : MGB(對話框(8), 1)

  1262.     End Sub

  1263.     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged

  1264.         If TabControl1.SelectedTab Is 考勤彙總表_tp Then

  1265.             PA = "" : PA2 = 年份2_cb.Text : PA3 = 月份2_cb.Text : Set_總清單()

  1266.         ElseIf TabControl1.SelectedTab Is 考勤查詢表_tp Then

  1267.             日期1_tb.Text = Strings.Format(日期1_dtp.Value, "yyyy/MM/dd") : Set_查詢表()

  1268.         End If

  1269.     End Sub

  1270.     Private Sub 工人_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 工人_ch.Click

  1271.         If 工人_ch.Checked = True Then : 工人 = True : Else : 工人 = False : End If

  1272.         If TabControl1.SelectedTab Is 考勤明細表_tp Then : Set_使用者清單()

  1273.         ElseIf TabControl1.SelectedTab Is 考勤彙總表_tp Then : Set_考勤彙總()

  1274.         ElseIf TabControl1.SelectedTab Is 考勤查詢表_tp Then : Set_查詢表() : End If

  1275.     End Sub

  1276.     Private Sub 加班請假_bt_Click(sender As Object, e As EventArgs) Handles 加班請假_bt.Click

  1277.         If ID_tb.Text = "" Or 姓名_tb.Text = "" Then : MGB(對話框(14), 1) : Else

  1278.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1   '

  1279.                 BL1 = 明細_dgv.Rows(i).Cells(表頭(17)).Value : PA17 = 明細_dgv.Rows(i).Cells("假別編號").Value.ToString

  1280.                 PA18 = 明細_dgv.Rows(i).Cells(表頭(27)).Value.ToString : PA15 = 明細_dgv.Rows(i).Cells(表頭(3)).Value.ToString : PA1 = ID_tb.Text

  1281.                 SQL_人事考勤明細表查詢() : If dr.Read Then : SQL_人事考勤明細表修改() : Else : SQL_人事考勤明細表新增() : End If

  1282.             Next : Set_考勤明細() : MGB(對話框(8), 1)

  1283.         End If

  1284.     End Sub

  1285.     Private Sub 考勤調整_bt_Click(sender As Object, e As EventArgs) Handles 考勤調整_bt.Click

  1286.         If ID_tb.Text = "" Or 姓名_tb.Text = "" Then : MGB(對話框(14), 1) : Else

  1287.             PA15 = 日期_tb.Text : PA1 = ID_tb.Text

  1288.             If 時段1_rtp.Enabled = True And S1.Checked = True Then

  1289.                 SQL_人事考勤明細表查詢()

  1290.                 If dr.Read Then : SQL2 = "第一" : PA45 = Strings.Format(時段1_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1291.                 Else : PA9 = Strings.Format(時段1_rtp.Value, "HH:mm:ss") : PA9 = PA9.Replace(".", ":") : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = ""

  1292.                     SQL_人事考勤明細表新增1() : End If

  1293.             End If

  1294.             If 時段2_rtp.Enabled = True And S2.Checked = True Then

  1295.                 SQL_人事考勤明細表查詢()

  1296.                 If dr.Read Then : SQL2 = "第二" : PA45 = Strings.Format(時段2_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1297.                 Else : PA9 = "" : PA10 = Strings.Format(時段2_rtp.Value, "HH:mm:ss") : PA10 = PA10.Replace(".", ":") : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = ""

  1298.                     SQL_人事考勤明細表新增1() : End If

  1299.             End If

  1300.             If 時段3_rtp.Enabled = True And S3.Checked = True Then

  1301.                 SQL_人事考勤明細表查詢()

  1302.                 If dr.Read Then : SQL2 = "第三" : PA45 = Strings.Format(時段3_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1303.                 Else : PA9 = "" : PA10 = "" : PA11 = Strings.Format(時段3_rtp.Value, "HH:mm:ss") : PA11 = PA11.Replace(".", ":") : PA12 = "" : PA13 = "" : PA14 = ""

  1304.                     SQL_人事考勤明細表新增1() : End If

  1305.             End If

  1306.             If 時段4_rtp.Enabled = True And S4.Checked = True Then

  1307.                 SQL_人事考勤明細表查詢()

  1308.                 If dr.Read Then : SQL2 = "第四" : PA45 = Strings.Format(時段4_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1309.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = Strings.Format(時段4_rtp.Value, "HH:mm:ss") : PA12 = PA12.Replace(".", ":") : PA13 = "" : PA14 = ""

  1310.                     SQL_人事考勤明細表新增1() : End If

  1311.             End If

  1312.             If 時段5_rtp.Enabled = True And S5.Checked = True Then

  1313.                 SQL_人事考勤明細表查詢()

  1314.                 If dr.Read Then : SQL2 = "第五" : PA45 = Strings.Format(時段5_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1315.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = Strings.Format(時段5_rtp.Value, "HH:mm:ss") : PA13 = PA13.Replace(".", ":") : PA14 = ""

  1316.                     SQL_人事考勤明細表新增1() : End If

  1317.             End If

  1318.             If 時段6_rtp.Enabled = True And S6.Checked = True Then

  1319.                 SQL_人事考勤明細表查詢()

  1320.                 If dr.Read Then : SQL2 = "第六" : PA45 = Strings.Format(時段6_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1321.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = Strings.Format(時段6_rtp.Value, "HH:mm:ss") : PA14 = PA14.Replace(".", ":")

  1322.                     SQL_人事考勤明細表新增1() : End If

  1323.             End If

  1324.             加班請假_bt.PerformClick() : Set_考勤明細()

  1325.         End If

  1326.     End Sub

  1327.     Private Sub 考勤調整1_bt_Click_1(sender As Object, e As EventArgs) Handles 考勤調整1_bt.Click

  1328.         For i As Integer = 0 To 查詢表_dgv.Rows.Count - 1

  1329.             PA1 = 查詢表_dgv.Rows(i).Cells("ID卡號").Value.ToString : PA15 = 日期1_tb.Text

  1330.             If 查詢表_dgv.Rows(i).Cells(表頭(4)).Value.ToString = "" And SS1.Checked = True Then

  1331.                 SQL_人事考勤明細表查詢()

  1332.                 If dr.Read Then : SQL2 = "第一" : PA45 = Strings.Format(時段A1_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1333.                 Else : PA9 = Strings.Format(時段A1_rtp.Value, "HH:mm:ss") : PA9 = PA9.Replace(".", ":") : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = ""

  1334.                     SQL_人事考勤明細表新增1() : End If

  1335.             End If

  1336.             If 查詢表_dgv.Rows(i).Cells(表頭(5)).Value.ToString = "" And SS2.Checked = True Then

  1337.                 SQL_人事考勤明細表查詢()

  1338.                 If dr.Read Then : SQL2 = "第二" : PA45 = Strings.Format(時段A2_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1339.                 Else : PA9 = "" : PA10 = Strings.Format(時段A2_rtp.Value, "HH:mm:ss") : PA10 = PA10.Replace(".", ":") : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = ""

  1340.                     SQL_人事考勤明細表新增1() : End If

  1341.             End If

  1342.             If 查詢表_dgv.Rows(i).Cells(表頭(6)).Value.ToString = "" And SS3.Checked = True Then

  1343.                 SQL_人事考勤明細表查詢()

  1344.                 If dr.Read Then : SQL2 = "第三" : PA45 = Strings.Format(時段A3_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1345.                 Else : PA9 = "" : PA10 = "" : PA11 = Strings.Format(時段A3_rtp.Value, "HH:mm:ss") : PA11 = PA11.Replace(".", ":") : PA12 = "" : PA13 = "" : PA14 = ""

  1346.                     SQL_人事考勤明細表新增1() : End If

  1347.             End If

  1348.             If 查詢表_dgv.Rows(i).Cells(表頭(7)).Value.ToString = "" And SS4.Checked = True Then

  1349.                 SQL_人事考勤明細表查詢()

  1350.                 If dr.Read Then : SQL2 = "第四" : PA45 = Strings.Format(時段A4_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1351.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = Strings.Format(時段A4_rtp.Value, "HH:mm:ss") : PA12 = PA12.Replace(".", ":") : PA13 = "" : PA14 = ""

  1352.                     SQL_人事考勤明細表新增1() : End If

  1353.             End If

  1354.             If 查詢表_dgv.Rows(i).Cells(表頭(8)).Value.ToString = "" And SS5.Checked = True Then

  1355.                 SQL_人事考勤明細表查詢()

  1356.                 If dr.Read Then : SQL2 = "第五" : PA45 = Strings.Format(時段A5_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1357.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = Strings.Format(時段A5_rtp.Value, "HH:mm:ss") : PA13 = PA13.Replace(".", ":") : PA14 = ""

  1358.                     SQL_人事考勤明細表新增1() : End If

  1359.             End If

  1360.             If 查詢表_dgv.Rows(i).Cells(表頭(9)).Value.ToString = "" And SS6.Checked = True Then

  1361.                 SQL_人事考勤明細表查詢()

  1362.                 If dr.Read Then : SQL2 = "第六" : PA45 = Strings.Format(時段A6_rtp.Value, "HH:mm:ss") : PA45 = PA45.Replace(".", ":") : SQL_人事考勤明細表修改1()

  1363.                 Else : PA9 = "" : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = Strings.Format(時段A6_rtp.Value, "HH:mm:ss") : PA14 = PA14.Replace(".", ":")

  1364.                     SQL_人事考勤明細表新增1() : End If

  1365.             End If

  1366.         Next : Set_查詢表()

  1367.     End Sub

  1368.     Private Sub 時段1_rtp_Click(sender As Object, e As EventArgs) Handles 時段1_rtp.Click

  1369.         If S1.Checked = False Then : S1.Checked = True : End If

  1370.     End Sub

  1371.     Private Sub 時段2_rtp_Click(sender As Object, e As EventArgs) Handles 時段2_rtp.Click

  1372.         If S2.Checked = False Then : S2.Checked = True : End If

  1373.     End Sub

  1374.     Private Sub 時段3_rtp_Click(sender As Object, e As EventArgs) Handles 時段3_rtp.Click

  1375.         If S3.Checked = False Then : S3.Checked = True : End If

  1376.     End Sub

  1377.     Private Sub 時段4_rtp_Click(sender As Object, e As EventArgs) Handles 時段4_rtp.Click

  1378.         If S4.Checked = False Then : S4.Checked = True : End If

  1379.     End Sub

  1380.     Private Sub 時段5_rtp_Click(sender As Object, e As EventArgs) Handles 時段5_rtp.Click

  1381.         If S5.Checked = False Then : S5.Checked = True : End If

  1382.     End Sub

  1383.     Private Sub 時段6_rtp_Click(sender As Object, e As EventArgs) Handles 時段6_rtp.Click

  1384.         If S6.Checked = False Then : S6.Checked = True : End If

  1385.     End Sub

  1386.     Private Sub 時段A1_rtp_Click(sender As Object, e As EventArgs) Handles 時段A1_rtp.Click

  1387.         If SS1.Checked = False Then : SS1.Checked = True : End If

  1388.     End Sub

  1389.     Private Sub 時段A2_rtp_Click(sender As Object, e As EventArgs) Handles 時段A2_rtp.Click

  1390.         If SS2.Checked = False Then : SS2.Checked = True : End If

  1391.     End Sub

  1392.     Private Sub 時段A3_rtp_Click(sender As Object, e As EventArgs) Handles 時段A3_rtp.Click

  1393.         If SS3.Checked = False Then : SS3.Checked = True : End If

  1394.     End Sub

  1395.     Private Sub 時段A4_rtp_Click(sender As Object, e As EventArgs) Handles 時段A4_rtp.Click

  1396.         If SS4.Checked = False Then : SS4.Checked = True : End If

  1397.     End Sub

  1398.     Private Sub 時段A5_rtp_Click(sender As Object, e As EventArgs) Handles 時段A5_rtp.Click

  1399.         If SS5.Checked = False Then : SS5.Checked = True : End If

  1400.     End Sub

  1401.     Private Sub 時段A6_rtp_Click(sender As Object, e As EventArgs) Handles 時段A6_rtp.Click

  1402.         If SS6.Checked = False Then : SS6.Checked = True : End If

  1403.     End Sub

  1404.     Private Sub S1_CheckedChanged(sender As Object, e As EventArgs) Handles S1.Click

  1405.         If S1.Checked = False Then : S1.Checked = True : Else : S1.Checked = False : End If

  1406.     End Sub

  1407.     Private Sub S2_CheckedChanged(sender As Object, e As EventArgs) Handles S2.Click

  1408.         If S2.Checked = False Then : S2.Checked = True : Else : S2.Checked = False : End If

  1409.     End Sub

  1410.     Private Sub S3_CheckedChanged(sender As Object, e As EventArgs) Handles S3.Click

  1411.         If S3.Checked = False Then : S3.Checked = True : Else : S3.Checked = False : End If

  1412.     End Sub

  1413.     Private Sub S4_CheckedChanged(sender As Object, e As EventArgs) Handles S4.Click

  1414.         If S4.Checked = False Then : S4.Checked = True : Else : S4.Checked = False : End If

  1415.     End Sub

  1416.     Private Sub S5_CheckedChanged(sender As Object, e As EventArgs) Handles S5.Click

  1417.         If S5.Checked = False Then : S5.Checked = True : Else : S5.Checked = False : End If

  1418.     End Sub

  1419.     Private Sub S6_CheckedChanged(sender As Object, e As EventArgs) Handles S6.Click

  1420.         If S6.Checked = False Then : S6.Checked = True : Else : S6.Checked = False : End If

  1421.     End Sub

  1422.     Private Sub 高級_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 高級_cb.Click

  1423.         If 高級_cb.Checked = True And 時段1_rtp.Enabled = False Then : 時段1_rtp.Enabled = True : End If

  1424.         If 高級_cb.Checked = True And 時段2_rtp.Enabled = False Then : 時段2_rtp.Enabled = True : End If

  1425.         If 高級_cb.Checked = True And 時段3_rtp.Enabled = False Then : 時段3_rtp.Enabled = True : End If

  1426.         If 高級_cb.Checked = True And 時段4_rtp.Enabled = False Then : 時段4_rtp.Enabled = True : End If

  1427.         If 高級_cb.Checked = True And 時段5_rtp.Enabled = False Then : 時段5_rtp.Enabled = True : End If

  1428.         If 高級_cb.Checked = True And 時段6_rtp.Enabled = False Then : 時段6_rtp.Enabled = True : End If

  1429.     End Sub

  1430.     Private Sub 日期1_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 日期1_dtp.ValueChanged

  1431.         日期1_tb.Text = Strings.Format(日期1_dtp.Value, "yyyy/MM/dd") : Set_查詢表()

  1432.     End Sub

  1433.     Private Sub 部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門_cb.SelectedIndexChanged

  1434.         Set_查詢表()

  1435.     End Sub

  1436.     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged

  1437.         Set_使用者清單()

  1438.     End Sub

  1439.     Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged

  1440.         Set_考勤彙總()

  1441.     End Sub

  1442.     Private Sub DA3_bt_Click(sender As Object, e As EventArgs) Handles DA3_bt.Click

  1443.         日期1_dtp.Value = 日期1_dtp.Value.AddDays(+1)

  1444.     End Sub

  1445.     Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click

  1446.         日期1_dtp.Value = 日期1_dtp.Value.AddDays(-1)

  1447.     End Sub

  1448.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  1449.         Return CType(xlBook.Worksheets.Add, Worksheet)

  1450.     End Function

  1451.     Private Sub 列印()

  1452.         xlSheet = NewMethod(xlBook)

  1453.         xlApp.Sheets(1).Name = 姓名_tb.Text

  1454.         xlBook.Activate() : xlSheet.Activate()

  1455. 

  1456.         xlSheet.Cells(1, 1) = "LAPORAN KEHADIRAN KARYAWAN"

  1457.         xlSheet.Cells(2, 1) = "Fingerprint" : xlSheet.Cells(2, 7) = "Jabatan KKaryawan"

  1458.         xlSheet.Cells(3, 1) = "Kode Karyawan" : xlSheet.Cells(3, 7) = "Tanggal Gabung"

  1459.         xlSheet.Cells(4, 1) = "Nama Karyawan" : xlSheet.Cells(4, 7) = "Nama Departemer"

  1460.         xlSheet.Cells(5, 1) = "HARI" : xlSheet.Cells(5, 2) = "TANGGAL" : xlSheet.Cells(5, 3) = "JAM KERJA" : xlSheet.Cells(5, 4) = "KEGIATAN" : xlSheet.Cells(5, 5) = "JAM MASUK"

  1461.         xlSheet.Cells(5, 6) = "JAM KELUAR" : xlSheet.Cells(5, 7) = "TERLAMBAT" : xlSheet.Cells(5, 8) = "CEPAT PULANG" : xlSheet.Cells(5, 9) = "LEMBUR"

  1462.         xlSheet.Cells(5, 10) = "OTI" : xlSheet.Cells(5, 11) = "OTII" : xlSheet.Cells(5, 12) = "JUMLAH JAM" : xlSheet.Cells(5, 13) = "CATATAN"

  1463.         VBN = 0 : CBN = 0

  1464.         For II As Integer = 0 To 明細_dgv.Rows.Count - 1 : CBN = 6 + II

  1465.             If 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" Then : VBN = 6 + II : AA(xlApp, xlSheet) : End If

  1466.             xlSheet.Cells(6 + II, 1) = 明細_dgv.Rows(II).Cells(表頭(2)).Value.ToString : xlSheet.Cells(6 + II, 2) = 明細_dgv.Rows(II).Cells(表頭(3)).Value.ToString

  1467.             '--------------第三格-----------------

  1468.             If 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" Or 明細_dgv.Rows(II).Cells(表頭(18)).Value = True Then

  1469.                 If 明細_dgv.Rows(II).Cells(表頭(17)).Value = False Then : xlSheet.Cells(6 + II, 3) = "" : Else

  1470.                     If 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期六" Then : xlSheet.Cells(6 + II, 3) = "08:00-12:00" : Else : xlSheet.Cells(6 + II, 3) = "08:00-17:00" : End If

  1471.                 End If

  1472.             ElseIf 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期六" Then : xlSheet.Cells(6 + II, 3) = "08:00-12:00" : Else : xlSheet.Cells(6 + II, 3) = "08:00-17:00" : End If

  1473.             '--------------第四格-----------------

  1474.             If 明細_dgv.Rows(II).Cells(表頭(26)).Value.ToString <> "" Then

  1475.                 xlSheet.Cells(6 + II, 4) = 明細_dgv.Rows(II).Cells(表頭(26)).Value.ToString

  1476.             Else

  1477.                 If (明細_dgv.Rows(II).Cells(表頭(17)).Value = False And 明細_dgv.Rows(II).Cells(表頭(18)).Value = True) Or

  1478.                    (明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(II).Cells(表頭(17)).Value = False) Then

  1479.                     xlSheet.Cells(6 + II, 4) = ""

  1480.                 Else

  1481.                     If 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(II).Cells(表頭(17)).Value = False Then : xlSheet.Cells(6 + II, 4) = ""

  1482.                     ElseIf 明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(II).Cells(表頭(17)).Value = True Then : xlSheet.Cells(6 + II, 4) = "Work"

  1483.                     Else : xlSheet.Cells(6 + II, 4) = "Work" : End If

  1484.                 End If

  1485.             End If

  1486. 

  1487.             If (明細_dgv.Rows(II).Cells(表頭(17)).Value = False And 明細_dgv.Rows(II).Cells(表頭(18)).Value = True) Or

  1488.                (明細_dgv.Rows(II).Cells("MGB").Value.ToString = "星期日" And 明細_dgv.Rows(II).Cells(表頭(17)).Value = False) Then

  1489.                 xlSheet.Cells(6 + II, 5) = "" : xlSheet.Cells(6 + II, 6) = ""

  1490.             Else

  1491.                 '--------------第五格-----------------

  1492.                 If 明細_dgv.Rows(II).Cells(表頭(4)).Value.ToString <> "" Then

  1493.                     xlSheet.Cells(6 + II, 5) = 明細_dgv.Rows(II).Cells(表頭(4)).Value.ToString : Else : xlSheet.Cells(6 + II, 5) = "" : End If

  1494.                 '--------------第六格-----------------

  1495.                 If 明細_dgv.Rows(II).Cells(表頭(4)).Value.ToString <> "" And 明細_dgv.Rows(II).Cells(表頭(7)).Value.ToString <> "" Then

  1496.                     xlSheet.Cells(6 + II, 6) = 明細_dgv.Rows(II).Cells(表頭(7)).Value.ToString

  1497.                 ElseIf 明細_dgv.Rows(II).Cells(表頭(4)).Value.ToString <> "" And 明細_dgv.Rows(II).Cells(表頭(5)).Value.ToString <> "" Then

  1498.                     xlSheet.Cells(6 + II, 6) = 明細_dgv.Rows(II).Cells(表頭(5)).Value.ToString

  1499.                 Else : xlSheet.Cells(6 + II, 6) = "" : End If

  1500.                 '--------------第八、九格-----------------

  1501.                 If 明細_dgv.Rows(II).Cells(表頭(8)).Value.ToString <> "" And 明細_dgv.Rows(II).Cells(表頭(9)).Value.ToString <> "" Then

  1502.                     xlSheet.Cells(6 + II, 8) = 明細_dgv.Rows(II).Cells(表頭(8)).Value.ToString : xlSheet.Cells(6 + II, 9) = 明細_dgv.Rows(II).Cells(表頭(9)).Value.ToString

  1503.                 End If

  1504.                 '--------------第十、十一格-----------------

  1505.                 If 明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString = "" Then : Else

  1506.                     If CInt(Strings.Left(明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2)) > 8 Then

  1507.                         If CInt(Strings.Left(明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2)) - 8 = 1 Then : xlSheet.Cells(6 + II, 10) = "1" : xlSheet.Cells(6 + II, 11) = ""

  1508.                         ElseIf CInt(Strings.Left(明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2)) - 8 > 1 Then

  1509.                             xlSheet.Cells(6 + II, 10) = "1" : xlSheet.Cells(6 + II, 11) = CInt(Strings.Left(明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString, 2)) - 9

  1510.                         End If

  1511.                     Else : xlSheet.Cells(6 + II, 10) = "" : xlSheet.Cells(6 + II, 11) = "" : End If

  1512.                 End If

  1513.             End If

  1514.             '--------------第十二、十三格-----------------

  1515.             xlSheet.Cells(6 + II, 12) = 明細_dgv.Rows(II).Cells(表頭(16)).Value.ToString : xlSheet.Cells(6 + II, 13) = 明細_dgv.Rows(II).Cells(表頭(27)).Value.ToString

  1516.         Next

  1517.         xlSheet.Cells(CBN + 1, 1) = "Total Kerja" : xlSheet.Cells(CBN + 1, 10) = "=SUM(J6:J" & CBN & ")" : xlSheet.Cells(CBN + 1, 11) = "=SUM(K6:K" & CBN & ")"

  1518.         xlSheet.Cells(CBN + 1, 12) = 總時數_tb.Text : BB(xlApp, xlSheet)

  1519.     End Sub

  1520.     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

  1521.         xlApp = CType(CreateObject("Excel.Application"), Application)

  1522.         xlBook = xlApp.Workbooks.Add

  1523.         xlApp.DisplayAlerts = True

  1524.         xlApp.Visible = True

  1525.         xlApp.Application.WindowState = xlMaximized

  1526. 

  1527.         If 單一列印_cb.Checked = True Then : If 姓名_tb.Text = "" Then : MGB(對話框(14), 1) : Else : 列印() : End If : Else

  1528.             For I As Integer = 0 To 清單1_dgv.Rows.Count - 1

  1529.                 PA1 = 清單1_dgv.Rows(I).Cells("ID卡號").Value.ToString : 姓名_tb.Text = 清單1_dgv.Rows(I).Cells(表頭(0)).Value.ToString.ToUpper

  1530.                 員工代碼_tb.Text = 清單1_dgv.Rows(I).Cells(表頭(23)).Value.ToString.ToUpper : 員工崗位_tb.Text = 清單1_dgv.Rows(I).Cells(表頭(24)).Value.ToString.ToUpper

  1531.                 部門名稱_tb.Text = 清單1_dgv.Rows(I).Cells(表頭(25)).Value.ToString.ToUpper

  1532.                 ID_tb.Text = PA1 : PA2 = 年份_cb.Text : PA3 = 月份_cb.Text : Set_考勤明細() : 列印()

  1533.             Next

  1534.         End If

  1535. 

  1536.         xlSheet.PageSetup.PrintArea = ""

  1537.         xlApp.Cells.Select()

  1538.         xlApp.Application.WindowState = xlMinimized

  1539.         MGB(對話框(18), 1)

  1540.     End Sub

  1541.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1542.         xlSheet.Range("A" & VBN & ":M" & VBN).Select()

  1543.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2

  1544.             .TintAndShade = 0.599993896298105 : .PatternTintAndShade = 0 : End With

  1545.     End Sub

  1546.     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1547.         xlSheet.Range("A1:D1").Select()

  1548.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent5

  1549.             .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With

  1550.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 8

  1551.         xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 11

  1552.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1553.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1554.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 11

  1555.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1556.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1557.         xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 12

  1558.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1559.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1560.         xlSheet.Columns("E:I").Select : myExcel.Selection.ColumnWidth = 9

  1561.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1562.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1563.         xlSheet.Columns("J:K").Select : myExcel.Selection.ColumnWidth = 5

  1564.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1565.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1566.         xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 11

  1567.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1568.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1569.         xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 12

  1570.         xlSheet.Rows("5:5").Select

  1571.         With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1572.             .ReadingOrder = xlContext : .MergeCells = False : End With

  1573.         xlSheet.Range("G2:G4").Select()

  1574.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1575.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1576. 

  1577.         xlSheet.Range("A5:M5").Select()

  1578.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1579.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1580.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1581.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1582.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1583.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1584.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1585.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1586.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1587.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1588.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1589.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1590.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1591.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1592.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1593. 

  1594.         xlSheet.Range("A6:M" & CBN).Select()

  1595.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1596.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1597.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1598.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1599.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1600.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1601.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1602.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1603.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1604.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1605.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1606.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1607.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1608.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1609.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1610. 

  1611.         xlSheet.Range("A" & CBN + 1 & ":I" & CBN + 1).Select()

  1612.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1613.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1614.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1615.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1616.         xlSheet.Range("A" & CBN + 1 & ":M" & CBN + 1).Select()

  1617.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1618.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1619.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1620.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1621.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1622.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1623.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1624.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1625.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1626.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1627.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1628.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1629.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1630.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1631.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1632. 

  1633.         xlSheet.Range("H" & CBN).Select() : myExcel.ActiveWindow.DisplayGridlines = False

  1634.         xlSheet.Rows("6:6").Select : myExcel.ActiveWindow.FreezePanes = True

  1635.         xlSheet.Range("M2").Select()

  1636.     End Sub

  1637.     '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------

  1638.     Dim OldX, OldY As Long

  1639.     Dim drag As Boolean

  1640.     Private Sub 視窗4_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseDown

  1641.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  1642.     End Sub

  1643.     Private Sub 視窗4_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseMove

  1644.         If drag Then : 視窗4_pl.Left = 視窗4_pl.Left + e.X - OldX : 視窗4_pl.Top = 視窗4_pl.Top + e.Y - OldY : End If

  1645.     End Sub

  1646.     Private Sub 視窗4_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseUp

  1647.         drag = False

  1648.     End Sub

  1649.     Private Sub 視窗3_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseDown

  1650.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  1651.     End Sub

  1652.     Private Sub 視窗3_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseMove

  1653.         If drag Then : 視窗3_pl.Left = 視窗3_pl.Left + e.X - OldX : 視窗3_pl.Top = 視窗3_pl.Top + e.Y - OldY : End If

  1654.     End Sub

  1655.     Private Sub 視窗3_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseUp

  1656.         drag = False

  1657.     End Sub

  1658.     Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown

  1659.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  1660.     End Sub

  1661.     Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove

  1662.         If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If

  1663.     End Sub

  1664.     Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp

  1665.         drag = False

  1666.     End Sub

  1667.     Private Sub Label11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label11.MouseDown

  1668.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  1669.     End Sub

  1670.     Private Sub Label11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label11.MouseMove

  1671.         If drag Then : 視窗3_pl.Left = 視窗3_pl.Left + e.X - OldX : 視窗3_pl.Top = 視窗3_pl.Top + e.Y - OldY : End If

  1672.     End Sub

  1673.     Private Sub Label11_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseUp

  1674.         drag = False

  1675.     End Sub

  1676.     Private Sub Label24_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseDown

  1677.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  1678.     End Sub

  1679.     Private Sub Label24_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseMove

  1680.         If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If

  1681.     End Sub

  1682.     Private Sub Label24_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseUp

  1683.         drag = False

  1684.     End Sub

  1685. 

  1686.     Private Sub 風格()

  1687.         If 深色風格 = False Then

  1688.             考勤明細表_tp.BackColor = SystemColors.Control : 考勤彙總表_tp.BackColor = SystemColors.Control : 視窗4_pl.BackColor = SystemColors.Control

  1689.             考勤查詢表_tp.BackColor = SystemColors.Control : Panel6.BackColor = Color.White : 視窗3_pl.BackColor = SystemColors.Control : Panel4.BackColor = Color.White

  1690.             視窗2_pl.BackColor = SystemColors.Control : Panel5.BackColor = Color.White

  1691.             '----------------黑-------------------------------------------

  1692.             小間距1_ch.ForeColor = Color.Black : 中間距1_ch.ForeColor = Color.Black : 大間距1_ch.ForeColor = Color.Black : Label8.ForeColor = Color.Black

  1693.             Label17.ForeColor = Color.Black : Label16.ForeColor = Color.Black : Label9.ForeColor = Color.Black : Label10.ForeColor = Color.Black

  1694.             Label1.ForeColor = Color.Black : Label5.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label56.ForeColor = Color.Black

  1695.             Label24.ForeColor = Color.Black : Label23.ForeColor = Color.Black : Label22.ForeColor = Color.Black : Label21.ForeColor = Color.Black

  1696.             Label20.ForeColor = Color.Black : Label19.ForeColor = Color.Black : Label18.ForeColor = Color.Black : Label3.ForeColor = Color.Black

  1697.             Label2.ForeColor = Color.Black : Label6.ForeColor = Color.Black : Label7.ForeColor = Color.Black : Label12.ForeColor = Color.Black

  1698.             Label13.ForeColor = Color.Black : Label14.ForeColor = Color.Black : Label15.ForeColor = Color.Black : 高級_cb.ForeColor = Color.Black

  1699. 

  1700.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black :: 姓名_tb.BackColor = Color.White : 姓名_tb.ForeColor = Color.Black

  1701.             在職_bt.BackColor = Color.White : 在職_bt.ForeColor = Color.Black : 離職_bt.BackColor = Color.White : 離職_bt.ForeColor = Color.Black

  1702.             員工代碼_tb.BackColor = Color.White : 員工代碼_tb.ForeColor = Color.Black : 員工崗位_tb.BackColor = Color.White : 員工崗位_tb.ForeColor = Color.Black

  1703.             部門名稱_tb.BackColor = Color.White : 部門名稱_tb.ForeColor = Color.Black : 日期_tb.BackColor = Color.White : 日期_tb.ForeColor = Color.Black

  1704.             日期1_tb.BackColor = Color.White : 日期1_tb.ForeColor = Color.Black : 總時數_tb.BackColor = Color.White : 總時數_tb.ForeColor = Color.Black

  1705.             時段1_rtp.BackColor = Color.White : 時段1_rtp.ForeColor = Color.Black : 時段2_rtp.BackColor = Color.White : 時段2_rtp.ForeColor = Color.Black

  1706.             時段3_rtp.BackColor = Color.White : 時段3_rtp.ForeColor = Color.Black : 時段4_rtp.BackColor = Color.White : 時段4_rtp.ForeColor = Color.Black

  1707.             時段5_rtp.BackColor = Color.White : 時段5_rtp.ForeColor = Color.Black : 時段6_rtp.BackColor = Color.White : 時段6_rtp.ForeColor = Color.Black

  1708.             時段A1_rtp.BackColor = Color.White : 時段A1_rtp.ForeColor = Color.Black : 時段A2_rtp.BackColor = Color.White : 時段A2_rtp.ForeColor = Color.Black

  1709.             時段A3_rtp.BackColor = Color.White : 時段A3_rtp.ForeColor = Color.Black : 時段A4_rtp.BackColor = Color.White : 時段A4_rtp.ForeColor = Color.Black

  1710.             時段A5_rtp.BackColor = Color.White : 時段A5_rtp.ForeColor = Color.Black : 時段A6_rtp.BackColor = Color.White : 時段A6_rtp.ForeColor = Color.Black

  1711. 

  1712.             存檔_bt.BackColor = Color.White : 考勤調整_bt.BackColor = Color.White : 考勤編輯_bt.BackColor = Color.White : 加班請假_bt.BackColor = Color.White

  1713.             列印_bt.BackColor = Color.White : 考勤調整1_bt.BackColor = Color.White : 考勤編輯1_bt.BackColor = Color.White : DA1_bt.BackColor = Color.White

  1714.             DA3_bt.BackColor = Color.White

  1715. 

  1716.             清單1_dgv.EnableHeadersVisualStyles = True : 清單1_dgv.BackgroundColor = Color.White : 清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1717.             清單1_dgv.DefaultCellStyle.BackColor = Color.White : 清單1_dgv.DefaultCellStyle.ForeColor = Color.Black

  1718.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1719.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1720.             萬年曆_dgv.EnableHeadersVisualStyles = True : 萬年曆_dgv.BackgroundColor = Color.White : 萬年曆_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1721.             萬年曆_dgv.DefaultCellStyle.BackColor = Color.White : 萬年曆_dgv.DefaultCellStyle.ForeColor = Color.Black

  1722.             考勤彙總_dgv.EnableHeadersVisualStyles = True : 考勤彙總_dgv.BackgroundColor = Color.White : 考勤彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1723.             考勤彙總_dgv.DefaultCellStyle.BackColor = Color.White : 考勤彙總_dgv.DefaultCellStyle.ForeColor = Color.Black

  1724.             查詢表_dgv.EnableHeadersVisualStyles = True : 查詢表_dgv.BackgroundColor = Color.White : 查詢表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1725.             查詢表_dgv.DefaultCellStyle.BackColor = Color.White : 查詢表_dgv.DefaultCellStyle.ForeColor = Color.Black

  1726.         Else

  1727.             考勤明細表_tp.BackColor = Color.Black : 考勤彙總表_tp.BackColor = Color.Black : 考勤查詢表_tp.BackColor = Color.Black

  1728.             視窗4_pl.BackColor = Color.DimGray : Panel6.BackColor = Color.Black : 視窗3_pl.BackColor = Color.DimGray : Panel4.BackColor = Color.Black

  1729.             視窗2_pl.BackColor = Color.DimGray : Panel5.BackColor = Color.Black

  1730.             '----------------黑-------------------------------------------

  1731.             小間距1_ch.ForeColor = Color.White : 中間距1_ch.ForeColor = Color.White : 大間距1_ch.ForeColor = Color.White : Label8.ForeColor = Color.White

  1732.             Label17.ForeColor = Color.White : Label16.ForeColor = Color.White : Label9.ForeColor = Color.White : Label10.ForeColor = Color.White

  1733.             Label1.ForeColor = Color.White : Label5.ForeColor = Color.White : Label4.ForeColor = Color.White : Label56.ForeColor = Color.White

  1734.             Label24.ForeColor = Color.White : Label23.ForeColor = Color.White : Label22.ForeColor = Color.White : Label21.ForeColor = Color.White

  1735.             Label20.ForeColor = Color.White : Label19.ForeColor = Color.White : Label18.ForeColor = Color.White : Label3.ForeColor = Color.White

  1736.             Label2.ForeColor = Color.White : Label6.ForeColor = Color.White : Label7.ForeColor = Color.White : Label12.ForeColor = Color.White

  1737.             Label13.ForeColor = Color.White : Label14.ForeColor = Color.White : Label15.ForeColor = Color.White : 高級_cb.ForeColor = Color.White

  1738. 

  1739.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White :: 姓名_tb.BackColor = Color.DimGray : 姓名_tb.ForeColor = Color.White

  1740.             在職_bt.BackColor = Color.DimGray : 在職_bt.ForeColor = Color.White : 離職_bt.BackColor = Color.DimGray : 離職_bt.ForeColor = Color.White

  1741.             員工代碼_tb.BackColor = Color.DimGray : 員工代碼_tb.ForeColor = Color.White : 員工崗位_tb.BackColor = Color.DimGray : 員工崗位_tb.ForeColor = Color.White

  1742.             部門名稱_tb.BackColor = Color.DimGray : 部門名稱_tb.ForeColor = Color.White : 日期_tb.BackColor = Color.DimGray : 日期_tb.ForeColor = Color.White

  1743.             日期1_tb.BackColor = Color.DimGray : 日期1_tb.ForeColor = Color.White : 總時數_tb.BackColor = Color.DimGray : 總時數_tb.ForeColor = Color.White

  1744.             時段1_rtp.BackColor = Color.Black : 時段1_rtp.ForeColor = Color.White : 時段2_rtp.BackColor = Color.Black : 時段2_rtp.ForeColor = Color.White

  1745.             時段3_rtp.BackColor = Color.Black : 時段3_rtp.ForeColor = Color.White : 時段4_rtp.BackColor = Color.Black : 時段4_rtp.ForeColor = Color.White

  1746.             時段5_rtp.BackColor = Color.Black : 時段5_rtp.ForeColor = Color.White : 時段6_rtp.BackColor = Color.Black : 時段6_rtp.ForeColor = Color.White

  1747.             時段A1_rtp.BackColor = Color.Black : 時段A1_rtp.ForeColor = Color.White : 時段A2_rtp.BackColor = Color.Black : 時段A2_rtp.ForeColor = Color.White

  1748.             時段A3_rtp.BackColor = Color.Black : 時段A3_rtp.ForeColor = Color.White : 時段A4_rtp.BackColor = Color.Black : 時段A4_rtp.ForeColor = Color.White

  1749.             時段A5_rtp.BackColor = Color.Black : 時段A5_rtp.ForeColor = Color.White : 時段A6_rtp.BackColor = Color.Black : 時段A6_rtp.ForeColor = Color.White

  1750. 

  1751.             存檔_bt.BackColor = Color.DimGray : 考勤調整_bt.BackColor = Color.DimGray : 考勤編輯_bt.BackColor = Color.DimGray : 加班請假_bt.BackColor = Color.DimGray

  1752.             列印_bt.BackColor = Color.DimGray : 考勤調整1_bt.BackColor = Color.DimGray : 考勤編輯1_bt.BackColor = Color.DimGray : DA1_bt.BackColor = Color.DimGray

  1753.             DA3_bt.BackColor = Color.DimGray

  1754. 

  1755.             清單1_dgv.EnableHeadersVisualStyles = False : 清單1_dgv.BackgroundColor = Color.DimGray : 清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1756.             清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 清單1_dgv.DefaultCellStyle.ForeColor = Color.White

  1757.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1758.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1759.             萬年曆_dgv.EnableHeadersVisualStyles = False : 萬年曆_dgv.BackgroundColor = Color.DimGray : 萬年曆_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1760.             萬年曆_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 萬年曆_dgv.DefaultCellStyle.BackColor = Color.Black : 萬年曆_dgv.DefaultCellStyle.ForeColor = Color.White

  1761.             考勤彙總_dgv.EnableHeadersVisualStyles = False : 考勤彙總_dgv.BackgroundColor = Color.DimGray : 考勤彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1762.             考勤彙總_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 考勤彙總_dgv.DefaultCellStyle.BackColor = Color.Black : 考勤彙總_dgv.DefaultCellStyle.ForeColor = Color.White

  1763.             查詢表_dgv.EnableHeadersVisualStyles = False : 查詢表_dgv.BackgroundColor = Color.DimGray : 查詢表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1764.             查詢表_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 查詢表_dgv.DefaultCellStyle.BackColor = Color.Black : 查詢表_dgv.DefaultCellStyle.ForeColor = Color.White

  1765.         End If

  1766.     End Sub

  1767. End Class