clssalaryrules.cls

这是一个利用VB编写的中小企业ERP。功能比较全

Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsSalaryRules"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 RuleType  Int 规则类型，1 -迟到扣款（单位是元/次），2 -差旅补助（单位是元/天），3 -养老代扣系数，4 -基本医疗代扣系数，5 -失业保险代扣系数，6 -住房公积金代扣系数
'1 RuleAmount  Decimal (10,2)  对应的金额或系数

Public RuleType As Integer
Public RuleAmount As Single

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

Public Function GetAmount(ByVal TmpType As Integer) As Single
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "SELECT RuleAmount FROM SalaryRules WHERE RuleType=" _
               + Trim(Str(TmpType))
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsSalaryRules As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsSalaryRules, True)
    
    
    If rsSalaryRules.RecordCount = 0 Then
        GetAmount = 0
        '断开与数据库的连接
        MyDB.closeDB
        Exit Function
    Else
        
        GetAmount = rsSalaryRules.Fields("RuleAmount")
    End If
    
    '断开与数据库的连接
    MyDB.closeDB
End Function

Public Function In_DB(ByVal TmpType As Integer) As Boolean
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM SalaryRules WHERE RuleType=" _
               + Trim(Str(TmpType))
    
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsSalaryRules As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsSalaryRules, True)
    
    If rsSalaryRules.RecordCount = 0 Then
        In_DB = False
    Else
        In_DB = True
    End If
    '断开与数据库的连接
    MyDB.closeDB
    
End Function

Public Sub Insert()
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "INSERT INTO SalaryRules Values(" _
               + Trim(Str(RuleType)) + "," + Trim(Str(RuleAmount)) + ")"
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsSalaryRules As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsSalaryRules, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub

Public Sub Update(ByVal OriType As Integer)
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "Update SalaryRules Set RuleAmount=" + Trim(Str(RuleAmount)) _
               + " WHERE RuleType=" + Trim(Str(OriType))
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsSalaryRules As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsSalaryRules, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub