【正文】 estination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！ , , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中 DoBackup 為模塊中已定義的方法，在這里進行調(diào)用。Dobackup 實現(xiàn)方法代碼如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglass36第四章 程序設計BackupFolderName = strDestinationPathMkDir BackupFolderName amp。 \Backup 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。 vbNullChar .pTo = strDestinationPath amp。 \Backup amp。 Format(Date, ) amp。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete在備份分前先要選擇一個備份路徑，點擊…那個按鈕開始進行選擇，實現(xiàn)方法如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Select backup path)If strTemp Then txtDestination = strTempEnd If數(shù)據(jù)恢復界面同上，它的功能主要是在當前數(shù)據(jù)庫遭到破壞后，可以利用它來進行數(shù)據(jù)恢復，在數(shù)據(jù)恢復前要選擇所要恢復的數(shù)據(jù)庫路徑，如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Restore From)If strTemp Then txtSource = strTemp dbasize2 = FileLen(txtSource amp。 \) lblSelectedDba = Selected Backup Database is : amp。 Format((dbasize2 / 1024) / 1024, standard) amp。 MB. = TrueEnd If37學生宿舍管理系統(tǒng)的設計與實現(xiàn)Erro: Select Case Case 53 39。File Not Found lblSelectedDba = No Backup at this location = False End Select它主要是查看數(shù)據(jù)庫是否存在，如果所恢復的數(shù)據(jù)不存在，則會提示錯誤。數(shù)據(jù)恢復也用到了一個方法，在模塊中也已經(jīng)定義了該方法 DoRestore。數(shù)據(jù)恢復代碼如下：If MsgBox(Restoring database from location amp。 txtSource 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 實現(xiàn)的功能源碼如下所示：DEFSOURCE = PROVIDER=。Persist Security Info=False。Data Source=DBName = \。Jet OLEDB:Database Password=matrixse。Set Db = New DEFSOURCE amp。 amp。 DBNameDim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglassBackupFolderName = strDestinationPath38第四章 程序設計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。 \ amp。 vbNullChar .pTo = strDestinationPath amp。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。 amp。 DBName = vbDefault = Restore Complete說明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。這實屬本人精力與能力有限所置。 數(shù)據(jù)轉換這個功能可以把當前列表框中的任何一個表轉換成 excel 形式，轉換后你可以看到表中的內(nèi)容，也可以對表進行操作，保存，修改，打印等。①界面效果圖圖 數(shù)據(jù)轉換效果圖②實現(xiàn)方法39學生宿舍管理系統(tǒng)的設計與實現(xiàn)在這里用到了一個顯示 gif 圖片的控件。選擇左面 list 中的一個表后，點擊導出后即可完成，進度條中顯示當前轉換進度程度。首先要在 list 中加載各表名。以便進行選擇轉換。添加表名部分在 load 進行加載，其中的導出與取消按鈕是由 coolbar 制作而成。Form 的 load 事件處理內(nèi)容如下： = amp。 \icon\Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 amp。 data source= amp。 amp。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M Then tempEnd IfLoop = 0On Error GoTo errPathName = amp。 \dbasize = FileLen(PathName)數(shù)據(jù)轉換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。轉換代碼如下：Select Case Case 1 Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc140第四章 程序設計.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = .RefreshEnd With = = 039。開始轉換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學生宿舍管理系統(tǒng)的設計與實現(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。 39。 Set xlApp = Nothing = NothingEnd With(1).Enabled = FalseCase 242第四章 程序設計Unload MeEnd Select 宿舍管理 學生請假 學生請假與違規(guī)在一個宿舍管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。用它們可以隨時記錄請假記錄。①學生請假記錄圖片顯示圖 學生請假效果圖② 界面制作與實現(xiàn) 此界面主要是對學生請假記錄做一個添加。利用它可以把學生的基本的請假資料保存起來。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時候沒有同 Adodc 綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。這樣做在使用的時候有很大的方便之處。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。第二是當進行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進行添加。注意的是，在添加前要確