【正文】 圖 Label1 由一個 text1 將起 enabled 屬性設(shè)置成 enabled；“返回”和“退出” mand1 和 mand2. 上圖為無歷史通知的情況下窗口的截圖。 “返回”即返回普通用戶主菜單界面，“退出”即普通用戶退出學生宿舍管理系統(tǒng)。 最新通知窗口截圖 圖 通知是由一個文本框 text1 將其 enabled屬性設(shè)置為 false；“返回”，“退出”分別由 mand1和 mand2 組成 。 學 生主窗口截圖 圖 “通知”包括“最新通知”和歷史通知；“收費管理”包括“ 水電費 ” 和“公務(wù)賠償”；“查詢信息”“密碼修改”包括“個人信 37 息”和“尋找同學”；“返回”包括“返回”和“退出”；“歡迎你在”“ 20200228 ”“登陸學生宿舍管理系統(tǒng)”分別為Label1~Label3； 作為普通用戶，沒有對信息的編輯權(quán)限，所以沒必要設(shè)計可以編輯的菜單。 單擊“添加”按鈕的時候則可以添加學生信息，修改則是 35 可以對已有的學生的信息進行修改，刪除則是在已有的信息上進行刪除操作，確定則是確定講信息存入數(shù)據(jù)庫，返回則是回到管理員主窗口。以及對這些信息的添加、刪除、修改等?！胺祷亍眲t是返回到管理員主窗口界面，課進行其他操作。 單擊“添加”按鈕是可以添加新的來訪人員記錄，并存入數(shù)據(jù)庫。 衛(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() End End Sub 來訪人員 來訪人員登記 則是在宿舍以外的人進入宿舍進行登記，然后記錄入數(shù)據(jù)庫。“添加”、“修改”、“返回”、“退出”分別為 mand1~mand4；添加 data1，連接數(shù)據(jù)庫“衛(wèi)生檢查”。在一學年后可調(diào)出記錄進行總結(jié)，評優(yōu)秀寢室等。 “添加”按鈕則是在每次新的維修情況出現(xiàn)后添加新的記錄入數(shù)據(jù)庫，更改則是在記錄出錯的情況下可以進行信息的修改，更新則是在每次新的記錄后或是修改記錄后可以點擊更新按鈕則重新 。同時也可以查詢所有寢室的維修情況。返回則是返回到管理員主窗口，此時可以訪問系統(tǒng)的其他功能，退出則是退出整個學生宿舍管理系 統(tǒng)。 “添加”即添加新的記錄，以往的歷史記錄則記錄入數(shù)據(jù)庫并存儲。 管理窗口 （ 1） 、 “添 加”按鈕的代碼 Private Sub Command1_Click() If = Or = Or = Then MsgBox 請輸入完整信 息 Else End If End Sub （ 2） 、 “刪除”按鈕的代碼 Private Sub Command2_Click() End Sub （ 3） 、 “修改”按鈕的代碼 Private Sub Command5_Click() End Sub （ 4） 、 “刷新”按鈕的代碼 Private Sub Command4_Click() 26 End Su （ 5） 、 “返回”按鈕的代碼 Private Sub Command3_Click() End Sub 水電費 水電費費管理窗口實現(xiàn)的功能是管理員在每次水電費通知出來后，準確地講水單價，電單價，水量，電量，總的水費，總的電費，以及總費用通知各個寢室。刷新功能是修改寢室信息后可以對寢室進行 25 刷新操作。如果該寢室人員已經(jīng)撤銷則可以刪除該寢室的所有信息。 管理窗口截圖 圖 “寢室號”、“室長”、“寢室成員”分別為標簽框 Label1，Label2， Label3；添加 3 個文本框，分別為 text1， text2， text3；“添加”、“刪除”、“修改”、“刷新”、“返回” 分別為 mand1，mand2， mand3， mand4， data1，連接數(shù)據(jù)庫 “寢室人員” 。 23 更新通知窗口代碼 （ 1） 、 “確定”按鈕的代碼 Private Sub Command1_Click() = False =xt （ 2） 、 “更改“按鈕的代碼 Private Sub Command3_Click() = True End Sub （ 3） 、 “返回”按鈕的代碼 Private Sub Command2_Click() End Sub （ 4） 、 “退出”按鈕的代碼 Private Sub Command4_Click() End End Sub （ 5） 、 “首頁”按鈕的代碼 Private Sub Command5_Click() 24 End Sub 人員管理 該功能是對各個獨立的寢室進行管理，包括寢室號，室長，寢室人員等。點擊“退出”按鈕后則退出該學生宿舍管理系統(tǒng)。點 擊“更改”后 text 文本框自動清空，此時管理員可以在文本框中輸入通知內(nèi)容。并設(shè)置其 scrollbar 屬性為 2（ vertical）只加垂直滾動條。 更新通知 管理員在學校發(fā)出通知的時候可以及時 登陸系統(tǒng)，更改當前通知，以便及時通知到各個寢室。 “更新通知 ”即管理員在學校發(fā)出通知的時候可以即使登陸系統(tǒng)，更改當前通知 ； “ 人員管理 ” 即管理宿舍的寢室以及內(nèi)部人員的詳細管理；“水電費管理”即在學校財務(wù)部將各個寢室的水電費通知到各個寢室，其中包括水電費的度數(shù)，單價，總價等；“衛(wèi)生檢查”即學校定期檢查衛(wèi)生或系部定期檢查衛(wèi)生，并對各個寢室打出相應(yīng)的分數(shù)；“維修情況”即宿舍設(shè)備非人為損害并且已經(jīng)維修好的，做出相應(yīng)的記錄；“來訪人員”即校外人員因事要進入宿舍登記或?qū)W生的到訪人員登記記錄；“學生信息”即 20 對學生的詳細信息作記錄；“返回”即回到登陸界面；“退出”即管理員退出學生宿舍 管理系統(tǒng)。 管理員主窗口截圖 19 圖 “通知”包括“更新通知” （ mnugengxin） ；“寢室管理”包括“人員管理” （ mnurenyuan） 、“水電費管理” （ mnushuidian） 、“衛(wèi)生檢查” （ mnuweisheng） 、“維修情況” (mnuweixiu)、“來訪人員”(mnulaifang) ；“ 學 生 管 理 ” 包 括 “ 學 生 信 息 ”(mnuxueshengxinxi)；“返回”包括“退出” (mnutuichu)、“返回” (mnufanhui)。 過渡窗口代碼 （ 1） 、 “確定”按鈕代碼 Private Sub Command1_Click() End Sub （ 2） 、 “取消”按鈕代碼 Private Sub Command2_Click() End End Sub （ 3） 、 窗體的加載代碼 Private Sub Form_Load() d$ = Date$ = d$ 管理員主 窗口 程序主界面為本軟件的顯示的核心部分。 過渡窗口截圖 圖 “你好！歡迎您在”、“ 20200228”、“登錄學生宿舍管理系統(tǒng)”分別為 Label Label Label3；“確定”、“取消”分別為 18 mand mand2。 登陸窗口代碼 （ 1） 、 “確定”按鈕代碼 15 Private Sub Command1_Click() If = Or = Then MsgBox 請輸入學號或密碼 Else Do While Trim((學號)) Loop If Trim() = Trim((學號)) And Trim() = Trim((密碼 )) Then If Trim((權(quán)限 )) = Trim(1) Then ElseIf Trim((權(quán)限 )) = Trim(2) Then End If ElseIf Trim() Trim((學號 )) Or Trim() Trim((密碼 )) And And Then 16 MsgBox 學號或密碼錯誤，請重試 !, , 登錄 End If End If =Trim((學號 )) =Trim((姓名 )) =Trim((寢室號 )) =Trim((班級 )) =Trim((家庭住址 )) =Trim((個人電話 )) =Trim((寢室電話 )) End Sub (2)、 “取消”按鈕代碼 Private Sub Command2_Click() 17 = = （ 3） 、 “退出”按鈕代碼 Private Sub Command3_Click() End End Sub (4)、 窗體的加載事件代碼 Private Sub Form_Load() = False End Sub 管理員 過渡窗口 提示用戶當前日期，是否真的進入系統(tǒng)。因為此管理軟件在登錄后不同類型的用戶顯示的窗體與實現(xiàn)的功能都不是一樣的，它們會有所差別！ 登陸窗口截圖 登陸窗口登陸后，分為兩類：一、管理員窗口；二、普通用戶窗口； 登陸窗口截圖： 圖 “學 號”、“密碼”分別為標簽框 Label1 和 Label2；“確定”、“取消”、“退出”為命令按鈕 mand1， mand2， mand3；“ 20202011”及“ ********”為文本框 text1， text2；將 text2的“ passwordchar”屬性設(shè)置為“ *”即顯示的密碼為“ *”表示。 系統(tǒng)流程圖： 13 通知： 更新通知 人員管理