【正文】 2021 Express Edition Starter Kit [M].Wiley Publishing, 2021. 。在此謝謝老師對(duì)我的指點(diǎn)， 希望這次的經(jīng)歷能讓我在以后學(xué)習(xí)中激勵(lì)我繼續(xù)進(jìn)步。 這次做論文的經(jīng)歷也會(huì)使我終身受益，我感受到做論文是要 用心去做的一件事情，是真正的自己學(xué)習(xí)的過程和研究的過程，沒有學(xué)習(xí)就不可能有研究的能力，沒有自己的研究，就不會(huì)有所突破，那也就不叫論文了。管理信息系統(tǒng)就是我們常說的 MIS（ Management Information System） ,在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它越來越普及?？v觀全球經(jīng)濟(jì)發(fā)展，信息技術(shù)和信息產(chǎn)業(yè)已經(jīng)成為經(jīng)濟(jì)增長(zhǎng)的主要推動(dòng)力之一，正在改變著傳統(tǒng)的生產(chǎn)和經(jīng)營(yíng)方式以至生活方式。在這段時(shí)間里，我學(xué)到了很多知識(shí)也有很多感受，從對(duì) VB，綜合人事管理系統(tǒng)很不了解的狀態(tài)，我開始了獨(dú)立的學(xué)習(xí)和試驗(yàn)，查看相關(guān)的資料和書籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩作品一步步完善起來，每 一次改進(jìn)都是我學(xué)習(xí)的收獲。 26 經(jīng)過兩個(gè)月的學(xué)習(xí)和工作，我終于完成了綜合人事管理系統(tǒng)的論文。 25 在主界面中增加用戶管理代碼 當(dāng)選擇“用戶管理”菜單項(xiàng)時(shí)，觸發(fā) mn_user_Click 事件，代碼如下： Private Sub mn_user_Click() If =1 Then 1 Else MsgBox “沒有權(quán)限 ” End If End Sub 只有系統(tǒng)管理員才能打開考評(píng)管理窗體。對(duì)應(yīng)程序?qū)⒏鶕?jù)選擇的用戶名讀取用戶數(shù)據(jù)，并在窗體右側(cè)顯示用戶名和用戶類型。 當(dāng)單擊“修改”或“刪除”按鈕時(shí)，在打開編輯用戶信息窗體之前，需要判斷當(dāng)前用戶是否擁有修改和或刪除選定用戶的權(quán)限。在設(shè)置 ComboType組合框時(shí)需要考慮， Admin 用戶可以添加系統(tǒng)管理員和普通用戶，而 其他系統(tǒng)管理員只能添加普通用戶。 用戶管理窗體的名稱為 FrmUserMan，窗體布局如 圖 所示： 圖 設(shè)計(jì)用戶管理 當(dāng)裝入窗體時(shí)，觸發(fā) From_Load 事件，程序?qū)⒃O(shè)置 AdoUserList 控件的連接字符串和數(shù)據(jù)源，從而為用戶列表框提供數(shù)據(jù)。如果更新了當(dāng)前的用戶名，則必須更新 CurUser 對(duì)象。如果修改自身用戶名，則更新 CurUser 對(duì)象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If End If End With MsgBox 數(shù)據(jù)保存成功 Unload Me End Sub 程序?qū)⑴袛嘤脩羰欠褚呀?jīng)存在，密碼和確認(rèn)密碼是否相同，以及密碼長(zhǎng)度是否大于或等于 6 等。將用戶數(shù)據(jù)賦值到 MyUser 對(duì)象中 .UserName = MakeStr(txtUserName) .Pwd = MakeStr(txtPass) Select Case Case 系統(tǒng)管理員 .User_type = 1 Case 普通用戶 .User_type = 2 End Select 39。 設(shè)計(jì)編輯用戶信息的窗體 編輯用戶信息的窗體可以用來添加和修改用戶信息，窗體名稱為 FrmUserEdit,窗體布局如 圖 所示： 編輯用戶信息 23 當(dāng)用戶單擊“確定”按鈕時(shí)，觸發(fā) CmdOkClick 事件，對(duì)應(yīng)代碼如下： Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長(zhǎng)度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn) = 0 = Len(txtPass2) Exit Sub End If 39?？梢园韵虑樾危? ● Admin 用戶可以創(chuàng)建系統(tǒng)管理員或普通用戶，修改系統(tǒng)管理員或普通用戶的密碼，刪除系統(tǒng)管理員或普通用戶，也可以修改自身 的密碼 ； ● 系統(tǒng)管理員用戶可以創(chuàng)建普通用戶，對(duì)普通用戶的密碼進(jìn)行重置，刪除普通用戶。 22 在主界面中增加考勤考評(píng)管理代碼 當(dāng)選擇“考勤管理”菜單時(shí)，觸發(fā) mn_check_Click 事件，代碼如下： Private Sub mn_check_Click() 1 End Sub 當(dāng)選擇 “考評(píng)管理 ”菜單時(shí)觸發(fā) mn_eva_Click 時(shí)間，代碼如下： Private Sub mn_eva_Click() If = 1 Then 1 Else MsgBox 沒有權(quán)限 End If End Sub 只有系統(tǒng)管理員才能打開考評(píng)管理窗體。如果當(dāng)前記錄存在，則修改，否則添 加 If .In_DB(lblMonth, ) Then Call .Update(lblMonth, OriEmpId) Else .Insert End If End With TmpOk = True MsgBox 數(shù)據(jù)保存成功 Unload Me End Sub 程序代碼將用戶輸入的考評(píng)數(shù)據(jù)賦值到 MyEa 對(duì)象中，如果當(dāng)前記錄存在，則修改記錄，否則將添加考評(píng)記錄。處罰金額 .Memo1 = MakeStr(txtMemo1) 39。獎(jiǎng)勵(lì)金額 .cfReason = MakeStr(txtCf) 39?？傮w評(píng)價(jià) .jlReason = MakeStr(txtJl) 39?？荚u(píng)月份 .EmpId = 39。 設(shè)計(jì)考評(píng)信息編輯窗體 考評(píng)信息編輯窗體的名稱為 FrmEvaEdit,窗體布局如 圖 所示： 圖 編輯考評(píng)信息 在 FrmEvaEdit 窗體中，公共變量 OriEmpId 用于博愛村考評(píng)員工的編號(hào)， TmpOk用于保存用戶是否單擊“確定”按鈕關(guān)閉窗體。 And DepId= + Trim(OriDepId) MsgBox tmpsource = tmpsource 39。設(shè)置數(shù)據(jù)源 tmpsource = SELECT EmpName As 姓名 , SumQq As 全勤 , SumCc As 出差 , _ + SumBj As 病假 , SumSj As 事假 , SumKg As 曠工 , SumFdxj As 法定休假 , + SumNxj As 年休假 , SumDxj As 倒休假 , SumCd As 遲到分鐘 , _ + SumZt As 早退分鐘 , SumOt1 As 法定節(jié)假日加班 , SumOt2 As 周末加班 , + SumOt3 As 日常加班 FROM 考勤統(tǒng)計(jì) _ + WHERE Month=39。Data Source= _ + + \人事 .mdb。 當(dāng)裝入窗體時(shí)，觸發(fā) Form_Load 事件，代碼如下： Private Sub Form_Load() 39。將考勤數(shù)字段的“合計(jì)”列選擇為 Sum，表示求和；將其他字段的“合計(jì)”列選擇為 Group By,表示分組。 ⑤ 將 CheckDate字段修改為 “Month:Left([CheckDate],7)”,其中 “Month:”表示顯示的標(biāo)題， Left([CheckDate],7)表示提取日期的月份部分 。 圖 月度考勤統(tǒng)計(jì)表 19 ③ 系統(tǒng)將根據(jù)表的字段自動(dòng)創(chuàng)建如下連接： = = 這正是需要的連接關(guān)系。 ①在“查詢”窗體中單擊“在設(shè)計(jì)視 圖中創(chuàng)建查詢”項(xiàng)，打開“查詢?cè)O(shè)計(jì)視圖”。 執(zhí)行 SQLServer 時(shí)候所產(chǎn)生的代碼如圖 所示： 圖 SQLServer 語句 執(zhí)行完 SQLServer 后的統(tǒng)計(jì)表如圖 所示： 此時(shí)需要通過創(chuàng)建查詢實(shí)現(xiàn)統(tǒng)計(jì)功能。 設(shè)計(jì)月度考勤統(tǒng)計(jì)表窗體 前面兩個(gè)窗體完成了每天記錄員工考勤的功能，這個(gè)窗體將設(shè)計(jì)月度考勤表，按部門統(tǒng)計(jì)員工考勤記錄。在此模塊中添加對(duì)應(yīng)的代碼，其中 Refresh_Data()過程是考勤信息管理窗體的重要部門，它決定了 DataGrid 控件中顯示的數(shù)據(jù)。 此窗體的代碼中包含兩上公共變量，變量 OriEmpId 用于保存當(dāng)前考勤的員工編號(hào)，變量 TmpOk 用于博愛村用戶是否單擊“確定”按鈕推出。 在主界 面中增加員工管理代碼 當(dāng)選擇 “員工管理 ”菜單項(xiàng)時(shí)，觸發(fā) mn_emp_Click 事件，代碼如下： Private Sub mn_emp_Click() End Sub 員工考勤管理可以實(shí)現(xiàn)系統(tǒng)管理員可以創(chuàng)建，修改，刪除和查看考勤考評(píng)記錄；普通用戶只能查看考勤考評(píng)數(shù)據(jù)。在關(guān)閉 FrmTrans窗 體 之 后 ， 還需 要 把 TmpDepid 變量 的 內(nèi) 容 恢復(fù) 到 CurDep 中。 為了能夠在員工信息管理窗口中調(diào)用 FrmTrans 窗體，需要在 FrmEmpMan 窗體中添加對(duì)應(yīng)的代碼。 當(dāng)用戶單擊 ComboDep 時(shí)，將打開“選擇部門”對(duì)話框，并把選擇的部門名稱顯示在ComboDep 控件中。 16 設(shè)計(jì)員工部門調(diào)轉(zhuǎn)窗體 員工部門調(diào)轉(zhuǎn)窗體名稱設(shè)置為 FrmTrans,窗體布局如 圖 所示： 圖 員工部門調(diào)轉(zhuǎn) 在 FrmTrans 代碼窗體中添加對(duì)應(yīng)的代碼，變量 TmpOk 來記錄退出窗體的方式，當(dāng)用戶單擊“確定”按鈕時(shí)， TmpOk=True。布局如 圖 所示： 圖 員工信息管理 此