【正文】 成功。 amp。 39。 amp。 39。 amp。 39。 amp。用到的控件主要是 Sstab 與30第四章 程序設(shè)計(jì)Treeview。在添加一個(gè)寢室前先要選擇所要添加寢室所在的宿舍。樹(shù)中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇宿舍后面的列表框中，而選中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱里。添加后會(huì)把 Treeview 重新刷新一下。添加源碼： 宿舍名稱=39。 amp。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)行修改。當(dāng)要對(duì)當(dāng)前寢室的所屬宿舍進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的宿舍名稱后填寫(xiě)所要修改的寢室名稱。但是這種操作不是常見(jiàn)。 amp。 39。sql = select * form qinshi where 宿舍名稱=39。 Trim() amp。 and 寢室=39。 Trim() amp。 update qinshi set 寢室=39。 amp。,宿舍名稱 =39。 Trim() amp。where 寢室=39。 Trim() amp。and 宿舍名稱=39。 Trim() amp。 = = Call startree1刪除操作可以刪除掉當(dāng)前樹(shù)型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹(shù)型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi 表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。實(shí)現(xiàn)的部分代碼如下所示：If = Or = Or = 宿舍管理系統(tǒng) ThenMsgBox 選擇所要?jiǎng)h除的寢室, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除 amp。 amp。 amp。 amp。 39。 amp。 39。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。在右下角的文本框中可以輸入想要添加的班級(jí)名稱。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。然后點(diǎn)擊更新就會(huì)完成此操作。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后33學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)完成此操作。 amp。 39。 amp。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來(lái)更有安全感。然后點(diǎn)擊數(shù)據(jù)備份即可。 amp。 amp。 \dbasize = FileLen(PathName)err:Exit Sub數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法，dobackup。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。 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。 \Backup 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。 Format((dbasize2 / 1024) / 1024, standard) amp。File Not Found lblSelectedDba = No Backup at this location = False End Select它主要是查看數(shù)據(jù)庫(kù)是否存在，如果所恢復(fù)的數(shù)據(jù)不存在，則會(huì)提示錯(cuò)誤。數(shù)據(jù)恢復(fù)代碼如下：If MsgBox(Restoring database from location amp。 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=。Data Source=DBName = \。Set Db = New DEFSOURCE 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。 vbNullChar .pTo = strDestinationPath amp。 amp。這實(shí)屬本人精力與能力有限所置。①界面效果圖圖 數(shù)據(jù)轉(zhuǎn)換效果圖②實(shí)現(xiàn)方法39學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)在這里用到了一個(gè)顯示 gif 圖片的控件。首先要在 list 中加載各表名。添加表名部分在 load 進(jìn)行加載，其中的導(dǎo)出與取消按鈕是由 coolbar 制作而成。 \icon\Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 data source= amp。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M Then tempEnd IfLoop = 0On Error GoTo errPathName = amp。轉(zhuǎn)換代碼如下：Select Case Case 1 Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 \With Adodc140第四章 程序設(shè)計(jì).Mode = adModeReadWrite.ConnectionString = provider amp。 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。 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)功能。①學(xué)生請(qǐng)假記錄圖片顯示圖 學(xué)生請(qǐng)假效果圖② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這樣做在使用的時(shí)候有很大的方便之處。第二是當(dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)