【正文】 這樣做在使用的時(shí)候有很大的方便之處。開(kāi)始轉(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 Then41學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 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。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M Then tempEnd IfLoop = 0On Error GoTo errPathName = amp。首先要在 list 中加載各表名。 vbNullChar .pTo = strDestinationPath amp。 will replace existing database you want to Contunue, vbYesNo) = vbYes ThenDoRestore , If NoDba = True Then MsgBox Database Restored Click Ok to Exit Program Unload frmRestoreDbaEnd IfElse = Database Restore CanceledEnd If其中 DoRestore 實(shí)現(xiàn)的功能源碼如下所示：DEFSOURCE = PROVIDER=。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊…那個(gè)按鈕開(kāi)始進(jìn)行選擇，實(shí)現(xiàn)方法如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Select backup path)If strTemp Then txtDestination = strTempEnd If數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫(kù)遭到破壞后，可以利用它來(lái)進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù)據(jù)庫(kù)路徑，如下：Dim strTemp As StringstrTemp = 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)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來(lái)更有安全感。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后33學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)完成此操作。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。 amp。 = = Call startree1刪除操作可以刪除掉當(dāng)前樹(shù)型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹(shù)型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi 表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。where 寢室=39。 update qinshi set 寢室=39。sql = select * form qinshi where 宿舍名稱=39。當(dāng)要對(duì)當(dāng)前寢室的所屬宿舍進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的宿舍名稱后填寫(xiě)所要修改的寢室名稱。添加后會(huì)把 Treeview 重新刷新一下。 amp。 amp。其它表的有關(guān)此宿舍的信息還會(huì)存在。在右下角的文本框中可以輸入想要添加的宿舍名稱。因?yàn)樗械脑O(shè)置都在此進(jìn)行。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。上一條與下一條主要代碼如下： 39。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 。工具欄主要是由 coolbar 制作而成。 amp。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。HE0E0E0 = amp。原理主要是在鼠標(biāo) mousemove 事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。圖 主程序流程圖 登錄界面此界面是由 Photoshop 制作而成。運(yùn)行圖如下:圖 衛(wèi)生檢查運(yùn)行圖 宿舍資產(chǎn)主要完成：添加新增物品的功能。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。無(wú)用戶設(shè)置、宿舍設(shè)置及記錄刪除等權(quán)力。表 衛(wèi)生情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 202244 14宿舍 一號(hào)公寓 20寢室 603 10檢查 1 門窗不干凈 40檢查 2 地面不干凈 40檢查 3 不疊被 408第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)檢查 4 桌面不整齊 40檢查 5 陽(yáng)臺(tái)不干凈 40得分 60 4減分 40 4等級(jí) 較差 6備注 無(wú)⑸ 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、宿舍、名稱、數(shù)量、單價(jià)、總價(jià)、用途、備注。E—R 圖圖 E—R 圖信息的數(shù)量越來(lái)越大，數(shù)據(jù)庫(kù)的作用越發(fā)突出,所以數(shù)據(jù)庫(kù)的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個(gè)系統(tǒng)的運(yùn)行情況，是整個(gè)系統(tǒng)的重要組成部分。3學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 經(jīng)濟(jì)上、組織管理上的可行性本單位有自己的微機(jī)室可以使用，不必重新購(gòu)置計(jì)算機(jī)，不需要花費(fèi)大量資金，是一個(gè)節(jié)約人力物力的好辦法。學(xué)生宿舍管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理軟件。使軟件做起來(lái)會(huì)更加得心應(yīng)手。它還擁有面向?qū)ο蟮木幊谭椒ā５沁€是存在一些不足，在有些功能的實(shí)現(xiàn)上還不是十分的理想，這也是本人在時(shí)間和精力上留下的遺憾。作為一個(gè)學(xué)生宿舍的管理軟件，要十分全面的貼近以及適合大學(xué)宿舍的管理方法。隨著電腦的普及與應(yīng)用，現(xiàn)在的管理也需要提升一個(gè)檔次。 violation of discipline,teachers39。這些優(yōu)點(diǎn)能夠極大地提高宿舍管理的效率,也是高等院校的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件?；谶@一點(diǎn)，開(kāi)發(fā)此學(xué)生宿舍管理軟件。它主要包括：宿舍、寢室的配置、住宿人員登記、衛(wèi)生檢查、宿舍資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，可以更快地了解到每個(gè)學(xué)生的住宿情況,使宿舍的管理效率更高，做的更好！關(guān)鍵詞：配置 登記 檢查目錄AbstractWith 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。作者簽名：　　 　 　　 日　 期：　　 　 　　 abstract目 錄緒 論 ......................................................................1第一章系統(tǒng)分析 ............................................................2 開(kāi)發(fā)工具簡(jiǎn)介及系統(tǒng)運(yùn) 行環(huán)境 ...........................................2 VB6 簡(jiǎn)介 ....................................................2 HELP 制作 ...................................................2 開(kāi)發(fā)的必要性 .........................................................3 系統(tǒng)開(kāi)發(fā)的可行性 .....................................................3 技術(shù)上的可行性 ..............................................3 經(jīng)濟(jì)上、組織管理上的可行性 ..................................3 數(shù)據(jù)來(lái)源 .............................................................4 新系統(tǒng)數(shù)據(jù)流程圖 .....................................................4第二章 數(shù)據(jù)庫(kù)設(shè) 計(jì) .........................................................7第三章功能模塊 設(shè)計(jì) ........................................................9 新系統(tǒng)功能結(jié)構(gòu) 圖及運(yùn)行圖 .............................................9 系統(tǒng)設(shè)置 ............................................................10 宿舍管理 ............................................................11 衛(wèi)生檢查 ...........................................................12 宿舍資產(chǎn) .......................................