【正文】 db)。 // 跳到下一個員工記錄 } ()。 // 已統(tǒng)計員工數(shù)加1 (i)。 // 提交修改 } ()。 =nAbsentTimes。 =nLateTimes。 =nLeaveHDay。 =nWorkHour。 ()。 =nEarlyTimes。 =nErrandHDay。 =nOverHour。 =。 =counter。 // 提交修改 ()。 // 編輯計數(shù)器 =counter。 // 提取計數(shù)值 counter++。 // 設(shè)置過濾器，提取計數(shù)值 ()。 // 構(gòu)造計數(shù)器表 = ID=39。 // 打開數(shù)據(jù)表 if(()==0) // 判斷是否有該月份考勤記錄 { // 獲取計數(shù) CCounterRS rs_counter(amp。 + m_strTime + 39。 + + 39。db)。 // 無記錄 ()。nOverHour)。 if(()0) // 有記錄 { // 提取加班時間 (SUM,strTmp)。 + + 39。db)。 // 推進(jìn)一天 } // End of TimeStamp m_ETime+tp_02 ()。 if((WorkEndWorkStart).GetMinutes()30) nWorkHour++。 // 如果早退，增加早退次數(shù)記錄 if(bEarly) nEarlyTimes++。 } // 如果曠工，增加曠工次數(shù)記錄 if(bAbsent) nAbsentTimes++。 // 將下班時間記錄為工作結(jié)束時間 ()。 // 判斷是否有早退 if(bEarly) { // 將早退時間記錄為工作結(jié)束時間 WorkEnd=StrToTime(strTmp1)。 StrToTime(strTmp1)EarlyTime) { // 得到IN_OUT (IN_OUT,strTmp2)。 // 判斷是否早退 while(!() amp。 // 記錄遲到時間 else bAbsent=TRUE。amp。 // 跳到下一條出勤記錄 // 得到IO_TIME if(!()) (IO_TIME,strTmp1)。 bLate=(strTmp2==O)。amp。 // 記錄集不空 ()) // 空,第一次GetFieldValue (IO_TIME,strTmp1)。 // 初始化曠工判斷 // 判斷是否遲到 if(!() amp。 // 設(shè)置工作結(jié)束時間 bLate=TRUE。 // 按正常班累加工作時間 } else // 正常上班 { WorkStart=LateTime。 // 請假記錄加1 else if(bErrand) // 如果有出差記錄 { nErrandHDay++。 // 判斷是否有出差記錄 ()。 and START_TIME + (%Y%m%d %H:%M:%S) + and END_TIME + (%Y%m%d %H:%M:%S) + )。 // 關(guān)閉記錄集 // 判斷是否出差 (CRecordset::forwardOnly, select ID from ERRAND where\ PERSON=39。 bLeave=(()0)。 + + 39。 // 設(shè)置遲到時間 EarlyTime=TimeStamp+TimeSpan[2*j+1]。j=1。amp。 TimeStamp=m_STime。 nLeaveHDay=nErrandHDay=0。 ()。 + + 39。 // 設(shè)置進(jìn)度條 (0)。 // 記錄員工人數(shù) i=0。 // 設(shè)置過濾器，提取員工列表 ()。 // 構(gòu)造員工表 =STATE=39。 // 提取員工列表 CPersonRS rs_person(amp。 // 四舍五入 // 轉(zhuǎn)換統(tǒng)計開始時間 strSTime=+(%Y%m%d)+。 // 四舍五入 nHours[1]=(TimeSpan[3]TimeSpan[2]).GetTotalHours()。 } nHours[0]=(TimeSpan[1]TimeSpan[0]).GetTotalHours()。 TimeSpan[i]=*pTS。nSecond)。nMinute)。nHour)。 i4。 // 定義四個時間間隔變量并初始化為INI文件中的值 CTimeSpan *pTS。 i4。 GetPrivateProfileString(WorkPlan, Time4, 18:00:00, str[3], 9, strFileName)。 GetPrivateProfileString(WorkPlan, Time2, 12:00:00, str[1], 9, strFileName)。 // INI文件名 UpdateData()。 // 臨時變量 // 臨時變量,年,月,日,時,分,秒 int nHour,nMinute,nSecond。 // 暫存起始時間 int i,j,n,counter。 // 保存次數(shù) CString cstr[4]。 // 保存時間間隔長度 BOOL bLate,bEarly,bAbsent,bLeave,bErrand。 // 保存始末時間 CTime TimeStamp, LateTime, EarlyTime,WorkStart,WorkEnd。 // 保存上下班時間 int nHours[2]。 // 構(gòu)造一個1天的CTimeSpan CTimeSpan tp_02(0,2,0,0)。db)。db)。db)。 } ()。 ()。 (%d, )。 (%d, )。 (%d, )。 (%d, )。 (%d, )。 (%d, )。 (%d, )。 (i, 1, )。 // 添加新Item (%d, )。 // 打開統(tǒng)計數(shù)據(jù)表 ()。 CString str。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE}void CStatDlg::UpdateList(CStatRSamp。 // 構(gòu)造出勤記錄表 UpdateList(rs)。 CStatRS rs(amp。 (8, 早退次數(shù), LVCFMT_LEFT, nWidth30)。 (6, 出差時間(半天), LVCFMT_LEFT, nWidth)。 (4, 加班時間(小時), LVCFMT_LEFT, nWidth)。 (2, 年月, LVCFMT_LEFT, nWidth)。 (0, 記錄編號, LVCFMT_LEFT, 80)。 // 為List添加網(wǎng)格 (LVS_EX_GRIDLINES)。 } ()。 ()。 (i, 3, strETime)。 (i, 2, strSTime)。 (i, 1, )。 // 添加新Item (%d, )。 // 打開出差記錄表 ()。 CString strID,strSTime,strETime。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE}void CPage4::UpdateList(CErrandRS amp。 // 構(gòu)造出差記錄表 UpdateList(rs)。 CErrandRS rs(amp。 (3, 結(jié)束時間, LVCFMT_LEFT, nWidth+20)。 (1, 員工號, LVCFMT_LEFT, nWidth20)。 // 設(shè)置List的列 int nWidth=90。 // 為List添加網(wǎng)格 (LVS_EX_GRIDLINES)。 } ()。 ()。 (i, 3, strETime)。 (i, 2, strSTime)。 (i, 1, )。 // 添加新Item (%d, )。 // 打開加班記錄表 ()。 CString strID,strSTime,strETime。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE}void CPage3::UpdateList(CLeaveRS amp。 // 構(gòu)造加班記錄表 UpdateList(rs)。 COvertimeRS rs(amp。 (2, 加班時間, LVCFMT_LEFT, nWidth)。 (0, 記錄編號, LVCFMT_LEFT, nWidth)。 (LVS_EX_FULLROWSELECT)。 // 關(guān)閉出勤記錄表}BOOL CPage2::OnInitDialog() { CDialog::OnInitDialog()。 // 跳到下一條記錄 i++。 (i, 3, (%Y%m%d %H:%M))。 (i, 1, )。 // 添加新Item (%d, )。 // 打開出勤記錄表 ()。 CString strID,strTime。 // 更新列表框 // TODO: Add your control notification handler code here}void CPage1::UpdateList(CAttendanceRS amp。db)。 (strSQL)。 } while(pos) // 遍歷所有被選Item { nItem=(pos)。 if(pos==NULL) { AfxMessageBox(沒有選擇記錄!)。 int nItem。 // 顯示進(jìn)度 } ()。 // 添加當(dāng)前員工出勤記錄 ()。 (0)。 // 獲取員工人數(shù) i=0。 ()。 // 構(gòu)造員工信息表 // 設(shè)置過濾條件,提取員工列表 = STATE=39。 // 用于保存記錄條數(shù) CPersonRS rs_person(amp。 // 顯示進(jìn)度 } ()。 // 添加當(dāng)前員工出勤記錄 ()。 (0)。 // 獲取員工人數(shù) i=0。 ()。 and STATE=39。 // 判斷部門代號是否正確 // 設(shè)置過濾條件 =DEPARTMENT=39。db)。 // 追加單個員工記錄 } // TODO: Add your control notification handler code here }void CPage1::OnBtnAdddepart() { int i,n。 // 關(guān)閉考勤記錄表 UpdateList(rs_attendance)。 ()。 =strIO。 // 追加考勤記錄 =counter。 // 構(gòu)造考勤記錄表 ()。 CAttendanceRS rs_attendance(amp。nMinute)。nHour)。nDay)。nMonth)。nYear)。 // 轉(zhuǎn)換出入時間類型 int nYear,nMonth,nDay,nHour,nMinute。 // 關(guān)閉計數(shù)器記錄表// 添加記錄 // 判斷確定出入情況 if(((CButton*)GetDlgItem(IDC_RADIO_OUT))GetCheck()) strIO=O。 // 保存當(dāng)前計數(shù) ()。 // 計數(shù)值加1 ()。 // 打開計數(shù)器記錄表 counter=。A39。db)。 // 用于計數(shù) CString strIO。 // 更新界面數(shù)據(jù) OnChangeEdtDepartid()。 // 清除員工姓名顯示 ()。 // 提取員工姓名 m_strDepartID=。 // 設(shè)置過濾條件 ()。 // 構(gòu)造PERSON記錄表 = ID=39。 // 更新數(shù)據(jù) CPersonRS rs(amp。 // 關(guān)閉記錄集 UpdateData(FALSE)。 // 提取部門名稱 } else ()。 // 設(shè)置過濾條件 ()。 // 構(gòu)造記錄集 = ID=39。 // 更新數(shù)據(jù) CDepartRS rs(amp。 // 更新List // TODO: Add extra initialization here return TRUE。db)。 (3, 時間, LVCFMT_LE