内容发布更新时间 : 2024/11/13 3:54:30星期一 下面是文章的全部内容请认真阅读。

e.New(1);

e.RenameWorksheet((size_t)0, L\职工考勤\

BasicExcelWorksheet* sheet = e.GetWorksheet(L\职工考勤\sheet->Cell(0,0)->SetWString(\日期\sheet->Cell(0,1)->SetWString(\星期\sheet->Cell(0,2)->SetWString(\姓名\sheet->Cell(0,3)->SetWString(\部门\sheet->Cell(0,4)->SetWString(\上班\sheet->Cell(0,5)->SetWString(\下班\CListCtrl *hlist=&_lists;

int rows=hlist->GetItemCount();

int lows=hlist->GetHeaderCtrl()->GetItemCount(); int i,j;

COleDateTime odt; for(i=1;i<=rows;i++) { for(j=0;jCell(i,j)->SetWString(hlist->GetItemText(i-1,j)); } } i=i+2; int m,n;

m=_latearray.GetSize();

sheet->Cell(i,0)->SetWString(\迟到\i++;

for(n=0,j=0;nCell(i,j++)->SetWString(_latearray.GetAt(n).GetDate()); sheet->Cell(i,j++)->SetWString(_latearray.GetAt(n).GetWeek()); sheet->Cell(i,j++)->SetWString(_latearray.GetAt(n).GetName()); sheet->Cell(i,j++)->SetWString(_latearray.GetAt(n).GetDepartment()); } i=i+2;

m=_leaveearlyarray.GetSize();

sheet->Cell(i,0)->SetWString(\早退\i++;

for(n=0,j=0;nCell(i,j++)->SetWString(_leaveearlyarray.GetAt(n).GetDate()); sheet->Cell(i,j++)->SetWString(_leaveearlyarray.GetAt(n).GetWeek()); sheet->Cell(i,j++)->SetWString(_leaveearlyarray.GetAt(n).GetName()); sheet->Cell(i,j++)->SetWString(_leaveearlyarray.GetAt(n).GetDepartment()); }

25

i=i+2; m=_absentarray.GetSize(); sheet->Cell(i,0)->SetWString(\缺勤\ i++; for(n=0,j=0;nCell(i,j++)->SetWString(_absentarray.GetAt(n).GetDate()); sheet->Cell(i,j++)->SetWString(_absentarray.GetAt(n).GetWeek()); sheet->Cell(i,j++)->SetWString(_absentarray.GetAt(n).GetName()); sheet->Cell(i,j++)->SetWString(_absentarray.GetAt(n).GetDepartment()); } i=i+2; m=_employstatinfoarray.GetSize(); sheet->Cell(i,0)->SetWString(\单个职工统计\ i++; j=0; sheet->Cell(i,j++)->SetWString(\姓名\ sheet->Cell(i,j++)->SetWString(\专业\ sheet->Cell(i,j++)->SetWString(\早退次数\ sheet->Cell(i,j++)->SetWString(\迟到次数\ sheet->Cell(i,j++)->SetWString(\缺勤次数\ sheet->Cell(i,j++)->SetWString(\未刷卡次数\ i++; for(n=0,j=0;nCell(i,j++)->SetWString(_employstatinfoarray.GetAt(n).m_name); sheet->Cell(i,j++)->SetWString(_employstatinfoarray.GetAt(n).m_department); sheet->Cell(i,j++)->Set(_employstatinfoarray.GetAt(n).m_leave.GetCount()); sheet->Cell(i,j++)->Set(_employstatinfoarray.GetAt(n).m_late.GetCount()); sheet->Cell(i,j++)->Set(_employstatinfoarray.GetAt(n).m_absent.GetCount()); sheet->Cell(i,j++)->Set(_employstatinfoarray.GetAt(n).m_norecord.GetCount()); } if(e.SaveAs(\ AfxMessageBox(TEXT(\成功导出为Excel - example.xls\MB_ICONINFORMATION, 0); else AfxMessageBox(TEXT(\导出失败\}

#undef ATTENDANCE_LIST_DATETIME_IDX #undef ATTENDANCE_LIST_WEEK_IDX #undef ATTENDANCE_LIST_NAME_IDX #undef ATTENDANCE_LIST_DEPARTMENT_IDX #undef ATTENDANCE_LIST_SWORDTIME_IDX #undef ATTENDANCE_LIST_EWORKTIME_IDX

26

void CAttendance::OnLvnItemchangedListAttendancd(NMHDR *pNMHDR, LRESULT *pResult) { LPNMLISTVIEW pNMLV = reinterpret_cast(pNMHDR); // TODO: 在此添加控件通知处理程序代码 *pResult = 0; } void CAttendance::OnDtnDatetimechangeDatetimepickerDateend(NMHDR *pNMHDR, LRESULT *pResult) { LPNMDATETIMECHANGE pDTChange = reinterpret_cast(pNMHDR); // TODO: 在此添加控件通知处理程序代码 *pResult = 0;

}

4.4系统运行结果

以下为该职工考勤系统运行的结果：

图15 用户运行界面 图16 学院运行界面

27

图17 专业运行界面 图18 职工运行界面

图19 考勤运行界面 图20 读卡运行界面

图21 导出的Excel表

28