【正文】 第二是當(dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。 Set xlApp = Nothing = NothingEnd With(1).Enabled = FalseCase 242第四章 程序設(shè)計(jì)Unload MeEnd Select 宿舍管理 學(xué)生請(qǐng)假 學(xué)生請(qǐng)假與違規(guī)在一個(gè)宿舍管理中是最常見(jiàn)的問(wèn)題了，所以在此軟件中加上了這兩項(xiàng)功能。 amp。轉(zhuǎn)換代碼如下：Select Case Case 1 Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 data source= amp。添加表名部分在 load 進(jìn)行加載，其中的導(dǎo)出與取消按鈕是由 coolbar 制作而成。①界面效果圖圖 數(shù)據(jù)轉(zhuǎn)換效果圖②實(shí)現(xiàn)方法39學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)在這里用到了一個(gè)顯示 gif 圖片的控件。 amp。 DBNameDim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglassBackupFolderName = strDestinationPath38第四章 程序設(shè)計(jì)lFileOp = FO_COPYlFlags = lFlags And Not FOF_SILENTlFlags = lFlags Or FOF_NOCONFIRMATIONlFlags = lFlags Or FOF_NOCONFIRMMKDIRlFlags = lFlags Or FOF_FILESONLYWith SHFileOp .wFunc = lFileOp .pFrom = strSourcePath amp。Data Source=DBName = \。數(shù)據(jù)恢復(fù)代碼如下：If MsgBox(Restoring database from location amp。 Format((dbasize2 / 1024) / 1024, standard) amp。 \Backup amp。Dobackup 實(shí)現(xiàn)方法代碼如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglass36第四章 程序設(shè)計(jì)BackupFolderName = strDestinationPathMkDir BackupFolderName amp。 amp。然后點(diǎn)擊數(shù)據(jù)備份即可。 amp。 amp。然后點(diǎn)擊更新就會(huì)完成此操作。在右下角的文本框中可以輸入想要添加的班級(jí)名稱。 39。 39。 amp。實(shí)現(xiàn)的部分代碼如下所示：If = Or = Or = 宿舍管理系統(tǒng) ThenMsgBox 選擇所要?jiǎng)h除的寢室, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除 amp。 Trim() amp。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 Trim() amp。 39。但是這種操作不是常見(jiàn)。If = True ThenMsgBox 此宿舍不存在 , , 提示Exit SubEnd IfIf = Or = ThenMsgBox 請(qǐng)輸入所要添加的寢室及其所屬宿舍, , 提示Exit SubEnd IfWith Adodc2..(0).Value = .(1).Value = .End With = = Call startree1修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬宿舍進(jìn)行修改。添加源碼： 宿舍名稱=39。樹(shù)中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇宿舍后面的列表框中，而選中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱里。用到的控件主要是 Sstab 與30第四章 程序設(shè)計(jì)Treeview。 39。 39。 39。在添加前要判斷所寫(xiě)宿舍名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫(kù)表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加成功。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的宿舍名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。在點(diǎn)擊 sstab 各版的時(shí)候，要在這時(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 控件。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。修改記錄即更新表中的某一條記錄。一經(jīng)刪除即不可以在恢復(fù)。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。移動(dòng)記錄 = TrueIf Then = FalseEnd If添加用戶可以添加使用該管理軟件的用戶。當(dāng)表中記錄移到最前面（BOF）或最后面（EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的 enable 屬性設(shè)置為 true。 amp。設(shè)置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview 部分樹(shù)形顯示的初始化在這里已經(jīng)做了幾個(gè)過(guò)程，調(diào)用即可。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。 。下面就是設(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)來(lái)，例如所在程序運(yùn)行時(shí)所用到的表，左側(cè) treeview 部分樹(shù)形顯示的初始化。 (4).Text = Date amp。由上圖可以看出，lf 為本軟件管理員。 datasource.CommandType = adCmdTable.RecordSource = users 39。用這個(gè)方法得到數(shù)據(jù)源。這里只列出了幾個(gè)常用的按鈕。①界面效果圖如下：16 17學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)圖 程序主界面菜單欄的詳見(jiàn)附錄內(nèi)容，這里就不提了。If = False And = Trim((pass)) Then = (級(jí)別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請(qǐng)重新登錄!, 48, 提示End If 程序主界面程序主界面為本軟件的顯示的核心部分。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對(duì)用戶進(jìn)行判斷If = ThenMsgBox 請(qǐng)輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。H808080 = True = True = True = TrueEnd Sub(2) 用戶類型判斷 在數(shù)據(jù)庫(kù)中建了一人 yonghu 表。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。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。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！(1) 浮動(dòng)按鈕的實(shí)現(xiàn) 確定和取消兩個(gè)按鈕在鼠標(biāo)沒(méi)有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。又不失其莊雅。以便對(duì)本軟件進(jì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)行查看與刪除。衛(wèi)生檢查可以對(duì)衛(wèi)生檢查的結(jié)果進(jìn)行記錄。利用它可以把學(xué)生的基本的違規(guī)資料保存起來(lái)。 宿舍管理主要完成：學(xué)生請(qǐng)假、學(xué)生違規(guī)、床位設(shè)置的功能。在這里可以添加學(xué)校所有的宿舍、所有班級(jí)、每個(gè)宿舍的所有寢室,也可以用此軟件管理一幢宿舍。管理員擁有所有權(quán)力，對(duì)整個(gè)系統(tǒng)的操作。 系統(tǒng)設(shè)置主要完成：用戶管理、宿舍設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。表 學(xué)生違規(guī)情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 202278 14姓名 劉長(zhǎng)河 8班級(jí) 信息系統(tǒng)與信息管理10宿舍 201 20寢室 201 10原因 打架斗毆程度 嚴(yán)重處罰 留校察看備注 無(wú)8⑷ 衛(wèi)生情況表主要存放寢室衛(wèi)生情況，字段包括：日期、宿舍、寢室、檢查 1 到 得分、減分、等級(jí)、備注。分別是：用戶表、宿舍表、班級(jí)表、寢室表、衛(wèi)生等級(jí)表、學(xué)生基本情況表、學(xué)生請(qǐng)假情況表、學(xué)生違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。 新系統(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ù)庫(kù)設(shè)計(jì)第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)目前，可應(yīng)用的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具有很多，Oracle 是面向網(wǎng)絡(luò)計(jì)算的數(shù)據(jù)庫(kù)，適合開(kāi)發(fā)大型網(wǎng)絡(luò)應(yīng)用軟件；Access 和 Visual Foxpro 系統(tǒng)適合開(kāi)發(fā)小型數(shù)據(jù)庫(kù)應(yīng)用軟件。綜上所述，建立一個(gè)學(xué)生宿舍管理軟件與人工操作相比具有速度更快，操作更準(zhǔn)確，更節(jié)約開(kāi)支等有利之處，因此建立一個(gè)學(xué)生宿舍管理軟件是必要可行。開(kāi)發(fā)一個(gè)學(xué)生宿舍管理系統(tǒng)可以達(dá)到事半功倍的效果。隨著學(xué)校寄宿人員的增多，宿舍管理人員的負(fù)擔(dān)越來(lái)越重，為了讓所有宿舍管理人員能從繁重的工作中解脫出來(lái)，實(shí)現(xiàn)無(wú)紙化辦公，使工作更有條理、更方便、更有效率，而開(kāi)發(fā)出這套宿舍管理軟件。而且時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新、維護(hù)都帶來(lái)了不少的困