【正文】 設計。隨著Windows操作系統(tǒng)的不斷成熟，Visual ，此時Visual Basic 已初具規(guī)模了，利用它可以快速的創(chuàng)建各種應用程序，包括非常流行的多媒體應用程序和各種圖形操作界面。員工考勤信息：包括的數據項有員工所在部門、員工姓名、出勤時間、公休時間、曠工時間、請假時間、早退時間、遲到時間、加班時間、出差時間等。 系統(tǒng)數據流圖根據人事信息管理系統(tǒng)的設計思路，將系統(tǒng)中的數據處理過程形象化，繪制成數據流程圖，以便考察數據的處理模式。主要由系統(tǒng)管理模塊、員工基本信息模塊、員工考勤管理模塊、員工工作評價模塊、員工工資管理模塊、關于模塊和程序封面模塊等組成。 人員的可行性本人事信息管理系統(tǒng)是用VisualBasic 2000設計的小型數據庫應用程序，無須多少人員就可以設計成功的。在作者所了解數據庫系統(tǒng)中，因為學過Visual Basic ，對SQL 2000數據庫比較熟悉，因此決定采用VisualBasic 2000來完成人事信息管理系統(tǒng)的設計。當然不能靠主觀猜想而是要靠客觀分析。為了提高軟件的質量，確保軟件開發(fā)成功，降低軟件的開發(fā)成本，一旦對目標系統(tǒng)提出一組要求之后，必須嚴格驗證這些需求的正確性?，F(xiàn)在是網絡時代，系統(tǒng)最好有Email上報功能。因此管理系統(tǒng)的查詢功能要強大，不僅要支持單個查詢，還要能進行復雜的多條件查詢。包括需求的產生，數據需求，功能需求和非功能需求。本文所設計的人事、勞資管理信息系統(tǒng)也要按照這個來做。 研究的內容、目的、過程和方法 研究的內容和目的本文研究的主要內容是公司人事信息管理系統(tǒng)的分析和設計過程，其目的在于為該系統(tǒng)的開發(fā)奠定堅實的理論基礎。人事管理是現(xiàn)代企業(yè)管理工作中不可缺少的一部分，是適應現(xiàn)企業(yè)管理尺度的要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件。使用人事管理系統(tǒng)，便于公司領導掌握人員的動向和人員的綜合素質，及時調整人才的分配，使用計算機對人事勞資信息進行管理，具有檢索迅速、查找方便、可靠性高、存儲量大、保密性好、成本低等優(yōu)點，能夠極大地提高人事資源管理的效率，也是企業(yè)科學化、正規(guī)化管理的重要條件。在計算機硬件和軟件快速發(fā)展的今天，計算機硬件和軟件已經遠遠滿足本管理系統(tǒng)的要求。完成全部工作大約用了近3個月的時間。系統(tǒng)模型分為邏輯模型和物理模型。作為人事信息管理系統(tǒng)查詢功能是必不可少的。所以要對管理系統(tǒng)設置密碼限制。(6)要有方便的退出功能，并對設計做一個簡單的關于說明。 (4)有效性 必須證明需求是正確有效的，確保能解決用戶面對的問題。由于本管理系統(tǒng)的對象單一，僅對本單位的人事信息進行管理，且在對人事信息進行增減、修改、刪除及統(tǒng)計操作時基本不涉及到計算過程，因此，這個管理系統(tǒng)比較適合采用數據庫來設計。但本系統(tǒng)一旦投入使用，將大大減少人事信息管理人員的工作量，提高了工作效率，其經濟效益是顯兒易見的。以下將就本系統(tǒng)的核心部分進行分析，并列出程序處理過程的流程圖。說明本系統(tǒng)的性質、設計時間等等。實體與實體間的關系ER圖如下圖27所示：圖212 系統(tǒng)ER圖實體與實體間的關系ER圖規(guī)劃出的實體有：員工基本信息、員工考勤信息、員工工作評價信息、員工工資信息。20世紀90年代初，由于Windows操作平臺的逐漸流行，PC機的操作方式開始由命令型方式向圖形用戶界面(GUI,Graphical User Interface)方式轉變。Visual Basic提供的是真正的面向對象的可視化編程方法，開發(fā)人員只需少量代碼就可以編者出具有標準Windows風格的程序，代碼維護非常方便。（4） 輸入/輸出設計。一個成功的管理信息系統(tǒng)必須具有較高的可靠性，如安全保密性，檢錯及糾錯能力，抗病毒能力等。 系統(tǒng)功能模塊圖系統(tǒng)功能模型，反映了系統(tǒng)功能或處理的詳細內容及邏輯關系，并沒有詳細說明系統(tǒng)內部所有的信息結構的組織和相互關系。代碼縮短了事物的名稱，無論是記錄、記憶還是存儲，都可以節(jié)省時間和空間。 代碼的設計原則合理的編碼結構是信息處理系統(tǒng)是否具有生命力的一個重要因素，在代碼設計時，應根據以下原則：（1） 設計的代碼在邏輯上必須能滿足用戶的需要，在結構上應當與處理的方法相一致。（6） 要注意盡量采用不易出錯的代碼結構，例如字母字母數字的結構，（如WW2）比字母數字字母的結構（如W2W）發(fā)生錯誤的機會要少一些。User ScaleWidth = ShowInTaskbar = 0 39。H0080FF80amp。Flat BackColor = amp。False EndProperty ForeColor = amp。1 DepId 數字，長整型 部門編號，主鍵 39。部門名稱 If IsNull((2)) Then Describes = Else Describes = Trim((2)) 39。判斷指定的部門中是否存在員工記錄 Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean Dim rs As New 39。,39。讀取部門名稱 ReDim Preserve Arr_DepName(i + 1) Arr_DepName(i) = Trim((1)) 39。合理的數據庫結構設計可以提高數據庫存儲的效率，保證數據的完整和一致。 數據結構設計依據ER圖向關系模型的轉換標準，以及實體表，實體屬性表和前一階段的有關數據的定義，確定如下關系表。 界面設計圖 32 登錄窗口圖 33 主界面窗口圖 34 員工信息添加窗口圖 35 員工考勤信息添加窗口圖 36 員工評價信息添加窗口圖 37 計發(fā)員工工資信息窗口圖 38 關于窗口第四章 系統(tǒng)測試、運行與維護 系統(tǒng)測試系統(tǒng)測試是保證系統(tǒng)開發(fā)成功的重要一環(huán)。(2) 單元測試。應做到以下幾點：(1) 基礎數據的整理輸入(2) 用戶的操作使用培訓(3) 系統(tǒng)交付使用前的準備工作(4) 為系統(tǒng)配備各種文檔 系統(tǒng)的運行和維護本系統(tǒng)經測試使用后,為了保證系統(tǒng)正常運行,應主要做好以下幾個方面的工作：（1）對工作人員進行必要的操作培訓，使其能夠正確的使用該系統(tǒng)。一個處理過程的修改有可能會影響其他過程或系統(tǒng)，所以系統(tǒng)的維護工作一定要特別慎重，并由專人負責，建立嚴格的制度和程序。通過調查，確定管理系統(tǒng)所要具備的功能，并從一致性、完整性、現(xiàn)實性、有效性四個方面嚴格驗證這些需求的正確性。致 謝在本文寫作過程中，得到了很多人的幫助，首先衷心地感謝我的導師馮浩老師。George Schell著，張維迎主編. Management Information System. The Eighth Edition. BeiJing：BeiJing University Press，200143。在設計過程中又花費了許多時間和我一起討論、比較各個方案并在內容上指導，提出了許多有用的意見和建議?？尚行匝芯繉嵸|上是簡化系統(tǒng)分析和設計的過程，也就是在較高層次以較抽象的方式進行系統(tǒng)分析和設計的過程。（2） 系統(tǒng)用戶要根據需要對軟件進行適應性維護。（3）制定系統(tǒng)硬件、軟件手冊和使用說明。(3) 集成測試。系統(tǒng)測試是保證系統(tǒng)最終能夠開發(fā)成功和今后能夠正常運行的一個必不可少的環(huán)節(jié)。本系統(tǒng)用到的輸入方式有：鍵盤輸入，網絡傳輸等。在SQL 2000中一個表就是數據庫。更新數據 Public Sub Update(ByVal TmpId As Long) 39。, + Trim(Str(UpperId)) + ) SQLExt (SqlStmt) Insert = DepId 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。上級編號 Else Init End If End Sub 39。3 Describes 文本，長度為255 部門職能描述，必填字段（否），允許空字符串（是） 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_Click() Dim tmpUser, tmpPwd As String Dim isexe As Boolean Dim rsusers As tmpUser = Trim() tmpPwd = Trim() UserName = tmpUser If (tmpUser, tmpPwd) True Then MsgBox 用戶名或密碼錯誤, 48, 提示 Else Unload Me Load frmMain End If End Sub Private