【正文】 一、學生信息窗口截圖 圖 “學號”、“寢室號”、“姓名”、“寢室電話”、“班級”、“家庭住址”、“權限”、“個人電話”“（權限 ? 為學生）”分別為 Label1~Label9；對應有 text1~text8；“添加”、“修 改”、“刪除”、“確定”、“返回”分別為 mand1~mand5；添加 data1，連接數(shù)據(jù)庫“ loading”。 單擊“添加”按鈕的時候則可以添加學生信息，修改則是 35 可以對已有的學生的信息進行修改，刪除則是在已有的信息上進行刪除操作，確定則是確定講信息存入數(shù)據(jù)庫，返回則是回到管理員主窗口。 學生信息窗口代碼 （ 1）、 “添加”按鈕的代碼 Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入完整信息！ Else End If End Sub （ 2） 、“修改”按鈕的代碼 Private Sub Command2_Click() End Sub （ 3）、 “刪除”按鈕的代碼 Private Sub Command3_Click() End Sub 36 （ 4）、 “確定”按鈕的代碼 Private Sub Command5_Click() End Sub （ 5） 、“返回”按鈕的代碼 Private Sub Command4_Click() End Sub 普通用戶界面的設計 普通用戶 主窗口 該窗口的設計跟管理員過度窗口的設計是一樣的，目的是提醒用戶當前日期以及用戶歡迎詞。 學 生主窗口截圖 圖 “通知”包括“最新通知”和歷史通知；“收費管理”包括“ 水電費 ” 和“公務賠償”；“查詢信息”“密碼修改”包括“個人信 37 息”和“尋找同學”；“返回”包括“返回”和“退出”；“歡迎你在”“ 20200228 ”“登陸學生宿舍管理系統(tǒng)”分別為Label1~Label3； 作為普通用戶，沒有對信息的編輯權限，所以沒必要設計可以編輯的菜單。 學生主窗口代碼 （ 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 38 （ 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() End Sub （ 9） 、 “退出”菜單代碼 Private Sub mnutuichu_Click() End End Sub （ 10） 、 窗體加載代碼 Private Sub Form_Load() 39 d$ = Date$ = d$ End Sub 最新通知 該功能是當用戶登錄到該系統(tǒng)后，在管理員修改通知后，普通用戶就可以查看新的通知。 最新通知窗口截圖 圖 通知是由一個文本框 text1 將其 enabled屬性設置為 false；“返回”，“退出”分別由 mand1和 mand2 組成 。 由于是普通用戶，所以沒有權限編輯，只能查看，所以只需設置兩個按鈕即可“返回”、“退出”。 “返回”即返回普通用戶主菜單界面，“退出”即普通用戶退出學生宿舍管理系統(tǒng)。 最新通知窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command2_Click() 40 End Sub （ 2） 、 “退出”按鈕代碼 Private Sub Command1_Click() End End Sub 歷史通知 普通用戶可以進入此窗口進行歷史通知的查詢。 歷史通知窗口截圖 圖 Label1 由一個 text1 將起 enabled 屬性設置成 enabled；“返回”和“退出” mand1 和 mand2. 上圖為無歷史通知的情況下窗口的截圖?！胺祷亍眲t是返回普通用戶主菜單窗口，“退出”則是普通用戶退出學生宿舍管理系統(tǒng)。 41 歷史通知窗口代碼 （ 1） 、 “返回”按鈕代碼 Private Sub Command2_Click() End Sub （ 2） 、 “退 出”按鈕代碼 Private Sub Command1_Click() End End Sub 水電費 水電費窗口顯示的是水單價、數(shù)量、總價，電單價、數(shù)量、總價以及共計價格，其中可以以輸入的方式查詢要查詢的寢室的具體情況。 水電費窗口截圖 圖 42 “請輸入寢室號”“（格式如： ? 101）”“用水”“單價”“數(shù)量”“水費”“用電”“單價”“數(shù)量”“電費”“共計”均為 label 標簽框；“確定”“繼續(xù)查詢”“返回”為 mand 命令按鈕；其余均為文本框，除 text1外，其余 text 的 enabled屬性均為 false；添加 data1和 data2，連接數(shù)據(jù)庫“水電單價”和“水電費”。 水電費窗口代碼 （ 1） 、“ 確定”按鈕代碼 Private Sub Command1_Click() If = Then MsgBox 請輸入寢室號 End If Do While Trim((寢室號 )) Loop If Trim() = Trim((寢室號 )) Then = (水數(shù)量 ) = (水費 ) = (電數(shù)量 ) = (電費 ) = (總費 ) 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 公務賠償 該功能介紹的是在宿舍設備損害后進行維修的情況，包括人為的和非人為的，其中人為的要計算賠償?shù)摹? 公務賠償窗口截圖 44 圖 “請輸入寢室號”“（格式 ? 101）”“寢室號”“維修情況”“賠償情況”“時間”為 label 標簽框；“確定”“繼續(xù)查看”“返回”為三個命令按鈕 mand1~mand3；其余均為 text 文本框，除text1 外，其余 text 文本框的 enabled 屬性均為 false。添加data1并連接數(shù)據(jù)庫。 在上圖的 text1 文本框中輸入寢室號就可以對相應的寢室做出查詢。單擊“確定”按鈕即在輸入有效的寢室號的時候查詢到該寢室的賠償情況，“繼續(xù)查看”則是清空 text1 文本框，輸入不同寢室號，進行查詢?！胺祷亍眲t是返回到普通用戶菜單界面。 公務賠償窗口代碼 (1)、 “確定”按鈕代碼 Private Sub Command1_Click() If = Then MsgBox 請輸入寢室號 45 End If Do While Trim((寢室號 )) Loop If Trim() = Trim((寢室號 )) Then = (寢室號 ) = (維修情況 ) = (賠償情況 ) = (時間 ) = 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 密碼修改 密碼修改是管理員以及普通用戶都可以操作的界面可以對用戶密碼進行修改。 密碼修改 圖 “舊密碼”“新密碼”“重新輸入新密碼”為 label 標簽框；“確定”“取消”“退出”為 mand 命令按鈕；其余為 text 文本框，設 置起 passwordchar屬性為“ *”。 密碼修改窗口代碼 (1)、 “確定”按鈕代碼 47 Private Sub Command1_Click() If Then MsgBox 舊密碼錯誤 , vbOKOnly, 密碼修改 = = = End If If = And = Then ( 密碼 ) = Trim() MsgBox 已修改該用戶 !, vbOKOnly, 密碼修改 = = = = End If If Then MsgBox 2 次新密碼錯誤或舊密碼錯誤 , vbOKOnly, 密碼修改 48 = = = End If = = = End Sub (2)、 “取消”按鈕代碼 Private Sub Command2_Click() End Sub (3