clssalary.vb

使用说明 1.在使用源程序前

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