【正文】 George Schell著，張維迎主編. Management Information System. The Eighth Edition. BeiJing：BeiJing University Press，200143。二○一〇年四月（員工關(guān)系）（員工關(guān)系管理）（勞動關(guān)系）參 考 文 獻(xiàn)1．，管理與組織發(fā)展，經(jīng)濟(jì)管理出版社，20042．竇勝功，人力資源開發(fā)與管理，沈陽出版社，20033．石磊，人民郵電出版社，20024．王棟，VisualBasic程序設(shè)計，清華大學(xué)出版社，20035．周立柱、馮建華，SQLserver數(shù)據(jù)庫原理，清華大學(xué)出版社，20046．徐佳賓，企業(yè)戰(zhàn)略管理，經(jīng)濟(jì)管理出版社，20017．王憲磊，信息經(jīng)濟(jì)論，社會科學(xué)文獻(xiàn)出版社，20038．，信息系統(tǒng)項(xiàng)目管理導(dǎo)論，上海財經(jīng)大學(xué)出版社，20029．王珊，數(shù)據(jù)庫系統(tǒng)概論，高等教育出版社，200310．王國穎、陳天祥，現(xiàn)代人力資源管理，羊城晚報出版社，200411．鐘守真、李培，信息資源管理概論，南開大學(xué)出版社，200212．，系統(tǒng)分析與設(shè)計方法，高等教育出版社，200313．薛成華，管理信息系統(tǒng)，清華大學(xué)出版社，200314. IanSommerville，軟件工程，機(jī)械工業(yè)出版社，200415. ：東北財經(jīng)大學(xué)出版社，200316. ：高等教育出版社，200217. 耿騫，袁名敦，. ：高等教育出版社，200118. Jeffrey ，Lonnie ， Analysis And Design Fifth Edition(影印版).BeiJing：Higher Education Press，200119. James A感謝四年來中南財經(jīng)政法大學(xué)武漢學(xué)院所有的任課老師，和與我一起走完大學(xué)四年道路的同學(xué)們。在設(shè)計過程中又花費(fèi)了許多時間和我一起討論、比較各個方案并在內(nèi)容上指導(dǎo)，提出了許多有用的意見和建議。致 謝在本文寫作過程中，得到了很多人的幫助，首先衷心地感謝我的導(dǎo)師馮浩老師。確定系統(tǒng)開發(fā)采用的編程環(huán)境——VisualBasic ，并繪制業(yè)務(wù)流程圖、系統(tǒng)數(shù)據(jù)流程圖、功能模塊圖及ER圖，從而使后面的程序設(shè)計有章可循，目的明確。：通過系統(tǒng)需求分析和可行性研究，基本確定了本系統(tǒng)的各個功能模塊?？尚行匝芯繉?shí)質(zhì)上是簡化系統(tǒng)分析和設(shè)計的過程，也就是在較高層次以較抽象的方式進(jìn)行系統(tǒng)分析和設(shè)計的過程。通過調(diào)查，確定管理系統(tǒng)所要具備的功能，并從一致性、完整性、現(xiàn)實(shí)性、有效性四個方面嚴(yán)格驗(yàn)證這些需求的正確性。需求分析階段是實(shí)現(xiàn)目標(biāo)系統(tǒng)的基礎(chǔ)，因此準(zhǔn)確完整地體現(xiàn)用戶的要求是非常重要的。結(jié) 論本文分析了軟件開發(fā)需用的步驟和較為詳盡的開發(fā)過程，為企業(yè)信息化發(fā)展,實(shí)現(xiàn)信息化管理及ERP打下了堅實(shí)的基礎(chǔ)。（2） 系統(tǒng)用戶要根據(jù)需要對軟件進(jìn)行適應(yīng)性維護(hù)。一個處理過程的修改有可能會影響其他過程或系統(tǒng)，所以系統(tǒng)的維護(hù)工作一定要特別慎重，并由專人負(fù)責(zé)，建立嚴(yán)格的制度和程序。（7）與開發(fā)人員保持聯(lián)系，以便以最快的速度解決出現(xiàn)的問題。（5）制定系統(tǒng)數(shù)據(jù)采集、錄入、修改、維護(hù)、刪除的手續(xù)和制度，確保系統(tǒng)數(shù)據(jù)的正常性。（3）制定系統(tǒng)硬件、軟件手冊和使用說明。應(yīng)做到以下幾點(diǎn)：(1) 基礎(chǔ)數(shù)據(jù)的整理輸入(2) 用戶的操作使用培訓(xùn)(3) 系統(tǒng)交付使用前的準(zhǔn)備工作(4) 為系統(tǒng)配備各種文檔 系統(tǒng)的運(yùn)行和維護(hù)本系統(tǒng)經(jīng)測試使用后,為了保證系統(tǒng)正常運(yùn)行,應(yīng)主要做好以下幾個方面的工作：（1）對工作人員進(jìn)行必要的操作培訓(xùn)，使其能夠正確的使用該系統(tǒng)。在系統(tǒng)測試期間，需要系統(tǒng)的開發(fā)人員和系統(tǒng)用戶密切配合，互相交流，針對系統(tǒng)運(yùn)行中存在的問題進(jìn)行及時的調(diào)整和更正，使其真正能夠滿足實(shí)際工作的需求。(4) 驗(yàn)收測試。(3) 集成測試。(2) 單元測試。代碼審查是由一組人通過閱讀、討論和爭議對程序進(jìn)行靜態(tài)分析的過程。為了保證測試的質(zhì)量，可以將測試的過程分成幾個階段，即：代碼審查、單元測試、集成測試和驗(yàn)收測試。系統(tǒng)測試是保證系統(tǒng)最終能夠開發(fā)成功和今后能夠正常運(yùn)行的一個必不可少的環(huán)節(jié)。 界面設(shè)計圖 32 登錄窗口圖 33 主界面窗口圖 34 員工信息添加窗口圖 35 員工考勤信息添加窗口圖 36 員工評價信息添加窗口圖 37 計發(fā)員工工資信息窗口圖 38 關(guān)于窗口第四章 系統(tǒng)測試、運(yùn)行與維護(hù) 系統(tǒng)測試系統(tǒng)測試是保證系統(tǒng)開發(fā)成功的重要一環(huán)。（2） 在輸出街面上充分發(fā)揮網(wǎng)頁的多元化，易用性等特點(diǎn)方便用戶的適用與操作。（2） 在程序中加入校驗(yàn)過程，對不符合要求的數(shù)據(jù)不予執(zhí)行。本系統(tǒng)用到的輸入方式有：鍵盤輸入，網(wǎng)絡(luò)傳輸?shù)取? 數(shù)據(jù)結(jié)構(gòu)設(shè)計依據(jù)ER圖向關(guān)系模型的轉(zhuǎn)換標(biāo)準(zhǔn)，以及實(shí)體表，實(shí)體屬性表和前一階段的有關(guān)數(shù)據(jù)的定義，確定如下關(guān)系表。而且，這樣的數(shù)據(jù)庫的關(guān)系能力更加強(qiáng)大，更加穩(wěn)定可靠。對于一個大型的信息管理系統(tǒng)，它很可能需要對不同的用戶各自創(chuàng)建一個大型的文件系統(tǒng)，它包括許多表，而屬于一個用戶的一套表與屬于另一個用戶的一套表實(shí)際上是相同的，只是名稱有所不同，而在SQL 2000中，需要建立大量的代碼來區(qū)別和維護(hù)屬于不同用戶的一套表，這套表的數(shù)量可能是非常龐大的，維護(hù)編碼也是非常龐大的。在SQL 2000中一個表就是數(shù)據(jù)庫。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)庫存儲的效率，保證數(shù)據(jù)的完整和一致。 + Trim(Describes) _ + 39。 + Trim(DepName) _ + 39。更新數(shù)據(jù) Public Sub Update(ByVal TmpId As Long) 39。讀取部門名稱 ReDim Preserve Arr_DepName(i + 1) Arr_DepName(i) = Trim((1)) 39。設(shè)置SELECT語句 SqlStmt = SELECT DepId,DepName,Describes FROM Departments WHERE UpperId= _ + Trim(Str(UpperId)) + ORDER BY DepId Set rs = QueryExt(SqlStmt) i = 0 Do Until 39。讀取指定部門編號的所有下級部門信息 Public Sub Load_Departments_ByUpper(UpperId As Long) Dim i As Integer Dim rs As New 39。, + Trim(Str(UpperId)) + ) SQLExt (SqlStmt) Insert = DepId 39。,39。生成新的編號 DepId = GetNewId SqlStmt = INSERT INTO Departments VALUES( + Trim(Str(DepId)) + ,39。 + Trim(DepName) _ + 39。判斷一個部門是否包含下級部門，在刪除部門記錄時使用 Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean Dim rs As New SqlStmt = SELECT DepId FROM Departments WHERE UpperId= _ + Trim(Str(TmpUpperId)) Set rs = QueryExt(SqlStmt) If Not Then HaveSon = True Else HaveSon = False End If End Function 39。判斷指定的部門中是否存在員工記錄 Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean Dim rs As New 39。返回新記錄的編號，當(dāng)前最大編號加1 Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New 39。定義結(jié)果集對象 39。上級編號 Else Init End If End Sub 39。部門名稱 If IsNull((2)) Then Describes = Else Describes = Trim((2)) 39。定義結(jié)果集對象 DepId = TmpId 39。刪除Departments Public Sub Delete(ByVal TmpId As Long) SqlStmt = DELETE FROM Departments WHERE DepId= + Trim(Str(TmpId)) SQLExt (SqlStmt) End Sub 39。3 Describes 文本，長度為255 部門職能描述，必填字段（否），允許空字符串（是） 39。1 DepId 數(shù)字，長整型 部門編號，主鍵 39。vbNone MTSTransactionMode = 0 39。NotPersistable DataBindingBehavior = 0 39。 Height = 255 Left = 1440 TabIndex = 4 Top = 120 Width = 2055 End Begin Image1 Height = 6975 Left = 0 Picture = :2300 Top = 0 Width = 6885 End End Attribute VB_Name = frmLogin Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public PasswordKey As String Public NameKey As String Public Try_times As Integer Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_Ok_Clic