【正文】 //打開(kāi)工資管理表 ()。 GetDlgItemText(IDC_COMBO2, con)。 //獲得職工編號(hào)ret=(employee_id, CADOOperation::ADO_TYPE_STRING, amp。con)。 GetDlgItemText(IDC_EDIT10, con)。 //獲得基本工資 fl = (float)atof(con)。ret=(base_laborage, CADOOperation::ADO_TYPE_FLOAT, amp。fl)。 GetDlgItemText(IDC_EDIT13, con)。 //獲得職務(wù)工資 fl = (float)atof(con)。ret = (duty_laborage, CADOOperation::ADO_TYPE_FLOAT, amp。fl)。 GetDlgItemText(IDC_EDIT12, con)。 //獲得工齡工資 fl = (float)atof(con)。ret = (leser_laborage, CADOOperation::ADO_TYPE_FLOAT, amp。fl)。 GetDlgItemText(IDC_EDIT11, con)。 //獲得養(yǎng)老保險(xiǎn)金 fl = (float)atof(con)。 ret = (insurance, CADOOperation::ADO_TYPE_FLOAT, amp。fl)。 GetDlgItemText(IDC_EDIT14, con)。 //缺勤扣款 fl = (float)atof(con)。 ret = (recoup, CADOOperation::ADO_TYPE_FLOAT, amp。fl)。 ()。 ()。 return ret。} 日常管理模塊詳細(xì)設(shè)計(jì) 考勤錄入模塊設(shè)計(jì)考勤錄入運(yùn)行效果如圖511所示：圖511考勤錄入1)新建對(duì)話框,修改ID號(hào)為IDD_TIMECARD，添加相關(guān)控件。2)為考勤錄入對(duì)話框添加SaveTimeCard()，該函數(shù)用于保存員工考勤信息錄入，代碼實(shí)現(xiàn)如下：BOOL CTimeCardDlg::SaveTimeCard(){ CADOOperation tmCard。 SYSTEMTIME sysTime = {0}。 CString name, id。 int hour, minute, lStyle, absState, worklong = 0。 hour = GetDlgItemInt(IDC_EDIT1)。 //小時(shí) minute = GetDlgItemInt(IDC_EDIT2)。 //分鐘 if(hour 8) {MessageBox(每天工作小于8小時(shí)！, 提示, MB_OK|MB_ICONWARNING)。 return FALSE。 } if(minute 60) {MessageBox(一小時(shí)只有60分鐘！， 提示， MB_OK | MB_ICONWARNING)。 return FALSE。} ret = (tb_timecard)。 //打開(kāi)考勤表 ()。 ::GetSystemTime(amp。sysTime)。 //保存出勤卡日期ret=(timecart_date,CADOOperation::ADO_TYPE_DATE,amp。sysTime)。 GetDlgItemText(IDC_COMBO1, name)。 id = GetEmployIDByName(name)。 //保存簽到員工ID號(hào)ret=(employee_id,CADOOperation::ADO_TYPE_STRING,amp。id)。 worklong = hour*60 + minute。 //保存員工工作時(shí)間 ret=(timecart_worklong, CADOOperation::ADO_TYPE_INT, amp。worklong)。 lStyle = GetLeaveStyle()。 //是否遲到早退 (timecart_reason,CADOOperation::ADO_TYPE_INT, amp。lStyle)。 absState = GetAbsenceState()。 (timecart_late_leave_early, CADOOperation::ADO_TYPE_INT, amp。absState)。 ret = ()。 ret = ()。 return TRUE。} 請(qǐng)假模塊設(shè)計(jì)請(qǐng)假登記模塊運(yùn)行效果如圖512所示：圖512 請(qǐng)假條1)新建對(duì)話框，修改ID號(hào)為IDD_LEAVEITEM，添加相應(yīng)控件。2)為請(qǐng)假條信息登記對(duì)話框添加SaveLeaveItem()函數(shù)，主要用于員工請(qǐng)假信息登記，代碼實(shí)現(xiàn)如下：BOOL CLeaveItemDlg::SaveLeaveItem(){ CADOOperation ado。 CString constr。 SYSTEMTIME sysTime = {0}。 (tb_req_leave)。 //打開(kāi)請(qǐng)假表 ()。 GetDlgItemText(IDC_COMBO3, constr)。 //獲得員工編號(hào) ret = (req_emp, CADOOperation::ADO_TYPE_STRING, amp。constr)。 GetDlgItemText(IDC_COMBO2, constr)。 //請(qǐng)假時(shí)間 ret = (req_stl, CADOOperation::ADO_TYPE_STRING, amp。constr)。((CDateTimeCtrl*)GetDlgItem(IDC_DATETIMEPICKER2))GetTime(amp。sysTime)。 //起始日期 ret = (req_frm, CADOOperation::ADO_TYPE_DATE, amp。sysTime)。((CDateTimeCtrl*)GetDlgItem(IDC_DATETIMEPICKER3))GetTime(amp。sysTime)。 //終止日期 ret = (req_to, CADOOperation::ADO_TYPE_DATE, amp。sysTime)。((CDateTimeCtrl*)GetDlgItem(IDC_DATETIMEPICKER1))GetTime(amp。sysTime)。 //請(qǐng)假日期 ret = (req_date, CADOOperation::ADO_TYPE_DATE, amp。sysTime)。 GetDlgItemText(IDC_EDIT11, constr)。 //請(qǐng)假事由 ret = (req_res, CADOOperation::ADO_TYPE_STRING, amp。constr)。 GetDlgItemText(IDC_EDIT10, constr)。 //請(qǐng)假類型 ret = (req_lng, CADOOperation::ADO_TYPE_STRING, amp。constr)。 ()。 ()。 return ret。} 編輯工資單模塊設(shè)計(jì)1)新建對(duì)話框，修改ID號(hào)為IDD_PAYSLIP2)為編輯工資單對(duì)話框添加SavePaySlip()函數(shù)，該函數(shù)主要用于保存工資單詳細(xì)信息，代碼實(shí)現(xiàn)如下： (tb_paylist)。 //打開(kāi)工資單列表 ()。 GetDlgItemText(IDC_COMBO2, name)。 //員工姓名 id = CTimeCardDlg::GetEmployIDByName(name)。 ret=(employee_id,CADOOperation::ADO_TYPE_STRING, amp。id)。 f = (float)GetDlgItemFloat(IDC_EDIT12)。 //獲得基本工資 ret=(pay_laborage, CADOOperation::ADO_TYPE_FLOAT, amp。f)。 f = (float)GetDlgItemFloat(IDC_EDIT10)。 //缺勤扣款 ret = (pay_deduct, CADOOperation::ADO_TYPE_FLOAT, amp。f)。 f = (float)GetDlgItemFloat(IDC_EDIT11)。 //獲得獎(jiǎng)金 ret = (pay_bonus, CADOOperation::ADO_TYPE_FLOAT, amp。f)。 CComboBox* pComYear = (CComboBox*)GetDlgItem(IDC_COMBO3), *pComMonth = (CComboBox*)GetDlgItem(IDC_COMBO4)。 CString str。 pComMonthGetLBText(pComMonthGetCurSel(), str)。 month = atoi(str)。 //月工資 pComYearGetLBText(pComYearGetCurSel(), str)。 year = atoi(str)。 //年工資 ret = (pay_datemonth,CADOOperation::ADO_TYPE_INT, amp。month)。 ret = (pay_dateyear, CADOOperation::ADO_TYPE_INT, amp。year)。 f = (float)GetDlgItemFloat(IDC_EDIT13)。 //職位工資 ret=(duty_laborage,CADOOperation::ADO_TYPE_FLOAT, amp。f)。 f = (float)GetDlgItemFloat(IDC_EDIT14)。 //缺勤工資 ret=(leser_laborage,CADOOperation::ADO_TYPE_FLOAT, amp。f)。 f = (float)GetDlgItemFloat(IDC_EDIT15)。 //養(yǎng)老保險(xiǎn) ret = (insurance, CADOOperation::ADO_TYPE_FLOAT, amp。f)。 ()。 ()。 return TRUE。編輯工資單運(yùn)行效果如圖513所示：圖513 編輯工資單 信息導(dǎo)出模塊詳細(xì)設(shè)計(jì)在本系統(tǒng)程序里，各種列表都可以把數(shù)據(jù)以表的形式導(dǎo)入到Word中保存。具體操作步驟如下:(1)選擇View/ClassWirzard命令，在彈出的對(duì)話框中單擊AddClass按鈕，在彈出的下拉菜單中選擇From a type library命令.(2)在彈出的Import from Type .(3)單擊”打開(kāi)”按鈕，在彈出的對(duì)話框中選擇需要的類，本系統(tǒng)選擇_Application、Documents、_Document、Tables、Selection和Range6個(gè)類。(4)單擊OK即可插入。(5):include “”(6)實(shí)現(xiàn)把數(shù)據(jù)庫(kù)數(shù)據(jù)表導(dǎo)入Word操作的實(shí)現(xiàn)代碼如下：BOOL CADOOperation::ExportToWord(CStringamp。 file){ Fields* fields = NULL。 long count = 0。 //表頭元素個(gè)數(shù)m_pRecordsetget_Fields(amp。fields)。 count = fieldsCount。 //得到表頭元素個(gè)數(shù) //以下代碼為Word應(yīng)用對(duì)象的初始化過(guò)程 _Application application。 //創(chuàng)建一個(gè)Word應(yīng)用對(duì)象 _Document document。 //文檔對(duì)象 Documents documents。 Tables tables。 Range range。 _Document saveDoc。 Selection selection。 COleVariant colevariant。CComVariant FileFormat(0)。 CComVariant LockComments(FALSE), Password(_T())。 CComVariant AddToRecentFiles(true),WritePassword()。 CComVariant ReadOnlyRemended(false), EmbedTrueTypeFonts(false)。 CComVariant SaveNativePictureFormat(false), SaveFormsData(false)。 CComVariant SaveAsAOCELetter(false)。CComVariant FileName()。 //保存的位置 CComVariant Template(_T()),NewTemplate(false),DocumentType(0),Visible(true)。 ()。 (())。 ((amp。Template, //無(wú)模板 amp。NewTemplate, //不是新建模板 amp。DocumentType, //無(wú)類型 amp。Visible))。 //初始不可見(jiàn)