【正文】 的資源和力量，開發(fā)一些適合于本企業(yè)或本行業(yè)的管理信息 系統(tǒng)。在數(shù)據(jù)庫中實現(xiàn)了數(shù)據(jù)獨立與程序的集中統(tǒng)一管理，使得易于編程。 從機房管理員角度，系統(tǒng)提供了管理員及學生用戶的各種詳細信息，管理員具有查詢、刪除、保存、修改等基本權限和數(shù)據(jù)庫訪問，維護等高級權限。系統(tǒng)采用友好的界面，能夠幫助機房管理員方便有效地對機房進行管理。矩形框中的文字表示管理員實體， 橢圓形框表示管理員的屬性。矩形框中的文字表示設備實體，橢圓形框表示設備的屬性。 表 21 管理員基本信息表 列名 數(shù)據(jù)類型 長度 允許空 管理員 char 10 密碼 char 15 √ 員工工資 float 8 √ 管理員 名稱 設備 用戶 管理 密碼 維 護 編號 庫存 報廢數(shù)量 庫存數(shù)量 領用數(shù)量 價格 應用 用戶名 密碼 消費金額 機號 消費時間 基本工資 表 22 用戶基本信息表 列名 數(shù)據(jù)類型 長度 允許空 用戶 char 10 密碼 Char 10 機 號 char 10 上機時間 char 20 √ 下機時間 char 20 √ 單價 float 8 √ 總價 float 8 表 23 設備表 列名 數(shù)據(jù)類型 長度 允許空 設備名稱 char 10 √ 設備編號 Char 10 √ 庫存數(shù)量 int 4 √ 價格 float 8 √ 報廢數(shù)量 int 4 √ 領用數(shù)量 int 4 √ 表 24 設備管理表 機號 char 10 設備編號 char 10 √ 設備名稱 char 10 √ 故障原因 varchar 50 √ 處理結果 varchar 50 √ 表 25 收費統(tǒng)計表 列名 數(shù)據(jù)類型 長度 允許空 日營業(yè)額 char 10 √ 日期 Char 10 √ 管理員工資 int 4 √ 功能模塊圖 圖 功能模塊圖 整個系統(tǒng)包括兩個大的模塊：高級登錄模塊（管理員身份登錄）和基本模塊（用戶身份登錄） 高級用戶登錄模塊主要實現(xiàn)對管理員和用戶基本信息、管理員工資信息和用戶消費記錄信息的管理 ，比如對管理員基本信息的添加、刪除、查詢、查看、以及修改等功能。若想刪除該用戶的信息時可選擇該信息并單擊“刪除”按鈕來刪除，最后按“退出”則回到主菜單界面 三、 詳細設計 在用戶管理模塊主要包括用戶數(shù)據(jù)添加、用戶數(shù)據(jù)修改及修改用戶口令。 Dim objAdmin As Recordset 39。驗證用戶身份，最多嘗試 3 次 39。創(chuàng)建檢驗用戶身份、用戶名和密碼合法性的 Recorset 對象 Dim objLoginRcd As New Recordset 39。 Trim(txtname) amp。 Trim(txtname) amp。判斷密碼是否正確 ElseIf Trim(.Fields(strPswdFld)) Trim(txtpswd) Then MsgBox 密碼錯誤！ , vbCritical, 驗證登錄 txtpswd = Else 39。 過而能改，善莫大焉。在今后社會的發(fā)展和學習實 踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發(fā)現(xiàn)問題所在，然后一一進行解決，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠不可能收獲成功，收獲喜悅，也永遠不可能得到社會及他人對你的認可！ 此課程設計，讓我感慨頗多，從理論到實踐，在這短短的幾天里，可以說得是苦多于甜，但是可以學到很多很多的東西，同時鞏固了以前所學過的知識，學到了很多以前在書本上所沒有學到過的知識。團結就是力量，只有互相之間默契融洽的配合才能換來最終完美的結果。一個人的力量總是很有限的，但如果把幾個人的力量加到一起，那將是一種非常強大的，無法阻擋的超能力，無堅不摧。再次感謝老師，同學！ 參考文獻 [1] 于海英 ， 張利軍 ， 王彪 .數(shù)據(jù)庫應用系統(tǒng)開發(fā) SQL server+Visual Basic案例驅(qū)動教程 [M].北京 :清華大學 出版社 ， [2]崔武子，朱立平，樂娜 。謝謝老師，謝謝你們能夠陪伴我們完成此次 的課程設計，能與你們合作，是我們最大的榮幸 ! 非常高興學校能夠為我們安排這樣一門特殊的實驗課，讓大家在實踐中發(fā)現(xiàn)自己的不足。一天到晚，雖然很累，但我們的心里都是一樣的溫暖，都是一樣期待著最后成功的喜悅。在設計的過程中遇到問題，可以說得是困難重重，但可喜的是最終都得到了解決。最終的檢測調(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(