checkin.cls

开发人力资源管理系统的目的就是帮助企业的人力资源部门提高工作效率,实现企业认识信息管理的系统化,规范化和自动化.根据这个系统所要实现的目的和任务,总结出这个系统最终实现的主要功能如下: 1.部门信息

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)
  DB_Connect
  
  SqlStmt = "DELETE FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
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
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(Emp_Id))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    DaysOfMonth = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    qqDays = Val(ColVal)

    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    bjDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    sjDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Lench(ColVal), pcblench)
    kgDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Lench(ColVal), pcblench)
    fdxjDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Lench(ColVal), pcblench)
    nxjDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Lench(ColVal), pcblench)
    dxjDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 11, 1, ColVal, Lench(ColVal), pcblench)
    cxDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 12, 1, ColVal, Lench(ColVal), pcblench)
    cdDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 13, 1, ColVal, Lench(ColVal), pcblench)
    ztDays = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 14, 1, ColVal, Lench(ColVal), pcblench)
    ot1Days = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 15, 1, ColVal, Lench(ColVal), pcblench)
    ot2Days = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 16, 1, ColVal, Lench(ColVal), pcblench)
    ot3Days = Val(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM CheckIn WHERE CheckinMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  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)) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
  DB_Connect
  
  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))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub