人事管理信息系統(tǒng)實(shí)驗(yàn)報(bào)告.docx

管理信息系統(tǒng)課程設(shè)計(jì) 成員：陳紅英（組長(zhǎng)） 周皓 盧亦天 平念 魏婷 劉雨琪 指導(dǎo)老師：蘇駿 任務(wù)及負(fù)責(zé)人：1. 代碼編寫及編譯：陳紅英（200906190123）2. 數(shù)據(jù)庫(kù)設(shè)計(jì)：平念（200906190125）3. 系統(tǒng)界面：劉雨琪（200906190133）4. 流程圖設(shè)計(jì)：魏婷（200906190129）5. 需求分析及數(shù)據(jù)字典：周皓（200906190134）6. 實(shí)驗(yàn)報(bào)告編寫：盧亦天（200906190126） 09信息管理與信息系統(tǒng) 2011年12月29號(hào)人事管理信息系統(tǒng)開發(fā) 目錄1. 系統(tǒng)需求分析-31、系統(tǒng)概述、必要性分析-32. 數(shù)據(jù)流程圖-3、43. 登錄模塊開發(fā)-4、54. 業(yè)務(wù)流程圖-5、65. 系統(tǒng)主界面與菜單-6、76. 數(shù)據(jù)庫(kù)的設(shè)計(jì)-7、87. 系統(tǒng)功能模塊設(shè)計(jì)-8、98. 系統(tǒng)的實(shí)現(xiàn)-9、181. 登錄模塊的設(shè)計(jì)-102. 系統(tǒng)管理模塊的設(shè)計(jì)-103. 員工基本信息模塊的設(shè)計(jì)-11、12、134. 員工考勤管理模塊的設(shè)計(jì)-13、14、155. 員工工作評(píng)價(jià)管理模塊的設(shè)計(jì)-15、16、176. 員工工資管理模塊的設(shè)計(jì)-17、189. 小結(jié)-181.系統(tǒng)需求分析1.系統(tǒng)概述、必要性分析人事管理信息系統(tǒng)是任何事業(yè)單位都需要進(jìn)行的一項(xiàng)工作，因此開發(fā)制作人事管理信息系統(tǒng)具有較大的社會(huì)現(xiàn)實(shí)意義，同時(shí)人事管理信息系統(tǒng)是一切應(yīng)用系統(tǒng)的典范，它具有一切應(yīng)用系統(tǒng)的特征，系統(tǒng)結(jié)構(gòu)與現(xiàn)實(shí)生活緊密結(jié)合，具體直觀，具有典范的數(shù)據(jù)庫(kù)系統(tǒng)的特征。人事管理信息系統(tǒng)主要用于公司內(nèi)部員工的檔案、工資、考勤、評(píng)價(jià)的管理，便于公司領(lǐng)導(dǎo)人掌握人員的動(dòng)向，及時(shí)調(diào)整人才的分配，同時(shí)也減少了手工操作帶來(lái)的一些繁瑣與不便，使員工情況的記錄和統(tǒng)計(jì)變得十分簡(jiǎn)單。2.數(shù)據(jù)流程圖系統(tǒng)登錄模塊員工及管理員均可進(jìn)入。根據(jù)系統(tǒng)規(guī)定，通過(guò)身份驗(yàn)證，方可進(jìn)入系統(tǒng)，否則不能進(jìn)。用戶登錄系統(tǒng)的程序流程如圖所示開 始顯示登錄界面用戶登錄用戶名是否存在NY用戶名是否為空YNY跳轉(zhuǎn)主界面Y密碼是否正確密碼是否為空NN3.登錄模塊的開發(fā)在工程1中添加普通窗體，將窗體命名為“xitong”，這是用戶的登錄窗口。在這個(gè)窗體中增加文字標(biāo)簽“用戶名：”、“密碼：”，再增加兩個(gè)文本框和兩個(gè)命令按鈕，文本框和命令按鈕分別默認(rèn)命名為“text1”、“text2”command1”和“Command2”，最后適當(dāng)修改文本框和命令按鈕的Caption屬性。最終效果如圖所示。雙擊命令按鈕“Command1”，進(jìn)入其Command1_Click代碼編寫狀態(tài)，輸入代碼如下：登錄模塊的代碼4.業(yè)務(wù)流程圖該人事管理信息系統(tǒng)包括系統(tǒng)管理模塊、員工基本信息模塊、員工考勤信息模塊、員工工作評(píng)價(jià)管理模塊、員工工資管理模塊?？梢詫?duì)這些模塊中的信息進(jìn)行查詢和管理，即查詢、添加、修改、刪除等操作。其業(yè)務(wù)流程圖為：人事管理信息系統(tǒng)員工工資查詢員工工作評(píng)價(jià)管理員工工作評(píng)價(jià)查詢員工考勤管理員工考勤查詢員工基本信息管理退出員工基本信息查詢員工工作評(píng)價(jià)管理員工工資管理員工考勤管理員工基本信息管理重新登錄系統(tǒng)管理5.系統(tǒng)主界面與菜單設(shè)置主界面如下圖，根據(jù)系統(tǒng)設(shè)計(jì)階段對(duì)用戶類別的劃分，已經(jīng)明確了各類用戶在系統(tǒng)中的操作權(quán)限。1. 操作過(guò)程及系統(tǒng)主界面與菜單如圖所示：6.數(shù)據(jù)庫(kù)的設(shè)計(jì)在F盤下新建一個(gè)文件夾命名為人事管理信息系統(tǒng)，在此文件夾下新建這個(gè)數(shù)據(jù)庫(kù)下新建數(shù)據(jù)庫(kù)，一個(gè)命名為用戶，用以存放用戶登錄信息；另一個(gè)命名為人事管理信息，在里面創(chuàng)建5張數(shù)據(jù)表，分別為：用戶信息表、員工檔案表、員工工資信息表、員工考勤信息表和員工評(píng)價(jià)信息表。正確地設(shè)置數(shù)據(jù)表中各個(gè)字段的名稱、類型、寬度等信息，并設(shè)置每個(gè)數(shù)據(jù)表的主鍵。表結(jié)構(gòu)如下：用戶信息表（uid（用戶名），PWD（密碼）員工檔案信息表（ygid(員工編號(hào))，ygname（員工姓名），ygdept(員工部門)ygsex(員工性別),ygbirthday(員工)，ygplace(員工籍貫)，yglevel(員工學(xué)歷)，ygspecial(員工專業(yè))，ygdate1(參加工作時(shí)間)，ygdate2(入黨時(shí)間)，ygbusi(職稱），ygdate3(職稱時(shí)間)，ygdate4(進(jìn)入公司時(shí)間)，ygdate5(起薪時(shí)間)，ygdate6(調(diào)入部門時(shí)間)，ygno(檔案號(hào))員工考勤信息表（kqid(編號(hào))，kqname(姓名)，kqdate(考勤日期)，qkdays(本月天數(shù))，kqrday（公休假天數(shù)）,qktday(應(yīng)出勤天數(shù))，kqwork(出勤)，kqabsent(曠工)，kqrest(年休)，kqleave(請(qǐng)假)，kqlate（遲到），kqearly(早退)，kqforget(忘定卡)，kqover1(假日加班)，kqover2（其它加班），kqfill(補(bǔ)休天數(shù))，kqgo(出差天數(shù))，kqpay(加班費(fèi))，kqdeduct(扣考核)）員工評(píng)價(jià)信息表（pjid(評(píng)價(jià)編號(hào))，pjname(姓名)，pjno(評(píng)價(jià)代碼)，pjdate(時(shí)間)，pjresult(工作業(yè)績(jī))，pjposition(工作態(tài)度)，pjlevel(業(yè)務(wù)水平)）員工工資信息表（gzid(工資編號(hào))，gzname(姓名)，gzbase(底薪)，gzall(補(bǔ)貼)，gzbonus(獎(jiǎng)金)，gzpay(加班)，gzdeduct(扣考核)，gzage(代扣養(yǎng)老金)，gzmedical(代扣醫(yī)療保險(xiǎn))，gzhouse1(代扣住房公積金)，gztotal(稅前小計(jì))，gzduty(所得稅)，gzhouse2(房貼)，gzhouse3(房租)，gzlaborage(實(shí)發(fā)工資)，gzdate(時(shí)間)）7.系統(tǒng)功能模塊設(shè)計(jì)選取了與人事管理相關(guān)的檔案、評(píng)價(jià)、考勤和工資發(fā)放等流程進(jìn)行設(shè)計(jì)，系統(tǒng)由系統(tǒng)管理、員工基本信息管理、員工考勤管理、以工作評(píng)價(jià)信息管理和員工工資管理等模塊組成，各個(gè)功能模塊介紹如下：1. 系統(tǒng)管理模塊：在這個(gè)模塊中，可以通過(guò)身份驗(yàn)證重新登錄和退出系統(tǒng)。2. 員工基本信息模塊：在這個(gè)模塊中，員工可以查詢自己的檔案情況，并且可以根據(jù)編號(hào)查詢他人的檔案情況，但不能修改；而管理員可以管理所有員工的檔案信息，可以進(jìn)行查詢、添加、刪除等操作。3. 員工考勤信息模塊：在這個(gè)模塊中，員工可以查詢自己的考勤情況，并且可以根據(jù)編號(hào)查詢他人的考勤情況，但不能修改；而管理員可以管理所有員工的考勤信息，可以進(jìn)行查詢、添加、刪除等操作。4. 員工工作評(píng)價(jià)管理模塊：在這個(gè)模塊中，員工可以查詢自己的工作情況，并且可以根據(jù)編號(hào)查詢他人的工作情況，但不能修改；而管理員可以管理所有員工的工作信息，可以進(jìn)行查詢、添加、刪除等操作。5. 員工工資管理模塊：在這個(gè)模塊中，員工可以查詢自己的工資情況，并且可以根據(jù)編號(hào)查詢他人的工資情況，但不能修改；而管理員可以管理所有員工的工資信息，可以進(jìn)行查詢、添加、刪除等操作。8.系統(tǒng)的實(shí)現(xiàn)1. 登錄模塊的設(shè)計(jì)：運(yùn)行程序首先看到的是登錄界面，輸入用戶名和密碼（分別為yy,123）,單擊【確定】，進(jìn)入程序主界面，如圖所示： 系統(tǒng)登錄界面 2. 系統(tǒng)管理模塊的設(shè)計(jì)用戶單擊【系統(tǒng)】/【重新登錄】項(xiàng)即可退出當(dāng)前界面并重新登錄，單擊【系統(tǒng)】/【退出】項(xiàng)即可退出系統(tǒng)。 主程序界面3. 員工基本信息模塊的設(shè)計(jì)：用戶在主界面中單擊【員工基本信息】/【查詢員工基本信息】即可進(jìn)入到員工信息查詢界面，在主界面單擊【員工基本信息】/【員工信息管理】項(xiàng)，即可進(jìn)入員工信息管理界面，如圖所示：這部分代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()Dim msg As Integermsg = InputBox(請(qǐng)輸入編號(hào), 查找記錄)Adodc1.Recordset.Find ygid= & msg & , , , 1If Adodc1.Recordset.EOF ThenMsgBox 無(wú)此員工信息, , 提示End IfEnd SubPrivate Sub Command2_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(確定刪除嗎？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox (已經(jīng)是第1條記錄了！)End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.AddNewMsgBox 您已成功添加！End SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已經(jīng)是最后1條記錄了！)End IfEnd SubPrivate Sub Command9_Click()End SubPrivate Sub Command8_Click()Form2.ShowEnd Sub4.員工考勤管理模塊的設(shè)計(jì)：用戶在主界面中單擊【員工考勤管理】/【查詢員工考勤】即可進(jìn)入到員工信息查詢界面，在主界面單擊【員工考勤管理】/【員工考勤管理】項(xiàng)，即可進(jìn)入員工考勤管理界面，如圖所示：這部分代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()Form2.ShowEnd SubPrivate Sub Command2_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(確定刪除嗎？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Dim msg As Integermsg = InputBox(請(qǐng)輸入編號(hào), 查找記錄)Adodc1.Recordset.Find kqid= & msg & , , , 1If Adodc1.Recordset.EOF ThenMsgBox 無(wú)此員工信息, , 提示End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewMsgBox 您已成功添加！End Sub5.員工工作評(píng)價(jià)管理模塊的設(shè)計(jì)：用戶在主界面中單擊【員工工作評(píng)價(jià)管理】/【查詢工作評(píng)價(jià)信息】即可進(jìn)入到員工信息查詢界面，在主界面單擊【員工工作評(píng)價(jià)管理】/【工作評(píng)價(jià)信息管理】項(xiàng)，即可進(jìn)入員工考勤管理界面，如圖所示：這部分代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()Dim msg As Integermsg = InputBox(請(qǐng)輸入編號(hào), 查找記錄)Adodc1.Recordset.Find pjid= & msg & , , , 1If Adodc1.Recordset.EOF ThenMsgBox 無(wú)此員工信息, , 提示End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewMsgBox 您已成功添加！End SubPrivate Sub Command3_Click()Dim ask As IntegerOn Error Resume Nextask = MsgBox(確定刪除嗎？, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Form2.ShowEnd Sub6. 員工工資管理模塊的設(shè)計(jì)：用戶在主界面中單擊【員工工資管理】/【查詢員工工資信息】即可進(jìn)入到員工信息查詢界面，如圖所示：這部分代碼實(shí)現(xiàn)如下：9.小結(jié)： 在組員的共同努力、老師的指導(dǎo)、同學(xué)的幫助和課本的參考下，我們的課程設(shè)計(jì)圓滿完成，