【導(dǎo)讀】息化管理，使用計算機系統(tǒng)代替復(fù)雜的手工方式來管理考勤事務(wù)?？梢杂行У毓芾砉締T工的出勤情況，規(guī)范人事制度管理，保證公司正常的工作，是人力資源管理的重要組成部分。統(tǒng)用戶管理模塊。為工具軟件，數(shù)據(jù)庫為SQLServer2021。系統(tǒng)采用目前比較流行的ADO. 面向?qū)ο蟮某绦蛟O(shè)計思想應(yīng)用到數(shù)據(jù)庫應(yīng)用程序中。

　　

【正文】 if () 39 pID = 0。 else pID = (pNode)。 CADODataSet dataset。 (::GetConnection())。 (Select top 1 * From tab_Dept)。 ()。 (DeptName,(_variant_t))。 (memo,(_variant_t))。 (PID,(long)pID)。 ()。 UpdateDept()。 } } 當單擊“修改”按鈕時將彈出部門編輯窗體，輸入部門信息后單擊“確定”按鈕將添加一個新的部門，代碼如下： void CDeptManage::OnEdit() { CDeptEdit deptedit。 = false。 HTREEITEM pNode = ()。 40 if (pNode == 0) return。 int pID = (pNode)。 CADODataSet dataset。 (::GetConnection())。 CString str。 (Select * From tab_Dept where id = %d,pID)。 (str)。 = (char *)(_bstr_t)()Item[LDeptName]Value。 = (char *)(_bstr_t)()Item[memo]Value。 if (() == IDOK) { (DeptName,(_variant_t))。 (memo,(_variant_t))。 ()。 UpdateDept()。 } } 當單擊“刪除”按鈕時將刪除當前選中的節(jié)點，代碼如下： void CDeptManage::OnDelete() { HTREEITEM pNode = ()。 if (pNode == 0) 41 return。 if (MessageBox(是否刪除此記錄！ ,提示 , MB_YESNO|MB_ICONWARNING) == IDYES) { int pID = (pNode)。 CADODataSet dataset。 (::GetConnection())。 CString str。 (Select * From tab_Dept where id = %d,pID)。 (str)。 ()。 ()。 UpdateDept()。 } } 人員信息管理模塊 人員信息管理模塊根據(jù)部門分類顯示，同時可對人員信息進行維護。人員信息管理界面 如圖 49 所示。 在人員信息管理界面中可以看到，左側(cè)是部門信息，右側(cè)是人員信息。當選中某一部門信息分類時右側(cè)的人員信息會根據(jù)選中的部門進行人員信息的分類顯示。這一 42 操作主要是通過數(shù)列表視圖控件中的 OnSelchanged 事件完成的，當樹列表中的選中節(jié)點發(fā)生改變時就會觸發(fā)該事件，實現(xiàn)代碼如下： void CPersonManage::OnSelchangedTreedept(NMHDR * pNMHDR,LRESULT * pResult) { NM_TREEVIEW * pNMTreeView = (NM_TREEVIEW*)pNMHDR。 m_DeptID = (pNMTreeView)。 UpdatePerson()。 *pResult = 0。 } 創(chuàng)建一個對話框，打開對話框?qū)傩源翱?，將對話框?ID改為 IDD_DLGPERSON,將對話框標題改為“人員信息管理”。向?qū)υ捒蛑刑砑觾蓚€群組控件、一個樹列表視圖控件、一個列表視圖控件和 4個按鈕控件。分別設(shè)置按鈕的 Caption 屬性為“添加”、“修改”、“刪除”和“退出”。添加 GetNode 方法 獲取部門表中的數(shù)據(jù)信息添加到樹列表視圖控件中。該方法由 UpdateDept 方法調(diào)用，實現(xiàn)代碼如下： void CPersonManage::UpdatePerson() { ()。 CADODataSet DataSet。 (::GetConnection())。 CString str。 43 if(m_DeptID == 1) (Select * From tab_Employees)。 else (Select * From tab_Employees where Dept = %d,m_DeptID)。 (str)。 int count = ()。 int n = 0。 _variant_t value。 for(int i = 0。icount。i++) { int index = 1。 (n,(_bstr_t)()Item[Emp_Id]Value)。 value = ()Item[AutoID]Value。 (n,value,lVal)。 (n,index++,(_bstr_t)()Item[Emp_NAME]Value)。 (n,index++,(_bstr_t)()Item[Sex]Value)。 (n,index++,(_bstr_t)()Item[Nationality]Value)。 (n,index++,(_bstr_t)( 44 )Item[Birth]Value)。 (n,index++,(_bstr_t)()Item[Political_Party]Value)。 (n,index++,(_bstr_t)()Item[Culture_Level]Value)。 (n,index++,(_bstr_t)()Item[Marital_Condition]Value)。 (n,index++,(_bstr_t)()Item[Id_Card]Value)。 (n,index++,(_bstr_t)()Item[Office_phone]Value)。 (n,index++,(_bstr_t)()Item[Mobile]Value)。 (n,index++,(_bstr_t)()Item[HireDate]Value)。 (n,index++,(_bstr_t)()Item[Duty]Value)。 (n,index++,(_bstr_t)()Item[Memo]Value)。 (n,index++,(_bstr_t)()Item[Files_Keep_Org]Value)。 (n,index++,(_bstr_t)()Item[Hukou]Value)。 45 (n,index++,(_bstr_t)()Item[Family_Place]Value)。 n ++。 ()。 } } 添加 OnInitDialog 方法，用于初始化人員 信息管理界面中的數(shù)據(jù)。在該方法中顯示部門信息、人員信息，代碼如下： BOOL CPersonManage::OnInitDialog() { CDialog::OnInitDialog()。 m_DeptID = 1。 UpdateDept()。 int i = 0。 (i,人員編號 )。 (i++,80)。 (i,人員名稱 )。 (i++,100)。 46 (i,性別 )。 (i++,50)。 (i,民族 )。 (i++,50)。 (i,出生日期 )。 (i++,100)。 (i,政治面貌 )。 (i++,100)。 (i,文化程度 )。 (i++,100)。 (i,婚姻狀況 )。 (i++,100)。 (i,身份證號 )。 (i++,100)。 (i,辦公電話 )。 47 (i++,100)。 (i,手機電話 )。 (i++,100)。 (i,到崗日期 )。 (i++,100)。 (i,職務(wù) )。 (i++,100)。 (i,備注 )。 (i++,100)。 (i,家庭住址 )。 (i++,100)。 (i,檔案所在地 )。 (i++,100)。 (i,戶口所在地 )。 (i++,100)。 48 (LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES)。 UpdatePerson()。 return TRUE。 } 單擊“添加”按鈕，彈出人員編輯窗體，輸入人員信息后單擊“保存”按鈕實現(xiàn)人員信息添加，代碼如下： BOOL CPersonManage::OnInitDialog() { CDialog::OnInitDialog()。 m_DeptID = 1。 UpdateDept()。 int i = 0。 (i,人員編號 )。 (i++,80)。 (i,人員名稱 )。 (i++,100)。 (i,性別 )。 49 (i++,50)。 (i,民族 )。 (i++,50)。 (i,出生日期 )。 (i++,100)。 (i,政治面貌 )。 (i++,100)。 (i,文化程度 )。 (i++,100)。 (i,婚姻狀況 )。 (i++,100)。 (i,身份證號 )。 (i++,100)。 (i,辦公電話 )。 (i++,100)。 50 (i,手機電話 )。 (i++,100)。 (i,到崗日期 )。 (i++,100)。 (i,職務(wù) )。 (i++,100)。 (i,備注 )。 (i++,100)。 (i,家庭住址 )。 (i++,100)。 (i,檔案所在地 )。 (i++,100)。 (i,戶口所在地 )。 (i++,100)。 (LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES)。 51 UpdatePerson()。 return TRUE。 } 單擊“修改”按鈕，彈出人員編輯窗體，輸入人員信息后單擊“保存”按鈕實現(xiàn)人員信息修改，代碼如下： void CPersonManage::OnEdit() { if (() == 1) return。 int id = (())。 CPersonEdit personedit。 CADODataSet dataset。 (::GetConnection())。 CString str。 (select * from tab_Employees where autoid = %d,id)。 (str)。 = (char *)(_bstr_t)()Item[Emp_Id]Value。 = (char *)(_bstr_t)()Item[Emp_NAME]Value。 = (char 52 *)(_bstr_t)()Item[Sex]Value。 = (char *)(_bstr_t)()Item[Nationality]Value。 CString birth = (char *)(_bstr_t)()Item[Birth]Value。 if (!()) { //設(shè)置日期數(shù)據(jù) int yy=atoi((4))。 int mm=atoi((6,2))。 int dd=atoi((9,2))。 CTime tbirth(yy,mm,dd,0,0,0)。 = tbirth。 } = (char *)(_bstr_t)()Item[Political_Party]Value。 = (char *)(_bstr_t)()Item[Culture_Level]Value。 = (char *)(_bstr_t)()Item[Marital_Condition]Value。 = (char *)(_bstr_t)()Item[Id_Card]Value。 = (char 53 *)(_bstr_t)()Item[Office_phone]Value。 = (char *)(_bstr_t)()Item[Mobile]Value。 CString hire = (char *)(_bstr_t)()Item[HireDate]Value。 if (!()) {