員工信息管理系統n改(編輯修改稿)

　

【文章內容簡介】 都放棄用這些軟件了，改為每次輸入數據后，用手工更改數據庫，隨著企業的發展，員工數據量越來越大，用手工操作就很麻煩了，所以，迫切希望有一套完全適合企業員工信息管理應用的軟件，以減輕公司員工的工作負擔。 另一方面由于這類軟件大多數是單機版的，現在也有不少是網絡版的，但大部份都是在本地網絡上運行的。而管理業務人員是在外面跑業務，想知道某員工的最新情況，都要打電話回公司問，這就造成很大的不便。 系統的安全性分析 安全系統的需求定義： 1） 系統提供用戶登錄功能（進行用戶身份驗證），并且用戶名和用戶編號是唯一的。用戶在登錄界面上填寫任意的用戶名和用戶密碼（中文或英文）；系統提供登錄過程中的出錯處理機制和操作成功處理機制。 2） 系統對非法用戶具有警告功能，例：一用戶表中不存在的用戶企圖登錄系統，系統應該要求用戶輸入合法用戶名和用戶密碼，并警告用戶的操作。 系統的詳細調查 我選擇做《員工信息管理系統》的目標是：應用于某企業進行員工信息管理，使其擁有一個可操作的業務平臺，提高員工管理水平，挖掘潛在資源（如客戶資源，降低費用，節約成本等）。當然，如果稍加改動，也許還會適合其他行業使用。 具體為: 要用戶界面要友好，使用方便，容錯能力強，適應各種水平的用戶。 系統安全性要高，需要有密碼保護 能大量減少不必要的資源，善用現有資源來開發。為了實現管理信息系統的計算機化，僅僅用文字來描述信息的流動和存儲還遠遠不夠，還要進一步調查分析舍去物質流，抽象出信息流，繪制出數據流程圖，并對各種數據的屬性和各項處理功能進行詳細分析。系統分析的主要成果是系統的邏輯模型。本系統主要是以數據流圖、數據字典和ER圖為主要描述工具來勾畫系統的概貌。 數據流圖（DFD，data flow diagram）是描述數據處理過程的有力工具。數據流圖從數據傳遞和加工的角度，以圖形的方式刻畫數據流從輸入到輸出的移動變換過程。 為了使數據流圖便于在計算機上輸入和輸出，免去畫曲線、斜線和圓的因難，現在將會用另一種比較合理及更清晰的方法進行分析。 數據詞典（Data Dictionary ,DD）是結構化分析方法的另一個工具，它與數據流圖配合，能清楚地表達數據處理的要求。數據流圖給出系統組成及其內部各元素相互間的關系，但未說明數據元素的具體含意。數據詞典的任務是對于數據流圖中出現的所有命名元素，包括數據流、加工、數據文件，以及數據的源、匯點等，在數據詞典中作為一個詞條加以定義，使得每一個圖形元素的名字都有一個確切的解釋。 首先說明各符號的代表的意義： ⊿ = 被定義為； ⊿ + 與 ； （如，x = a + b ,表示x 由 a 和 b 組成） ⊿ [...|...] 或 ； （如, x = [a , b],x = [a | b]，表示x由a或由b組成） ⊿ {...} 重復；（如，x = {a},表示x由0個或多個a組成） 如列舉用戶登錄模塊的定義如下: 用戶登錄模塊 ◎ 用戶登錄的定義格式： 用戶名 = [{字母}，{數字}] 用戶 = 管理員 密 碼 = [{字母}，{數字}] 用戶驗證表 =用戶名+密碼 另一種方式是以ER圖來描述數據之間的關聯. 如系統用戶表的ER圖如下: 系統用戶表ER圖 第五章 系統的設計 系統流程圖 通過對該系統的研究,Edulevel,Employees,JobList,LeavelList,LeavelStatus,LeavelType,MarrageStatus,OperatorList,Plitics,: DepartList表 Edulevel表: Employees表: JobList表: LeavelList表: LeavelStatus表 LeavelType表: MarrageStatus表: OperatorList表 Plitics表 TitalList表其系統主界面設計運行效果圖如下: 登錄窗體的設計 其運行效果圖如下:: ,一個TextBox控件,一個Combo1控件,如下: Private Sub cmdOK_Click() Dim strSql As String strSql = Oper_ID = amp。 39。 amp。 amp。 39。 If Not ( And ) Then (strSql) If Not ( Or ) Then If Trim((Oper_Pass)) = Trim() Then OperaterName = Trim() 39。記錄當前用戶 39。顯示主窗體 Unload Me Exit Sub Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已經登錄三次都失敗，系統關閉, vbInformation + vbOKOnly, 非法用戶 Unload Me Exit Sub Else End If End If Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已經登錄三次都失敗，系統關閉, vbInformation + vbOKOnly, 非法用戶 Unload Me Exit Sub Else End If End If Else MsgBox 數據庫中沒有操作用戶數據, vbCritical + vbOKOnly, 系統錯誤 Unload Me Exit Sub End If End Sub 基礎設置模塊的設計 其窗體的命令按鈕源碼實現如下: 增加按鈕的源碼: Private Sub tblTitel_ButtonClick(ByVal Button As ) Select Case Case add = 1 39。移到最后一行 = 0 39。稱到最后一行的第一列 = 1 39。選定一行 = 1 39。選定所有列 If 7 Then = 7 End If (delete).Enabled = False (add).Enabled = False = False 保存按鈕的源碼如下: Private Sub IniGrid(ByVal flexGrid As MSHFlexGrid) With flexGrid .Cols = 3 .Rows = 2 .FixedCols = 0 .FixedRows = 1 .SelectionMode = flexSelectionByRow .TextMatrix(0, 1) = 編號 Select Case .Name Case flexDepart .TextMatrix(0, 2) = 部門名稱 Case flexEdu .TextMatrix(0, 2) = 學歷名稱 Case flexJob .TextMatrix(0, 2) = 職務名稱 Case flexTitel .TextMatrix(0, 2) = 職稱名稱 Case flexPli .TextMatrix(0, 2) = 政治面貌 Case flexLt .TextMatrix(0, 2) = 請假類型 Case flexLs .TextMatrix(0, 2) = 銷假標志 Case flexMs .TextMatrix(0, 2) = 婚姻狀況 End Select .ScrollBars = flexScrollBarVertical .GridLines = flexGridNone .GridLinesFixed = flexGridNone 39。.AllowBigSelection = True .AllowUserResizing = flexResizeNone .ColWidth(0) = 1 .ColWidth(1) = 1000 .ColWidth(2) = 5410 .ColAlignment(1) = 3 .ColAlignment(2) = 0 .ColAlignmentFixed(1) = 3 .FillStyle = flexFillSingle .ScrollTrack = True .Row = 1 .Col = 0 .RowSel = 1 .ColSel = .Cols 1 End With End Sub Private Sub showdata(ByVal Recordset As , ByVal flexGrid As MSHFlexGrid) Dim i As Integer Dim j As Integer If 0 Then With = 1 While Not .Rows = .Rows + 1 For i = 1 To .Col = i If (.Row Mod 2) = 0 Then .CellBackColor = amp。HF4D3A6 Else .CellBackColor = vbWhite End If .Text = (i 1) Next i .Row = .Row + 1 We