VB+access人事档案管理系统毕业论文(开题报告+源程序) 第8页
Private Sub cmdOK_Click()
     Dim sql As String
     Dim rs As New ADODB.Recordset
     Dim strMsg As String
     Dim tmsb1 As Date
     Dim tmxb1 As Date
     If InFlag = False And OutFlag = False Then
            MsgBox "请选择上下班", vbOKOnly + vbExclamation, "警告!"
     End If
     If InFlag = True Then
           If MsgBox("确定要做此修改吗？", vbQuestion + vbYesNo) = vbNo Then Exit Sub
           tmsb1 = dtpBT.Value
           h = Hour(tmsb1)
           m = Minute(tmsb1)
           s = Second(tmsb1)
           tmsb1 = CDate(h & ":" & m & ":" & s)
                   
         sql = "update attendanceInfo  set 上班时间='" & tmsb1 & "'  where ID=" & CInt(tID.Text)
         Set rs = ExecuteSQL(sql, strMsg)
        
        Call frmInOutInfoList.Form_Load
        Unload Me
    ElseIf OutFlag = True Then
       
        If MsgBox("确定要做此修改吗？", vbQuestion + vbYesNo) = vbNo Then Exit Sub
       
           tmxb1 = DTPicker1.Value
           h = Hour(tmxb1)
           m = Minute(tmxb1)
           s = Second(tmxb1)
           tmsb1 = CDate(h & ":" & m & ":" & s)
                   
         sql = "update attendanceInfo  set 下班时间='" & tmxb1 & "'  where ID=" & CInt(tID.Text)
         Set rs = ExecuteSQL(sql, strMsg)
         Call frmInOutInfoList.Form_Load
         Unload Me
    End If
5.3.3.2修改其它考勤信息
具体实现类似修改上下班考勤信息，在此不在螯述。
5.3.3.2.1修改员工请假信息(略)
5.3.3.2.2修改员工加班信息(略)
5.3.3.2.3修改员工出差信息(略)
5.3.4查询员工考勤信息
查询员工考勤信息，根据员工编号或时间进行查询得到所有的考勤信息。包括上下班，加班和出差信息，但是不能够对信息进行任何的操作。以查询员工上下班考勤信息为例介绍如下:
 相关部分代码如下:
Private Sub cmdOk_Click()
 Dim strHead As String
   Dim strAdd As String
     Dim strSql As String
 strHead = "select ID,t_br.工号,t_br.姓名,当前日期,出入标志,上班时间,下班时间,迟到次数,早退次数 from AttendanceInfo,t_br where AttendanceInfo.工号=t_br.工号"
  If chkBH.Value = 1 And Trim(txtBH.Text) <> "" Then
     strAdd = strAdd & " and t_br.工号='" & Trim(txtBH.Text) & "'"
  End If
    If chkName.Value = 1 And Trim(txtName.Text) <> "" Then
     strAdd = strAdd & " and t_br.姓名 like '%" & Trim(txtName.Text) & "%'"
  End If 
  If chkDC = 1 Then
    strAdd = strAdd & " and 当前日期>= #" & dtpFrom & "# and 当前日期<=#" & dtpTo & "#"
  End If
 strSql = strHead & strAdd
  frmInOutInfoList.showgrid1 (strSql)
 frmInOutInfoList.Show
End Sub
5.3.5员工考勤信息列表
5.3.5.1员工上下班信息列表
该窗体如下图所示，双击某条记录可进行修改操作，右键弹出式菜单进行添加、修改、查询、删除、刷新操作，相应窗体如图所示。
 
其部分相关代码如下：
Public Sub Form_Load()
Dim sql As String
Dim strMsg As String
Dim rs As New ADODB.Recordset
sql = "select * from AttendanceInfo"
Set rs = ExecuteSQL(sql, strMsg)
Call showData(sql, KQGrid1)
End Sub
Private Sub KQGrid1_DblClick()
frmChgInOutInfo.Show
If KQGrid1.Rows <= 1 Then Exit Sub
If KQGrid1.Row < 1 Then Exit Sub
Dim strnow As Date
Dim strInTime As Date
Dim strOutTime As Date
frmChgInOutInfo.txtID.Text= KQGrid1.TextMatrix(KQGrid1.Row, 2)
frmChgInOutInfo.txtName.Text= KQGrid1.TextMatrix(KQGrid1.Row, 3)
strnow = KQGrid1.TextMatrix(KQGrid1.Row, 4)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页