【正文】 不同類型的用戶顯示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！登陸窗口截圖 登陸窗口登陸后，分為兩類：一、管理員窗口；二、普通用戶窗口；登陸窗口截圖： “學(xué)號(hào)”、“密碼”分別為標(biāo)簽框Label1和Label2；“確定”、“取消”、“退出”為命令按鈕mand1，mand2，mand3；“20071111”及“********”為文本框text1，text2；將text2的“passwordchar”屬性設(shè)置為“*”即顯示的密碼為“*”表示。登陸窗口添加data1，連接數(shù)據(jù)庫(kù)“l(fā)oading”。 登陸窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If = Or = ThenMsgBox 請(qǐng)輸入學(xué)號(hào)或密碼ElseDo While Trim((學(xué)號(hào))) LoopIf Trim() = Trim((學(xué)號(hào))) And Trim() = Trim((密碼)) ThenIf Trim((權(quán)限)) = Trim(1) Then ElseIf Trim((權(quán)限)) = Trim(2) Then End If ElseIf Trim() Trim((學(xué)號(hào))) Or Trim() Trim((密碼)) And And Then MsgBox 學(xué)號(hào)或密碼錯(cuò)誤，請(qǐng)重試!, , 登錄 End IfEnd If=Trim((學(xué)號(hào)))=Trim((姓名))=Trim((寢室號(hào)))=Trim((班級(jí)))=Trim((家庭住址))=Trim((個(gè)人電話))=Trim((寢室電話))End Sub(2)、“取消”按鈕代碼Private Sub Command2_Click() = = （3）、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub(4)、窗體的加載事件代碼Private Sub Form_Load() = FalseEnd Sub提示用戶當(dāng)前日期，是否真的進(jìn)入系統(tǒng)。“確定”即進(jìn)入系統(tǒng)，“取消”即退出當(dāng)前系統(tǒng)。 過渡窗口截圖 “你好！歡迎您在”、“20100228”、“登錄學(xué)生宿舍管理系統(tǒng)”分別為L(zhǎng)abelLabelLabel3；“確定”、“取消”分別為mandmand2。如上圖顯示的是每次登陸系統(tǒng)的當(dāng)前日期。 過渡窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()End Sub（2）、“取消”按鈕代碼Private Sub Command2_Click()EndEnd Sub（3）、窗體的加載代碼Private Sub Form_Load()d$ = Date$ = d$程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。 管理員主窗口截圖“通知”包括“更新通知”（mnugengxin）；“寢室管理”包括“人員管理”（mnurenyuan）、“水電費(fèi)管理”（mnushuidian）、“衛(wèi)生檢查”（mnuweisheng）、“維修情況”(mnuweixiu)、“來訪人員”(mnulaifang)；“學(xué)生管理”包括“學(xué)生信息”(mnuxueshengxinxi)；“返回”包括“退出”(mnutuichu)、“返回”(mnufanhui)。最后，為了使窗體看上去不單調(diào)，選擇了設(shè)置窗體的picture屬性，加載了一幅圖片。“更新通知”即管理員在學(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)的記錄；“來訪人員”即校外人員因事要進(jìn)入宿舍登記或?qū)W生的到訪人員登記記錄；“學(xué)生信息”即對(duì)學(xué)生的詳細(xì)信息作記錄；“返回”即回到登陸界面；“退出”即管理員退出學(xué)生宿舍管理系統(tǒng)。 管理員窗體代碼（1）、“更新通知”代碼Private Sub mnuzuixin_Click() = = End Sub（2）、“人員管理”代碼Private Sub mnurenyuan_Click()End Sub（3）、“水電費(fèi)管理”代碼Private Sub mnushuidian_Click()End Sub（4）、“衛(wèi)生檢查”代碼Private Sub mnuweisheng_Click()End Sub（5）、“維修情況”代碼Private Sub mnuweixiu_Click()End Sub（6）、“來訪人員”代碼Private Sub mnulaifang_Click()End Sub（7）、“學(xué)生信息”代碼Private Sub mnuxueshengxinxi_Click()End Sub（8）、“返回”代碼Private Sub mnufanhui_Click()End Sub（9）、“退出”代碼Private Sub mnutuichu_Click()EndEnd Sub以上代碼均是根據(jù)不同的菜單進(jìn)入不同的界面，進(jìn)入界面后再根據(jù)情況做出相應(yīng)的操作即可。管理員在學(xué)校發(fā)出通知的時(shí)候可以及時(shí)登陸系統(tǒng)，更改當(dāng)前通知，以便及時(shí)通知到各個(gè)寢室。 更新通知窗口截圖“確定”、“更改”、“返回”、“退出”、“首頁(yè)”分別為命令按鈕mand1，mand3，mand2，mand4，mand5，以及一個(gè)text文本框。并設(shè)置其scrollbar屬性為2（vertical）只加垂直滾動(dòng)條。單擊“確定”按鈕后，通知生效，此時(shí)不同用戶登陸的窗口“查看通知”及時(shí)顯示更新后的內(nèi)容。點(diǎn)擊“更改”后text文本框自動(dòng)清空，此時(shí)管理員可以在文本框中輸入通知內(nèi)容。點(diǎn)擊“返回”按鈕后，則返回到管理員中窗口，可以進(jìn)入其他操作。點(diǎn)擊“退出”按鈕后則退出該學(xué)生宿舍管理系統(tǒng)?！笆醉?yè)”則是返回到登陸界面。 更新通知窗口代碼（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)，寢室人員等。可對(duì)寢室及寢室人員進(jìn)行添加，刪除，修改等操作。管理窗口截圖“寢室號(hào)”、“室長(zhǎng)”、“寢室成員”分別為標(biāo)簽框Label1，Label2，Label3；添加3個(gè)文本框，分別為text1，text2，text3；“添加”、“刪除”、“修改”、“刷新”、“返回”分別為mand1，mand2，mand3，mand4，連接數(shù)據(jù)庫(kù)“寢室人員”。 該功能是設(shè)置寢室號(hào)，授權(quán)室長(zhǎng)以及寢室成員等，同時(shí)也可對(duì)寢室添加，寢室人員添加，添加后授權(quán)一個(gè)室長(zhǎng)。如果該寢室人員已經(jīng)撤銷則可以刪除該寢室的所有信息。修改寢室寢室，包括室長(zhǎng)，寢室人員。刷新功能是修改寢室信息后可以對(duì)寢室進(jìn)行刷新操作。返回則是返回到管理員主窗口界面。管理窗口（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)通知出來后，準(zhǔn)確地講水單價(jià)，電單價(jià)，水量，電量，總的水費(fèi)，總的電費(fèi)，以及總費(fèi)用通知各個(gè)寢室。 水電費(fèi)管理窗口截圖 “水／噸”，“電／度”，“水?dāng)?shù)量”，“水費(fèi)”，“電數(shù)量”，“電費(fèi)”，“總費(fèi)”，“寢室號(hào)”均為標(biāo)簽框Label１～Label８；添加８?jìng)€(gè)文本框分別text1~text8；“添加”，“刪除”，“修改”，“確定”，“返回”，“退出”分別為mand1~mand6；添加data1和data2分別連接水電單價(jià)及水電費(fèi)，連接數(shù)據(jù)庫(kù)“水電費(fèi)”及“水電單價(jià)”。 “添加”即添加新的記錄，以往的歷史記錄則記錄入數(shù)據(jù)庫(kù)并存儲(chǔ)。刪除則可以刪除以往想要?jiǎng)h除的記錄，修改則可以修改所有存在數(shù)據(jù)庫(kù)中的所以數(shù)據(jù)，當(dāng)單擊確定按鈕后，當(dāng)前輸入的所有信息則進(jìn)入數(shù)據(jù)庫(kù)系統(tǒng)，一杯存儲(chǔ)。返回則是返回到管理員主窗口，此時(shí)可以訪問系統(tǒng)的其他功能，退出則是退出整個(gè)學(xué)生宿舍管理系統(tǒng)。 水電費(fèi)管理窗口代碼（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 Command6_Click()End Sub（6）、“退出”按鈕代碼Private Sub Command5_Click()EndEnd Sub此功能則是在寢室設(shè)備損壞后，請(qǐng)工作人員維修好后的記錄，如果是人為損害的情況則需要記錄賠償情況，如果是非人為的情況則不需記錄入數(shù)據(jù)庫(kù)。同時(shí)也可以查詢所有寢室的維修情況。 維修情況窗口截圖“請(qǐng)輸入寢室號(hào)查找”，“寢室號(hào)”、“維修情況”、“賠償情況”、“時(shí)間”為標(biāo)簽框Label1~Label5；添加5個(gè)文本框text1~text5與之對(duì)應(yīng)；“添加”、“更改”、“更新”、“返回”、“查找”分別為mand1~，連接數(shù)據(jù)庫(kù)“維修情況”。 “添加”按鈕則是在每次新的維修情況出現(xiàn)后添加新的記錄入數(shù)據(jù)庫(kù)，更改則是在記錄出錯(cuò)的情況下可以進(jìn)行信息的修改，更新則是在每次新的記錄后或是修改記錄后可以點(diǎn)擊更新按鈕則重新。 維修情況窗口的代碼（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((寢室號(hào))) Then MsgBox 沒有該寢室ElseDo While Trim((寢室號(hào))) Loop If Trim() = Trim((寢室號(hào))) Then = (寢室號(hào)) = (維修情況) = (賠償情況) = (時(shí)間)End If End IfEnd Sub 該功能是在每次學(xué)?；蚴窍挡窟M(jìn)行衛(wèi)生檢查后就進(jìn)行評(píng)分，然后記錄分?jǐn)?shù)，并保存入數(shù)據(jù)庫(kù)。在一學(xué)年后可調(diào)出記錄進(jìn)行總結(jié)，評(píng)優(yōu)秀寢室等。一、 衛(wèi)生檢查窗口截圖“寢室號(hào)”、“分?jǐn)?shù)”、“時(shí)間”為標(biāo)簽框Label1~Label3；對(duì)應(yīng)添加3個(gè)文本框text1~text3?！疤砑印?、“修改”、“返回”、“退出”分別為mand1~mand4；添加data1，連接數(shù)據(jù)庫(kù)“衛(wèi)生檢查”。單擊“添加”按鈕則添加記錄入數(shù)據(jù)庫(kù)，以便以后隨時(shí)查詢，“修改”則是修改當(dāng)前已有信息，“返回”則是返回管理員主窗口界面，“退出”則是退出整個(gè)學(xué)生宿舍管理系統(tǒng)。衛(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 來訪人員登記則是在宿舍以外的人進(jìn)入宿舍進(jìn)行登記，然后記錄入數(shù)據(jù)庫(kù)。 來訪人員窗口截圖 “寢室號(hào)”、“訪問者姓名”、“學(xué)生姓名”、“時(shí)間”、“事件”分別是由標(biāo)簽框Label1~Label5組成；對(duì)應(yīng)添加5個(gè)文本框text1~text2；“添加”、“確定”、“返回”為3個(gè)命令按鈕mand1~mand3；添