人事信息管理系統(tǒng)

1、 數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計題 目 人事信息管理系統(tǒng) 院 （系） 信息工程學(xué)院 專 業(yè) 班 級 2011級計科本1班 學(xué) 生 姓 名 任 王 項 我 學(xué) 號 1142一五11一八、27、28、30 1042一五1一三0 設(shè) 計 地 點(diǎn) 信息工程學(xué)院 指 導(dǎo) 教 師 胡賢 起止時間：20一三年12月23日至2014年1月4日數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計任務(wù)分配院（系）：信息工程學(xué)院 教研室：軟件教研室課程設(shè)計題目人事信息管理系統(tǒng)課 程 設(shè) 計目的數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計是計算機(jī)類專業(yè)的集中實踐性環(huán)節(jié)之一，是課程教學(xué)中的一項重要內(nèi)容，是完成教學(xué)計劃達(dá)到教學(xué)目標(biāo)的重要環(huán)節(jié)，是幫助學(xué)生全面牢固地掌握課堂教學(xué)

2、內(nèi)容、培養(yǎng)學(xué)生分析問題、解決問題的能力進(jìn)行的一次全面的綜合練習(xí)。通過結(jié)合設(shè)計題目進(jìn)行綜合性應(yīng)用，對所學(xué)知識達(dá)到融會貫通的程度，對提高學(xué)生的綜合素質(zhì)具有重要的意義。1、加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解。2、掌握數(shù)據(jù)庫設(shè)計與使用的基本方法。3、提高運(yùn)用數(shù)據(jù)庫解決實際問題的能力小組成員及任務(wù)分配姓名學(xué)號承擔(dān)任務(wù)是否組長王 1142一五1127概要設(shè)計，詳細(xì)設(shè)計和編碼 是任 1143一五11一八數(shù)據(jù)庫設(shè)計 否王 1042一五1一三0約束和規(guī)則 否王 1142一五1128查閱和收集文獻(xiàn) 否項銳 1142一五1一三0撰寫報告 否 摘 要隨著計算機(jī)信息技術(shù)的飛速發(fā)展，人類進(jìn)入信息時代，社會的競爭越來越激

3、烈，人事信息管理系統(tǒng)就越顯示出其不可或缺性。人事信息管理系統(tǒng)在現(xiàn)代社會中的應(yīng)用十分廣泛，它是利用VB開發(fā)的基于windows的小型數(shù)據(jù)庫管理軟件。后臺數(shù)據(jù)庫的設(shè)計采用SQL server 2000，這些流行軟件的應(yīng)用也使系統(tǒng)更容易維護(hù)。該系統(tǒng)使用結(jié)構(gòu)化方法，按照系統(tǒng)調(diào)查、系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實施的步驟，采用結(jié)構(gòu)化的編程方法而完成的。在設(shè)計中，對于系統(tǒng)總體方案的設(shè)計，尤其是數(shù)據(jù)窗口這一方便而簡潔操縱數(shù)據(jù)庫的智能化對象,從而建立一套完善科學(xué)的管理信息系統(tǒng)，對員工的基本信息、教師信息、科研信息等實現(xiàn)全面、動態(tài)、及時的管理。因此，該設(shè)計的方案基本上滿足了系統(tǒng)的需求，具有一定的可用性。6關(guān)鍵詞： 數(shù)

4、據(jù)表，系統(tǒng)分析，結(jié)構(gòu)目 錄摘要31 緒論51.1背景說明51.2設(shè)計目標(biāo)51.3設(shè)計目的52 需求分析72.1 項目計劃72.2 系統(tǒng)處理流程72.3功能模系統(tǒng)塊分析83數(shù)據(jù)分析與建模113.1功能模塊簡介113.2 系統(tǒng)E-R圖124 數(shù)據(jù)庫建立144.1 系統(tǒng)關(guān)系模型144.2 后臺功能實現(xiàn)(SQL Server)144.2 前臺功能實現(xiàn)（Visual Basic 6.0）一八5 數(shù)據(jù)庫應(yīng)用開發(fā)195.1 連接數(shù)據(jù)庫195.2 通過前臺對后臺操作206 總結(jié)307 參考文獻(xiàn)311 緒 論1.1背景說明 最初的人事信息管理，都是靠人力來完成的。但近幾年我國企業(yè)經(jīng)營規(guī)模日趨擴(kuò)大，人員的大幅度增

