【正文】 型 數(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備注 無(wú)⑵ 學(xué)生請(qǐng)假情況表主要存放學(xué)生請(qǐng)假情況，字段包括：日期、姓名、班級(jí)、宿舍、寢室、天數(shù)、原因、老師、備注。表 衛(wèi)生情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 202244 14宿舍 一號(hào)公寓 20寢室 603 10檢查 1 門(mén)窗不干凈 40檢查 2 地面不干凈 40檢查 3 不疊被 408第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)檢查 4 桌面不整齊 40檢查 5 陽(yáng)臺(tái)不干凈 40得分 60 4減分 40 4等級(jí) 較差 6備注 無(wú)⑸ 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、宿舍、名稱、數(shù)量、單價(jià)、總價(jià)、用途、備注。添加人員可以分為兩類：普通用戶、管理員。無(wú)用戶設(shè)置、宿舍設(shè)置及記錄刪除等權(quán)力。（3）數(shù)據(jù)備份這是一個(gè)數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時(shí)的備份當(dāng)前的數(shù)據(jù)庫(kù)以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進(jìn)行恢復(fù)。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。還可以通過(guò)詳細(xì)查看，查看到某個(gè)宿舍某個(gè)寢室住宿人員的人數(shù)，以及具體的住宿人員的名字。運(yùn)行圖如下:圖 衛(wèi)生檢查運(yùn)行圖 宿舍資產(chǎn)主要完成：添加新增物品的功能。運(yùn)行圖如下:圖 值班記錄運(yùn)行圖 幫助制作對(duì)于一個(gè)稍顯正規(guī)的軟件來(lái)說(shuō)幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。圖 主程序流程圖 登錄界面此界面是由 Photoshop 制作而成。第四章 程序設(shè)計(jì) 登錄圖片顯示圖 登錄界面 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。原理主要是在鼠標(biāo) mousemove 事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。H808080 = amp。HE0E0E0 = amp。管理員、普通用戶。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。 。 amp。整個(gè)界面主要由五部分組成。工具欄主要是由 coolbar 制作而成。在這里值得一提的是刪除 DataGrid 的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1 的數(shù)據(jù)源，或者是其它 ado 控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫(kù)表，也有可能是經(jīng)過(guò)一個(gè)查詢后得到的記錄。 。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 Time39。 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 = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider amp。 。各個(gè)控件也與數(shù)據(jù)庫(kù)中表的字段綁定。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。上一條與下一條主要代碼如下： 39。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。刪除操作部分代碼：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)行。這里主要涉及到的問(wèn)題是datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。在右下角的文本框中可以輸入想要添加的宿舍名稱。然后點(diǎn)擊更新就會(huì)完成此操作。其它表的有關(guān)此宿舍的信息還會(huì)存在。 amp。 amp。 amp。 amp。在添加一個(gè)寢室前先要選擇所要添加寢室所在的宿舍。添加后會(huì)把 Treeview 重新刷新一下。 amp。當(dāng)要對(duì)當(dāng)前寢室的所屬宿舍進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的宿舍名稱后填寫(xiě)所要修改的寢室名稱。 amp。sql = select * form qinshi where 宿舍名稱=39。 and 寢室=39。 update qinshi set 寢室=39。,宿舍名稱 =39。where 寢室=39。and 宿舍名稱=39。 = = Call startree1刪除操作可以刪除掉當(dāng)前樹(shù)型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹(shù)型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi 表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。 amp。 amp。 amp。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后33學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)完成此操作。 39。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來(lái)更有安全感。 amp。 \dbasize = FileLen(PathName)err:Exit Sub數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法，dobackup。 Format(Date, )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。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊…那個(gè)按鈕開(kāi)始進(jìn)行選擇，實(shí)現(xiàn)方法如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Select backup path)If strTemp Then txtDestination = strTempEnd If數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫(kù)遭到破壞后，可以利用它來(lái)進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù)據(jù)庫(kù)路徑，如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Restore From)If strTemp Then txtSource = strTemp dbasize2 = FileLen(txtSource amp。File Not Found lblSelectedDba = No Backup at this location = False End Select它主要是查看數(shù)據(jù)庫(kù)是否存在，如果所恢復(fù)的數(shù)據(jù)不存在，則會(huì)提示錯(cuò)誤。 will replace existing database you want to Contunue, vbYesNo) = vbYes ThenDoRestore , If NoDba = True Then MsgBox Database Restored Click Ok to Exit Program Unload frmRestoreDbaEnd IfElse = Database Restore CanceledEnd If其中 DoRestore 實(shí)現(xiàn)的功能源碼如下所示：DEFSOURCE = PROVIDER=。Set Db = New DEFSOURCE amp。 vbNullChar .pTo = strDestinationPath amp。這實(shí)屬本人精力與能力有限所置。首先要在 list 中加載各表名。 \icon\Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M Then tempEnd IfLoop = 0On Error GoTo errPathName = amp。 \With Adodc140第四章 程序設(shè)計(jì).Mode = adModeReadWrite.ConnectionString = provider amp。開(kāi)始轉(zhuǎn)換Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() Dim xlApp As Dim xlBook As Dim xlSheet As Set xlApp = CreateObject() Set xlBook = Set xlSheet = (1)With .MoveLast If .RecordCount 1 Then MsgBox (Error!) Exit Sub End If Irowcount = .RecordCount Icolcount = . ReDim Fieldlen(Icolcount) .MoveFirst For Irow = 1 To Irowcount + 1 For Icol = 1 To Icolcount Select Case Irow Case 1 (Irow, Icol).Value = .Fields(Icol 1).Name Case 2 If IsNull(.Fields(Icol 1)) = True Then41學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) Fieldlen(Icol) = LenB(.Fields(Icol 1).Name) Else Fieldlen(Icol) = LenB(.Fields(Icol 1)) End If (Icol).ColumnWidth = Fieldlen(Icol) (Irow, Icol).Value = .Fields(Icol 1) Case Else Fieldlen1 = LenB(.Fields(Icol 1)) If Fieldlen(Icol) Fieldlen1 Then (Icol).ColumnWidth = Fieldlen1 Fieldlen(Icol) = Fieldlen1 Else (Icol).ColumnWidth = Fieldlen(Icol) End If (Irow, Icol).Value = .Fields(Icol 1) End Select Next If Irow 1 Then If Not .EOF Then .MoveNext = + 1 End If Next With xlSheet .Range(.Cells(1, 1), .Cells(1, Icol 1)). = 黑體 .Range(.Cells(1, 1), .Cells(1, Icol 1)). = True .Range(.Cells(1, 1), .Cells(Irow, Icol 1)). = xlContinuous End With = True 39。①學(xué)生請(qǐng)假記錄圖片顯示圖 學(xué)生請(qǐng)假效果圖② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。這樣做在使用的時(shí)候有很大的