【導(dǎo)讀】加、刪除、修改等操作和可對學(xué)生之間進行尋找同學(xué)；AccessMDB的方式進行開發(fā)。員，室長，衛(wèi)生檢查結(jié)果，公務(wù)損壞后的賠償，水電費通知等。更新通知即宿管員及時將通知更新，供學(xué)生查看。和編程愛好者的青睞。能的強大的可視化界面，是程序員編寫應(yīng)用程序變得很簡單。因此，VisualBasic是當(dāng)今使用最廣泛的高。隨著學(xué)生量的與日俱增，學(xué)生宿舍的管理也變的越來越復(fù)雜，VisualBasic是一種新型的現(xiàn)代語言。的語言相比，它在許多方面又重要的改革和突破。供一個“工具箱”，向內(nèi)放油若干個“空間”。不必為此編寫程序。也就是說，屏幕上的用戶界面是用Visual. 序“寫”出來的。由VisualBasic系統(tǒng)完成而已。Basic中將“子程序”稱為“過程”）的運行。VisualBasic是面向?qū)ο蟮?、結(jié)構(gòu)化的計算機語言。醒，程序人員的任務(wù)是設(shè)計這些對象的事件過程。

　　

【正文】 = (電數(shù)量 ) = (電費 ) = (總費 ) = False End If End Sub （ 2） 、 “繼續(xù)查詢”按鈕代碼 Private Sub Command2_Click() = True End Sub 41 （ 3） 、 “返回”按鈕代碼 Private Sub Command3_Click() End Sub （ 4） 、 窗體加載代碼 Private Sub Form_Load() = False = False End Sub 公務(wù)賠償 該功能介紹的是在宿舍設(shè)備損害后進行維修的情 況，包括人為的和非人為的，其中人為的要計算賠償?shù)摹? 公務(wù)賠償窗口截圖 圖 “請輸入寢室號”“（格式 ? 101）”“寢室號”“維修情況”“賠償 42 情況”“時間”為 label 標(biāo)簽框；“確定”“繼續(xù)查看”“返回”為三個命令按鈕 mand1~mand3；其余均為 text 文本框，除text1 外，其余 text 文本框的 enabled 屬性均為 false。添加data1并連接數(shù)據(jù)庫。 在上圖的 text1 文本框中輸入寢室號就可以對相應(yīng)的寢室做出查詢。單擊“確定”按鈕即在輸入有效的寢室號的時候查詢到該寢室的 賠償情況，“繼續(xù)查看”則是清空 text1 文本框，輸入不同寢室號，進行查詢?！胺祷亍眲t是返回到普通用戶菜單界面。 公務(wù)賠償窗口代碼 (1)、 “確定”按鈕代碼 Private Sub Command1_Click() If = Then MsgBox 請輸入寢室號 End If Do While Trim((寢室號 )) Loop If Trim() = Trim((寢室號 )) Then = (寢室號 ) 43 = (維修情況 ) = (賠償情況 ) = (時間 ) = False End If End Sub (2)、 “繼續(xù)查看”按鈕代碼 Private Sub Command2_Click() = True End Sub (3)、 “返回”按鈕代碼 Private Sub Command3_Click() End Sub (4)、 窗體加載代碼 Private Sub Form_Load() = False End Sub 密碼修改 密碼修改是管理員以及普通用戶都可以操作的界面可以對 44 用戶密碼進行修改。 密碼修改 圖 “舊密碼”“新密碼”“重新輸入新密碼”為 label 標(biāo)簽框；“確定”“取消”“退出”為 mand 命令按鈕；其余為 text 文本框，設(shè)置起 passwordchar屬性為“ *”。 密碼修改窗口代碼 (1)、 “確定”按鈕代碼 Private Sub Command1_Click() If Then MsgBox 舊密碼錯誤 , vbOKOnly, 密碼修改 = = = End If If = And = 45 Then ( 密碼 ) = Trim() MsgBox 已修改該用戶 !, vbOKOnly, 密碼修改 = = = = End If If Then MsgBox 2 次新密碼錯誤或舊密碼錯誤 , vbOKOnly, 密碼修改 = = = End If = = = 46 End Sub (2)、 “取消”按鈕代碼 Private Sub Command2_Click() End Sub (3)、 “退出”按鈕代碼 Private Sub Command3_Click() End End Sub 個人信息 可以在此界面查看到個人注冊的信息，如果出現(xiàn)信息有誤可以跟系部聯(lián)系。 個人 信息窗口截圖 圖 “返回”為 mand 命令按鈕，其余均為 label 標(biāo)簽框，除“學(xué) 47 號”“家庭住址”“姓名”“個人電話”“班級”“寢室號”“寢室電話”外，其余均要與數(shù)據(jù)庫（ loading）相連。 個人信息窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command1_Click() End Sub （ 2）、 窗體加載代碼 Private Sub Form_Load() = False End Sub 尋找同學(xué) 在某些時候 聯(lián)系不到同宿舍的同學(xué)，只要在“請輸入要查找人的姓名”就可以找到要找人的寢室號以及寢室電話。 尋找同學(xué)窗口截圖 48 圖 “請輸入要查找人的姓名”“寢室號”“寢室電話”為 label 文本框；“確定”“繼續(xù)查找”“返回”為 mand 命令按鈕；其余為text文本框；添加 data數(shù)據(jù)庫，并連接數(shù)據(jù)庫（ loading）。 尋找同學(xué)窗口代碼 （ 1） 、 “確定”按鈕代碼 Private Sub Command1_Click() = False = False If = Then MsgBox 請輸入姓名 Else Do While Trim((姓名)) Loop If Trim() = Trim((姓名 )) Then = Trim((寢室號 )) = Trim((寢室電話 )) End If = False 49 End Sub （ 2） 、 “繼續(xù)查找”按鈕代碼 Private Sub Command2_Click() = True End Sub （ 3） 、 “返回”按鈕代碼 Private Sub Command3_Click() End Sub （ 4） 、 窗體加載代碼 Private Sub Form_Load() = False End Sub 50 總 結(jié) 通過本次畢業(yè)設(shè)計，讓我進一步了解到了 Visual Basic 的各種功能。尤其是 Visual Basic 中數(shù)據(jù)庫的應(yīng)用更家熟練。關(guān)于 text 文本框的各種屬性設(shè)置， label 標(biāo)簽框的各種屬性設(shè)置，窗體的屬性設(shè)置等。 學(xué)生宿舍管理系統(tǒng)的開發(fā)，更是為管理學(xué)生宿舍提供方便。幫助宿管員更有效的管理學(xué)生宿舍。 本系統(tǒng)主要包括兩部分：一部分是管理員窗口，另一部分則是普通用戶窗口。管理員可以通過程序?qū)ζ胀ㄓ脩暨M 行管理（信息的輸入，輸出，修改，添加，刪除等）則普通用戶只能查看信息及通知，唯一能編輯的只是自己的密碼。 本書尚又不足之處，望老師批評指導(dǎo)！ 51 52 致謝 本課題在選題及研究過程中得到 鐘文龍 老師的悉心指導(dǎo)。 鐘老師多次詢問研究進程，并為我指點迷津，幫助我開拓研究思路，精心點撥、熱忱鼓勵。 鐘 老師一絲不茍的作風(fēng)，嚴謹求實的態(tài)度，踏踏實實的精神，不僅授我以文，而且教我做人，雖歷時三載，卻給以終生受益無窮之道。對 鐘 老師的感激之情是無法用言語表達的。 本文 能夠 得以順利完成，也是與 航天學(xué) 院 所有 老師的幫助分不開的，雖然他們沒有直接參與我的論文指導(dǎo)，但在開題時也給 我提供了不少的 意見。 開始進入課題到論文的順利完成，一直都離不開老師、同學(xué)、朋友給我熱情的幫助，在這里請接受我誠摯的謝意 ! 感謝 鐘文龍老師 、 彭怡可 老師、 劉自坤 老師等對我的教育培養(yǎng)。他們細心指導(dǎo)我的學(xué)習(xí)與研究，在此，我要向諸位老師深深地鞠上一躬。 感謝我的同學(xué)、 朋友 三年來對我學(xué)習(xí)、生活的關(guān)心和幫助。 最后，向我的 父母 致謝，感謝他們 這么多年的養(yǎng)育之恩 。 53 參考文獻 [1]《 Visual Basic 程序設(shè)計（第二版）》 譚浩強 清華大學(xué)出版社 [2]Visual Basic 高級編程宋偉 吳建國 清華大學(xué)出版社 [3]Visual Basic 入門與提高 戴紅 陳哲 清華大學(xué)出版社 [4]Visual Basic 應(yīng)用指南 何斌 人民郵電出版社 [5] Visual Basic 高級編程技術(shù) 陳 明 北京希望電子出版社 [6] Visual Basic 實用教程 陳弘原 中國水利水電出版社 [7]數(shù)據(jù)庫系統(tǒng)概論 薩師煊、王珊 高等教 育出版社 [8]軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 施小姚 西安電子科技大學(xué)出版