【正文】 ................. 16 ............................................. 16 ................................................................................................ 16 ................................................... 17 ................................................... 17 ................................................. 18 ................................................... 20 ....................................................... 21 ......................................... 22 .............................................................................................................. 22 編輯用戶信息的窗體 ................................................. 22 ....................................................... 24 ............................................. 25 ............................................. 25 ............................................................................................................................... 26 參考文獻 ............................................................................................................................... 27 1 引言 信息技術的迅猛發(fā)展，已經引起社會的深刻變革，信息時代的到來，迫切要求我們的企業(yè)管理需要進行變革。 系統(tǒng)開發(fā)的目的 人事管理系統(tǒng)是公司 ,企業(yè)單位重要的一個環(huán)節(jié) ,人事管理軟件有助于減輕人事管理人員的負擔 ,提高工作效率 . 系統(tǒng)要實現的功能 （ 1）登錄模塊及系統(tǒng)主界面 （ 2）部門管理 （ 3）員工基本信息管理 （ 4）員工考勤考評管理 （ 5）用戶管理 可行 性 研究 技術可行性 根據上述系統(tǒng)功能的分析，下面將進行具體的實現。故從經濟上是完全可行的。對于多類型用戶的管理系統(tǒng)來說，每一類用戶的工作流程都是不相同的。本系統(tǒng)的流程分析如圖 所示： 圖 系 統(tǒng)的流程分析圖 進入系統(tǒng)后，不同的類型的用戶所能進行的操作也不同。 ⑤ 用戶信息表 Users，用來保存系統(tǒng)用戶信息。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_time = Try_time = 1 If Try_time = 3 Then MsgBox 您已經三次嘗試進入本系統(tǒng) ,均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 如果通過密碼驗證 ,則將當前用戶的信息保存到 curUser 對象中 ,以便后面使用 。 而普通用戶只能查看部門數據 。 在 窗 體中添加一個 ImageList 控件 ,右擊此控件 ,選擇菜單中的 “屬性 ” 命令 ,打開“屬性頁 ”對話框 。 在 GeneralFunc 模塊中，有一個字定義過程 Add_DepTOtree()。將新輸入的數據保存到類變量中 With MyDep .DepName = MakeStr(txtDep) .Describes = MakeStr(txtDescribe) If Modify = False Then 39。當修改記錄時，不能改變上下級之間的關系 .UpperId = .Update () If Trim(txtDep) Then = Trim(txtDep) End If 39。當裝入窗體 FrmDepMan 時，觸發(fā) Form_Load事件，在此過程中將根據用戶類 型的不同決定顯示的界面，只有系統(tǒng)管理員用戶才能看到添加修改和刪除等按鈕。 使用 ImageList 控件來管理 TreeView 控件中的圖象信息 。參照部門管理窗體的內容設置 TreeView 和 14 ImageList 控件的屬性。 窗體布局如 圖 所示： 圖 在窗體中使用 DTPicker 控件選擇日期數據。設置 FrmEmpSel 窗體的位置 = + + 350 = + + 450 1 39。 當用戶單擊 ComboDep 時，將打開“選擇部門”對話框，并把選擇的部門名稱顯示在ComboDep 控件中。 此窗體的代碼中包含兩上公共變量，變量 OriEmpId 用于保存當前考勤的員工編號，變量 TmpOk 用于博愛村用戶是否單擊“確定”按鈕推出。 ①在“查詢”窗體中單擊“在設計視 圖中創(chuàng)建查詢”項，打開“查詢設計視圖”。 當裝入窗體時，觸發(fā) Form_Load 事件，代碼如下： Private Sub Form_Load() 39。 設計考評信息編輯窗體 考評信息編輯窗體的名稱為 FrmEvaEdit,窗體布局如 圖 所示： 圖 編輯考評信息 在 FrmEvaEdit 窗體中，公共變量 OriEmpId 用于博愛村考評員工的編號， TmpOk用于保存用戶是否單擊“確定”按鈕關閉窗體。處罰金額 .Memo1 = MakeStr(txtMemo1) 39。 設計編輯用戶信息的窗體 編輯用戶信息的窗體可以用來添加和修改用戶信息，窗體名稱為 FrmUserEdit,窗體布局如 圖 所示： 編輯用戶信息 23 當用戶單擊“確定”按鈕時，觸發(fā) CmdOkClick 事件，對應代碼如下： Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 = 0 = Len(txtPass2) Exit Sub End If 39。 用戶管理窗體的名稱為 FrmUserMan，窗體布局如 圖 所示： 圖 設計用戶管理 當裝入窗體時，觸發(fā) From_Load 事件，程序將設置 AdoUserList 控件的連接字符串和數據源，從而為用戶列表框提供數據。 25 在主界面中增加用戶管理代碼 當選擇“用戶管理”菜單項時，觸發(fā) mn_user_Click 事件，代碼如下： Private Sub mn_user_Click() If =1 Then 1 Else MsgBox “沒有權限 ” End If End Sub 只有系統(tǒng)管理員才能打開考評管理窗體。管理信息系統(tǒng)就是我們常說的 MIS（ Management Information System） ,在強調管理，強調信息的現代社會中它越來越普及。2021 Express Edition Starter Kit [M].Wiley Publishing, 2021. ?？v觀全球經濟發(fā)展，信息技術和信息產業(yè)已經成為經濟增長的主要推動力之一，正在改變著傳統(tǒng)的生產和經營方式以至生活方式。對應程序將根據選擇的用戶名讀取用戶數據，并在窗體右側顯示用戶名和用戶類型。如果更新了當前的用戶名，則必須更新 CurUser 對象?？梢园韵虑樾危? ● Admin 用戶可以創(chuàng)建系統(tǒng)管理員或普通用戶，修改系統(tǒng)管理員或普通用戶的密碼，刪除系統(tǒng)管理員或普通用戶，也可以修改自身 的密碼 ； ● 系統(tǒng)管理員用戶可以創(chuàng)建普通用戶，對普通用戶的密碼進行重置，刪除普通用戶。獎勵金額 .cfReason = MakeStr(txtCf) 39。 And DepId= + Trim(OriDepId) MsgBox tmpsource = tmpsource 39。將考勤數字段的“合計”列選擇為 Sum，表示求和；將其他字段的“合計”列選擇為 Group By,表示分組。 執(zhí)行 SQLServer 時候所產生的代碼如圖 所示： 圖 SQLServer 語句 執(zhí)行完 SQLServer 后的統(tǒng)計表如圖 所示： 此時需要通過創(chuàng)建查詢實現統(tǒng)計功能。 在主界 面中增加員工管理代碼 當選擇 “員工管理 ”菜單項時，觸發(fā) mn_emp_Click 事件，代碼如下： Private Sub mn_emp_Click() End Sub 員工考勤管理可以實現系統(tǒng)管理員可以創(chuàng)建，修改，刪除和查看考勤考評記錄；普通用戶只能查看考勤考評數據。 16 設計員工部門調