Class ClsSalaryRules
    '1 RuleType  Int 規(guī)則類型，1 -遲到扣款（單位是元/次），2 -差旅補(bǔ)助（單位是元/天），3 -養(yǎng)老代扣系數(shù)，4 -基本醫(yī)療代扣系數(shù)，5 -失業(yè)保險(xiǎn)代扣系數(shù)，6 -住房公積金代扣系數(shù)
    '1 RuleAmount  Decimal (10,2)  對(duì)應(yīng)的金額或系數(shù)

    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