【正文】 Set xlApp = Nothing = Nothing End With (1).Enabled = False Case 2 Unload Me End Select 57 高校固定資產(chǎn)管理系統(tǒng) 學(xué)生請假 學(xué)生請假與違規(guī)在一個 高校固定資產(chǎn)管理系統(tǒng) 中是最常見的問題了，所以在此軟件中加上了這兩項(xiàng)功能。開始轉(zhuǎn)換 Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() Dim xlApp As 55 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 Then 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)) 56 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。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。轉(zhuǎn)換代碼如下： Select Case Case 1 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then temp 54 End If Loop = 0 On Error GoTo err PathName = amp。 data source= amp。 \icon\ Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。添加表名部分在 load 進(jìn)行加載，其中的導(dǎo)出與取消按鈕是由 coolbar 制作而成。 首先要在 list 中加載各表名。 ①界面效果圖 53 圖 效果圖 ②實(shí)現(xiàn)方法 在這里用到了一個顯示 gif 圖片的控件。這實(shí)屬本人精力與能力有限所置。 amp。 vbNullChar .pTo = strDestinationPath amp。 DBName Dim lFileOp As Long Dim lresult As Long Dim lFlags As Long 52 Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String = vbHourglass BackupFolderName = strDestinationPath lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp .wFunc = lFileOp .pFrom = strSourcePath amp。 Set Db = New DEFSOURCE amp。Data Source= DBName = \。 will replace existing database you want to Contunue, vbYesNo) = vbYes Then DoRestore , If NoDba = True Then MsgBox Database Restored Click Ok to Exit Program Unload frmRestoreDba End If Else = Database Restore Canceled End If 其中 DoRestore 實(shí)現(xiàn)的功能源碼如下所示： DEFSOURCE = PROVIDER=。數(shù)據(jù)恢復(fù)代碼如下： If MsgBox(Restoring database from location amp。File Not Found lblSelectedDba = No Backup at this location = False End Select 它主要是查看數(shù)據(jù)庫是否存在，如果所恢復(fù)的數(shù) 據(jù)不存在，則會提示錯誤。 Format((dbasize2 / 1024) / 1024, standard) amp。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete 在備份分前先要選擇一個備份路徑，點(diǎn)擊 … 那個按鈕開始進(jìn)行選擇，實(shí)現(xiàn)方法如下： Dim strTemp As String strTemp = fBrowseForFolder(, Select backup path) If strTemp Then txtDestination = strTemp End If 數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫遭到破壞后，可以利用它來進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù) 據(jù)庫路徑，如下： Dim strTemp As String strTemp = fBrowseForFolder(, Restore From) If strTemp Then txtSource = strTemp dbasize2 = FileLen(txtSource amp。 \Backup amp。 Format(Date, ) lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR 50 lFlags = lFlags Or FOF_FILESONLY With SHFileOp .wFunc = lFileOp .pFrom = strSourcePath amp。 Dobackup 實(shí)現(xiàn)方法代碼如下所示： Dim lFileOp As Long Dim lresult As Long Dim lFlags As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String = vbHourglass BackupFolderName = strDestinationPath MkDir BackupFolderName amp。 \ dbasize = FileLen(PathName) err: Exit Sub 數(shù)據(jù)備份部分在本程序中用到了一個模塊，在模塊中有一個方法，dobackup。 amp。 amp。然后點(diǎn)擊數(shù)據(jù)備份即可。因?yàn)樵诓僮髦锌赡軙?dǎo)致數(shù)據(jù)遭 48 到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。 amp。 39。 amp。刪除操作更為簡單，選擇想要刪除的班級名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。然后點(diǎn)擊更新就會完成此操作。 Datagrid 中會立即刷新顯示更新內(nèi)容。 在右下角的文本框中可以輸入想要添加的班級名稱。在這個界面中主要用到了一個 Sstab控件與一個顯示表中內(nèi)容的 Datagrid 控件。 39。 amp。 39。 amp。 amp。 amp。實(shí)現(xiàn)的部分代碼如下所示： If = Or = Or = 高校固定資產(chǎn)管理系統(tǒng) 系統(tǒng) Then MsgBox 選擇所要刪除的寢室 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除 amp。 = = Call startree1 刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個子節(jié)點(diǎn)，也就是這個樹型節(jié)點(diǎn)中的寢 室名稱，注意的是，刪除后這個記錄只在 qinshi表中刪除，其相關(guān)記錄不會被刪除掉的，如果想刪除，還需要人工操作。 Trim() amp。and 公寓名稱 =39。 Trim() amp。where 寢室 =39。 Trim() amp。,公寓名稱 =39。 amp。 update qinshi set 寢室 =39。 Trim() amp。 and 寢室 =39。 Trim() amp。sql = select * form qinshi where 公寓名稱 =39。 39。 amp。但是這種操作不是常見。當(dāng)要對當(dāng)前寢室的所屬公寓進(jìn)行修改時 ，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。 If = True Then MsgBox 此公寓不存在 , , 提示 Exit Sub 43 End If If = Or = Then MsgBox 請輸入所要添加的寢室及其所屬公寓 , , 提示 Exit Sub End If With Adodc2 . .(0).Value = .(1).Value = . End With = = Call startree1 修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬公寓進(jìn)行修改。 amp。 添加源碼： 公寓名稱 =39。添加后會把Treeview 重新刷新一下。樹中的節(jié)點(diǎn)在點(diǎn)擊后會把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選中的節(jié)點(diǎn)會出現(xiàn)在寢室名稱里。 在添加一個寢室前先要選擇所要添加寢室所在的公寓。用到的控件主要是Ss