【正文】 pdateDept()。 (i,人員名稱 )。 (i,民族 )。 (i,政治面貌 )。 (i,婚姻狀況 )。 (i,辦公電話 )。 (i,到崗日期 )。 (i,備注 )。 (i,檔案所在地 )。 (LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES)。 int id = (())。 CString str。 = (char *)(_bstr_t)()Item[Emp_NAME]Value。 if (!()) { //設置日期數據 int yy=atoi((4))。 = tbirth。 = (char *)(_bstr_t)()Item[Id_Card]Value。 if (!()) { /。 = (char *)(_bstr_t)()Item[Mobile]Value。 = (char *)(_bstr_t)()Item[Culture_Level]Value。 int dd=atoi((9,2))。 = (char *)(_bstr_t)()Item[Nationality]Value。 (str)。 CADODataSet dataset。 return TRUE。 (i,戶口所在地 )。 (i,家庭住址 )。 (i,職務 )。 50 (i,手機電話 )。 (i,身份證號 )。 (i,文化程度 )。 (i,出生日期 )。 (i,性別 )。 (i,人員編號 )。 } 單擊“添加”按鈕，彈出人員編輯窗體，輸入人員信息后單擊“保存”按鈕實現人員信息添加，代碼如下： BOOL CPersonManage::OnInitDialog() { CDialog::OnInitDialog()。 (i++,100)。 (i++,100)。 (i++,100)。 (i++,100)。 (i++,100)。 (i++,100)。 (i++,100)。 (i++,50)。 (i++,80)。 m_DeptID = 1。 n ++。 (n,index++,(_bstr_t)()Item[Memo]Value)。 (n,index++,(_bstr_t)()Item[Office_phone]Value)。 (n,index++,(_bstr_t)()Item[Political_Party]Value)。 (n,index++,(_bstr_t)()Item[Emp_NAME]Value)。i++) { int index = 1。 int n = 0。 43 if(m_DeptID == 1) (Select * From tab_Employees)。該方法由 UpdateDept 方法調用，實現代碼如下： void CPersonManage::UpdatePerson() { ()。 } 創(chuàng)建一個對話框，打開對話框屬性窗口，將對話框的 ID改為 IDD_DLGPERSON,將對話框標題改為“人員信息管理”。這一 42 操作主要是通過數列表視圖控件中的 OnSelchanged 事件完成的，當樹列表中的選中節(jié)點發(fā)生改變時就會觸發(fā)該事件，實現代碼如下： void CPersonManage::OnSelchangedTreedept(NMHDR * pNMHDR,LRESULT * pResult) { NM_TREEVIEW * pNMTreeView = (NM_TREEVIEW*)pNMHDR。 } } 人員信息管理模塊 人員信息管理模塊根據部門分類顯示，同時可對人員信息進行維護。 (str)。 CADODataSet dataset。 UpdateDept()。 = (char *)(_bstr_t)()Item[memo]Value。 CString str。 40 if (pNode == 0) return。 UpdateDept()。 (DeptName,(_variant_t))。 CADODataSet dataset。 if (() == IDOK) { HTREEITEM pNode = ()。 (node,ID)。icount。 int count = ()。 (::GetConnection())。該方法由UpdateDept 方法進行調用，實現代碼如下： void CDeptManage::UpdateDept() { ()。 ()。 value = (_vaiant_t)()Item[ID]Value。 _variant_t value。 (Select * From tab_Dept where pid = %d,nPid )。 在本系統(tǒng)中，由于部門信息通常不會太多，所以可以用嵌套的方式將部門信息一次性地讀入樹列表視圖控件中，實現代碼如下： void CDeptManage::GetNode(HTREEITEM pNode,int nPid) { 36 HTREEITEM node。 } } 部門管理模塊設計 部門管理記錄了部門間的層次結構和部門信息，所以通常部門管理窗體中對于部門的顯示是使用樹列表顯示的。 (no1)。 if (() == IDOK) { (UserName,(_bstr_t))。 } 34 } 在“修改”按鈕事件中彈出“用戶編輯”窗體，輸入用戶名后單擊“確定”按鈕實現對用戶的修改，代碼如下： void CUserManage::OnEdit() { CUserEdit useredit。 if (() == IDOK) { ()。 (::GetConnection())。 } } 向對話框中添加 OnInitDialog 方法，在對話框的初始化方法中添加列表視圖控件應顯示的列頭，并在下拉列表視圖控件中添加數據，代碼如下： BOOL CUserManage::OnInitDialog() { 33 CDialog::OnInitDialog()。i++) { (i,(_bstr_t)()Item [LUserName]Value)。定義 UpdateGrid 方法，用來更新列表視圖中顯示 的用戶信息，實現代碼如下： void CUserManage::UpdateGrid() { (Select * From tab_User)。當對記錄進行修改時即可通過獲取對應的行號對數據集中的數據進行修改。 } else AfxMessageBox。,user,pass)。 31 (Select * From tab_user Where UserName = 39。 return TRUE。i count。 (GetConnection())。 } 創(chuàng)建一個對話框，打開對話框屬性窗口，將對話框的 ID 改為 IDD_DLGOGIN,將對話框標題改為“登入”。 m_pMainWnd =amp。 BOOLbCon= GetConnection()Open(GetConnection()GetSQLConStr(,tb_person))。這些操作都應在程序類的初始化方法中實現，該方法名為 InitInstance，代碼如下： BOOL CPersonApp::InitInstance() { AfxEnableControlContainer()。 28 系統(tǒng)模塊設計 用戶登入模塊設計 用戶登入模塊是所有管理系統(tǒng)所應具備的基礎模塊之一，該模塊實現了用戶使用系統(tǒng)的檢驗工作，使沒有權限的用戶不能使用該系統(tǒng)，增加了系統(tǒng)的安全性。 (3)單擊 Finish 按鈕完成工程的創(chuàng)建。 } 統(tǒng)主體窗的設計 人事考勤系統(tǒng)主窗口由菜單和客戶區(qū)域組成，其中，客戶區(qū)域顯示了一幅位圖，主窗體效果如圖 43 所示。 } Move 方法將記錄集的當前指針移動到指定的索引位置，實現代碼如下： void CADODataSet::Move(int nIndex) { m_DataSetMoveFirst()。 return true。 return false。 25 } IsOpen 方法用來判斷數據集是否處于打開狀態(tài)，實現代碼如下： BOOL CADODataSet::IsOpen() { long State。 } SetConnection 方法用來設 置記錄集所連接的數據庫連接類的對象，代碼如下： void CADODataSet::SetConnection(CADOConnection *pCon) { m_Connection = pCon。 CADODataSet 方法為記錄集實現類的構造方法，在該方法中實現記錄集接口對象的創(chuàng)建， 代碼如下： CADODataSet：： CADODataSet() { ()。 CADODataSet()。 FieldsPtr GetFields()。 void Save()。 } CADODataSet 類 CADODataSet 類是用來存儲數據的 數據集類，該類實現了 _Recordset 接口的實例，該類在頭文件中的定義如下： class CADODataSet { protected: _RecoedsetPtr m_DataSet。 m_Connectionget_State(amp。Initial Catalog = %s。 } GetSQLConStr 方法用來生成與數據庫連接所需要的連接字符串，代碼如下： CString CADOConnection::GetSQLConStr(CString IP,CString DBName) { CString Str。 }。 UnInitADO()。 ()。 CADOConnection g_Connection。 CADOConnection 類的實現代碼如下： 定義兩個全局變量 ConCount 和 g_Connection,ConCount 變量是一個整型變量，用起來記錄在工程中所創(chuàng)建的 CADOConnection 類的實例個數。 CADOConnection()。 public: BOOL IsOpen()。在該系統(tǒng)中建立了 ADO的兩個公共類 CADOConnection和 CADODataSet,這兩個類定義在 頭文件中，實現 文件中。統(tǒng)運行穩(wěn)定、安全可靠。本系統(tǒng)在設計時應滿足以下幾點： 采用人機對話的操作方式，信息查詢靈活、方便、快捷、準確、數據 存儲安全可靠。 處理器： Inter Pentium II 266 MX 或更高 內存： 64MB 硬盤空間： 2GB 顯卡： SVGA 顯示適配器 (2) 軟件環(huán)境 操作系統(tǒng)： Windows 98/ME/2021/NT 數據庫： MSQ 全局分析 用戶需要輸入用戶名和密碼進入人事考勤管理系統(tǒng)，對人事考勤管理系統(tǒng)的部門、員工的基本信息進行維護和管理。企業(yè)還可根據此考勤系統(tǒng)查詢企業(yè)內各時段 的員工出缺勤狀況，作管理方面的分析。操作員進行員工考勤信息錄入及更改，其中包括員工的基本信息、工作部門、工作流程，要求對這些員工檔案信息可以進行新增、修改、刪除操作，同時可以進行查詢和瀏覽操作。 (4) 該管理軟件提供企業(yè)人員管理，能夠對企業(yè)員工的分類管理，新員工的加入以及員工刪除，修改進本信息等功能。 在查詢模塊中實現了，條件模糊查詢功能。一旦構建完成，該系統(tǒng)就會投入使用，同時會不可避免地產生更多的新需求。因此，考勤系統(tǒng)的操作運行是可行的。 操作運行可行性分析 信息化考勤系統(tǒng)是考勤管理模式的發(fā)展方向，以現代化信息技術完成考勤工作，可以提高工作效率和工作質量，迎合現代化企業(yè)發(fā)展管理的需求，也是與國際社會流行趨勢相吻合的。以企業(yè)員工的數量可滿足考勤系統(tǒng)的容量與需求，因此只需在配備定量的服務器的條件下，增加考 勤機和 IC 卡即可。它還具有自動高效的機制以及運行分布式處理等優(yōu)點。完備的 help 聯機幫助功能，與 Windows 環(huán)境下的軟件一樣，在 VB中，利用幫助菜單和 F1 功能鍵，用戶可隨時方便地得到所需的幫助信息， VB 幫助窗口中顯示了有關的示例代碼，通過復制、粘貼操作可獲得大量的示例代碼，為用戶的學習和使用提 供了捷徑。支持多種數據庫系統(tǒng)的訪問，利用數據控件或 ODBC 能夠訪問的數據庫系統(tǒng)有，