【正文】 ror GoTo errPathName = amp。 \dbasize = FileLen(PathName)err:Exit Sub數(shù)據備份部分在本程序中用到了一個模塊，在模塊中有一個方法，dobackup。點擊備份按鈕后開始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！, , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中DoBackup為模塊中已定義的方法，在這里進行調用。Dobackup實現(xiàn)方法代碼如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As String = vbHourglassBackupFolderName = 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ù)據恢復界面同上，它的功能主要是在當前數(shù)據庫遭到破壞后，可以利用它來進行數(shù)據恢復，在數(shù)據恢復前要選擇所要恢復的數(shù)據庫路徑，如下：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 IfErro: Select Case Case 53 39。File Not Found lblSelectedDba = No Backup at this location = False End Select它主要是查看數(shù)據庫是否存在，如果所恢復的數(shù)據不存在，則會提示錯誤。數(shù)據恢復也用到了一個方法，在模塊中也已經定義了該方法DoRestore。數(shù)據恢復代碼如下：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 = strDestinationPathlFileOp = 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說明：本程序中此部分內容參考了網上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經實現(xiàn)了它所要完成的工作，經過測試已經沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。這實屬本人精力與能力有限所置。四、 學生宿舍管理 學生請假 學生請假與違規(guī)在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。用它們可以隨時記錄請假記錄。①學生請假記錄圖片顯示② 界面制作與實現(xiàn) 此界面主要是對學生請假記錄做一個添加。利用它可以把學生的基本的請假資料保存起來。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。這里的添加操作用的是Adodc控件，所有的文本框在初始的時候沒有同Adodc綁定，而是在代碼中與數(shù)據庫中表的字段進行的綁定，然后進行添加操作。這樣做在使用的時候有很大的方便之處。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。第二是當進行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進行添加。注意的是，在添加前要確定所有的文本框都要進行詳細填寫，否則會提示輸入詳細信息。添加主要代碼如下：If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入詳細信息！, , 系統(tǒng)提示ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3)