計算機機房管理系統(tǒng)課程設(shè)計報告(參考版)
2024-12-19 20:44本頁面
【正文】 再次感謝老師，同學！ 參考文獻 [1] 于海英 ， 張利軍 ， 王彪 .數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā) SQL server+Visual Basic案例驅(qū)動教程 [M].北京 :清華大學 出版社 ， [2]崔武子，朱立平，樂娜 。謝謝老師，謝謝你們能夠陪伴我們完成此次 的課程設(shè)計，能與你們合作，是我們最大的榮幸 ! 非常高興學校能夠為我們安排這樣一門特殊的實驗課，讓大家在實踐中發(fā)現(xiàn)自己的不足。一個人的力量總是很有限的，但如果把幾個人的力量加到一起，那將是一種非常強大的，無法阻擋的超能力，無堅不摧。一天到晚，雖然很累，但我們的心里都是一樣的溫暖，都是一樣期待著最后成功的喜悅。團結(jié)就是力量，只有互相之間默契融洽的配合才能換來最終完美的結(jié)果。在設(shè)計的過程中遇到問題，可以說得是困難重重，但可喜的是最終都得到了解決。在今后社會的發(fā)展和學習實 踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發(fā)現(xiàn)問題所在，然后一一進行解決，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠不可能收獲成功，收獲喜悅，也永遠不可能得到社會及他人對你的認可！ 此課程設(shè)計，讓我感慨頗多，從理論到實踐，在這短短的幾天里，可以說得是苦多于甜，但是可以學到很多很多的東西，同時鞏固了以前所學過的知識，學到了很多以前在書本上所沒有學到過的知識。最終的檢測調(diào)試環(huán)節(jié)，本身就是在踐行“過而能改，善莫大焉”的知行觀。 過而能改，善莫大焉。 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 單擊“退出”按鈕回到主界面 Private Sub cmdExit_Click() Unload Me End Sub 四、 測試 過程與運行結(jié)果 運行計算機機房管理系統(tǒng)會看到如圖所示的登陸界面 圖 輸入管理員信息以管理員身份登錄正常情況下即進入高級權(quán)限界面，如圖： 若身份驗證出錯，則彈出提示框 ,如圖 ： 圖 圖 在主菜單中選擇“用戶信息”菜單下的“管理員信息”，彈出如圖 的窗 體，再次窗體中實現(xiàn)管理員信息的增刪改等基本功能管理 圖 在圖 的登錄窗體中輸入用戶信息，選擇用戶身份進入如圖 所示窗體； 圖 總結(jié)與體會 通過此次課程設(shè)計，使我更加扎 實的掌握了 VB+SQL Server 方面的知識，在設(shè)計過程中雖然遇到了一些問題，但經(jīng)過一次又一次的思考，一遍又一遍的檢查終于找出了原因所在，也暴露出了前期我在這方面的知識欠缺和經(jīng)驗不足。判斷密碼是否正確 ElseIf Trim(.Fields(strPswdFld)) Trim(txtpswd) Then MsgBox 密碼錯誤！ , vbCritical, 驗證登錄 txtpswd = Else 39。 strPswdFld = 密碼 End If If .EOF Then 39。 Trim(txtname) amp。 strPswdFld = 密碼 Else .Find 用戶 =39。 Trim(txtname) amp。取得用戶的密碼 If .RecordCount 0 Then .MoveFirst If cmbIdentity = 管理員 Then .Find 管理員 =39。創(chuàng)建檢驗用戶身份、用戶名和密碼合法性的 Recorset 對象 Dim objLoginRcd As New Recordset 39。登錄密碼 是否為空 MsgBox 請輸入密碼 , vbExclamation, 驗證登錄 Exit Sub End If 39。驗證用戶身份，最多嘗試 3 次 39。用戶 Const MaxTimes As Integer = 3 39。 Dim objAdmin As Recordset 39。命令按鈕 1 和命令按鈕 2 用來響應(yīng)登錄事件和退出登錄事件。若想刪除該用戶的信息時可選擇該信息并單擊“刪除”按鈕來刪除，最后按“退出”則回到主菜單界面 三、 詳細設(shè)計 在用戶管理模塊主要包括用戶數(shù)據(jù)添加、用戶數(shù)據(jù)修改及修改用戶口令。 普通用戶登錄模塊主要實現(xiàn)對用戶消費的基本信息查看與查詢，用戶在登錄界面輸入自己的用戶名和密碼然后選擇用戶權(quán)限登錄進入普通主界面，用戶通過普通用戶主界面可以對自己的信息記錄進行查詢。 表 21
法律信息相關(guān)推薦
鄂ICP備17016276號-1