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