【正文】 開始轉(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。 \ 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 在備份分前先要選擇一個備份路徑，點(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。 \ dbasize = FileLen(PathName) err: Exit Sub 數(shù)據(jù)備份部分在本程序中用到了一個模塊，在模塊中有一個方法，dobackup。因?yàn)樵诓僮髦锌赡軙?dǎo)致數(shù)據(jù)遭 48 到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。刪除操作更為簡單，選擇想要刪除的班級名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。在這個界面中主要用到了一個 Sstab控件與 一個顯示表中內(nèi)容的 Datagrid 控件。 amp。 = = Call startree1 刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個子節(jié)點(diǎn)，也就是這個樹型節(jié)點(diǎn)中的寢 室名稱，注意的是，刪除后這個記錄只在 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í)你可以選擇一個且必須選擇一個。 上一條與下一條主要代碼如下： 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 圖 學(xué)生請假 主要是對學(xué)生請假記錄做一個添加。普通用戶只有瀏覽、及一些簡單的添加操作權(quán)力。其中檢查 1到 5 是為了在沒有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系統(tǒng)的可修改性、可擴(kuò)展性。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。 可以更快地了解到每個學(xué)生的住宿情況 。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。 它還 支持第三方軟件商為其開發(fā)的可視化控制對象，如本例中就用到 6 了一個。界面友好、操作簡單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。 學(xué)生公寓管理軟件是用 Microsoft Visual Basic 編寫完成。它主要包括：公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對學(xué)生住宿情況查詢，可以更快地了解到每個學(xué)生的住宿情況 ,使公寓的管理效率更高，做的更好！ 關(guān)鍵字：配置、登記、檢查 2 Abstract With the popularization and use of the puter, present management has been promoted much, more and more jobs have been done by puter. It namely changes the original artificial record management mode into puter39。中文摘要 隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個檔次，漸漸實(shí)現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。s integrating and managing. The university is the position of scientific research, the apartment management should change traditional managing artificially too, for the efficiency. So , develop the management software of student39。由于Visual Basic率先采用了可視化（ VISUAL）的程序設(shè)計(jì)方法。 本軟件主要包括以下方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。 開發(fā)工具簡介及系統(tǒng)運(yùn)行環(huán)境 1． 1． 1 VB6 簡介 本軟件的開發(fā)工具為 VISUAL BASIC，作為一種開發(fā)語言， VISUAL BASIC率先采用了可視化（ VISUAL）的程序設(shè)計(jì)方法。 這些可視化控件對應(yīng)的文件擴(kuò)展名這 OCX。而且時(shí)間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、維護(hù)都帶來 了不少的困難。開發(fā)一個學(xué)生公寓管理系統(tǒng)可以達(dá)到事半功倍的效果。 9 新系統(tǒng)數(shù)據(jù)流程圖 圖 數(shù)據(jù)流程圖 10 數(shù)據(jù)字典 圖 數(shù)據(jù)元素 注：其它數(shù)據(jù)元素略 圖 數(shù)據(jù)流 注：其它數(shù)據(jù)流略 11 圖 加工 注：其它加工略 注：其它數(shù)據(jù)存儲略 12 第二章 數(shù)據(jù)庫設(shè)計(jì) E— R 圖 圖 E— R圖 信息的數(shù)量越來越大，數(shù)據(jù)庫的作用越發(fā)突 出 ,所以數(shù)據(jù)庫的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個系統(tǒng)的運(yùn)行情況，是整個系統(tǒng)的重要組成部分。 數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 公寓 文本 20 寢室 文本 10 檢查 1 文本 40 檢查 2 文本 40 檢查 3 文本 40 檢查 4 文本 40 檢查 5 文本 40 得分 文本 4 減分 文本 4 等級 文本 6 備注 備注