【正文】 在論文的撰寫過程中老師們給予我很大的幫助，幫助解決了不少的難點(diǎn)，使得論文能夠及 時(shí)完成，這里一并表示真誠(chéng)的感謝。老師們認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 最后，我要特別感謝我的導(dǎo)師趙達(dá)睿老師、和研究生助教熊偉麗老師。四年的風(fēng)風(fēng)雨雨，我們一同走過，充滿著關(guān)愛，給我留下了值得珍藏的最美好的記憶。感謝老師四年來對(duì)我孜孜不倦的教誨，對(duì)我成長(zhǎng)的關(guān)心和愛護(hù)。從這里走出，對(duì)我的人生來說，將是踏上一個(gè)新的征程，要把所學(xué)的知識(shí)應(yīng)用到實(shí)際工作中去。 最后，我要感謝我的父母對(duì)我的關(guān)系和理解，如果沒有他們?cè)谖业膶W(xué)習(xí)生 涯中的無私奉獻(xiàn)和默默支持，我將無法順利完成今天的學(xué)業(yè)。 其次，我要感謝大學(xué)四年中所有的任課老師和輔導(dǎo)員在學(xué)習(xí)期間對(duì)我的嚴(yán)格要求，感謝他們對(duì)我學(xué)習(xí)上和生活上的幫助，使我了解了許多專業(yè)知識(shí)和為人的道理，能夠在今后的生活道路上有繼續(xù)奮斗的力量。從他身上，我學(xué)到了許多能受益終生的東西。 首先，我要特別感謝我的知道郭謙功老師對(duì)我的悉心指導(dǎo)，在我的論文書寫及設(shè)計(jì)過程中給了我大量的幫助和指導(dǎo)，為我理清了設(shè)計(jì)思路和操作方法，并對(duì)我所做的課題提出了有效的改進(jìn)方案。這期間凝聚了很多人的心血，在此我表示由衷的感謝。本次畢業(yè)設(shè)計(jì)是對(duì)我大學(xué)四年學(xué)習(xí)下來最好的檢驗(yàn)。 首先非常感謝學(xué)校開設(shè)這個(gè)課題，為本人日后從事計(jì)算機(jī)方面的工作提供了經(jīng) 驗(yàn)，奠定了基礎(chǔ)。 本人愿意按照學(xué)校要求提交學(xué)位論文的印刷本和電 子版，同意學(xué)校保存學(xué)位論文的印刷本和電子版，或采用影印、數(shù)字化或其它復(fù)制手段保存設(shè)計(jì)（論文）；同意學(xué)校在不以營(yíng)利為目的的前提下，建立目錄檢索與閱覽服務(wù)系統(tǒng)，公布設(shè)計(jì)（論文）的部分或全部?jī)?nèi)容，允許他人依法合理使用。 本聲明的法律后果由本人承擔(dān)。盡我所知，除文中已經(jīng)注明引用的內(nèi)容外，本設(shè)計(jì)（論文）不含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫過的作品成果。 學(xué)位論文作者（本人簽名）： 年 月 日 學(xué)位論文出版授權(quán)書 本 人及導(dǎo)師完全同意《中國(guó)博士學(xué)位論文全文數(shù)據(jù)庫(kù)出版章程》、《中國(guó)優(yōu)秀 碩士學(xué)位論文全文數(shù)據(jù)庫(kù)出版章程》 (以下簡(jiǎn)稱“章程” )，愿意將本人的學(xué)位論文提交“中國(guó)學(xué)術(shù)期刊（光盤版）電子雜志社”在《中國(guó)博士學(xué)位論文全文數(shù)據(jù)庫(kù)》、《中國(guó)優(yōu)秀碩士學(xué)位論文全文數(shù)據(jù) 庫(kù)》中全文發(fā)表和以電子、網(wǎng)絡(luò)形式公開出版，并同意編入 CNKI《中國(guó)知識(shí)資源總庫(kù)》，在《中國(guó)博碩士學(xué)位論文評(píng)價(jià)數(shù)據(jù)庫(kù)》中使用和在互聯(lián)網(wǎng)上傳播，同意按“章程”規(guī)定享受相關(guān)權(quán)益。對(duì)本文的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式注明并表示感謝。 參考文獻(xiàn) [1]《 Visual Basic 程序設(shè)計(jì)（第二版）》 譚浩強(qiáng) 清華大學(xué)出版社 [2]Visual Basic 高級(jí)編程宋偉 吳建國(guó) 清華大學(xué)出版社 [3]Visual Basic 入門與提高 戴紅 陳哲 清華大學(xué)出版社 [4]Visual Basic 應(yīng)用指南 何斌 人民郵電出版社 [5] Visual Basic 高級(jí)編程技術(shù) 陳 明 北京希望電子出版社 [6] Visual Basic 實(shí)用教程 陳弘原 中國(guó)水利水電出版 56 社 [7]數(shù)據(jù)庫(kù)系統(tǒng)概論 薩師煊、王珊 高等教育出版社 [8]軟件系統(tǒng)開發(fā)技術(shù) 潘錦平 施小姚 西安電子科技大學(xué)出版 57 學(xué)位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作所取得的成果。 感謝我的同學(xué)、 朋友 三年來對(duì)我學(xué)習(xí)、生活的關(guān)心和幫助。 開始進(jìn)入課題到論文的順利完成，一直都離不開老師、同學(xué)、朋友給我熱情的幫助，在這里請(qǐng)接受我誠(chéng)摯的謝意 ! 感謝 鐘文龍老師 、 彭怡可 老師、 劉自坤 老師等對(duì)我的教 55 育培養(yǎng)。對(duì) 鐘 老師的感激之情是無法用言語(yǔ)表達(dá)的。 鐘老師多次詢問研究進(jìn)程，并為我指點(diǎn)迷津，幫助我開 拓研究思路，精心點(diǎn)撥、熱忱鼓勵(lì)。管理員可以通過程序?qū)ζ胀ㄓ脩暨M(jìn)行管理（信息的輸入，輸出，修改，添加，刪除等）則普通用戶只能查看信息及通知，唯一能編輯的只是自己的密碼。幫助宿管員更有效的管理學(xué)生宿舍。關(guān)于 text 文本框的各種屬性設(shè)置， label 標(biāo)簽框的 各種屬性設(shè)置，窗體的屬性設(shè)置等。 尋找同學(xué)窗口代碼 （ 1） 、 “確定”按鈕代碼 Private Sub Command1_Click() = False = False If = Then MsgBox 請(qǐng)輸入姓名 Else Do While Trim((姓名)) 51 Loop If Trim() = Trim((姓名 )) Then = Trim((寢室號(hào) )) = Trim((寢室電話 )) End If = False 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 52 總 結(jié) 通過本次畢業(yè)設(shè)計(jì)，讓我進(jìn)一步了解到了 Visual Basic 的各種功能。 個(gè)人信息窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command1_Click() End Sub （ 2）、 窗體加載代碼 Private Sub Form_Load() = False End Sub 尋找同學(xué) 在某些時(shí)候聯(lián)系不到同宿舍的同學(xué)，只要在“請(qǐng)輸入要查找 50 人的姓名”就可以找到要找人的寢室號(hào)以及寢室電話。 密碼修改窗口代碼 (1)、 “確定”按鈕代碼 47 Private Sub Command1_Click() If Then MsgBox 舊密碼錯(cuò)誤 , vbOKOnly, 密碼修改 = = = End If If = And = Then ( 密碼 ) = Trim() MsgBox 已修改該用戶 !, vbOKOnly, 密碼修改 = = = = End If If Then MsgBox 2 次新密碼錯(cuò)誤或舊密碼錯(cuò)誤 , vbOKOnly, 密碼修改 48 = = = End If = = = End Sub (2)、 “取消”按鈕代碼 Private Sub Command2_Click() End Sub (3)、 “退出”按鈕代碼 Private Sub Command3_Click() End End Sub 個(gè)人信息 可以在此界面查看到個(gè)人注冊(cè)的信息，如果出現(xiàn)信息有誤可以跟系部聯(lián)系。 公務(wù)賠償窗口代碼 (1)、 “確定”按鈕代碼 Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入寢室號(hào) 45 End If Do While Trim((寢室號(hào) )) Loop If Trim() = Trim((寢室號(hào) )) Then = (寢室號(hào) ) = (維修情況 ) = (賠償情況 ) = (時(shí)間 ) = False End If End Sub (2)、 “繼續(xù)查看”按鈕代碼 Private Sub Command2_Click() = True End Sub (3)、 “返回”按鈕代碼 Private Sub Command3_Click() 46 End Sub (4)、 窗體加載代碼 Private Sub Form_Load() = False End 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 = Then MsgBox 請(qǐng)輸入寢室號(hào) End If Do While Trim((寢室號(hào) )) Loop If Trim() = Trim((寢室號(hào) )) Then = (水?dāng)?shù)量 ) = (水費(fèi) ) = (電數(shù)量 ) = (電費(fèi) ) = (總費(fèi) ) 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 = False End Sub 公務(wù)賠償 該功能介紹的是在宿舍設(shè)備損害后進(jìn)行維修的情況，包括人為的和非人為的，其中人為的要計(jì)算賠償?shù)摹? 41 歷史通知窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command2_Click() End Sub （ 2） 、 “退 出”按鈕代碼 Private Sub Command1_Click() End End Sub 水電費(fèi) 水電費(fèi)窗口顯示的是水單價(jià)、數(shù)量、總價(jià)，電單價(jià)、數(shù)量、總價(jià)以及共計(jì)價(jià)格，其中可以以輸入的方式查詢要查詢的寢室的具體情況。 歷史通知窗口截圖