【正文】 更節(jié)約開支等有利之處，因此建立一個(gè)學(xué)生宿舍管理軟件是必要可行。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校宿舍的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。 新系統(tǒng)數(shù)據(jù)流程圖圖 數(shù)據(jù)流程圖4第一章系統(tǒng)分析數(shù)據(jù)字典圖 數(shù)據(jù)元素 注：其它數(shù)據(jù)元素略圖 數(shù)據(jù)流注：其它數(shù)據(jù)流略5學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)圖 加工注：其它加工略圖 數(shù)據(jù)存儲(chǔ)注：其它數(shù)據(jù)存儲(chǔ)略6第二章 數(shù)據(jù)庫設(shè)計(jì)第二章 數(shù)據(jù)庫設(shè)計(jì)目前，可應(yīng)用的數(shù)據(jù)庫開發(fā)工具有很多，Oracle 是面向網(wǎng)絡(luò)計(jì)算的數(shù)據(jù)庫，適合開發(fā)大型網(wǎng)絡(luò)應(yīng)用軟件；Access 和 Visual Foxpro 系統(tǒng)適合開發(fā)小型數(shù)據(jù)庫應(yīng)用軟件。E—R 圖圖 E—R 圖信息的數(shù)量越來越大，數(shù)據(jù)庫的作用越發(fā)突出,所以數(shù)據(jù)庫的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個(gè)系統(tǒng)的運(yùn)行情況，是整個(gè)系統(tǒng)的重要組成部分。分別是：用戶表、宿舍表、班級(jí)表、寢室表、衛(wèi)生等級(jí)表、學(xué)生基本情況表、學(xué)生請(qǐng)假情況表、學(xué)生違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。數(shù)據(jù)結(jié)構(gòu)如下表：表 學(xué)生基本情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度姓名 劉長(zhǎng)河 8性別 男 2學(xué)號(hào) 5100000000 10班級(jí) 信息系統(tǒng)與信息管理10宿舍 一號(hào)公寓 20寢室 603 107學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)入學(xué)時(shí)間 14年制 4 年 8個(gè)人電話 1399999999 15備注 無⑵ 學(xué)生請(qǐng)假情況表主要存放學(xué)生請(qǐng)假情況，字段包括：日期、姓名、班級(jí)、宿舍、寢室、天數(shù)、原因、老師、備注。表 學(xué)生違規(guī)情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 202278 14姓名 劉長(zhǎng)河 8班級(jí) 信息系統(tǒng)與信息管理10宿舍 201 20寢室 201 10原因 打架斗毆程度 嚴(yán)重處罰 留校察看備注 無8⑷ 衛(wèi)生情況表主要存放寢室衛(wèi)生情況，字段包括：日期、宿舍、寢室、檢查 1 到 得分、減分、等級(jí)、備注。表 衛(wèi)生情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 202244 14宿舍 一號(hào)公寓 20寢室 603 10檢查 1 門窗不干凈 40檢查 2 地面不干凈 40檢查 3 不疊被 408第二章 數(shù)據(jù)庫設(shè)計(jì)檢查 4 桌面不整齊 40檢查 5 陽臺(tái)不干凈 40得分 60 4減分 40 4等級(jí) 較差 6備注 無⑸ 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、宿舍、名稱、數(shù)量、單價(jià)、總價(jià)、用途、備注。 系統(tǒng)設(shè)置主要完成：用戶管理、宿舍設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。添加人員可以分為兩類：普通用戶、管理員。管理員擁有所有權(quán)力，對(duì)整個(gè)系統(tǒng)的操作。無用戶設(shè)置、宿舍設(shè)置及記錄刪除等權(quán)力。在這里可以添加學(xué)校所有的宿舍、所有班級(jí)、每個(gè)宿舍的所有寢室,也可以用此軟件管理一幢宿舍。（3）數(shù)據(jù)備份這是一個(gè)數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時(shí)的備份當(dāng)前的數(shù)據(jù)庫以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進(jìn)行恢復(fù)。 宿舍管理主要完成：學(xué)生請(qǐng)假、學(xué)生違規(guī)、床位設(shè)置的功能。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。利用它可以把學(xué)生的基本的違規(guī)資料保存起來。還可以通過詳細(xì)查看，查看到某個(gè)宿舍某個(gè)寢室住宿人員的人數(shù)，以及具體的住宿人員的名字。衛(wèi)生檢查可以對(duì)衛(wèi)生檢查的結(jié)果進(jìn)行記錄。運(yùn)行圖如下:圖 衛(wèi)生檢查運(yùn)行圖 宿舍資產(chǎn)主要完成：添加新增物品的功能。運(yùn)行圖如下:12第三章 功能模塊設(shè)計(jì)圖 宿舍資產(chǎn)運(yùn)行圖 記錄查看與記錄刪除主要是對(duì)學(xué)生請(qǐng)假、學(xué)生違規(guī)、衛(wèi)生記錄，宿舍資產(chǎn)等記錄所進(jìn)行的操作，利用這兩個(gè)功能可以對(duì)任一記錄進(jìn)行查看與刪除。運(yùn)行圖如下:圖 值班記錄運(yùn)行圖 幫助制作對(duì)于一個(gè)稍顯正規(guī)的軟件來說幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。以便對(duì)本軟件進(jìn)行快速操作。圖 主程序流程圖 登錄界面此界面是由 Photoshop 制作而成。又不失其莊雅。第四章 程序設(shè)計(jì) 登錄圖片顯示圖 登錄界面 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！(1) 浮動(dòng)按鈕的實(shí)現(xiàn) 確定和取消兩個(gè)按鈕在鼠標(biāo)沒有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。原理主要是在鼠標(biāo) mousemove 事件與線的顏色變化組合來實(shí)現(xiàn)。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False14學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) = False = False = False = False = FalseEnd Sub 鼠標(biāo)按下的時(shí)候設(shè)置線條的顏色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。H808080 = amp。HE0E0E0End Sub 鼠標(biāo)移動(dòng)到標(biāo)簽的時(shí)候設(shè)置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。HE0E0E0 = amp。H808080 = True = True = True = TrueEnd Sub(2) 用戶類型判斷 在數(shù)據(jù)庫中建了一人 yonghu 表。管理員、普通用戶。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對(duì)用戶進(jìn)行判斷If = ThenMsgBox 請(qǐng)輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。If = False And = Trim((pass)) Then = (級(jí)別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請(qǐng)重新登錄!, 48, 提示End If 程序主界面程序主界面為本軟件的顯示的核心部分。整個(gè)界面主要由五部分組成。①界面效果圖如下：16 17學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)圖 程序主界面菜單欄的詳見附錄內(nèi)容，這里就不提了。工具欄主要是由 coolbar 制作而成。這里只列出了幾個(gè)常用的按鈕。在這里值得一提的是刪除 DataGrid 的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1 的數(shù)據(jù)源，或者是其它 ado 控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個(gè)查詢后得到的記錄。用這個(gè)方法得到數(shù)據(jù)源。 。 datasource.CommandType = adCmdTable.RecordSource = users 39。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。由上圖可以看出，lf 為本軟件管理員。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 (4).Text = Date amp。 Time39。下面就是設(shè)置它們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200= 1500= 1500= 1500Y = x = (Y z) / 4(1).Width = u + x(2).Width = v + x(3).Width = w + x(4).Width = m + x這個(gè)軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load 事件里要把所用的到的東西都要加載進(jìn)來，例如所在程序運(yùn)行時(shí)所用到的表，左側(cè) treeview 部分樹形顯示的初始化。 amp。 。 datasource20第四章 程序設(shè)計(jì).CommandType = adCmdTable.RecordSource = users 39。 。 datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview 部分樹形顯示的初始化在這里已經(jīng)做了幾個(gè)過程，調(diào)用即可。各個(gè)控件也與數(shù)據(jù)庫中表的字段綁定。設(shè)置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。當(dāng)表中記錄移到最前面（BOF）或最后面（EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的 enable 屬性設(shè)置為 true。上一條與下一條主要代碼如下： 39。移動(dòng)記錄 = TrueIf Then = FalseEnd If添加用戶可以添加使用該管理軟件的用戶。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。一經(jīng)刪除即不可以在恢復(fù)。刪除操作部分代碼：If = 1 Then = False25學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)End IfIf (MsgBox(你真的想刪除當(dāng)前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd If編輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以修改其用戶名與密碼。修改記錄即更新表中的某一條記錄。因?yàn)樗械脑O(shè)置都在此進(jìn)行。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。這里主要涉及到的問題是datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。在點(diǎn)擊 sstab 各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((宿舍名稱)) I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 宿舍設(shè)置① 宿舍設(shè)置效果圖27學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)圖 宿舍設(shè)置② 界面制作與實(shí)現(xiàn)方法在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。在右下角的文本框中可以輸入想要添加的宿舍名稱。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。然后點(diǎn)擊更新就會(huì)完成此操作。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的宿舍名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。其它表的有關(guān)此宿舍的信息還會(huì)存在。在添加前要判斷所寫宿舍名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加