【正文】 最后，向我的 父母 致謝，感謝他們 這么多年的養(yǎng)育之恩 。他們細心指導我的學習與研究，在此，我要向諸位老師深深地鞠上一躬。 本文 能夠 得以順利完成，也是 與 航天學 院 所有 老師的幫助分不開的，雖然他們沒有直接參與我的論文指導，但在開題時也給 我提供了不少的 意見。 鐘 老師一絲不茍的作風，嚴謹求實的態(tài)度，踏踏實實的精神，不僅授我以文，而且教我做人，雖歷時三載，卻給以終生受益無窮之道。 本書尚又不足之處，望老師批評指導！ 38 致謝 本課題在選題及研究過程中得到 鐘文龍 老師的悉心指導。 本系統(tǒng)主要包括兩部分：一部分是管理員窗口，另一部分則是普通用戶窗口。 學生宿舍管理系統(tǒng)的開發(fā)，更是為管理學生宿舍提供方便。尤其是 Visual Basic 中數(shù)據(jù)庫的應用更家熟練。 尋找同學窗口截圖 35 圖 “請輸入要查找人的姓名”“寢室號”“寢室電話”為 label 文本框；“確定”“繼續(xù)查找”“返回”為 mand 命令按鈕；其余為text 文本框；添加 data 數(shù)據(jù)庫，并連接數(shù)據(jù)庫（ loading）。 個 人信息窗口截圖 34 圖 “返回”為 mand 命令按鈕，其余均為 label 標簽框，除“學號”“家庭住址”“姓名”“個人電話”“班級”“寢室號”“寢室電話”外，其余均要與數(shù)據(jù)庫（ loading）相連。 密碼修改 圖 “舊密碼”“新密碼”“重新輸入新密碼”為 label 標簽框；“確定”“取消”“退出”為 mand 命令按鈕；其余為 text 文本框，設置起 passwordchar 屬性為“ *”?！胺祷亍眲t是返回到普通用戶菜單界面。 在上圖的 text1 文本框中輸入寢室號就可以對相應的寢室做出查詢。 公務賠償窗口截圖 31 圖 “請輸入寢室號”“（格式 ? 101）”“寢室號”“維修情況”“賠償情況”“時間”為 label 標簽框；“確定”“繼續(xù)查看”“返回”為三個命令按鈕 mand1~mand3；其余均為 text 文本框，除 text1外，其余 text 文本框的 enabled 屬性均為 false。 水電費窗口截圖 圖 “請輸入寢室號”“（格式如： ? 101）”“用水”“單價”“數(shù)量”“水費”“用電”“單價”“數(shù)量”“電費”“共計”均為 label 標簽框；“確定”“繼續(xù)查詢”“返回”為 mand 命令按鈕；其余均為文本框，除 text1 外，其余 text 的 enabled 屬性均為 false； 添加data1 和 data2，連接數(shù)據(jù)庫“水電單價”和“水電費”。“返回”則是返回普通用戶主菜單窗口，“退出”則是普通用戶退出學生宿舍管理系統(tǒng)。 最新通知窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command2_Click() End Sub 28 （ 2） 、 “退出”按鈕代碼 Private Sub Command1_Click() End End Sub 歷史通知 普通用戶可以進入此窗口進行歷史通知的查詢。 由于是普通用戶，所以沒有權限編輯，只能查看，所以只需設置兩個按鈕即可“返回”、“退出”。 學生主窗口代碼 （ 1） 、 “最新通知”菜單代碼 Private Sub mnuzuixin_Click() End Sub （ 2） 、 “歷史通知”菜單代碼 Private Sub mnulishitongzhi_Click() End Sub （ 3） 、 “公務賠償”菜單代碼 Private Sub mnugongwupeichang_Click() End Sub （ 4） 、 “水電費”菜單代碼 Private Sub mnushuidianfei_Click() End Sub （ 5） 、 “個人信息”菜單代碼 Private Sub mnugerenxinxi_Click() End Sub （ 6） 、 “尋找同學 ”菜單代碼 Private Sub mnuxunzhaotongxue_Click() End Sub （ 7） 、 “密碼修改”菜單代碼 Private Sub mnumimaxiugai_Click() End Sub （ 8） 、 “返回”菜單代碼 Private Sub mnufanhui_Click() 27 End Sub （ 9） 、 “退出”菜單代碼 Private Sub mnutuichu_Click() End End Sub （ 10） 、 窗體加載代碼 Private Sub Form_Load() d$ = Date$ = d$ End Sub 最新通知 該功能是當用戶登錄到該系統(tǒng)后，在管理員修改通知后，普通用戶就可以查看新的通知。 學生信息窗口代碼 （ 1）、 “添加”按鈕的代碼 Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入完整信息！ Else 25 End If End 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 普通用戶界面的設計 普通用戶 主窗口 該窗口的設計跟管理員過度窗口的設計是一樣的，目的是提醒用戶當前日期以及用戶歡迎詞。 一、學生信息窗口截圖 圖 “學號”、“寢室號”、“姓名”、“寢室電話”、“班級”、“家庭住址”、“權限”、“個人電話”“（權限 ? 為學生）”分別為 Label1~Label9；對應有 text1~text8；“添加”、“修改”、“刪除”、“確定”、“返回”分別為 mand1~mand5；添加 data1，連接數(shù)據(jù)庫“ loading”。 來訪人員窗口代碼 （ 1） 、 “添加”窗口代碼 Private Sub Command1_Click() （ 2） 、 “確定”窗口代碼 Private Sub Command2_Click() End Sub （ 3） 、 “返回”窗口代碼 Private Sub Command3_Click() 24 End Sub 學生信息 可以對 學生的信息進行管理，包括學好、姓名、班級、寢室號、寢室電話、家庭住 址、權限、個人電話等?！按_定”按鈕則是在輸入新的記錄后確定保存入數(shù)據(jù)庫。 來訪人員窗口截圖 圖 “寢室號”、“訪問者姓名”、“學生姓名”、“時間”、“事件”分別是由標簽框 Label1~Label5 組成；對應添加 5 個文本框text1~text2；“添加”、“確定”、“返回”為 3 個命令按鈕mand1~mand3；添加 data1，連接數(shù)據(jù)庫“來訪人員”。 單擊“添加”按鈕則添加記錄入數(shù)據(jù)庫，以便以后隨時查詢，“修改”則是修改當前已有信息，“返回”則是返回管理員主窗口界面，“退出”則是退出整個學生宿舍管理系統(tǒng)。 一、 衛(wèi)生檢查窗 口截圖 圖 “寢室號”、“分數(shù)”、“時間”為標簽框 Label1~Label3；對應添加 3 個文本框 text1~text3。 維修情況窗口的代碼 （ 1） 、 “添加”按鈕的代碼 Private Sub Command1_Click() End Sub （ 2） 、 “更改”按鈕的代碼 Private Sub Command2_Click() End Sub （ 3） 、 “更新”按鈕的代碼 Private Sub Command3_Click() End Sub （ 4） 、 “返回”按鈕的代碼 Private Sub Command4_Click() End Sub （ 5） 、 “查找”按鈕的代碼 Private Sub Command5_Click() If = Or Trim((寢室號 )) Then MsgBox 沒有該寢室 Else Do While Trim((寢室號 )) Loop If Trim() = Trim((寢室號 )) Then