Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsCheckIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 CheckinMonth  Char 10 考勤月份
'2 Emp_Id  Int 員工編號
'3 DaysOfMonth TinyInt 當月天數
'4 qqDays  Decimal (4,1) 全勤天數
'5 bjDays  Decimal (4,1) 病假天數
'6 sjDays  Decimal (4,1) 事假天數
'7 kgDays  Decimal (4,1) 曠工天數
'8 fdxjDays  Decimal (4,1) 法定休假天數
'9 nxjDays Decimal (4,1) 年休假天數
'10  dxjDays Decimal (4,1) 倒休假天數
'11  cxDays  Decimal (4,1) 出差天數
'12  cdDays  Decimal (4,1) 遲到次數
'13  ztDays  Decimal (4,1) 早退次數
'14  ot1Days Decimal (4,1) 一類加班天數（法定節假日加班）
'15  ot2Days Decimal (4,1) 二類加班天數（周六或周日加班）
'16  ot3Days Decimal (4,1) 三在加班天數（日常加班）

Public CheckinMonth As String
Public Emp_Id As Integer
Public DaysOfMonth As Integer
Public qqDays As Single
Public bjDays As Single
Public sjDays As Single
Public kgDays As Single
Public fdxjDays As Single
Public nxjDays As Single
Public dxjDays As Single
Public cxDays As Single
Public cdDays As Single
Public ztDays As Single
Public ot1Days As Single
Public ot2Days As Single
Public ot3Days As Single

Public Sub Init()
    CheckinMonth = ""
    Emp_Id = 0
    DaysOfMonth = 0
    qqDays = 0
    bjDays = 0
    sjDays = 0
    kgDays = 0
    fdxjDays = 0
    nxjDays = 0
    dxjDays = 0
    cxDays = 0
    cdDays = 0
    ztDays = 0
    ot1Days = 0
    ot2Days = 0
    ot3Days = 0
End Sub

'刪除CheckIn數據

Public Sub Delete(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
    '連接數據庫
    MyDB.openDB
    
    '設置語句
    SqlStmt = "DELETE FROM CheckIn WHERE CheckinMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(TmpEmpId))
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCheckIn As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
    
End Sub

Public Function GetInfo(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
    If TmpMonth = "" Or TmpEmpId <= 0 Then
        GetInfo = False
        Exit Function
    End If
    
    CheckinMonth = TmpMonth
    Emp_Id = TmpEmpId
    
    '連接數據庫
    MyDB.openDB
    
    '設置語句
    SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(Emp_Id))
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCheckIn As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
    
    
    If rsCheckIn.RecordCount = 0 Then
        GetInfo = False
        Init
        '斷開與數據庫的連接
        MyDB.closeDB
        Exit Function
    Else
        
        DaysOfMonth = rsCheckIn.Fields("DaysOfMonth")
        qqDays = rsCheckIn.Fields("qqDays")
        bjDays = rsCheckIn.Fields("bjDays")
        sjDays = rsCheckIn.Fields("sjDays")
        kgDays = rsCheckIn.Fields("kgDays")
        fdxjDays = rsCheckIn.Fields("fdxjDays")
        nxjDays = rsCheckIn.Fields("nxjDays")
        dxjDays = rsCheckIn.Fields("dxjDays")
        cxDays = rsCheckIn.Fields("cxDays")
        cdDays = rsCheckIn.Fields("cdDays")
        ztDays = rsCheckIn.Fields("ztDays")
        ot1Days = rsCheckIn.Fields("ot1Days")
        ot2Days = rsCheckIn.Fields("ot2Days")
        ot3Days = rsCheckIn.Fields("ot3Days")
    End If
    
    GetInfo = True
    '斷開與數據庫的連接
    MyDB.closeDB
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                      ByVal TmpEmpId As Long) As Boolean
    
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(TmpEmpId))
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCheckIn As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, False)
    
    If rsCheckIn.RecordCount = 0 Then
        In_DB = False
    Else
        In_DB = True
    End If
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Function

Public Sub Insert()
    
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "INSERT INTO CheckIn Values('" _
               + Trim(CheckinMonth) + "'," + Trim(Str(Emp_Id)) _
               + "," + Trim(Str(DaysOfMonth)) + "," + Trim(Str(qqDays)) _
               + "," + Trim(Str(bjDays)) + "," + Trim(Str(sjDays)) _
               + "," + Trim(Str(kgDays)) + "," + Trim(fdxjDays) + "," _
               + Trim(Str(nxjDays)) + "," + Trim(Str(dxjDays)) + "," + Trim(Str(cxDays)) _
               + "," + Trim(Str(cdDays)) + "," + Trim(Str(ztDays)) + "," _
               + Trim(Str(ot1Days)) + "," + Trim(Str(ot2Days)) + "," _
               + Trim(Str(ot3Days)) + ")"
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCheckIn As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub

Public Sub Update(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "Update CheckIn Set qqDays=" + Trim(Str(qqDays)) _
               + ",bjDays=" + Trim(Str(bjDays)) + ",sjDays=" _
               + Trim(Str(sjDays)) + ",kgDays=" + Trim(Str(kgDays)) _
               + ",fdxjDays=" + Trim(Str(fdxjDays)) + ",nxjDays=" _
               + Trim(Str(nxjDays)) + ",dxjDays=" + Trim(Str(dxjDays)) _
               + ",cxDays=" + Trim(Str(cxDays)) + ",cdDays=" _
               + Trim(Str(cdDays)) + ",ztDays=" + Trim(Str(ztDays)) _
               + ",ot1Days=" + Trim(Str(ot1Days)) + ",ot2Days=" _
               + Trim(Str(ot2Days)) + ",ot3Days=" + Trim(Str(ot3Days)) _
               + " WHERE CheckinMonth='" + Trim(TmpMonth) _
               + "' And Emp_Id=" + Trim(Str(TmpEmpId))
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsCheckIn As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub