【正文】 ....................12 記錄查看與記 錄刪除 .................................................12 值班記錄 ............................................................13 幫助制 作 ............................................................13第四章 程序設(shè)計(jì) ..........................................................13 登錄界面 ...........................................................14 登錄圖片顯示 ...............................................14 界面制作與實(shí)現(xiàn) .............................................15 程序主界面 .........................................................17 系統(tǒng)設(shè)置 ............................................................22 用戶(hù)管理 ...................................................22 宿舍設(shè)置 ...................................................27 數(shù)據(jù)備份 ...................................................35 數(shù)據(jù)轉(zhuǎn)換 ...................................................39 宿舍管理 ............................................................43 學(xué)生請(qǐng)假 ...................................................43 學(xué)生違規(guī) ...................................................44第五章 系統(tǒng)測(cè)試 ..........................................................47致 謝 .....................................................................48參考文 獻(xiàn) .................................................................49學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)緒論對(duì)于學(xué)校而言，學(xué)生宿舍管理是必不可少的組成部分。由于 Visual Basic 率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。本軟件主要包括以下方面：系統(tǒng)設(shè)置、宿舍管理、衛(wèi)生檢查、宿舍資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。本學(xué)生宿舍管理系統(tǒng)的母的是要改善本源對(duì)學(xué)生宿舍的管理，所以再設(shè)計(jì)系統(tǒng)的時(shí)候應(yīng)該盡量貼近學(xué)生，方便各級(jí)用戶(hù)的操作。它還支持第三方軟件商為其開(kāi)發(fā)的可視化控制對(duì)象，如本例中就用到了一個(gè)。長(zhǎng)期以來(lái)，使用傳統(tǒng)人工的方法管理高校宿舍，這種管理方式存在著許多缺點(diǎn)，如：效率低?？梢愿斓亓私獾矫總€(gè)學(xué)生的住宿情況。二是來(lái)源于網(wǎng)絡(luò)上的各種同類(lèi)軟件，通過(guò)這些軟件可以看出一個(gè)宿舍最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來(lái)十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫(xiě)。表 學(xué)生請(qǐng)假情況表字段名 數(shù)據(jù)類(lèi)型 數(shù)據(jù)長(zhǎng)度日期 14姓名 劉長(zhǎng)河 8班級(jí) 信息系統(tǒng)與信息管理10宿舍 一號(hào)公寓 20寢室 603 10天數(shù) 5 天 10原因 家中有事老師 劉德華 8備注 無(wú)⑶ 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級(jí)、宿舍、寢室、原因、程度、處罰、備注?？梢砸暡煌藛T而添加。（4）數(shù)據(jù)轉(zhuǎn)換利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫(kù)中的表轉(zhuǎn)換成 Excel 表格的形式，顯示更為直觀，可以進(jìn)行打印等操作。 衛(wèi)生檢查主要完成：添加檢查記錄的功能。在程序中可以按 F1 或點(diǎn)擊幫助菜單來(lái)顯示此 文檔。如果正確，那么它屬于哪種類(lèi)型用戶(hù)。HE0E0E0 = amp。管理員擁有對(duì)數(shù)據(jù)庫(kù)操作的一切權(quán)限。 amp。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。②它的實(shí)現(xiàn)方法如下所示：Dim o As AdodcSet o = 這里主要是用到了 ado 對(duì)像的方法。其中第二個(gè)和第三部分為動(dòng)態(tài)顯示的，它會(huì)顯示出每次用戶(hù)登錄名稱(chēng)及其管理模式。設(shè)置普通用戶(hù)模式If = 普通用戶(hù) Then = False19學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) = False = False = False(5).Visible = False(6).Visible = False(7).Visible = False(8).Visible = FalseEnd If主窗體在程序運(yùn)行中會(huì)遇到不斷改變其大小，最小化，最大化，以及用鼠標(biāo)來(lái)改變，這里需要在窗體的 Resize 事件中添加代碼，讓程序中用到的各個(gè)控件隨時(shí)可以適應(yīng)窗體改變后的大小，在這里改變的控件主要有 DataGrid、TreeView 系列及 Frame 控件、StatusBar。.RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。在窗體初始化的時(shí)候要判斷當(dāng)前數(shù)據(jù)庫(kù)表中是否有記錄，如果沒(méi)有記錄那么有些按鈕將會(huì)被設(shè)置成為失效狀態(tài)，否則會(huì)出現(xiàn)錯(cuò)誤。上一條記錄與下一條的記錄在查看時(shí)有一個(gè)判斷。管理員擁有對(duì)此軟件管理操作等一切的權(quán)力。當(dāng)當(dāng)前用戶(hù)感覺(jué)自己用戶(hù)名稱(chēng)或密碼有泄露時(shí)，可以進(jìn)行修改。還有一些就是對(duì)表記錄的復(fù)雜操作。Datagrid也會(huì)即時(shí)更新其內(nèi)容。 amp。 Trim() amp。這個(gè)宿舍可以點(diǎn)擊下面的樹(shù)中的節(jié)點(diǎn)，也可以在列表框中選擇。 39。 amp。 amp。 amp。 amp。 寢室為 amp。 Trim() amp。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改班級(jí)的名稱(chēng)，此時(shí)即可輸入要修改的名字。If = False ThenMsgBox 此班級(jí)已存在 , , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加班級(jí)的名稱(chēng), , 提示Exit SubEnd If(class) = = class = Set = Adodc3修改班級(jí)源碼：If = 修改 Then = = 輸入想要修改的班級(jí)名稱(chēng) = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的班級(jí)名稱(chēng) (class) = = 修改End If34第四章 程序設(shè)計(jì)刪除班級(jí)源碼：If = ThenMsgBox 選擇所要?jiǎng)h除班級(jí)的名稱(chēng), , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除班級(jí)名稱(chēng) 為 amp。 data source= amp。 vbNullChar .pTo = strDestinationPath amp。數(shù)據(jù)恢復(fù)也用到了一個(gè)方法，在模塊中也已經(jīng)定義了該方法 DoRestore。 amp。 數(shù)據(jù)轉(zhuǎn)換這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成 excel 形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。 amp。 。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。注意的是，在添加前要確。用它們可以隨時(shí)記錄請(qǐng)假記錄。 amp。Form 的 load 事件處理內(nèi)容如下： = amp。 DBName = vbDefault = Restore Complete說(shuō)明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類(lèi)型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來(lái)講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過(guò)測(cè)試已經(jīng)沒(méi)有問(wèn)題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。Jet OLEDB:Database Password=matrixse。 MB. = TrueEnd If37學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)Erro: Select Case Case 53 39。 \Backup amp。窗體初始化部分代碼如下：35學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 amp。然后點(diǎn)擊添加即可完成添加操作。 and 寢室=39。 amp。 39。 39。 39。修改源碼： 宿舍名稱(chēng)=39。 amp。但是在程序方面比較復(fù)雜。 where 宿舍名稱(chēng) =39。 宿舍名稱(chēng)=39。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改宿舍的名稱(chēng)，此時(shí)即可輸入要修改的名字。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。所以在操作前要想好。添加的時(shí)候可以選擇所添加人物的級(jí)別。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False23學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對(duì)當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。 系統(tǒng)設(shè)置 用戶(hù)管理①界面效果圖22第四章 程序設(shè)計(jì)圖 用戶(hù)管理② 界面制作與實(shí)現(xiàn)方法 這個(gè)界面總體來(lái)說(shuō)各個(gè)控件比較簡(jiǎn)單，但是作為一個(gè)添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫(kù)，與數(shù)據(jù)庫(kù)的 yonghu 表相聯(lián)。 amp。 datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 amp。.RefreshEnd WithSet = Adodc1Call dxCase 13Unload MeEnd Select狀態(tài)欄分四個(gè)部分。其中的添加按鈕是用來(lái)對(duì)宿舍住宿人員進(jìn)行添加，修改也是對(duì)所住宿人員進(jìn)行修改，想要進(jìn)行修改時(shí)必須顯示所有記錄時(shí)才可以進(jìn)行。一切主要操作及顯示都通過(guò)這里完成。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。H808080 = amp。加上本單位最有特色的建筑，會(huì)讓人一目了然。運(yùn)行圖如下: 圖 記錄查看 圖 記錄刪除運(yùn)行圖 值班記錄它的功能主要是針對(duì)值班人員開(kāi)發(fā)出來(lái)的，在這里可以讓值班人員對(duì)當(dāng)天值班情況進(jìn)行一個(gè)小記，以便日后查看。3 床位設(shè)置通過(guò)床位設(shè)置可以簡(jiǎn)單查看每個(gè)宿舍每個(gè)寢室的床位使用情況以及床位剩余情況。這樣操作起來(lái)會(huì)更簡(jiǎn)單、操作一目了然。運(yùn)行圖如下:圖 系統(tǒng)設(shè)置運(yùn)行圖（1） 用戶(hù)管理可以進(jìn)行管理人員的添加和修改以及刪除操作。下面介紹幾個(gè)主要的表：⑴ 學(xué)生基本情況表主要是存放學(xué)生的基本情況，字段包括：姓名、性別、學(xué)號(hào)、班級(jí)、宿舍、寢室、入學(xué)時(shí)間、年制、寢室電話(huà)、個(gè)人電話(huà)、備注。 數(shù)據(jù)來(lái)源軟件，要十分全面的貼近以及適合大學(xué)宿舍的管理方法。 系統(tǒng)開(kāi)發(fā)的可行性 技術(shù)上的可行性我們正走進(jìn)一個(gè)信息時(shí)代，信息技術(shù)將從根本上改變?nèi)祟?lèi)社會(huì)的生產(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來(lái)處理，可以說(shuō)用計(jì)算機(jī)進(jìn)行信息管理是一個(gè)總趨勢(shì)。但是如果想制作出幫助文檔，就需要使用制作網(wǎng)頁(yè)的軟件把內(nèi)容先做成 html 形式，本人使用 Dreamweaver 制作的網(wǎng)頁(yè)，然后在用此軟件進(jìn)行加載，最后生成 chm 文檔。同樣，在 VISUAL BASIC 中，用來(lái)構(gòu)成用戶(hù)圖形界面的可視化控件，也可視為是一個(gè)對(duì)象。本系統(tǒng)的主要功能可以方便的對(duì)學(xué)生宿舍進(jìn)行管理，系統(tǒng)采用 ACCESS 數(shù)據(jù)庫(kù)使數(shù)據(jù)具有較強(qiáng)的完整性、較好的數(shù)據(jù)安全性等特點(diǎn)以及提供了標(biāo)準(zhǔn)的幫助，使用戶(hù)方便的獲得所需的幫助。這些資料是本軟件的主要依據(jù)，也可以說(shuō)這些資料來(lái)源于普通的生活，比較真實(shí)一些。由此而產(chǎn)生了本管理軟件――學(xué)生宿舍管理軟件。對(duì)本研究提供過(guò)幫助和做出過(guò)貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說(shuō)明并表