【正文】 何斌 人民郵電出版社[5] Visual Basic 高級(jí)編程技術(shù) 陳 明 北京希望電子出版社[6] Visual Basic實(shí)用教程 陳弘原 中國(guó)水利水電出版社[7]數(shù)據(jù)庫(kù)系統(tǒng)概論 　　　 薩師煊、王珊 高等教育出版社　[8]軟件系統(tǒng)開(kāi)發(fā)技術(shù) 潘錦平 施小姚 西安電子科技大學(xué)出版學(xué)位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作所取得的成果。感謝我的同學(xué)、朋友三年來(lái)對(duì)我學(xué)習(xí)、生活的關(guān)心和幫助。 感謝鐘文龍老師、彭怡可老師、劉自坤老師等對(duì)我的教育培養(yǎng)。開(kāi)始進(jìn)入課題到論文的順利完成，一直都離不開(kāi)老師、同學(xué)、朋友給我熱情的幫助，在這里請(qǐng)接受我誠(chéng)摯的謝意!對(duì)鐘老師的感激之情是無(wú)法用言語(yǔ)表達(dá)的。鐘老師多次詢問(wèn)研究進(jìn)程，并為我指點(diǎn)迷津，幫助我開(kāi)拓研究思路，精心點(diǎn)撥、熱忱鼓勵(lì)。管理員可以通過(guò)程序?qū)ζ胀ㄓ脩暨M(jìn)行管理（信息的輸入，輸出，修改，添加，刪除等）則普通用戶只能查看信息及通知，唯一能編輯的只是自己的密碼。幫助宿管員更有效的管理學(xué)生宿舍。關(guān)于text文本框的各種屬性設(shè)置，label標(biāo)簽框的各種屬性設(shè)置，窗體的屬性設(shè)置等。 尋找同學(xué)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click() = False = FalseIf = ThenMsgBox 請(qǐng)輸入姓名ElseDo While Trim((姓名)) Loop If Trim() = Trim((姓名)) Then = Trim((寢室號(hào))) = 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é)通過(guò)本次畢業(yè)設(shè)計(jì)，讓我進(jìn)一步了解到了Visual Basic的各種功能。 個(gè)人信息窗口代碼（1）、“返回”按鈕代碼Private Sub Command1_Click()End Sub（2）、窗體加載代碼Private Sub Form_Load() = FalseEnd Sub在某些時(shí)候聯(lián)系不到同宿舍的同學(xué)，只要在“請(qǐng)輸入要查找人的姓名”就可以找到要找人的寢室號(hào)以及寢室電話。 密碼修改窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If ThenMsgBox 舊密碼錯(cuò)誤, vbOKOnly, 密碼修改 = = = End IfIf = And = Then(密碼) = Trim()MsgBox 已修改該用戶!, vbOKOnly, 密碼修改 = = = = End IfIf ThenMsgBox 2次新密碼錯(cuò)誤或舊密碼錯(cuò)誤, vbOKOnly, 密碼修改 = = = End If = = = End Sub(2)、“取消”按鈕代碼Private Sub Command2_Click()End Sub(3)、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub可以在此界面查看到個(gè)人注冊(cè)的信息，如果出現(xiàn)信息有誤可以跟系部聯(lián)系。公務(wù)賠償窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If = ThenMsgBox 請(qǐng)輸入寢室號(hào)End IfDo While Trim((寢室號(hào))) Loop If Trim() = Trim((寢室號(hào))) Then = (寢室號(hào)) = (維修情況) = (賠償情況) = (時(shí)間) = 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密碼修改是管理員以及普通用戶都可以操作的界面可以對(duì)用戶密碼進(jìn)行修改。單擊“確定”按鈕即在輸入有效的寢室號(hào)的時(shí)候查詢到該寢室的賠償情況，“繼續(xù)查看”則是清空text1文本框，輸入不同寢室號(hào)，進(jìn)行查詢。添加data1并連接數(shù)據(jù)庫(kù)。水電費(fèi)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If = ThenMsgBox 請(qǐng)輸入寢室號(hào)End IfDo While Trim((寢室號(hào))) Loop If Trim() = Trim((寢室號(hào))) 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)行維修的情況，包括人為的和非人為的，其中人為的要計(jì)算賠償?shù)摹?歷史通知窗口代碼（1）、“返回”按鈕代碼Private Sub Command2_Click()End Sub（2）、“退出”按鈕代碼Private Sub Command1_Click()EndEnd Sub水電費(fèi)窗口顯示的是水單價(jià)、數(shù)量、總價(jià)，電單價(jià)、數(shù)量、總價(jià)以及共計(jì)價(jià)格，其中可以以輸入的方式查詢要查詢的寢室的具體情況。 歷史通知窗口截圖 Label1由一個(gè)text1將起enabled屬性設(shè)置成enabled；“返回”和“退出”mand1和mand2. 上圖為無(wú)歷史通知的情況下窗口的截圖。“返回”即返回普通用戶主菜單界面，“退出”即普通用戶退出學(xué)生宿舍管理系統(tǒng)。 最新通知窗口截圖通知是由一個(gè)文本框text1將其enabled屬性設(shè)置為false；“返回”，“退出”分別由mand1和mand2組成。 學(xué)生主窗口截圖 “通知”包括“最新通知”和歷史通知；“收費(fèi)管理”包括“水電費(fèi)”和“公務(wù)賠償”；“查詢信息”“密碼修改”包括“個(gè)人信息”和“尋找同學(xué)”；“返回”包括“返回”和“退出”；“歡迎你在”“20100228”“登陸學(xué)生宿舍管理系統(tǒng)”分別為L(zhǎng)abel1~Label3； 作為普通用戶，沒(méi)有對(duì)信息的編輯權(quán)限，所以沒(méi)必要設(shè)計(jì)可以編輯的菜單。 單擊“添加”按鈕的時(shí)候則可以添加學(xué)生信息，修改則是可以對(duì)已有的學(xué)生的信息進(jìn)行修改，刪除則是在已有的信息上進(jìn)行刪除操作，確定則是確定講信息存入數(shù)據(jù)庫(kù)，返回則是回到管理員主窗口。以及對(duì)這些信息的添加、刪除、修改等?！胺祷亍眲t是返回到管理員主窗口界面，課進(jìn)行其他操作。 單擊“添加”按鈕是可以添加新的來(lái)訪人員記錄，并存入數(shù)據(jù)庫(kù)。衛(wèi)生檢查窗口的代碼（1）、“添加”按鈕代碼Private Sub Command1_Click()End Sub（2）、“修改”按鈕代碼Private Sub Command2_Click()End Sub（3）、“返回”按鈕代碼Private Sub Command4_Click()End Sub（4）、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub 來(lái)訪人員登記則是在宿舍以外的人進(jìn)入宿舍進(jìn)行登記，然后記錄入數(shù)據(jù)庫(kù)?！疤砑印薄ⅰ靶薷摹?、“返回”、“退出”分別為mand1~mand4；添加data1，連接數(shù)據(jù)庫(kù)“衛(wèi)生檢查”。在一學(xué)年后可調(diào)出記錄進(jìn)行總結(jié)，評(píng)優(yōu)秀寢室等。 “添加”按鈕則是在每次新的維修情況出現(xiàn)后添加新的記錄入數(shù)據(jù)庫(kù)，更改則是在記錄出錯(cuò)的情況下可以進(jìn)行信息的修改，更新則是在每次新的記錄后或是修改記錄后可以點(diǎn)擊更新按鈕則重新。同時(shí)也可以查詢所有寢室的維修情況。返回則是返回到管理員主窗口，此時(shí)可以訪問(wèn)系統(tǒng)的其他功能，退出則是退出整個(gè)學(xué)生宿舍管理系統(tǒng)。 “添加”即添加新的記錄，以往的歷史記錄則記錄入數(shù)據(jù)庫(kù)并存儲(chǔ)。管理窗口（1）、“添加”按鈕的代碼Private Sub Command1_Click()If = Or = Or = ThenMsgBox 請(qǐng)輸入完整信息ElseEnd IfEnd Sub（2）、“刪除”按鈕的代碼Private Sub Command2_Click()End Sub（3）、“修改”按鈕的代碼Private Sub Command5_Click()End Sub（4）、“刷新”按鈕的代碼Private Sub Command4_Click()End Su（5）、“返回”按鈕的代碼Private Sub Command3_Click()End Sub水電費(fèi)費(fèi)管理窗口實(shí)現(xiàn)的功能是管理員在每次水電費(fèi)通知出來(lái)后，準(zhǔn)確地講水單價(jià)，電單價(jià)，水量，電量，總的水費(fèi)，總的電費(fèi)，以及總費(fèi)用通知各個(gè)寢室。刷新功能是修改寢室信息后可以對(duì)寢室進(jìn)行刷新操作。如果該寢室人員已經(jīng)撤銷則可以刪除該寢室的所有信息。管理窗口截圖“寢室號(hào)”、“室長(zhǎng)”、“寢室成員”分別為標(biāo)簽框Label1，Label2，Label3；添加3個(gè)文本框，分別為text1，text2，text3；“添加”、“刪除”、“修改”、“刷新”、“返回”分別為mand1，mand2，mand3，mand4，連接數(shù)據(jù)庫(kù)“寢室人員”。 更新通知窗口代碼（1）、“確定”按鈕的代碼Private Sub Command1_Click() = False=（2）、“更改“按鈕的代碼Private Sub Command3_Click() = TrueEnd Sub（3）、“返回”按鈕的代碼Private Sub Command2_Click()End Sub（4）、“退出”按鈕的代碼Private Sub Command4_Click()EndEnd Sub（5）、“首頁(yè)”按鈕的代碼Private Sub Command5_Click()End Sub該功能是對(duì)各個(gè)獨(dú)立的寢室進(jìn)行管理，包括寢室號(hào)，室長(zhǎng)，寢室人員等。點(diǎn)擊“退出”按鈕后則退出該學(xué)生宿舍管理系統(tǒng)。點(diǎn)擊“更改”后text文本框自動(dòng)清空，此時(shí)管理員可以在文本框中輸入通知內(nèi)容。并設(shè)置其scrollbar屬性為2（vertical）只加垂直滾動(dòng)條。管理員在學(xué)校發(fā)出通知的時(shí)候可以及時(shí)登陸系統(tǒng)，更改當(dāng)前通知，以便及時(shí)通知到各個(gè)寢室?！案峦ㄖ奔垂芾韱T在學(xué)校發(fā)出通知的時(shí)候可以即使登陸系統(tǒng)，更改當(dāng)前通知；“人員管理”即管理宿舍的寢室以及內(nèi)部人員的詳細(xì)管理；“水電費(fèi)管理”即在學(xué)校財(cái)務(wù)部將各個(gè)寢室的水電費(fèi)通知到各個(gè)寢室，其中包括水電費(fèi)的度數(shù)，單價(jià)，總價(jià)等；“衛(wèi)生檢查”即學(xué)校定期檢查衛(wèi)生或系部定期檢查衛(wèi)生，并對(duì)各個(gè)寢室打出相應(yīng)的分?jǐn)?shù)；“維修情況”即宿舍設(shè)備非人為損害并且已經(jīng)維修好的，做出相應(yīng)的記錄；“來(lái)訪人員”即校外人員因事要進(jìn)入宿舍登記或?qū)W生的到訪人員登記記錄；“學(xué)生信息”即對(duì)學(xué)生的詳細(xì)信息作記錄；“返回”即回到登陸界面；“退出”即管理員退出學(xué)生宿舍管理系統(tǒng)。 管理員主窗口截圖“通知”包括“更新通知”（mnugengxin）；“寢室管理”包括“人員管理”（mnurenyuan）、“水電費(fèi)管理”（mnushuidian）、“衛(wèi)生檢查”（mnuweisheng）、“維修情況”(mnuweixiu)、“來(lái)訪人員”(mnulaifang)；“學(xué)生管理”包括“學(xué)生信息”(mnuxueshengxinxi)；“返回”包括“退出”(mnutuichu)、“返回”(mnufanhui)。 過(guò)渡窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()End Sub（2）、“取消”按鈕代碼Private Sub Command2_Click()EndEnd Sub（3）、窗體的加載代碼Private Sub Form_Load()d$ = Date$ = d$程序主界面為本軟件的顯示的核心部分。 過(guò)渡窗口截圖 “你好！歡迎您在”、“20100228”、“登錄學(xué)生宿舍管理系統(tǒng)”分別為L(zhǎng)abelLabelLabel3；“確定”、“取消”分別為mandmand2。 登陸窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If = Or = ThenMsgBox 請(qǐng)輸入學(xué)號(hào)或密碼ElseDo While Trim((學(xué)號(hào)))