【正文】 dCmdTable .RecordSource = yonghu .Refresh . End With 對用戶進行判斷 If = Then MsgBox 請輸入用戶名 !, 48, 提示 Exit Sub End If 用戶 =39。 If = False And = Trim((pass)) Then = (級別 ) 26 = (用戶 ) Unload Me Else = = MsgBox 登錄不成 功 ,請重新登錄 !, 48, 提示 End If 程序主界面 程序主界面為本軟件的顯示的核心部分。 ① 界面效果圖如下： 圖 27 菜單欄的詳見附錄內(nèi)容，這里就不提了。這里只列出了幾個常用的按鈕。用這個方法得到數(shù)據(jù)源。 datasource .CommandType = adCmdTable .RecordSource = users 39。由上圖可以看出， lf為本軟件管理員。 29 (4).Text = Date amp。下面就是設(shè)置它 們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200 = 1500 30 = 1500 = 1500 Y = x = (Y z) / 4 (1).Width = u + x (2).Width = v + x (3).Width = w + x (4).Width = m + x 這個軟件的主要部分都在這里運行、查看，所以在主窗體的 load事件里要把所用的到的東西都要加載進來，例如所在程序運行時所用到的表，左側(cè) treeview部分樹形顯示的初始化。 。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即可。設(shè)置代碼如下： Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。當(dāng)表中記錄移到最前面（ BOF）或最后面（ EOF）時，會把上一條或下一條其中的一個按鈕的 enable屬性設(shè)置為 true。移動記錄 = True If Then = False End If 添加用戶可以添加使用該管理軟件的用戶。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。一經(jīng)刪除即不可以在恢復(fù)。修改記錄即更新表中的某一條記錄。寢室的添加、修改、刪除以及班級的添加、修改和刪除操作。 在點擊 sstab 各版的時候，要在這時重新生成寢室設(shè)置中的樹型結(jié)構(gòu)， Select Case PreviousTab 38 Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱 )) I = I + 1 Loop End If Call startree1 Case 2 Call startree1 End Select End Sub (1) 公寓設(shè)置 ① 公寓設(shè)置效果圖 39 圖 ② 界面制作與實現(xiàn)方法 在這個界面中主要用到了一個 Sstab 控件與一個顯示表中內(nèi)容的Datagrid 控件。 Datagrid 中會立即刷新顯示更新內(nèi)容。刪除操作更為簡單，選擇想要刪除的公寓名稱，點擊刪除，確認(rèn)后完成此操作。 在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對數(shù)據(jù)庫表進行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會給出提示，不存在，添加成功。 39。 39。 39。用到的控件主要是Sstab 與 Treeview。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出現(xiàn)在寢室名稱里。 添加源碼： 公寓名稱 =39。 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)前選中的寢室進行名稱修改與其所屬公寓進行修改。但是這種操作不是常見。 39。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 Trim() amp。 Trim() amp。實現(xiàn)的部分代碼如下所示： If = Or = Or = 高校固定資產(chǎn)管理系統(tǒng) 系統(tǒng) Then MsgBox 選擇所要刪除的寢室 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除 amp。 amp。 39。 39。 在右下角的文本框中可以輸入想要添加的班級名稱。然后點擊更新就會完成此操作。 amp。 amp。然后點擊數(shù)據(jù)備份即可。 amp。 Dobackup 實現(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。 \Backup amp。 Format((dbasize2 / 1024) / 1024, standard) amp。數(shù)據(jù)恢復(fù)代碼如下： If MsgBox(Restoring database from location amp。Data Source= DBName = \。 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。 amp。 ①界面效果圖 53 圖 效果圖 ②實現(xiàn)方法 在這里用到了一個顯示 gif 圖片的控件。添加表名部分在 load 進行加載，其中的導(dǎo)出與取消按鈕是由 coolbar 制作而成。 data source= amp。轉(zhuǎn)換代碼如下： Select Case Case 1 Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 amp。 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) 中是最常見的問題了，所以在此軟件中加上了這兩項功能。開始轉(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。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then