【正文】 ow, Icol 1)). = xlContinuous End With = True 39。 \ 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。 首先要在 list 中加載各表名。 vbNullChar .pTo = strDestinationPath 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=。 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ù)庫遭到破壞后，可以利用它來進(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。 \ dbasize = FileLen(PathName) err: Exit Sub 數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法，dobackup。因?yàn)樵诓僮髦锌赡軙?dǎo)致數(shù)據(jù)遭 48 到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。刪除操作更為簡單，選擇想要?jiǎng)h除的班級名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。在這個(gè)界面中主要用到了一個(gè) Sstab控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。 amp。 = = Call startree1 刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹型節(jié)點(diǎn)中的寢 室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi表中刪除，其相關(guān)記錄不會被刪除掉的，如果想刪除，還需要人工操作。where 寢室 =39。 update qinshi set 寢室 =39。sql = select * form qinshi where 公寓名稱 =39。當(dāng)要對當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí) ，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。添加后會把Treeview 重新刷新一下。 amp。 amp。其它表的有關(guān)此公寓的信息還會存在。 在右下角的文本框中可以輸入想要添加的公寓名稱。因?yàn)樗械脑O(shè)置都在此進(jìn)行。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。 上一條與下一條主要代碼如下： 39。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh 31 End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。其中第三部分的代碼實(shí)現(xiàn)如下： = (級別 ) = (用戶 ) (2).Text = 當(dāng)前用戶： amp。 。 工具欄主要是由 coolbar制作而成。 amp。前用戶成功登錄后，會在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。HE0E0E0 = amp。原理主要是在鼠標(biāo)mousemove事 件與線的顏色變化組合來實(shí)現(xiàn)。運(yùn)行圖如下 : 圖 22 第四章 程序設(shè)計(jì) 主程序流程圖 23 登錄界面 此界面是由 Photoshop制作而成。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。 運(yùn)行圖如下 : 19 圖 運(yùn)行圖 學(xué)生請假 主要是對學(xué)生請假記錄做一個(gè)添加。普通用戶只有瀏覽、及一些簡單的添加操作權(quán)力。其中檢查 1到 5 是為了在沒有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系統(tǒng)的可修改性、可擴(kuò)展性。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。 可以更快地了解到每個(gè)學(xué)生的住宿情況 。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。 它還 支持第三方軟件商為其開發(fā)的可視化控制對象，如本例中就用到了一個(gè)。界面友好、操作簡單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。由此而產(chǎn)生了本管理軟件―― 高校固定資產(chǎn)管理系統(tǒng) 。 軟件從對學(xué)生的分房開始到最后的 高校固定資產(chǎn)管理系統(tǒng) 全部電腦化。高校是科研的陣地，后勤的 高校固定資產(chǎn)管理系統(tǒng)也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率。s apartment . Student Apartment Management System is a utility management system based on the managing mode of many universities and and easyoperating are the greatest features of the system ,which is also applicable for enterprises of the same keepers bear a increasingly heavy burden because of the gradually added number of order to free apartment keepers from the heave work,and make the work more convienent and efficient. The apartment management system is developed. The system puterized all the processes concerning the apartment management which include apartment,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students39。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。 高校固定資產(chǎn)管理系統(tǒng) 目前在功能上，以及操作的簡便 上有很大的改進(jìn)。 它還擁有面向?qū)ο蟮木幊谭椒?。使軟件做起來會更加得心?yīng)手。高校固定資產(chǎn)管理系統(tǒng) ，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理 軟件 。 1． 3． 2 經(jīng)濟(jì)上的可行性 本單位有自己的微機(jī)室可以使用，不必重新購置計(jì)算機(jī)，不需要花費(fèi)大量資金，是一個(gè)節(jié)約人力物力的好辦法。分別是：用戶表、公寓表、班級表、寢室表、衛(wèi)生等級表、學(xué)生基本情況表、學(xué)生請假情況表、學(xué)生 違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。 系統(tǒng)設(shè)置 : 主要完成：用戶管理、公寓設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能 。在這里可以添加學(xué)校所有的公寓、所有班級、每個(gè)公寓的所有寢室 ,也可以用此軟件管理一幢公寓。利用它可以把學(xué)生的基本的違規(guī)資料保存起來。運(yùn)行圖如下 : 圖 記錄查看與記錄刪除 主要是對學(xué)生請假、學(xué)生違規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進(jìn)行的操作，利用這兩個(gè)功能可以對任一記錄進(jìn)行查看與刪除。加上本單位最有特色的建筑，會讓人一 目了然。H808080 = amp。在添加管理人員時(shí)有兩種默認(rèn)級別。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。一切主要操作及顯示都通過這里完成。其中的添加按鈕是用來對公寓住宿人員進(jìn)行添加，修改也是對所住宿人員進(jìn)行修改，想要進(jìn)行修改時(shí)必須顯示所有記錄時(shí)才可以進(jìn)行。 .Refresh End With Set = Adodc1 Call dx Case 13 Unload Me End Select 狀態(tài)欄分四個(gè)部分。 amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = class .Refresh End With With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 系統(tǒng)設(shè)置 用戶管理 ①界面效果圖 33 圖 ② 界面制作與實(shí)現(xiàn)方法 這個(gè)界面總體來說各個(gè)控件比較簡單，但是作為一個(gè)添加刪除管理員的 操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu表相聯(lián)。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh 34 End With = False = False If = 0 Then = False = False = False = False End If = 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。添加的時(shí)候可以選擇所添加人物的 級別。所以在操作前要想好。只有正確的對這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。要修改某條記錄時(shí)，要先對所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時(shí)即可輸入要修改的名字。 公寓名稱 =39。 where 公寓名稱 =39。但是在程序方面比較復(fù)雜。 amp。 修改源碼： 公寓名稱 =39。 39。 39。 39。 amp。 and 寢室 =39。然后點(diǎn)擊添加即可完成添加操作。 amp。 窗體初始化部分代碼如下： Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。 \Backup amp。 MB. = True End If 51 Erro: Select Case Case 53 39。Jet OLEDB:Database Password=matrixse。 DBName = vbDefault = Restore Complete 說明： 本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進(jìn)行修改后得到此成型作品，從功能上來講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。 Form 的 load 事件處理內(nèi)容如下： = amp。 amp。用它