【正文】 amp。 DBName = vbDefault = Restore Complete 說明： 本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。 MB. = True End If 51 Erro: Select Case Case 53 39。 窗體初始化部分代碼如下： Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。然后點擊添加即可完成添加操作。 amp。 39。 修改源碼： 公寓名稱 =39。但是在程序方面比較復雜。 公寓名稱 =39。只有正確的對這些設置進行添加修改，才能輸入正確的記錄。添加的時候可以選擇所添加人物的 級別。 系統(tǒng)設置 用戶管理 ①界面效果圖 33 圖 ② 界面制作與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的 操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu表相聯(lián)。 datasource .CommandType = adCmdTable .RecordSource = class .Refresh End With With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。其中的添加按鈕是用來對公寓住宿人員進行添加，修改也是對所住宿人員進行修改，想要進行修改時必須顯示所有記錄時才可以進行。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。H808080 = amp。運行圖如下 : 圖 記錄查看與記錄刪除 主要是對學生請假、學生違規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進行的操作，利用這兩個功能可以對任一記錄進行查看與刪除。在這里可以添加學校所有的公寓、所有班級、每個公寓的所有寢室 ,也可以用此軟件管理一幢公寓。分別是：用戶表、公寓表、班級表、寢室表、衛(wèi)生等級表、學生基本情況表、學生請假情況表、學生 違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。高校固定資產(chǎn)管理系統(tǒng) ，是以高校的管理方式為實例而設計的一種實用型管理 軟件 。 它還擁有面向對象的編程方法。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動態(tài)的調(diào)整界面的風格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。高校是科研的陣地，后勤的 高校固定資產(chǎn)管理系統(tǒng)也應該一改傳統(tǒng)的人工管理，更加信息化，時代化，節(jié)省人力物力，提高效率。由此而產(chǎn)生了本管理軟件―― 高校固定資產(chǎn)管理系統(tǒng) 。界面友好、操作簡單、功能齊全、具有較好的人機接口界面是本系統(tǒng)的最大優(yōu)點。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點，如：效率低。二是來源于網(wǎng)絡上的各種同類軟件，通過這些軟件可以看出一個公寓最低需要哪些管理與設置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進行取其精華，棄其糟粕，從而進行編寫。普通用戶只有瀏覽、及一些簡單的添加操作權力。這里的衛(wèi)生標準一共有五項可以填寫，在每一項里已經(jīng)基本設置了所不合標準的記錄，你可以在下拉列表框中進行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。原理主要是在鼠標mousemove事 件與線的顏色變化組合來實現(xiàn)。前用戶成功登錄后，會在主窗體的狀態(tài)欄中顯示出當前用戶及其用戶類型。 工具欄主要是由 coolbar制作而成。其中第三部分的代碼實現(xiàn)如下： = (級別 ) = (用戶 ) (2).Text = 當前用戶： amp。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh 31 End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 上一條與下一條主要代碼如下： 39。因為所有的設置都在此進行。其它表的有關此公寓的信息還會存在。 amp。當要對當前寢室的所屬公寓進行修改時 ，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。 update qinshi set 寢室 =39。 = = Call startree1 刪除操作可以刪除掉當前樹型顯示中的任何一個子節(jié)點，也就是這個樹型節(jié)點中的寢 室名稱，注意的是，刪除后這個記錄只在 qinshi表中刪除，其相關記錄不會被刪除掉的，如果想刪除，還需要人工操作。在這個界面中主要用到了一個 Sstab控件與一個顯示表中內(nèi)容的 Datagrid 控件。因為在操作中可能會導致數(shù)據(jù)遭 48 到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete 在備份分前先要選擇一個備份路徑，點擊 … 那個按鈕開始進行選擇，實現(xiàn)方法如下： Dim strTemp As String strTemp = fBrowseForFolder(, Select backup path) If strTemp Then txtDestination = strTemp End If 數(shù)據(jù)恢復界面同上，它的功能主要是在當前數(shù)據(jù)庫遭到破壞后，可以利用它來進行數(shù)據(jù)恢復，在數(shù)據(jù)恢復前要選擇所要恢復的數(shù) 據(jù)庫路徑，如下： Dim strTemp As String strTemp = fBrowseForFolder(, Restore From) If strTemp Then txtSource = strTemp dbasize2 = FileLen(txtSource amp。 vbNullChar .pTo = strDestinationPath 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。 amp。 ①界面效果圖 53 圖 效果圖 ②實現(xiàn)方法 在這里用到了一個顯示 gif 圖片的控件。數(shù)據(jù)恢復代碼如下： If MsgBox(Restoring database from location amp。 amp。然后點擊更新就會完成此操作。 amp。 Trim() amp。 39。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出現(xiàn)在寢室名稱里。 39。 在點擊 sstab 各版的時候，要在這時重新生成寢室設置中的樹型結構， 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) 公寓設置 ① 公寓設置效果圖 39 圖 ② 界面制作與實現(xiàn)方法 在這個界面中主要用到了一個 Sstab 控件與一個顯示表中內(nèi)容的Datagrid 控件。普通用戶，只有普通的查看、查詢、備份、添加等權力。設置代碼如下： Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。下面就是設置它 們大小的程序代碼： = = 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事件里要把所用的到的東西都要加載進來，例如所在程序運行時所用到的表，左側 treeview部分樹形顯示的初始化。用這個方法得到數(shù)據(jù)源。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh . End With 對用戶進行判斷 If = Then MsgBox 請輸入用戶名 !, 48, 提示 Exit Sub End If 用戶 =39。HE0E0E0 End Sub 鼠標移動到標簽的時候設置線條的顏色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。在程序中可以按 F1或點擊幫助菜單來顯示此 。 數(shù)據(jù)轉換 利用數(shù)據(jù)轉換將當前數(shù)據(jù)庫中的表轉換成 Excel表格的形式，顯示更為直觀 ， 可 以進行打印等操作。 數(shù)據(jù)結構如下表： 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 姓名 文本 8 班級 文本 10 公寓 文本 20 寢室 文本 10 天數(shù) 文本 10 原因 備注 老師 文本 8 備注 備注 ⑶ 學生違規(guī)情況表主要存放學生違規(guī)情況，字段包括：日期、姓名、班級、公寓、寢室、原因、程度、處罰、備注。 7 系統(tǒng)開發(fā)的可行性 1． 3． 1 技術上的可行性 我們正走進一個信息時代，信息技術將從根本上改變?nèi)祟惿鐣纳a(chǎn)方式和生活方式，各行各業(yè)的業(yè)務管理現(xiàn)在都已經(jīng)相繼使用計算機來處理，可以說用計算機進行信息管理是一個總趨勢。同樣，在 VISUAL BASIC中，用來構成用戶圖形界面的可視化控件，也可視為是一個對象。本軟件的參考資料主要有兩種來源：一是參考本學校公寓的管理結構，管理方法。本系統(tǒng)最大的特點是通用性、簡單操作性，適用于同行業(yè)以及一些同類型的企業(yè)管理。 records and rooming makes the apartment management more efficient and much better. Key word: dispose 、 register 、 check 3 引言 ....................................................................................................... 4 第一章系統(tǒng)分析 ..................................................................................... 5 ........................................