Class ClsSalary
    '1 PayMonth  Char 10 工資月份
    '2 Emp_Id  Int 員工編號
    '3 BaseWage  Decimal(10,2) 基本工資
    '4 Prize Decimal(10,2) 本月獎金
    '5 Ot1pay  Decimal (10,2)  法定節假日加班費
    '6 Ot2pay  Decimal (10,2)  休息日加班費
    '7 Ot3pay  Decimal (10,2)  日常加班費
    '8 Cdkk  Decimal (10,2)  遲到扣款
    '9 Sjkk  Decimal (10,2)  事假扣款
    '10  Bjkk  Decimal (10,2)  病假扣款
    '11  Prize Decimal (10,2)  獎金
    '12  Clbz  Decimal (10,2)  差旅補助
    '13  Yldk  Decimal (10,2)  養老代扣
    '14  Mddk  Decimal (10,2)  基本醫療代扣
    '15  Sydk  Decimal (10,2)  失業保險代扣
    '16  HouseFunds  Decimal (10,2)  住房公積金代扣
    '17  Tax Decimal (10,2)  代扣稅
    '18  Qtkk  Decimal (10,2)  其他扣款
    '19  Mdbx  Decimal (10,2)  醫藥費報銷
    '20  YearPrize Decimal (10,2)  年終獎金
    '21  Sfgz  Decimal(10,2) 實發工資
    '22  PayFlag Bit 工資發放的標記，已經發放的工資則不能再修改

    Public PayMonth As String
    Public Emp_Id As Short
    Public BaseWage As Single
    Public Ot1Pay As Single
    Public Ot2Pay As Single
    Public Ot3Pay As Single
    Public Cdkk As Single
    Public Sjkk As Single
    Public Bjkk As Single
    Public Prize As Single
    Public Clbz As Single
    Public Yldk As Single
    Public Mddk As Single
    Public Sydk As Single
    Public HouseFunds As Single
    Public Tax As Single
    Public Qtkk As Single
    Public Mdbx As Single
    Public YearPrize As Single
    Public Sfgz As Single
    Public PayFlag As Short

    Public Sub Init()
        PayMonth = ""
        Emp_Id = 0
        BaseWage = 0
        Ot1Pay = 0
        Ot2Pay = 0
        Ot3Pay = 0
        Cdkk = 0
        Sjkk = 0
        Bjkk = 0
        Prize = 0
        Clbz = 0
        Yldk = 0
        Mddk = 0
        Sydk = 0
        HouseFunds = 0
        Tax = 0
        Qtkk = 0
        Mdbx = 0
        YearPrize = 0
        Sfgz = 0
        PayFlag = 0
    End Sub

    '刪除Salary數據
    Public Sub Delete(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String

        SQLString = "DELETE FROM Salary WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)


    End Sub

    Public Function GetPayFlag(ByVal TmpMonth As String, ByVal TmpEmpId As Integer) As Short
        If TmpMonth = "" Or TmpEmpId <= 0 Then
            GetPayFlag = 0
            Exit Function
        End If
        PayMonth = TmpMonth
        Emp_Id = TmpEmpId
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT PayFlag FROM Salary WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            GetPayFlag = 0
            Exit Function
        Else
            GetPayFlag = Val(DTable.Rows(0)(0))
        End If
    End Function

    Public Sub GetInput(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        If TmpMonth = "" Or TmpEmpId <= 0 Then
            Qtkk = 0
            Mdbx = 0
            YearPrize = 0
            Exit Sub
        End If
        PayMonth = TmpMonth
        Emp_Id = TmpEmpId
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT Qtkk,Mdbx,YearPrize FROM Salary WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            Qtkk = 0
            Mdbx = 0
            YearPrize = 0
            Exit Sub
        Else
            Qtkk = Val(DTable.Rows(0)(0))
            Mdbx = Val(DTable.Rows(0)(1))
            YearPrize = Val(DTable.Rows(0)(2))
        End If
    End Sub

    Public Function In_DB(ByVal TmpMonth As String, ByVal TmpEmpId As Integer) As Boolean

        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM Salary WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            In_DB = False
        Else
            In_DB = True
        End If

    End Function

    Public Sub Insert()
        Dim SQLString As String
        Dim MSG As String
        SQLString = "INSERT INTO Salary Values('" & Trim(PayMonth) & "'," & Trim(Str(Emp_Id)) & "," & Trim(Str(BaseWage)) & "," & Trim(Str(Prize)) & "," & Trim(Str(Ot1Pay)) & "," & Trim(Str(Ot2Pay)) & "," & Trim(Str(Ot3Pay)) & "," & Trim(Str(Cdkk)) & "," & Trim(Str(Sjkk)) & "," & Trim(CStr(Bjkk)) & "," & Trim(Str(Clbz)) & "," & Trim(Str(Yldk)) & "," & Trim(Str(Mddk)) & "," & Trim(Str(Sydk)) & "," & Trim(Str(HouseFunds)) & "," & Trim(Str(Tax)) & "," & Trim(Str(Qtkk)) & "," & Trim(Str(Mdbx)) & "," & Trim(Str(YearPrize)) & "," & Trim(Str(Sfgz)) & ",0)"
        ClsOperation.DBOperate(SQLString, MSG)

    End Sub

    Public Sub SetPay(ByVal TmpMonth As String, ByVal TmpPayFlag As Short)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update Salary Set PayFlag=" & Trim(Str(TmpPayFlag)) & " WHERE PayMonth='" & Trim(TmpMonth) & "'"
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
    Public Sub UpdateAuto(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update Salary Set BaseWage=" & Trim(Str(BaseWage)) & ",Ot1Pay=" & Trim(Str(Ot1Pay)) & ",Ot2Pay=" & Trim(Str(Ot2Pay)) & ",Ot3Pay=" & Trim(Str(Ot3Pay)) & ",Cdkk=" & Trim(Str(Cdkk)) & ",Sjkk=" & Trim(Str(Sjkk)) & ",Bjkk=" & Trim(Str(Bjkk)) & ",Prize=" & Trim(Str(Prize)) & ",Clbz=" & Trim(Str(Clbz)) & ",Yldk=" & Trim(Str(Yldk)) & ",Mddk=" & Trim(Str(Mddk)) & ",Sydk=" & Trim(Str(Sydk)) & ",HouseFunds=" & Trim(Str(HouseFunds)) & ",Tax=" & Trim(Str(Tax)) & ",Sfgz=" & Trim(Str(Sfgz)) & " WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Sub UpdateInput(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update Salary Set Qtkk=" & Trim(Str(Qtkk)) & ",Mdbx=" & Trim(Str(Mdbx)) & ",YearPrize=" & Trim(Str(YearPrize)) & ",Sfgz=" & Trim(Str(Sfgz)) & " WHERE PayMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
End Class