【正文】 （ 4） 、 “確定”按鈕代碼 Private Sub Command4_Click() End Sub （ 5） 、 “返回”按鈕代碼 Private Sub Command6_Click() End Sub （ 6） 、 “退出”按鈕代碼 Private Sub Command5_Click() End End Sub 維修情況 此功能則是在寢室設(shè)備損壞后，請(qǐng)工作人員維修好后的記錄，如果是人為損害的情況則需要記錄賠償情況，如果是非人為的情況則不需記錄入數(shù)據(jù)庫(kù)。修改寢室寢室，包括室長(zhǎng)，寢室人員。點(diǎn)擊“返回”按鈕后，則返回到管理員中窗口，可以進(jìn)入其他操作。 最后，為了使窗體看上去不單調(diào)，選擇了 設(shè)置窗體的 picture屬性，加載 了一幅 圖片。 登陸窗口添加 data1，連接數(shù)據(jù)庫(kù) “ loading” 。 第 2章 學(xué)生宿舍管理系統(tǒng)的開(kāi)發(fā)與設(shè) 計(jì) 我們正走進(jìn)一個(gè)信息時(shí)代，信息技術(shù)將從根本上改變?nèi)祟惿鐣?huì)的生產(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來(lái)處理，可以說(shuō)用計(jì)算機(jī)進(jìn)行信息管理是一個(gè)總趨勢(shì)。 Visual Basic 是在 BASIC 和 Quick Basic 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有結(jié)構(gòu)化的高級(jí)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，同時(shí)支持面向?qū)ο蟮某绦蛟O(shè)計(jì)技術(shù)，具有強(qiáng)大的功能。其中主要的問(wèn)題是，這種設(shè)計(jì)方法重點(diǎn)在與用結(jié)構(gòu)化的方法描述系統(tǒng)的操作過(guò)程。程序設(shè)計(jì)方法和技術(shù)也在不斷發(fā)展。其實(shí)，這些編程工作只是不由用戶來(lái)做，而由 Visual Basic 系統(tǒng)完成而已。 學(xué)生寢室管理中包括，宿管員發(fā)出新的通知，衛(wèi)生檢查結(jié)果，人員管理，水電費(fèi)管理，維修情況，來(lái)訪人員，學(xué)生信息管理等。 關(guān)鍵字 ： 管 理員，一般用戶， Visual Basic， Microsoft Access MDB 9 目 錄 前言 ???????????????????????? 6 第 1 章 系統(tǒng)分析 系統(tǒng)運(yùn)行環(huán)境及工具 ??????????????? 7 系統(tǒng)開(kāi)發(fā)條件 ?????????????????? 8 第 2 章 學(xué)生宿舍管理系統(tǒng)的開(kāi)發(fā)與設(shè)計(jì) 管理員窗口 的設(shè)計(jì) 登陸 ???????????????????? 10 過(guò)渡 ???????????????????? 13 管理員主窗口 ???????????????? 13 更新通知 ?????????????????? 16 人員管理 ?????????????????? 17 水電費(fèi)管理 ????????????????? 18 維修情況 ?????????????????? 20 衛(wèi)生檢查 ?????????????????? 22 來(lái)訪人員 ?????????????????? 23 學(xué)生信息 ????????????????? ? 24 普通用戶界面的設(shè)計(jì) 普通用戶主窗口 ???????????????? 25 最新通知 ??????????????????? 27 歷史通知 ??????????????????? 28 水電費(fèi) ???????????????????? 28 公務(wù)賠償 ??????????????????? 30 密碼修改 ??????????????????? 32 個(gè)人信息 ??????????????????? 33 尋找同學(xué) ?????????? ????????? 34 總結(jié) ???????????????????????? 37 致謝 ???????????????????????? 38 參考文獻(xiàn) ?????????????????????? 39 10 前 言 Visual Basic 是一種面向?qū)ο蟮母呒?jí)語(yǔ)言開(kāi)發(fā)工具。 設(shè)計(jì)（論文）工作 主要內(nèi)容 按照開(kāi)發(fā)軟件的基本步驟 完成： 可對(duì)學(xué)生信息 、寢室以 及權(quán)限進(jìn)行管理； 用戶根據(jù)不同的權(quán)限可對(duì)學(xué)生 信息及寢室信息 進(jìn)行添加、刪除、修改等操作； 可對(duì)學(xué)生的 信息及寢室 進(jìn)行 查詢 ； 具有良好的幫助環(huán)境 。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫(xiě)的成果作品。對(duì)本研究提供過(guò)幫助和做出過(guò)貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說(shuō)明并表示了謝意。 涉密論文按學(xué)校規(guī)定處理。更新通知即宿管員及時(shí)將通知更新，供學(xué)生查看。 隨著學(xué)生量的與日俱增，學(xué)生宿舍的管理也變的越來(lái)越復(fù)雜，因此，針對(duì)學(xué)生宿舍的管理，開(kāi)發(fā)了一個(gè)學(xué)生宿舍管理系統(tǒng)。 Visual Basic 提供一個(gè)“工具箱”，向內(nèi)放油若干個(gè)“空間”。 Visual Basic的語(yǔ)法與 QBASIC 和 QBASIC 的人，無(wú)須任何訓(xùn)練便可很熟練的進(jìn)行 Visual Basic 編寫(xiě)代碼的工作。這種從抽象到具體、從總體到細(xì)目的分解過(guò)程，以及最后實(shí)現(xiàn)這些細(xì)化的過(guò)程都具有嚴(yán)密的邏輯性。這種設(shè)計(jì)方法符合人們的思維習(xí)慣，便于分析復(fù)雜的問(wèn)題，有利于軟件的維護(hù)。學(xué)生公寓管理軟件 ，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理 軟件 。 14 系統(tǒng)流程圖： 通知： 更新通知 人員管理 管理員 水電費(fèi)管理 寢室管理 維修情況 衛(wèi)生檢查 來(lái)訪人員 學(xué)生 宿舍 學(xué)生管理：學(xué)生信息 管理系統(tǒng) 最新通知 通知 歷史通知 水電費(fèi) 普通用戶 繳費(fèi)管理 公務(wù)賠償 密碼修改 信息查詢 個(gè)人信息 尋找同學(xué) 管理員窗口的設(shè)計(jì) 登陸窗口的設(shè)計(jì) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。 過(guò)渡 窗口代碼 （ 1） 、 “確定”按鈕代碼 Private Sub Command1_Click() End Sub （ 2） 、 “取消”按鈕代碼 Private Sub Command2_Click() End End Sub （ 3） 、 窗體的加載代碼 Private Sub Form_Load() d$ = Date$ = d$ 管理員主 窗口 程序主界面為本軟件的顯示的核心部分。并設(shè)置其 scrollbar 屬性為 2（ vertical）只加垂直滾動(dòng)條。 管理窗口截圖 圖 “寢室號(hào)”、“室長(zhǎng)”、“寢室成員”分別為標(biāo)簽框 Label1，Label2， Label3；添加 3 個(gè)文本框，分別為 text1， text2， text3；“添加”、“刪除”、“修改”、“刷新”、“返回” 分別為 mand1，mand2， mand3， mand4， data1，連接數(shù)據(jù)庫(kù) “寢室人員” 。 “添加”即添加新的記錄，以往的歷史記錄則記錄入數(shù)據(jù)庫(kù)并存儲(chǔ)。在一學(xué)年后可調(diào)出記錄進(jìn)行總結(jié)，評(píng)優(yōu)秀寢室等?！胺祷亍眲t是返回到管理員主窗口界面，課進(jìn)行其他操作。 最新通知窗口截圖 圖 通知是由一個(gè)文本框 text1 將其 enabled 屬性設(shè)置為 false；“返回”，“退出”分別由 mand1 和 mand2 組成 。 水電費(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ù)量 ) 34 = (電費(fèi) ) = (總費(fèi) ) = 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ù)摹? 密碼修改窗口代碼 (1)、 “確定”按鈕代碼 Private Sub Command1_Click() If Then MsgBox 舊密碼錯(cuò)誤 , vbOKOnly, 密碼修改 = = = End If If = And = 37 Then (密碼 ) = Trim() MsgBox 已修改該用戶 !, vbOKOnly, 密碼修改 = = = = End If If Then MsgBox 2 次新密碼錯(cuò)誤或舊密碼錯(cuò)誤 , vbOKOnly, 密碼修改 = = = End If = = = End Sub (2)、 “取消”按鈕代碼 Private Sub Command2_Click() End Sub (3)、 “退出”按鈕代碼 Private Sub Command3_Click() End End