【正文】 詳細設計 ................................................................................................. 11 用戶登錄權限功能實現(xiàn) ......................................................................... 11 添加用戶基本信息功能實現(xiàn) ................................................................. 14 用戶信息刪除和退出功能實現(xiàn) ............................................................. 15 四、 測試過程與運行結果 ............................................................................. 15 總結與體會 ........................................................................................................... 19 致謝 ....................................................................................................................... 19 參考文獻 ............................................................................................................... 20 一、 研究意義 課程設計意義 在現(xiàn)代的現(xiàn)實生活中，隨著計算 機應用的普及和發(fā)展，各行各業(yè)都利用計算機實現(xiàn)了辦公自動化和自動控制，各種應用軟件更是層出不窮，給我們的現(xiàn)實生活帶來了許多方便。對于普通用戶來 說，他們采用計算機完成的工作往往是確定的。因此，對公共計算機實驗室進行系統(tǒng)而科學的管理已成為公共計算機實驗室管理員的當務之急。本系統(tǒng)作為現(xiàn)行公共計算機實驗室管理必不可少的組成部分，將實驗室的機器資源合理分配、統(tǒng)一管理，提高設備利用率，使實驗室的教學質(zhì)量得到有力保證。本次要開發(fā)的計算機機房管理系統(tǒng)是一個功能強大，有一定針對性的系統(tǒng)，在這個系統(tǒng)中，極為重要的一部分就是基本數(shù)據(jù)信息的管理，以往的機房管理系統(tǒng)一般只有對本單位職員信息的管理，而不涉及其它可能使用機房人員的情況，本次開發(fā)的系統(tǒng)則對幾種可能的使用機房人員的情況進行設計，對其信息進 行管理。在數(shù)據(jù)庫中實現(xiàn)了數(shù)據(jù)獨立與程序的集中統(tǒng)一管理，使得易于編程。系統(tǒng)采用友好的界面，能夠幫助機房管理員方便有效地對機房進行管理。矩形框中的文字表示設備實體，橢圓形框表示設備的屬性。若想刪除該用戶的信息時可選擇該信息并單擊“刪除”按鈕來刪除，最后按“退出”則回到主菜單界面 三、 詳細設計 在用戶管理模塊主要包括用戶數(shù)據(jù)添加、用戶數(shù)據(jù)修改及修改用戶口令。驗證用戶身份，最多嘗試 3 次 39。 Trim(txtname) amp。判斷密碼是否正確 ElseIf Trim(.Fields(strPswdFld)) Trim(txtpswd) Then MsgBox 密碼錯誤！ , vbCritical, 驗證登錄 txtpswd = Else 39。在今后社會的發(fā)展和學習實 踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發(fā)現(xiàn)問題所在，然后一一進行解決，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠不可能收獲成功，收獲喜悅，也永遠不可能得到社會及他人對你的認可！ 此課程設計，讓我感慨頗多，從理論到實踐，在這短短的幾天里，可以說得是苦多于甜，但是可以學到很多很多的東西，同時鞏固了以前所學過的知識，學到了很多以前在書本上所沒有學到過的知識。一個人的力量總是很有限的，但如果把幾個人的力量加到一起，那將是一種非常強大的，無法阻擋的超能力，無堅不摧。謝謝老師，謝謝你們能夠陪伴我們完成此次 的課程設計，能與你們合作，是我們最大的榮幸 ! 非常高興學校能夠為我們安排這樣一門特殊的實驗課，讓大家在實踐中發(fā)現(xiàn)自己的不足。在設計的過程中遇到問題，可以說得是困難重重，但可喜的是最終都得到了解決。 Private Sub cmdAdd_Click() ‘添加按鈕 = = = = False isadding = True End Sub? Private Sub cmdsave_Click() ‘保存按鈕 With objScore .MoveFirst If isadding Then .AddNew End If .Fields(管理員 ) = .Fields(密碼 ) = .Fields(員工工資 ) = .Update MsgBox 數(shù)據(jù)添加成功！ , vbInformation, 管理員信息 End With isadding = False = True End Sub 用戶信息刪除和退出功能實現(xiàn) 選擇要刪除的記錄，單擊“刪除”按鈕即可實現(xiàn)刪除功能 Private Sub cmdDelete_Click() End Sub 單擊“退出”按鈕回到主界面 Pri