【導(dǎo)讀】辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。高校是科研的陣地，后勤的高校固定資產(chǎn)管理系統(tǒng)也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率?；谶@一點(diǎn)，開發(fā)此高校固定資產(chǎn)管理系統(tǒng)。本系統(tǒng)最大的特點(diǎn)是通用性、簡(jiǎn)單操作性，適用于同行業(yè)以及一些同類。隨著學(xué)校寄宿人員的增多，高校固定資產(chǎn)管理系統(tǒng)人員的負(fù)擔(dān)越

　　

【正文】 sult As Long Dim lFlags As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String = vbHourglass BackupFolderName = strDestinationPath MkDir BackupFolderName amp。 \Backup amp。 Format(Date, ) 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。 vbNullChar .pTo = strDestinationPath amp。 \Backup amp。 Format(Date, ) amp。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete 在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊 … 那個(gè)按鈕開始進(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ù)庫(kù)遭到破壞后，可以利用它來進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù) 據(jù)庫(kù)路徑，如下： Dim strTemp As String strTemp = 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. = True End If Erro: Select Case Case 53 39。File Not Found lblSelectedDba = No Backup at this location = False End Select 它主要是查看數(shù)據(jù)庫(kù)是否存在，如果所恢復(fù)的數(shù) 據(jù)不存在，則會(huì)提示錯(cuò)誤。 數(shù)據(jù)恢復(fù)也用到了一個(gè)方法，在模塊中也已經(jīng)定義了該方法 DoRestore。數(shù)據(jù)恢復(fù)代碼如下： If MsgBox(Restoring database from location amp。 txtSource amp。 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=。Persist Security Info=False。Data Source= DBName = \。Jet OLEDB:Database Password=matrixse。 Set Db = New DEFSOURCE amp。 amp。 DBName 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 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。 \ amp。 vbNullChar .pTo = strDestinationPath amp。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) Set Db = New DEFSOURCE amp。 amp。 DBName = vbDefault = Restore Complete 說明： 本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過測(cè)試已經(jīng)沒有問題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。這實(shí)屬本人精力與能力有限所置。 數(shù)據(jù)轉(zhuǎn)換 這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成 excel形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。 ①界面效果圖 圖 效果圖 ②實(shí)現(xiàn)方法 在這里用到了一個(gè)顯示 gif 圖片的控件。選擇左面 list 中的一個(gè)表后，點(diǎn)擊導(dǎo)出后即可完成，進(jìn)度條中 顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。 首先要在 list 中加載各表名。以便進(jìn)行選擇轉(zhuǎn)換。添加表名部分在 load 進(jìn)行加載，其中的導(dǎo)出與取消按鈕是由 coolbar 制作而成。 Form 的 load 事件處理內(nèi)容如下： = amp。 \icon\ Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。 amp。 data source= amp。 amp。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then temp End If Loop = 0 On Error GoTo err PathName = amp。 \ dbasize = FileLen(PathName) 數(shù)據(jù)轉(zhuǎn)換成 excel用到了一個(gè)部件，在引用中用到了 Microsoft Object library。轉(zhuǎn)換代碼如下： Select Case Case 1 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = .Refresh End With = = 0 39。開始轉(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 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)) 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 = Nothing End With (1).Enabled = False Case 2 Unload Me End Select 高校固定資產(chǎn)管理系統(tǒng) 學(xué)生請(qǐng)假 學(xué)生請(qǐng)假與違規(guī)在一個(gè)高校固定資產(chǎn)管理系統(tǒng)中是最常見的問題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。 ①學(xué)生請(qǐng)假記 錄圖片顯示 圖 ② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時(shí)候沒有同Adodc 綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏?一系列的操作。第二是當(dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會(huì)提示輸入詳細(xì)信息。添加主要代碼如下： If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入詳細(xì)信息！ , ,