5、加，而且許多企業(yè)正在尋找新的突破，向多樣化發(fā)展。認(rèn)識信息需要處理大量的信息，還要時刻更新人員的信息，不斷添加人員信息，并對各種信息進(jìn)行統(tǒng)計分析。因此，在企業(yè)管理中引進(jìn)現(xiàn)代化的辦公軟件，實現(xiàn)人事信息的管理和可控制，從而方便進(jìn)行行業(yè)的管理和調(diào)配，為企業(yè)和學(xué)校管理人員解除后顧之憂。11.2設(shè)計目標(biāo)開發(fā)這個系統(tǒng)的目的就是幫助人事信息管理部門提高工作效率。通過本管理系統(tǒng)軟件，能幫助企業(yè)工作人員利用計算機(jī)，極為方便的對人員的有關(guān)數(shù)據(jù)進(jìn)行管理、輸入、輸出、查找、修改等有關(guān)操作，使人員的數(shù)據(jù)信息能夠具體化、直觀化、合理化等。3人事信息管理系統(tǒng)能減少很多不必要的時間，不用像以前那樣用冗余的紙張式管理。大大節(jié)省了

6、管理人員的工作量以及時間，而且不易出錯，并且計算機(jī)的存儲與系統(tǒng)快速查詢功能大大提高了，提高管理人員的效率。本系統(tǒng)方便快捷的操作界面，提高了企業(yè)與學(xué)校工作效率。21.3設(shè)計目的1掌握數(shù)據(jù)庫設(shè)計的一般方法，主要包括需求分析，系統(tǒng)設(shè)計的組織與實施，設(shè)計出完整的數(shù)據(jù)庫結(jié)構(gòu)。2.數(shù)據(jù)庫查詢系統(tǒng)的編程技術(shù)，并能獨(dú)立設(shè)計，完成一般查詢語句的設(shè)計及調(diào)試運(yùn)行等工作。3.培養(yǎng)把所學(xué)知識運(yùn)用到具體對象，并能求出解決方案的能力。4.運(yùn)用開發(fā)工具VB為前臺，SQLSERVER2000為后臺,前后臺的結(jié)合開發(fā)的人事信息管理系統(tǒng)。422 需求分析2.1 項目計劃2.1.1 系統(tǒng)開發(fā)目的（1）大大提高企業(yè)的運(yùn)作效率；（2）通

7、過全面的信息采集和處理，提高企業(yè)的決策水平；（3）使用本系統(tǒng)，可以迅速提升企業(yè)的管理水平，為降低經(jīng)營成本，提高效益，提供有效的技術(shù)保障。2.1.2 應(yīng)用背景 目前，在國內(nèi)外各大企事業(yè)單位中，人事管理系統(tǒng)的使用是非常廣泛的。同時，有很多的軟件開發(fā)商也開發(fā)了許多基于各種行業(yè)的企業(yè)人事管理學(xué)系統(tǒng)，其中有單機(jī)版的，也有C/S和B/S模式的。而不同的企業(yè)具有不同的人事管理制度，這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。5而且，企業(yè)管理信息量大、操作繁瑣、傳統(tǒng)的方式不再適應(yīng)新的工作需要，開發(fā)研制適合企業(yè)的人事管理系統(tǒng)，使其具有整體性強(qiáng)、流程簡單、操作方便、功能豐富和通用性強(qiáng)等特點(diǎn)，是加快企業(yè)人才管理工作

8、辦公自動化、信息資源化和管理科學(xué)化建設(shè)進(jìn)程必要途徑。因此建立適合企業(yè)的管理信息系統(tǒng)，是促進(jìn)企業(yè)信息高速公路的發(fā)展，為企業(yè)的發(fā)展提供條件的重要課題。但是對于有些中小企業(yè)來說，不需要大量的數(shù)據(jù)庫，所以我們的目標(biāo)是開發(fā)一個功能使用，操作簡單的人事管理系統(tǒng)。72.1.3 應(yīng)用范圍本系統(tǒng)適應(yīng)于各種中小型企業(yè)和學(xué)校。2.2 系統(tǒng)處理流程1通過驗證后，對系統(tǒng)進(jìn)行初始化；2. 進(jìn)入系統(tǒng)，通過事件驅(qū)動機(jī)制激活相應(yīng)的功能模塊，并執(zhí)行相應(yīng)的功能；3. 通過關(guān)閉系統(tǒng)事件，激活關(guān)閉系統(tǒng)模塊，退出系統(tǒng)。系統(tǒng)處理流程如圖所示：啟動系統(tǒng)登陸界面編號正確？否科研人員？教師？員工？是否否是是是科研信息可用教師信息可用員工信息可用

9、員工信息可用員工信息可用員工信息可用員工信息可用結(jié)束 圖2.1系統(tǒng)登錄流程圖員工信息可用員工信息可用員工信息可用員工信息可用員工信息可用員工信息可用員工信息可用52.3系統(tǒng)功能模塊分析通過對上面有關(guān)人事信息管理的功能需求分析以后，可知人事信息管理系統(tǒng)的功能有：員工信息管理，教師信息管理，科研信息管理。系統(tǒng)功能菜單按以下方法進(jìn)行設(shè)計。2.3.1系統(tǒng)功能菜單要求本系統(tǒng)要求對人事信息的管理，其中包括：（1）登錄管理（2）員工管理（3）教師管理（4）科研管理其中員工管理包括：查詢，添加，刪除，修改；教師管理包括查詢，添加，刪除，修改；科研管理包括查詢，添加，刪除，修改。 2.3.2系統(tǒng)功能設(shè)計分析員工

