【正文】 = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。Persist Security Info=False。 \) lblSelectedDba = Selected Backup Database is : amp。點(diǎn)擊備份按鈕后開(kāi)始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！ , , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中 DoBackup 為模塊中已定義的方法，在這里進(jìn)行調(diào)用。①數(shù)據(jù)備份效果圖圖 數(shù)據(jù)備份效果圖② 功能實(shí)現(xiàn) 界面制作相對(duì)程序來(lái)說(shuō)比較簡(jiǎn)單，用到的是 coolbar 控件，點(diǎn)擊按鈕可以選擇備份路徑。添加班級(jí)源碼： class=39。以及起到美觀作用的 Frame 控件。 32第四章 程序設(shè)計(jì)Trim() amp。實(shí)現(xiàn)的方法主要是對(duì) qinshi 表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹(shù)過(guò)程，把當(dāng)前寢室設(shè)置中的樹(shù)型結(jié)構(gòu)重新生成，更新記錄。 amp。 amp。 amp。點(diǎn)擊修改后完成此操作。以顯示更新后的記錄。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1(2) 寢室設(shè)置①寢室設(shè)置效果圖圖 寢室設(shè)置②界面制作與實(shí)現(xiàn)方法此界面實(shí)現(xiàn)相對(duì)比宿舍設(shè)置來(lái)說(shuō)相對(duì)復(fù)雜一些。 amp。在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫(kù)已連接。然后點(diǎn)擊添加即可完成添加操作。包括宿舍添加、修改、刪除。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：If = 添加 Then = False = False = False = 確定 = 取消 = True24第四章 程序設(shè)計(jì) = True = True = True = True = ElseIf = ThenMsgBox 用戶名不能為空！, 48, 提示ElseIf = ThenMsgBox 密碼不能為空！, 48, 提示ElseIf ThenMsgBox 密碼兩次需一致！, 48, 提示ElseIf = ThenMsgBox 請(qǐng)選擇所建用戶類型！, 48, 提示Else = True = True = True = True = 編輯 = 添加 = False = False = False = False = False = False = False = FalseEnd If刪除操作可以把當(dāng)前記錄刪除掉。移動(dòng)記錄 = TrueIf Then = FalseEnd If 39。 。 amp。 datasourceEnd WithWith Adodc621學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).Mode = adModeReadWrite.ConnectionString = provider amp。 。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 (3).Text = 用戶模式： amp。 amp。由它制做的工具欄的顯示效果會(huì)更有立體感一些。 39。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫(kù)Dim provider As StringDim datasource As String15第四章 程序設(shè)計(jì)provider = provider=datasource = data source= amp。H808080 = amp。主要代碼如下： 在窗體中的鼠標(biāo)移動(dòng)過(guò)程中，以及在窗體初始化的時(shí)候，要把添加的線的.Visible 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時(shí)候在改變其顏色即可。在做這個(gè)登錄面的時(shí)候想了很多，最后選擇了這種，感覺(jué)它看起來(lái)干凈，整齊?？梢詫?duì)宿舍資產(chǎn)的收入或其它物品的入庫(kù)進(jìn)行記錄。2 學(xué)生違規(guī)主要是對(duì)學(xué)生違規(guī)記錄做一個(gè)添加。（2）宿舍設(shè)置分為三個(gè)主要的操作：宿舍設(shè)置、寢室設(shè)置、班級(jí)設(shè)置。表 資產(chǎn)表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度日期 14宿舍 一號(hào)公寓 20名稱 書桌 20數(shù)量 3 4單價(jià) 50 10總價(jià) 150 10用途 供學(xué)生使用備注 無(wú)9學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)第三章功能模塊設(shè)計(jì) 新系統(tǒng)功能結(jié)構(gòu)圖及運(yùn)行圖（1） 、系統(tǒng)功能結(jié)構(gòu)圖：圖 系統(tǒng)功能結(jié)構(gòu)圖（2） 、系統(tǒng)功能結(jié)構(gòu)圖運(yùn)行圖：圖 系統(tǒng)功能結(jié)構(gòu)運(yùn)行圖10第三章 功能模塊設(shè)計(jì)經(jīng)過(guò)系統(tǒng)分析，確定了本軟件主要包括以下方面：系統(tǒng)設(shè)置、宿舍管理、衛(wèi)生檢查、宿舍資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。本系統(tǒng)數(shù)據(jù)庫(kù)為 ，在數(shù)據(jù)庫(kù)中包括十個(gè)表。本單位的領(lǐng)導(dǎo)干部具有較高的素質(zhì)，它們對(duì)管理現(xiàn)代化有較高的認(rèn)識(shí)水平，并且有各級(jí)領(lǐng)導(dǎo)的大力支持和重視。本系統(tǒng)最大的特點(diǎn)是通用性、簡(jiǎn)單操作性。2第一章系統(tǒng)分析 HELP 制作制作 help 文檔需要一個(gè)專業(yè)制作軟件，本人使用的是破解版的 QuickCHM，此軟件無(wú)論在功能上還在是操作上用起來(lái)都是很方便。面向?qū)ο蟮某绦蛟O(shè)計(jì)是伴隨 WIDNOWS 圖形界面的誕生而產(chǎn)生的一種新的程序設(shè)計(jì)思想，與傳統(tǒng)程序設(shè)計(jì)有著較大的區(qū)別，VISUAL BASIC采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。但是相信這些會(huì)在以后的版本中得到完善，使這個(gè)軟件成為一個(gè)功能上最全，使用上最簡(jiǎn)捷方便的管理軟件。本軟件的參考資料主要有兩種來(lái)源：一是參考本學(xué)校宿舍的管理結(jié)構(gòu)，管理方法。即從原來(lái)的手工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。 records and rooming makes the apartment management more efficient and much better.Key word: dispose register chec目錄畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說(shuō)明原創(chuàng)性聲明本人鄭重承諾：所呈交的畢業(yè)設(shè)計(jì)（論文），是我個(gè)人在指導(dǎo)教師的指導(dǎo)下進(jìn)行的研究工作及取得的成果。根據(jù)各個(gè)組件的功能及關(guān)系,也為了加強(qiáng)對(duì)文件管理 ,用項(xiàng)目管理器對(duì)所有組件包含在一個(gè)項(xiàng)目文件中。高校是科研的陣地，后勤的宿舍管理也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率。軟件從對(duì)學(xué)生的分房開(kāi)始到最后的宿舍管理全部電腦化。作 者 簽 名：　　 　 　　 日　 期：　　 　 　　 指導(dǎo)教師簽名：　　 　 　　 日 　　期：　　 　 　　 使用授權(quán)說(shuō)明本人完全了解 大學(xué)關(guān)于收集、保存、使用畢業(yè)設(shè)計(jì)（論文）的規(guī)定，即：按照學(xué)校要求提交畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)校可以采用影印、縮印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)?？梢怨颊撐牡牟糠只蛉?jī)?nèi)容。學(xué)生宿舍管理軟件是用 Microsoft Visual Basic 編寫完成。二是來(lái)源于網(wǎng)絡(luò)上的各種同類軟件，通過(guò)這些軟件可以看出一個(gè)宿舍最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來(lái)十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。界面友好、操作簡(jiǎn)單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。不同的對(duì)象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個(gè)命令按鈕，一個(gè)用來(lái)實(shí)現(xiàn)數(shù)據(jù)的統(tǒng)計(jì)計(jì)算，另一個(gè)用來(lái)實(shí)現(xiàn)數(shù)據(jù)的打印，這兩個(gè)按鈕就可視為是兩個(gè)不同的對(duì)象，為了實(shí)現(xiàn)這兩個(gè)對(duì)象各自不同的功能，接下來(lái)就應(yīng)該分別針對(duì)這兩個(gè)對(duì)象編寫程序代碼，這種編程的思想和方法即為所謂的“面向?qū)ο蟮某绦蛟O(shè)計(jì)” 。 開(kāi)發(fā)的必要性信息資源已成為各個(gè)部門的重要財(cái)富和資源，建立一個(gè)滿足各級(jí)部門信息處理需的信息系統(tǒng)，也一個(gè)企業(yè)或組織生存越來(lái)越重要的信息資源。學(xué)生宿舍管理軟件主要是對(duì)宿舍、寢室的配置、住宿人員登記、衛(wèi)生檢查、宿舍資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，修改，更新等。本軟件的參考資料主要有兩種來(lái)源：一是參考本學(xué)校宿舍的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說(shuō)這些資料來(lái)源于普通的生活，比較真實(shí)一些。數(shù)據(jù)結(jié)構(gòu)如下表：表 學(xué)生基本情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度姓名 劉長(zhǎng)河 8性別 男 2學(xué)號(hào) 5100000000 10班級(jí) 信息系統(tǒng)與信息管理10宿舍 一號(hào)公寓 20寢室 603 107學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)入學(xué)時(shí)間 14年制 4 年 8個(gè)人電話 1399999999 15備注 無(wú)⑵ 學(xué)生請(qǐng)假情況表主要存放學(xué)生請(qǐng)假情況，字段包括：日期、姓名、班級(jí)、宿舍、寢室、天數(shù)、原因、老師、備注。添加人員可以分為兩類：普通用戶、管理員。（3）數(shù)據(jù)備份這是一個(gè)數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時(shí)的備份當(dāng)前的數(shù)據(jù)庫(kù)以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進(jìn)行恢復(fù)。還可以通過(guò)詳細(xì)查看，查看到某個(gè)宿舍某個(gè)寢室住宿人員的人數(shù)，以及具體的住宿人員的名字。運(yùn)行圖如下:圖 值班記錄運(yùn)行圖 幫助制作對(duì)于一個(gè)稍顯正規(guī)的軟件來(lái)說(shuō)幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。第四章 程序設(shè)計(jì) 登錄圖片顯示圖 登錄界面 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。H808080 = amp。管理員、普通用戶。 。整個(gè)界面主要由五部分組成。在這里值得一提的是刪除 DataGrid 的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1 的數(shù)據(jù)源，或者是其它 ado 控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫(kù)表，也有可能是經(jīng)過(guò)一個(gè)查詢后得到的記錄。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。 Time39。 datasource20第四章 程序設(shè)計(jì).CommandType = adCmdTable.RecordSource = users 39。 。 datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider amp。各個(gè)控件也與數(shù)據(jù)庫(kù)中表的字段綁定。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。刪除操作部分代碼：If = 1 Then = False25學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)End IfIf (MsgBox(你真的想刪除當(dāng)前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd If編輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以修改其用戶名與密碼。這里主要涉及到的問(wèn)題是datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。然后點(diǎn)擊更新就會(huì)完成此操作。 amp。 amp。在添加一個(gè)寢室前先要選擇所要添加寢室所在的宿舍。 amp。 amp。 and 寢室=39。,宿舍名稱 =39。and 宿舍名稱=39。 amp。 amp。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。 39。 amp。 Format(Date, )lFileOp = FO_COPYlFlags = lFlags And Not FOF_SILENTlFlags = lFlags Or FOF_NOCONFIRMATIONlFlags = lFlags Or FOF_NOCONFIRMMKDIRlFlags = lFlags Or FOF_FILESONLYWith SHFileOp .wFunc = lFileOp .pFrom = strSourcePath amp。File Not Found lblSelectedDba = No Backup at this location = False End Select它主要是查看數(shù)據(jù)庫(kù)是否存在，如果所恢復(fù)的數(shù)據(jù)不存在，則會(huì)提示錯(cuò)誤。Set Db = New DEFSOURCE amp。這實(shí)屬本人精力與能力有限所置。 \icon\Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 \With Adodc140第四章 程序設(shè)計(jì).Mode = adModeReadWrite.ConnectionString = provider amp。①學(xué)生請(qǐng)假記錄圖片顯示圖 學(xué)生請(qǐng)假效果圖② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做