【正文】 ................................................................. 16 員工考勤信息界面 ...................................................................................... 18 員工工資信息窗體 ...................................................................................... 19 系統(tǒng)部分設(shè)計代碼 ............................................................................................. 21 第 4 章 結(jié)束語 ............................................................................................................... 25 致謝 ................................................................................................................................. 26 參考文獻 ......................................................................................................................... 27 附錄 源代碼 ................................................................................................................... 28 1 第 1 章 引言 背景 隨著企業(yè)自身人力資源隨著時間的變化而改變、現(xiàn)在人力資源管理的復(fù)雜程度逐漸增強，人機作坊再也無法適應(yīng)現(xiàn)今專業(yè)的企業(yè)員工管理了，取而代之的能夠是運用各種領(lǐng)域的知識，結(jié)合計算機科學(xué)而隨之誕生的員工管理系統(tǒng)。2 同時，管理信息系統(tǒng)作為一種應(yīng)用工具，又廣泛地應(yīng)用于工業(yè)、文化、農(nóng)業(yè)、教育、衛(wèi)生、交通、運輸、體育以及各種社會經(jīng)濟活動的信息管理之中 ， 起著日益重要的作用，顯示出強大的 生命力和未來無限 光明的前景 。 30～ 40%的中小企業(yè)普及計算機管理。這些調(diào)查和結(jié)果分析都說明了：我國企業(yè)目前雖然使用計算機已經(jīng)比較普遍，但許多信息系統(tǒng)的應(yīng)用情況卻并沒有達到預(yù)想的效果。為此，我們決定采用 VB作為前端應(yīng)用程序編程方法，減少了代碼的重復(fù)編寫，而且很容易設(shè)計出友好的用戶界面，使設(shè)計者快速編寫出符合要求的程序， 其特有的數(shù)據(jù)連接技術(shù) 能夠為應(yīng)用開發(fā)提供強大的用戶數(shù)據(jù)庫機構(gòu)，而 其面向?qū)ο蟮?功能能 及時的進行保存和修改。在創(chuàng)建一個 QueryDef對象的實例之前，你不能創(chuàng)建 DAO Recordset對象的實例。 CommandTimeout: 可讀寫 Long類型，指定中止某個相關(guān) Command對象的Execute調(diào)用之前必須等待的時間。為了提高性能，最好為 lngOptions參數(shù)指定合適的值（詳見 lngOptions參數(shù)用到的常數(shù)），以使提供者解釋語句時不用再去判定其類型。調(diào)用 Update方法則把新記錄加到數(shù)據(jù)庫的表中。這些參數(shù)都是可選的， Requery: 重新從表中獲取 Recordset的內(nèi)容，等效于 Close后再 Open。 員工考勤信息 （ 1）添加考勤信息：主要分為上下班信息和其他考勤信息。 ER模型中包含“實體”，“聯(lián)系”和“屬性” 圖 33 ER 模型 15 運行主要界面 系統(tǒng)管理界面 運行本系統(tǒng)界面，出現(xiàn)登入界面（ 341），輸入正確的用戶名和密碼，進入主窗體 圖 341 用戶登入界面 “系統(tǒng)”菜單包含三個子菜單“添加用戶”“修改密碼”“退出” 圖 342 添加用戶界面 16 圖 343 修改密碼界面 員工基本信息界面 進入主界面后，選擇“基本信息設(shè)置” 》“設(shè)置員工信息”菜單，出現(xiàn)如圖344所示的設(shè)置員工基本信息窗體 圖 344設(shè)置員工基本信息窗體 17 輸入員工基本信息后，單擊確定按鈕，出現(xiàn)員工信息列表，如圖 345所示 圖 345 員工信息列表 18 員工考勤信息界面 選擇圖 345中的一條記錄，單擊鼠標右鍵，在如圖 346中所示的菜單中選擇修改，刪除操作。保存修改的票號信息 Public StrTitle As String 39。 企業(yè)員工管理系統(tǒng)為企事業(yè)單位提供信息咨詢，信息檢索，信息存取等服務(wù)。 + Name1 + 39。 \系統(tǒng)日志 .ini) Open ( amp。每次遇到難題，我最先做的就是向老師尋求幫助，而老師每次不管忙或閑，總會抽空來找我面談，然后一起商量解決的辦法?？刂凭幪栁粩?shù) Public Function Con_PublicNum() Select Case Len(Trim(StrNum)) 39。 圖 3411 查詢調(diào)動工資記錄 系統(tǒng)部分設(shè)計代碼 為了提高代碼的效率方便維護 ,在 VB中可以用功用模塊來存放工程中經(jīng)常是使用的函數(shù) ,過程和全局變量等 .在這個系統(tǒng)中 ,每個模塊都要使用數(shù)據(jù)庫 ,因此可以使用一個公用的數(shù)據(jù)操作函數(shù) ,來執(zhí)行一系列的 SQL語句 . 資源管理器中為這個工程添加一個模塊 ,我保存為 . 首先添加幾個變量的定義 : Public StrNum As Long 39。 員工工資信息 （ 1）生成 工資 信息：添加企業(yè)員工的 工資 的月份信息。 *員工基本信息部分：主要完成員工基本信息的管理。調(diào)用語法為： strClip=(lngRows,[, strCloumnDelimiter[,strRowDelimiter,[strNullExpr]]])。 ActiveCommand :可讀寫的 String類型， Recordset所關(guān)聯(lián)的先前打開的Command對象名稱 ActiveConnection: 指針類型，指向 Recordset所關(guān)聯(lián)的先前打開的 Connection對象，或指向一條完整有效的 ConnectionString串值。見 IsolationLevel常數(shù) 8 Mode Long類型，指定對 Connection的讀寫權(quán)限。 7 ADO 使用方法 入侵檢測是指在特定的網(wǎng)絡(luò)環(huán)境中發(fā)現(xiàn)和識別未經(jīng)授權(quán)的或惡意的攻擊和入侵，并對次作出反應(yīng)的過程。 ADO向我們提供了一個熟悉的，高層的對 OLE DB的 Automation封裝接口。特別在組織規(guī)模不斷擴大的今天， 作為 管理人員和組織領(lǐng)導(dǎo)者 首先 要想 到的是 對組織進行有效的管理和正確的決策 ，而這些 就必須借助 于 高端 數(shù)字化工具 了 。過去 10年左右，我國企業(yè)信息系統(tǒng)建設(shè)雖然 發(fā)展增速 ，但其 究竟成功了幾例呢？ 根據(jù) 河南 省信息中心和信息協(xié)會對 425家已經(jīng)實現(xiàn)了信息化的企業(yè)的調(diào)查 ,有 %的企業(yè)認為本企業(yè)信息化建設(shè)的成效一般 。 信息管理 系統(tǒng)的三 大 要素是數(shù)學(xué)的方法 ， 系統(tǒng)的觀點和計 算機的應(yīng)用，而這三點也正是管理現(xiàn)代化的標志。如何管理好企業(yè)內(nèi)部員工的信息，就成為企業(yè)管理中的一個大問題。 本企業(yè)員工管理系統(tǒng)具有如下功能：員工基本信息的錄入、修改、查詢、刪除模塊，員工考勤信息和員工調(diào)動信息的錄入、修改、查詢、刪除模塊，以及系統(tǒng)維護功能。 50 年代 初計算機已經(jīng) 用于會 計工作， 1958 年蓋爾寫道： “ 管理將以較低的成本得到及時準確的信息，做到較好的控制。 溫州 鼓風(fēng)機廠、 黑龍江 飛機制造廠、通化 機床廠、 平陽縣天風(fēng)塑料機械廠 等，都是這一時期涌現(xiàn)出來的企業(yè)信息化樣板企業(yè)。根據(jù)另一次對 300名來自不同行業(yè)、不同企業(yè)的中層管理者的調(diào)查發(fā)現(xiàn)，這些管理者工作的科室中，人均微機數(shù)量 ~1臺的占 33%，其中人均微機數(shù)量達到 1臺以上的企業(yè)占 37%。職務(wù)信息管理的添加，刪除，修改和查詢，包括職務(wù)代碼，職務(wù)名稱，職務(wù)描述等 功能 。因此你可以只創(chuàng)建一個 Connection對象，但是可以有多個，獨立的 Recordset對象來使用它。 Connection 對象 Connection對象的屬性 Attributes: 可讀寫 Long類型 ， 通過兩個常數(shù)之和指定是否使用保留事務(wù)（ retainning transactions） 。如果有多個數(shù)據(jù)庫用戶同時執(zhí)行事務(wù)，那么應(yīng)用程序中必須指定如何響應(yīng)運行中的其他事務(wù)。利用 Open方法的參數(shù) lngOptions可以指定提供給Source值的類型 Recordset對象的方法 AddNew*: 向 可 更 新 的 Recordset 添 加 一 條 新 記 錄 。SELECT * FROM customers)或存儲過程來創(chuàng)建。 （ 3）查詢員工信息：可以根據(jù)員工的編號，姓名或者進入公司時間進行查詢員工信息。 最常用的表示概念性數(shù)據(jù)模型的方法，是實體 — 聯(lián)系方法（ Entity—Relationship Approach）。選擇查詢字符串變量 Public TStr As String 39。將日志信息保存到文件當(dāng)中 Print 1, TStr Close 1 End Sub Public Sub WHScreen() 39。 Private Const SC_MAXIMIZE = amp。 \, vbNormalFocus) End End Sub Private Sub SJQL_Click() 1 End Sub 32 Private Sub SJZLSZ_Click() 1 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case SQ 1 Case DD 1 Case TY 1 Case GZ 1 Case YS 1 Case CX StrCx = 3 1 Case BB 1 Case RZ 1 Case TC End End Select End Sub Private Sub YGZLSZ_Click() 39。在此謹向老師致以誠摯的謝意和崇高的敬意。修改信息日志 24 Public Sub joinRZ() Dim Intext As String Open ( amp。接收編號數(shù)值 22 Public ConBs As String 39。用戶權(quán)限分為普通用戶和管理人員。 *數(shù)據(jù)庫管理部分：主要完成數(shù)據(jù)庫的管理與維護。 調(diào) 用 語 法 為 ： 11 lngNumRecords [, varStart],其中 lngNumRecords是要跳過的記錄數(shù)，可選選參數(shù)varStart指定從哪開始移動。 DataMember: 指針類型，指向關(guān)聯(lián)的 DataSource: 指針類型，指向關(guān)聯(lián)的 EditMode*: 只讀 Long類型，返回 Recordset