10、管理：員工信息的查詢、添加、刪除、修改。員工管理添加員工信息刪除員工信息查詢員工信息修改員工信息圖2.2 員工管理ER圖5教師管理：教師信息的查詢、添加、刪除、修改。商品管理添加教師信息刪除教師信息查詢教師信息修改教師信息圖2.3教師管理ER圖科研管理：科研信息的查詢、添加、刪除、修改?？蒲泄芾硖砑涌蒲行畔h除科研信息查詢科研信息修改科研信息圖2.4科研管理ER圖53數(shù)據(jù)分析與建模3.1功能模塊簡介3.1.1 系統(tǒng)功能維護(hù)模塊用戶管理：設(shè)定本系統(tǒng)的系統(tǒng)操作員，可以一個也可以多個管理員。口令管理：在不退出系統(tǒng)的情況下，憑借個人的編號，可以修改個人的相關(guān)信息。退出系統(tǒng)：在使用完系統(tǒng)之后，可以退出系

11、統(tǒng)。3.1.2基本資料管理模塊員工信息管理：員工信息的查詢、添加、刪除、修改。教師信息管理：教師信息的查詢、添加、刪除、修改?？蒲行畔⒐芾恚嚎蒲行畔⒌牟樵儭⑻砑?、刪除、修改數(shù)據(jù)管理：對采集到的數(shù)據(jù)在后臺進(jìn)行數(shù)據(jù)庫管理。3.1.3人事信息管理模塊人員信息錄入管理:當(dāng)有新人員入庫的時候,分為以下幾個步驟:人員編號錄入后臺數(shù)據(jù)庫，在人事信息管理模塊中使人員編號與人員的姓名等相關(guān)信息相對應(yīng)，保存之后,后臺數(shù)據(jù)庫中庫存自動更新。人員管理管理：當(dāng)人員流失時，庫存自動減少。3.1.4查詢模塊可以根據(jù)某個條件進(jìn)行查詢，如:編號姓名等，查詢?nèi)藛T的相關(guān)信息。53.2 系統(tǒng)E-R圖員工編號性別學(xué)歷畢業(yè)學(xué)校職務(wù)姓名基

12、本工資崗位津貼應(yīng)發(fā)工資教師姓名，ing編號性別課程名稱課時5科研人員姓名編號研究方向論文性別職務(wù) 圖3.1 整個系統(tǒng)關(guān)系E-R54 數(shù)據(jù)庫建立4.1 系統(tǒng)關(guān)系模型(1) 員工信息表（編號，姓名，性別，學(xué)歷，畢業(yè)院校，職務(wù)，基本工資，崗位津貼，應(yīng)發(fā)工資）(2) 教師信息表（編號，姓名，性別，課程名稱，課時）(3) 科研信息表（編號，姓名，研究方向，論文，職務(wù)）4.2 后臺功能實現(xiàn)(SQL Server)4.2.1 用戶表實現(xiàn)用戶表的建立：圖4.1所用表格的表屬性在各表中模擬輸入數(shù)據(jù)員工信息表內(nèi)容圖4.2 員工信息表的圖教師信息表內(nèi)容圖4.3 教師信息表圖5教研信息表內(nèi)容圖4.4教研信息表圖4.1

13、.2用戶存儲過程的實現(xiàn)圖4.5 用戶存儲過程圖54.1.3 用戶觸發(fā)器的實現(xiàn)圖4.6 用戶觸發(fā)器圖54.2 前臺功能實現(xiàn)（Visual Basic 6.0）4.2.1 登錄窗體的實現(xiàn)圖4.7 登錄窗口5 5 數(shù)據(jù)庫應(yīng)用開發(fā)5.1 連接數(shù)據(jù)庫通過ADO控件來連接數(shù)據(jù)庫：1）添加ADO控件，如圖圖5.1 ADO控件2)更改ADO控件屬性 如圖圖5.2 設(shè)置AD0控件屬性5.2 通過前臺對后臺操作5.2.1 人員信息查詢圖5.3 人員信息查詢界面人員信息查詢代碼：Private Sub Command1_Click()If i = 1 Thenstr1 = "select * from 員

14、工信息表 where 編號='" & Text1.Text & "'"If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 1If rs.EOF Then MsgBox "該編號不存在" Else Set DataGrid1.DataSource = rs DataGrid1.Refresh End If End If If i = 2 Then str1 = "select * from 教師信息表 where 編號='" &a

