checkin.cls

人力管理VB源代码,可以直接修改并生成工程。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CheckIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 CheckinMonth  Char 10 考勤月份
'2 Emp_Id  Int 员工编号
'3 DaysOfMonth TinyInt 当月天数
'4 qqDays  Decimal (4,1) 全勤天数
'5 bjDays  Decimal (4,1) 病假天数
'6 sjDays  Decimal (4,1) 事假天数
'7 kgDays  Decimal (4,1) 旷工天数
'8 fdxjDays  Decimal (4,1) 法定休假天数
'9 nxjDays Decimal (4,1) 年休假天数
'10  dxjDays Decimal (4,1) 倒休假天数
'11  cxDays  Decimal (4,1) 出差天数
'12  cdDays  Decimal (4,1) 迟到次数
'13  ztDays  Decimal (4,1) 早退次数
'14  ot1Days Decimal (4,1) 一类加班天数（法定节假日加班）
'15  ot2Days Decimal (4,1) 二类加班天数（周六或周日加班）
'16  ot3Days Decimal (4,1) 三在加班天数（日常加班）

Public CheckinMonth As String
Public Emp_Id As Integer
Public DaysOfMonth As Integer
Public qqDays As Single
Public bjDays As Single
Public sjDays As Single
Public kgDays As Single
Public fdxjDays As Single
Public nxjDays As Single
Public dxjDays As Single
Public cxDays As Single
Public cdDays As Single
Public ztDays As Single
Public ot1Days As Single
Public ot2Days As Single
Public ot3Days As Single

Public Sub Init()
  CheckinMonth = ""
  Emp_Id = 0
  DaysOfMonth = 0
  qqDays = 0
  bjDays = 0
  sjDays = 0
  kgDays = 0
  fdxjDays = 0
  nxjDays = 0
  dxjDays = 0
  cxDays = 0
  cdDays = 0
  ztDays = 0
  ot1Days = 0
  ot2Days = 0
  ot3Days = 0
End Sub

'删除CheckIn数据
Public Sub Delete(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
  '连接数据库
  MyDB.openDB
  
  '设置语句
  SqlStmt = "DELETE FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCheckIn As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Sub

Public Function GetInfo(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  If TmpMonth = "" Or TmpEmpId <= 0 Then
    GetInfo = False
    Exit Function
  End If
  
  CheckinMonth = TmpMonth
  Emp_Id = TmpEmpId
  
  '连接数据库
  MyDB.openDB
  
  '设置语句
  SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(Emp_Id))
          
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCheckIn As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
          
 
  If rsCheckIn.RecordCount = 0 Then
    GetInfo = False
    Init
    Exit Function
  Else

    DaysOfMonth = rsCheckIn.Fields("DaysOfMonth")
    qqDays = rsCheckIn.Fields("qqDays")
    bjDays = rsCheckIn.Fields("bjDays")
    sjDays = rsCheckIn.Fields("sjDays")
    kgDays = rsCheckIn.Fields("kgDays")
    fdxjDays = rsCheckIn.Fields("fdxjDays")
    nxjDays = rsCheckIn.Fields("nxjDays")
    dxjDays = rsCheckIn.Fields("dxjDays")
    cxDays = rsCheckIn.Fields("cxDays")
    cdDays = rsCheckIn.Fields("cdDays")
    ztDays = rsCheckIn.Fields("ztDays")
    ot1Days = rsCheckIn.Fields("ot1Days")
    ot2Days = rsCheckIn.Fields("ot2Days")
    ot3Days = rsCheckIn.Fields("ot3Days")
  End If
  
  GetInfo = True
  '断开与数据库的连接
  MyDB.closeDB
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  
  '连接数据库
  MyDB.openDB
  
  SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  
   '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCheckIn As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, False)
  
  If rsCheckIn.RecordCount = 0 Then
    In_DB = False
  Else
    In_DB = True
  End If
  
 '断开与数据库的连接
  MyDB.closeDB
End Function

Public Sub Insert()
  
  '连接数据库
  MyDB.openDB
  
  SqlStmt = "INSERT INTO CheckIn Values('" _
     + Trim(CheckinMonth) + "'," + Trim(Str(Emp_Id)) _
     + "," + Trim(Str(DaysOfMonth)) + "," + Trim(Str(qqDays)) _
     + "," + Trim(Str(bjDays)) + "," + Trim(Str(sjDays)) _
     + "," + Trim(Str(kgDays)) + "," + Trim(fdxjDays) + "," _
     + Trim(Str(nxjDays)) + "," + Trim(Str(dxjDays)) + "," + Trim(Str(cxDays)) _
     + "," + Trim(Str(cdDays)) + "," + Trim(Str(ztDays)) + "," _
     + Trim(Str(ot1Days)) + "," + Trim(Str(ot2Days)) + "," _
     + Trim(Str(ot3Days)) + ")"
   
   '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCheckIn As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
  '断开与数据库的连接
  MyDB.closeDB
End Sub

Public Sub Update(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
  '连接数据库
  MyDB.openDB
  
  SqlStmt = "Update CheckIn Set qqDays=" + Trim(Str(qqDays)) _
          + ",bjDays=" + Trim(Str(bjDays)) + ",sjDays=" _
          + Trim(Str(sjDays)) + ",kgDays=" + Trim(Str(kgDays)) _
          + ",fdxjDays=" + Trim(Str(fdxjDays)) + ",nxjDays=" _
          + Trim(Str(nxjDays)) + ",dxjDays=" + Trim(Str(dxjDays)) _
          + ",cxDays=" + Trim(Str(cxDays)) + ",cdDays=" _
          + Trim(Str(cdDays)) + ",ztDays=" + Trim(Str(ztDays)) _
          + ",ot1Days=" + Trim(Str(ot1Days)) + ",ot2Days=" _
          + Trim(Str(ot2Days)) + ",ot3Days=" + Trim(Str(ot3Days)) _
          + " WHERE CheckinMonth='" + Trim(TmpMonth) _
          + "' And Emp_Id=" + Trim(Str(TmpEmpId))
   '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCheckIn As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCheckIn, True)
  '断开与数据库的连接
  MyDB.closeDB
End Sub