?? clssalaryrules.vb
字號(hào):
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -