【文章內(nèi)容簡介】 加data1，連接數(shù)據(jù)庫“來訪人員”。 單擊“添加”按鈕是可以添加新的來訪人員記錄，并存入數(shù)據(jù)庫?！按_定”按鈕則是在輸入新的記錄后確定保存入數(shù)據(jù)庫?！胺祷亍眲t是返回到管理員主窗口界面，課進(jìn)行其他操作。來訪人員窗口代碼（1）、“添加”窗口代碼Private Sub Command1_Click()（2）、“確定”窗口代碼Private Sub Command2_Click()End Sub（3）、“返回”窗口代碼Private Sub Command3_Click()End Sub 學(xué)生信息可以對學(xué)生的信息進(jìn)行管理，包括學(xué)好、姓名、班級、寢室號、寢室電話、家庭住址、權(quán)限、個人電話等。以及對這些信息的添加、刪除、修改等。一、學(xué)生信息窗口截圖“學(xué)號”、“寢室號”、“姓名”、“寢室電話”、“班級”、“家庭住址”、“權(quán)限”、“個人電話”“（權(quán)限…為學(xué)生）”分別為Label1~Label9；對應(yīng)有text1~text8；“添加”、“修改”、“刪除”、“確定”、“返回”分別為mand1~mand5；添加data1，連接數(shù)據(jù)庫“l(fā)oading”。 單擊“添加”按鈕的時候則可以添加學(xué)生信息，修改則是可以對已有的學(xué)生的信息進(jìn)行修改，刪除則是在已有的信息上進(jìn)行刪除操作，確定則是確定講信息存入數(shù)據(jù)庫，返回則是回到管理員主窗口。 學(xué)生信息窗口代碼（1）、“添加”按鈕的代碼Private Sub Command1_Click()If = Or = Or = Or = Or = Or = Or = Or = ThenMsgBox 請輸入完整信息！ElseEnd IfEnd Sub（2）、“修改”按鈕的代碼Private Sub Command2_Click()End Sub（3）、“刪除”按鈕的代碼Private Sub Command3_Click()End Sub（4）、“確定”按鈕的代碼Private Sub Command5_Click()End Sub（5）、“返回”按鈕的代碼Private Sub Command4_Click()End Sub 普通用戶界面的設(shè)計該窗口的設(shè)計跟管理員過度窗口的設(shè)計是一樣的，目的是提醒用戶當(dāng)前日期以及用戶歡迎詞。 學(xué)生主窗口截圖 “通知”包括“最新通知”和歷史通知；“收費(fèi)管理”包括“水電費(fèi)”和“公務(wù)賠償”；“查詢信息”“密碼修改”包括“個人信息”和“尋找同學(xué)”；“返回”包括“返回”和“退出”；“歡迎你在”“20100228”“登陸學(xué)生宿舍管理系統(tǒng)”分別為Label1~Label3； 作為普通用戶，沒有對信息的編輯權(quán)限，所以沒必要設(shè)計可以編輯的菜單。 學(xué)生主窗口代碼（1）、“最新通知”菜單代碼Private Sub mnuzuixin_Click()End Sub（2）、“歷史通知”菜單代碼Private Sub mnulishitongzhi_Click()End Sub（3）、“公務(wù)賠償”菜單代碼Private Sub mnugongwupeichang_Click()End Sub（4）、“水電費(fèi)”菜單代碼Private Sub mnushuidianfei_Click()End Sub（5）、“個人信息”菜單代碼Private Sub mnugerenxinxi_Click()End Sub（6）、“尋找同學(xué) ”菜單代碼Private Sub mnuxunzhaotongxue_Click()End Sub（7）、“密碼修改”菜單代碼Private Sub mnumimaxiugai_Click()End Sub（8）、“返回”菜單代碼Private Sub mnufanhui_Click()End Sub（9）、“退出”菜單代碼Private Sub mnutuichu_Click()EndEnd Sub（10）、窗體加載代碼Private Sub Form_Load()d$ = Date$ = d$End Sub該功能是當(dāng)用戶登錄到該系統(tǒng)后，在管理員修改通知后，普通用戶就可以查看新的通知。 最新通知窗口截圖通知是由一個文本框text1將其enabled屬性設(shè)置為false；“返回”，“退出”分別由mand1和mand2組成。 由于是普通用戶，所以沒有權(quán)限編輯，只能查看，所以只需設(shè)置兩個按鈕即可“返回”、“退出”?！胺祷亍奔捶祷仄胀ㄓ脩糁鞑藛谓缑妫巴顺觥奔雌胀ㄓ脩敉顺鰧W(xué)生宿舍管理系統(tǒng)。最新通知窗口代碼（1）、“返回”按鈕代碼Private Sub Command2_Click()End Sub（2）、“退出”按鈕代碼Private Sub Command1_Click()EndEnd Sub普通用戶可以進(jìn)入此窗口進(jìn)行歷史通知的查詢。 歷史通知窗口截圖 Label1由一個text1將起enabled屬性設(shè)置成enabled；“返回”和“退出”mand1和mand2. 上圖為無歷史通知的情況下窗口的截圖?！胺祷亍眲t是返回普通用戶主菜單窗口，“退出”則是普通用戶退出學(xué)生宿舍管理系統(tǒng)。 歷史通知窗口代碼（1）、“返回”按鈕代碼Private Sub Command2_Click()End Sub（2）、“退出”按鈕代碼Private Sub Command1_Click()EndEnd Sub水電費(fèi)窗口顯示的是水單價、數(shù)量、總價，電單價、數(shù)量、總價以及共計價格，其中可以以輸入的方式查詢要查詢的寢室的具體情況。 水電費(fèi)窗口截圖“請輸入寢室號”“（格式如：…101）”“用水”“單價”“數(shù)量”“水費(fèi)”“用電”“單價”“數(shù)量”“電費(fèi)”“共計”均為label標(biāo)簽框；“確定”“繼續(xù)查詢”“返回”為mand命令按鈕；其余均為文本框，除text1外，其余text 的enabled屬性均為false；添加data1和data2，連接數(shù)據(jù)庫“水電單價”和“水電費(fèi)”。水電費(fèi)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If = ThenMsgBox 請輸入寢室號End IfDo While Trim((寢室號)) Loop If Trim() = Trim((寢室號)) Then = (水?dāng)?shù)量) = (水費(fèi)) = (電數(shù)量) = (電費(fèi)) = (總費(fèi)) = FalseEnd If End Sub（2）、“繼續(xù)查詢”按鈕代碼Private Sub Command2_Click() = TrueEnd Sub（3）、“返回”按鈕代碼Private Sub Command3_Click()End Sub（4）、窗體加載代碼Private Sub Form_Load() = False = FalseEnd Sub該功能介紹的是在宿舍設(shè)備損害后進(jìn)行維修的情況，包括人為的和非人為的，其中人為的要計算賠償?shù)摹?公務(wù)賠償窗口截圖“請輸入寢室號”“（格式…101）”“寢室號”“維修情況”“賠償情況”“時間”為label標(biāo)簽框；“確定”“繼續(xù)查看”“返回”為三個命令按鈕mand1~mand3；其余均為text文本框，除text1外，其余text文本框的enabled屬性均為false。添加data1并連接數(shù)據(jù)庫。在上圖的text1文本框中輸入寢室號就可以對相應(yīng)的寢室做出查詢。單擊“確定”按鈕即在輸入有效的寢室號的時候查詢到該寢室的賠償情況，“繼續(xù)查看”則是清空text1文本框，輸入不同寢室號，進(jìn)行查詢?！胺祷亍眲t是返回到普通用戶菜單界面。公務(wù)賠償窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If = ThenMsgBox 請輸入寢室號End IfDo While Trim((寢室號)) Loop If Trim() = Trim((寢室號)) Then = (寢室號) = (維修情況) = (賠償情況) = (時間) = False End IfEnd Sub(2)、“繼續(xù)查看”按鈕代碼Private Sub Command2_Click() = TrueEnd Sub(3)、“返回”按鈕代碼Private Sub Command3_Click()End Sub(4)、窗體加載代碼Private Sub Form_Load() = FalseEnd Sub密碼修改是管理員以及普通用戶都可以操作的界面可以對用戶密碼進(jìn)行修改。 密碼修改“舊密碼”“新密碼”“重新輸入新密碼”為label標(biāo)簽框；“確定”“取消”“退出”為mand命令按鈕；其余為text文本框，設(shè)置起passwordchar屬性為“*”。 密碼修改窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If ThenMsgBox 舊密碼錯誤, vbOKOnly, 密碼修改 = = = End IfIf = And = Then(密碼) = Trim()MsgBox 已修改該用戶!, vbOKOnly, 密碼修改 = = = = End IfIf ThenMsgBox 2次新密碼錯誤或舊密碼錯誤, vbOKOnly, 密碼修改 = = = End If = = = End Sub(2)、“取消”按鈕代碼Private Sub Command2_Click()End Sub(3)、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub可以在此界面查看到個人注冊的信息，如果出現(xiàn)信息有誤可以跟系部聯(lián)系。個人信息窗口截圖“返回”為mand命令按鈕，其余均為label標(biāo)簽框，除“學(xué)號”“家庭住址”“姓名”“個人電話”“班級”“寢室號”“寢室電話”外，其余均要與數(shù)據(jù)庫（loading）相連。 個人信息窗口代碼（1）、“返回”按鈕代碼Private Sub Command1_Click()End Sub（2）、窗體加載代碼Private Sub Form_Load() = FalseEnd Sub在某些時候聯(lián)系不到同宿舍的同學(xué)，只要在“請輸入要查找人的姓名”就可以找到要找人的寢室號以及寢室電話。 尋找同學(xué)窗口截圖“請輸入要查找人的姓名”“寢室號”“寢室電話”為label文本框；“確定”“繼續(xù)查找”“返回”為mand命令按鈕；其余為text文本框；添加data數(shù)據(jù)庫，并連接數(shù)據(jù)庫（loading）。 尋找同學(xué)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click() = False = FalseIf = ThenMsgBox 請輸入姓名ElseDo While Trim((姓名)) Loop If Trim() = Trim((姓名)) Then = Trim((寢室號)) = Trim((寢室電話)) End If = FalseEnd Sub（2）、“繼續(xù)查找”按鈕代碼Private Sub Command2_Click() = TrueEnd Sub（3）、“返回”按鈕代碼Private Sub Command3_Click()End Sub（4）、窗體加載代碼Private Sub Form_Load() = FalseEnd Sub總 結(jié)通過本次畢業(yè)設(shè)計，讓我進(jìn)一步了解到了Visual Basic的各種功能。尤其是Visual Basic 。關(guān)于text文本框的各種屬性設(shè)置，label標(biāo)簽框的各種屬性設(shè)置，窗體的屬性設(shè)置等。學(xué)生宿舍管理系統(tǒng)的開發(fā)，更是為管理學(xué)生宿舍提供方便。幫助宿管員更有效的管理學(xué)生宿舍。本系統(tǒng)主要包括兩部分：一部分是管理員窗口，另一部分則是普通用戶窗口。管理員可以通過程序?qū)ζ胀ㄓ脩暨M(jìn)行管理（信息的輸入，輸出，修改，添加，刪除等）則普通用戶只能查看信息及通知，唯一能編輯的只是自己的密碼。本書尚又不足之處，望老師批評指導(dǎo)！致謝本課題在選題及研究過程中得到鐘文龍老師的悉心指導(dǎo)。鐘老師多次詢問研究進(jìn)程，并為我指點(diǎn)迷津，幫助我開拓研究思路，精心點(diǎn)撥、熱忱鼓勵。鐘老師一絲不茍的作風(fēng)，嚴(yán)謹(jǐn)求實的態(tài)度，踏踏實實的精神，不僅授我以文，而且教我做人，雖歷時三載，卻給以終生受益無窮之道。對鐘老師的感激之情是無法用言語表達(dá)的。本文能夠得以順利完成，也是與航天學(xué)院所有老師的幫助分不開的，雖然他們沒有直接參與我的論文指導(dǎo)，但在開題時也給我提供了不少的意見。開始進(jìn)入課題到論文的順利完成，一直都離不開老師、同學(xué)、朋友給我熱情的幫助，在這里請接受我誠摯的謝意!感謝鐘文龍老師、彭怡可老師、劉自坤老師等對我的教育培養(yǎng)。他們細(xì)心指導(dǎo)我的學(xué)習(xí)與研究，在此，我要向諸位老師