【導(dǎo)讀】模塊，“員工考勤考評(píng)”模塊以及“用戶管理”模塊等。體的程序設(shè)計(jì)方法。

　　

【正文】 當(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)管理窗體。 根據(jù)用戶類型的不同，用戶管理模塊的功能也不相同?？梢园韵虑樾危? ● Admin 用戶可以創(chuàng)建系統(tǒng)管理員或普通用戶，修改系統(tǒng)管理員或普通用戶的密碼，刪除系統(tǒng)管理員或普通用戶，也可以修改自身 的密碼 ； ● 系統(tǒng)管理員用戶可以創(chuàng)建普通用戶，對(duì)普通用戶的密碼進(jìn)行重置，刪除普通用戶。也可以修改自身的用戶名和密碼 ； ● 普通用戶只能修改自身的用戶名和密碼。 設(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 密碼長度不能小于 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。判斷是否存在同名用戶 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then MsgBox 用戶名已經(jīng)存在，請(qǐng)重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If 39。將用戶數(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ù) If Modify = False Then .Insert 24 Else .Update (OriUser) 39。如果修改自身用戶名，則更新 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)密碼是否相同，以及密碼長度是否大于或等于 6 等。如果輸入的數(shù)據(jù)完全滿足條件，則保存到 數(shù)據(jù)庫中。如果更新了當(dāng)前的用戶名，則必須更新 CurUser 對(duì)象。其他代碼的處理與前面介紹的內(nèi)容相似 。 用戶管理窗體的名稱為 FrmUserMan，窗體布局如 圖 所示： 圖 設(shè)計(jì)用戶管理 當(dāng)裝入窗體時(shí)，觸發(fā) From_Load 事件，程序?qū)⒃O(shè)置 AdoUserList 控件的連接字符串和數(shù)據(jù)源，從而為用戶列表框提供數(shù)據(jù)。 當(dāng)用戶單擊“添加”用戶按鈕時(shí)，觸發(fā) Cmd_Add_Click 事件。在設(shè)置 ComboType組合框時(shí)需要考慮， Admin 用戶可以添加系統(tǒng)管理員和普通用戶，而 其他系統(tǒng)管理員只能添加普通用戶。普通用戶不進(jìn)入用戶管理窗體，所以不用考慮普通用戶的情況。 當(dāng)單擊“修改”或“刪除”按鈕時(shí)，在打開編輯用戶信息窗體之前，需要判斷當(dāng)前用戶是否擁有修改和或刪除選定用戶的權(quán)限。 當(dāng)用戶單擊用戶列表框 DataList1 時(shí)，觸發(fā) DataList1_Click 事件。對(duì)應(yīng)程序?qū)⒏鶕?jù)選擇的用戶名讀取用戶數(shù)據(jù)，并在窗體右側(cè)顯示用戶名和用戶類型。 各個(gè)過程的代碼在此省略。 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)管理窗體。 在主界面中增加修改密碼代碼 當(dāng)選擇“修改密碼”菜單項(xiàng)時(shí)，觸發(fā) mn_pwd_Click 事件 [9] [13]，代碼如下： Private Sub mn_pwd_Click() With FrmUserEdit .OriUser= .txtUserName= If =1 Then .“系統(tǒng)管理員 ” Else .“普通用戶 ” End If .=0 .=False .Modify=True .Show 1 End With End Sub 程序?qū)?dāng)前用 戶（ CurUser） 的數(shù)據(jù)賦值到 FrmUserEdit 窗體中，然后打開FrmUserEdit 窗體，要求用戶編輯自己的用戶數(shù)據(jù)。 26 經(jīng)過兩個(gè)月的學(xué)習(xí)和工作，我終于完成了綜合人事管理系統(tǒng)的論文。從論文題目到系統(tǒng)的 實(shí)現(xiàn)，再到論文文章的完成，每走一步對(duì)我來說都是新的嘗試與挑戰(zhàn)。在這段時(shí)間里，我學(xué)到了很多知識(shí)也有很多感受，從對(duì) VB，綜合人事管理系統(tǒng)很不了解的狀態(tài)，我開始了獨(dú)立的學(xué)習(xí)和試驗(yàn)，查看相關(guān)的資料和書籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩作品一步步完善起來，每 一次改進(jìn)都是我學(xué)習(xí)的收獲。象對(duì)數(shù)據(jù)庫的建立， VB 各個(gè)控件的使用都一步一步的熟悉并掌握，都是值得令人欣喜的！ 當(dāng)今世界上，以信息技術(shù)為主要標(biāo)志的科技進(jìn)步日新月異，高科技成果向現(xiàn)實(shí)生產(chǎn)力的轉(zhuǎn)化越來越快。縱觀全球經(jīng)濟(jì)發(fā)展，信息技術(shù)和信息產(chǎn)業(yè)已經(jīng)成為經(jīng)濟(jì)增長的主要推動(dòng)力之一，正在改變著傳統(tǒng)的生產(chǎn)和經(jīng)營方式以至生活方式。信息資源已經(jīng)成為國民經(jīng)濟(jì)和社會(huì)發(fā)展的戰(zhàn)略資源，信息資源管理水平也已成為現(xiàn)代化水平和綜合國力的重要標(biāo)志。管理信息系統(tǒng)就是我們常說的 MIS（ Management Information System） ,在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它越來越普及。 能獨(dú)立完成綜合人事管理系統(tǒng)讓自己覺的很有成就感。 這次做論文的經(jīng)歷也會(huì)使我終身受益，我感受到做論文是要 用心去做的一件事情，是真正的自己學(xué)習(xí)的過程和研究的過程，沒有學(xué)習(xí)就不可能有研究的能力，沒有自己的研究，就不會(huì)有所突破，那也就不叫論文了。由于自己的知識(shí)的局限性，作品中存在很多不足之處，懇請(qǐng)老師批評(píng)改正。在此謝謝老師對(duì)我的指點(diǎn)， 希望這次的經(jīng)歷能讓我在以后學(xué)習(xí)中激勵(lì)我繼續(xù)進(jìn)步。 27 參考文獻(xiàn) [1] 薛亮 .Visual Basic 實(shí)用教程 [M].西安： 西安電子科技大學(xué)出版社 ， 2021. [2] 黃明，梁旭，石興民 .Visual Basic 課程設(shè)計(jì) [M].電 子工業(yè)出版社 ， 2021. [3] 啟明工作室 . Visual Basic+Access 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與實(shí)例 [M].北京 :人民郵電出版社， 2021. [4] 張飛 .VB 的變量作用域、參數(shù)傳遞及鍵盤事件 [J].天中學(xué)刊 ， 2021(05):36－ 38. [5] 王志東 . 用 VB 訪問數(shù)據(jù)庫 .集寧師專學(xué)報(bào) [J]， 2021(4)： 3132. [6] 樊敏 編著 .VB 開發(fā)數(shù)據(jù)庫系統(tǒng)實(shí)例分析 .湖南工業(yè)職業(yè)技術(shù)學(xué)院學(xué)報(bào) [J]. 2021(2): 1011. [7] 史坡 ,廉德宇 ,沈昱明 .VB 中動(dòng)態(tài)數(shù)據(jù)庫的保存自動(dòng)備份和刪除 [J].上海市化學(xué)化工學(xué)會(huì) 2021 年度學(xué)術(shù)年會(huì)論文摘要集 ， 2021,222214. [8] 鄧格琳 .Visual Basic 中用戶界面 的設(shè)計(jì)原則和編程技巧 [J]. 南昌教育學(xué)院學(xué)報(bào) ， 2021(4)： 5355. [9] 張紅 ,石慶喜 .談?wù)?Visual Basic 對(duì)數(shù)據(jù)庫的訪問 [J]. 重慶商學(xué)院學(xué)報(bào) ， 2021(2): 7779. [10] 王亞慧 ,武威 ,郝學(xué) 軍 . 使用 VB 實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的查詢 [J]. 北京建筑工程學(xué)院學(xué)報(bào) ,2021 年 (2): 6871. [11] 鄧昀 , 謝昊 .VB 中改變窗體時(shí)控件的改變 [J].科教文匯 ,2021(3):3437. [12] 向平 .基于 VB 的客戶信息管理系統(tǒng) [J].兵工自動(dòng)化 ,2021(1):5658. [13] 吳征 .VB程序設(shè)計(jì) Function 過程的應(yīng)用 .內(nèi)江科技 ,2021(11):8991. [14] Michael Halvorson； Microsoft Visual Basic 2021 Step by Step[M] .Microsoft Publishing 2021. [15] Andrew Parsons； Visual Basic174。2021 Express Edition Starter Kit [M].Wiley Publishing, 2021.