clssalaryrules.vb

来自「vb2005人事管理系统源码」· VB 代码 · 共 56 行

Class ClsSalaryRules
    '1 RuleType  Int 规则类型，1 -迟到扣款（单位是元/次），2 -差旅补助（单位是元/天），3 -养老代扣系数，4 -基本医疗代扣系数，5 -失业保险代扣系数，6 -住房公积金代扣系数
    '1 RuleAmount  Decimal (10,2)  对应的金额或系数

    Public RuleType As Short
    Public RuleAmount As Single

    Public Sub Init()
        RuleType = 0
        RuleAmount = 0
    End Sub

    Public Function GetAmount(ByVal TmpType As Short) As Single
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT RuleAmount FROM SalaryRules WHERE RuleType=" & Trim(Str(TmpType))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            GetAmount = 0
            Exit Function
        Else
            GetAmount = Val(DTable.Rows(0)(0))
        End If
    End Function

    Public Function In_DB(ByVal TmpType As Short) As Boolean
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM SalaryRules WHERE RuleType=" & Trim(Str(TmpType))
        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 SalaryRules Values(" & Trim(Str(RuleType)) & "," & Trim(Str(RuleAmount)) & ")"
        ClsOperation.DBOperate(SQLString, MSG)

    End Sub

    Public Sub Update(ByVal OriType As Short)

        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update SalaryRules Set RuleAmount=" & Trim(Str(RuleAmount)) & " WHERE RuleType=" & Trim(Str(OriType))
        ClsOperation.DBOperate(SQLString, MSG)

    End Sub
End Class