15、mp; Text1.Text & "'"If rs.State = 1 Then5rs.CloseEnd Ifrs.Open str1, cn, 1, 1If rs.EOF Then MsgBox "該編號不存在" Else Set DataGrid1.DataSource = rs DataGrid1.Refresh End If End If If i = 3 Then str1 = "select * from 科研信息表 where 編號='" & Text1.Text & "

16、'"If rs.State = 1 Thenrs.Close End Ifrs.Open str1, cn, 1, 1If rs.EOF Then MsgBox "該編號不存在" Else Set DataGrid1.DataSource = rs DataGrid1.Refresh End If End IfEnd Sub51）員工信息的添加和刪除圖5.4 添加與刪除員工信息52）教師信息的添加和刪除圖5.5 添加與刪除教師信息53）科研人員信息的添加與刪除圖5.6 添加與刪除科研人員信息5人員信息添加與刪除代碼：Private Sub Command1

17、_Click()str1 = "select * from 員工信息表 where 姓名='" & Text1.Text & "' and 編號='" & Text2.Text & "'"If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Thenstr1 = "select * from 員工信息表 where 編號='" & Text2.Text &am

18、p; "'"If rs.State = 1 Then rs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Thenrs.AddNewrs("姓名") = Text1.Textrs("編號") = Text2.Textrs("性別") = Text3.Textrs("學(xué)歷") = Text4.Textrs("畢業(yè)學(xué)校") = Text5.Textrs("職務(wù)") = Text6.Textrs("基本工

19、資") = Text7.Textrs("崗位津貼") = Text8.Textrs.Update str1 = "select * from 員工信息表 "If rs.State = 1 Then rs.CloseEnd Ifrs.Open str1, cn, 1, 1Set DataGrid1.DataSource = rsDataGrid1.RefreshMsgBox "添加成功！", 64, "信息提示"Text1.Text = ""Text2.Text = "&quo

20、t;Text4.Text = ""Else MsgBox "該課程已存在，請重新輸入！", 16, "警告"End If5Else MsgBox "課程編號或名稱輸入不正確，請重新輸入！", 16, "警告"End IfEnd SubPrivate Sub DataGrid1_Click()str1 = "select * from 教師信息表 "If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 1Set DataG

21、rid1.DataSource = rs DataGrid1.RefreshEnd SubPrivate Sub DataGrid1_Click()str1 = "select * from 科研信息表 "If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 1Set DataGrid1.DataSource = rs DataGrid1.RefreshEnd Sub55.2.3 人員信息修改1）員工信息修改圖5.7 修改員工信息2）教師信息修改圖5.8 修改教師信息53）科研人員信息修改圖5.9 修改科研人員信息人員

22、信息修改代碼：Private Sub Command2_Click()strsql = "select * from 員工信息表 where 姓名='" & Text1.Text & "'and 編號='" & Text2.Text & "'"If rs.State = 1 Thenrs.CloseEnd Ifrs.Open strsql, cn, 1, 3If rs.EOF Thencn.Execute ("update 員工信息表 set 畢業(yè)學(xué)校='

23、;" & Text5.Text & "',姓名='" & Text1.Text & "' where 編號='" & Text2.Text & "'")str1 = "select * from 員工信息表 "If rs.State = 1 Then rs.CloseEnd Ifrs.Open str1, cn, 1, 1Set DataGrid1.DataSource = rsDataGrid1.RefreshMsg

24、Box "信息修改完成"ElseMsgBox "沒有這個員工", 16, "警告"5End IfEnd SubPrivate Sub Command2_Click()strsql = "select * from 科研信息表 where 姓名='" & Text4.Text & "'and 編號='" & Text1.Text & "'"If rs.State = 1 Thenrs.CloseEnd Ifrs.O

25、pen strsql, cn, 1, 3If rs.EOF Thencn.Execute ("update 科研信息表 set 研究方向='" & Text2.Text & "',論文='" & Text3.Text & "',姓名='" & Text4.Text & "' where 編號='" & Text1.Text & "'")str1 = "sele

26、ct * from 科研信息表 "If rs.State = 1 Then rs.CloseEnd Ifrs.Open str1, cn, 1, 1Set DataGrid1.DataSource = rsDataGrid1.RefreshMsgBox "信息修改完成"ElseMsgBox "沒有這個員工", 16, "警告"End IfEnd Sub56 總結(jié)在本次課程設(shè)計的全過程中，我們對本學(xué)期所學(xué)的知識有了一個比較系統(tǒng)的認(rèn)識和理解。進(jìn)一步掌握了數(shù)據(jù)庫的方法和技術(shù)，提高軟件開發(fā)的實際能力，培養(yǎng)綜合分析、解決問題的能力。涉及了各方面的知識，大大擴(kuò)展了