【正文】 主要完成：學(xué)生請假、學(xué)生違規(guī)、床位設(shè)置的功能。管理員擁有所有權(quán)力，對整個系統(tǒng)的操作。表 學(xué)生違規(guī)情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長度日期 202278 14姓名 劉長河 8班級 信息系統(tǒng)與信息管理10宿舍 201 20寢室 201 10原因 打架斗毆程度 嚴(yán)重處罰 留校察看備注 無8⑷ 衛(wèi)生情況表主要存放寢室衛(wèi)生情況，字段包括：日期、宿舍、寢室、檢查 1 到 得分、減分、等級、備注。 新系統(tǒng)數(shù)據(jù)流程圖圖 數(shù)據(jù)流程圖4第一章系統(tǒng)分析數(shù)據(jù)字典圖 數(shù)據(jù)元素 注：其它數(shù)據(jù)元素略圖 數(shù)據(jù)流注：其它數(shù)據(jù)流略5學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)圖 加工注：其它加工略圖 數(shù)據(jù)存儲注：其它數(shù)據(jù)存儲略6第二章 數(shù)據(jù)庫設(shè)計第二章 數(shù)據(jù)庫設(shè)計目前，可應(yīng)用的數(shù)據(jù)庫開發(fā)工具有很多，Oracle 是面向網(wǎng)絡(luò)計算的數(shù)據(jù)庫，適合開發(fā)大型網(wǎng)絡(luò)應(yīng)用軟件；Access 和 Visual Foxpro 系統(tǒng)適合開發(fā)小型數(shù)據(jù)庫應(yīng)用軟件。開發(fā)一個學(xué)生宿舍管理系統(tǒng)可以達到事半功倍的效果。而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、維護都帶來了不少的困難。這些可視化控件對應(yīng)的文件擴展名這 OCX。系統(tǒng)在實現(xiàn)上應(yīng)具備以下功能：系統(tǒng)用戶的登錄、數(shù)據(jù)的添加功能、數(shù)據(jù)的刪除功能、數(shù)據(jù)的修改功能、數(shù)據(jù)的查詢功能、報表的輸出功能、學(xué)生財物進出樓登記功能 開發(fā)工具簡介及系統(tǒng)運行環(huán)境 VB6 簡介 本軟件的開發(fā)工具為 VISUAL BASIC，作為一種開發(fā)語言， VISUAL BASIC 率先采用了可視化（VISUAL）的程序設(shè)計方法。學(xué)生宿舍管理軟件目前版本為 ，為一個測試版本。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。目前仍然存在有學(xué)校停留在宿舍管理部門人員手工記錄數(shù)據(jù)的階段，手工記錄對于規(guī)模小的學(xué)校來說勉強可以接受；但對于學(xué)生信息量比較龐大，需要記錄存檔的數(shù)據(jù)比較多的高校來說，人工記錄是相當(dāng)麻煩的,而且當(dāng)查找某條記錄時，由于數(shù)據(jù)量龐大，只能依靠人工去一條一條地查找，這樣不但麻煩而且浪費許多時間，工作效率比較低。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。宿舍,是大學(xué)生在高校校園里一個重要的學(xué)習(xí)、生活、交往的空間環(huán)境,大學(xué)生大約有 2/ 3 的時間是在宿舍環(huán)境里渡過的。作為計算機應(yīng)用的一部分,使用計算機對宿舍信息進行管理,具有著手工管理所無法比擬的優(yōu)點 .例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。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。在一些發(fā)達國家一些類似的宿舍管理系統(tǒng)已經(jīng)應(yīng)用于后勤管理，而且已經(jīng)相當(dāng)普及。做起來方便，使用起來更為快捷。它目前在功能上，以及操作的簡便上有很大的改進。利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀、動態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。只要擁有控件的 OCX 文件，就可將其加入到 VB系統(tǒng)中，從而大大增強 VB 的編程實力。隨著科學(xué)技術(shù)的不斷提高，計算機科學(xué)日漸成熟，其強大的功能已為人們深刻認(rèn)識，它已進入人類社會的各個領(lǐng)域并發(fā)揮越來越重要的作用。隨著數(shù)據(jù)庫管理系統(tǒng)的普及以及可視化編程軟件的出現(xiàn)，使數(shù)據(jù)庫管理信息系統(tǒng)的開發(fā)變得更為簡單，因此開發(fā)一個學(xué)生宿舍管理系統(tǒng)是完全可行的。Access 數(shù)據(jù)庫功能比較齊全，數(shù)據(jù)的備份、拷貝都很方便，而且程序開發(fā)是不需要額外安裝其他的數(shù)據(jù)庫管理軟件。其中檢查 1 到 5 是為了在沒有使用者想輸入的記錄的情況下自己輸入而設(shè)計的，保證了系統(tǒng)的可修改性、可擴展性。普通用戶只有瀏覽、及一些簡單的添加操作權(quán)力。運行圖如下:11學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)圖 宿舍管理運行圖1 學(xué)生請假主要是對學(xué)生請假記錄做一個添加。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項可以填寫，在每一項里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。運行圖如下:圖 幫助運行圖13學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)第四章 程序設(shè)計作為宿舍管理是從新生入學(xué)開始的，包括了新生籍貫信息、性別、專業(yè)、班級、學(xué)號等學(xué)生個人信息錄入整個數(shù)據(jù)庫中，再與宿舍信息的狀況結(jié)合，安排新生的住宿情況，再將整個信息作為統(tǒng)一數(shù)據(jù)，對學(xué)生的在校情況進行管理?？傮w實現(xiàn)立體的感覺。HE0E0E0 = amp。沒有刪除等操作功能。 amp。左側(cè)操作欄和右側(cè)顯示欄會在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。 下面是整個工具欄運行時代碼：Select Case Case 1 1Case 3 1Case 5On Error GoTo next2Dim s As AdodcSet s = If = users Then 118第四章 程序設(shè)計End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = Case 9 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。第四部分為日期與時間的顯示。在這里幾乎用到了所有的表，如下所示：provider = provider=datasource = data source= amp。 amp。 。 datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider amp。 amp。即不可以前查看或向后查看。沒有對記錄刪除等權(quán)力。編輯操作主要代碼如下： = False = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = FalseEnd If26第四章 程序設(shè)計 宿舍設(shè)置宿舍設(shè)置可以說是本程序中一關(guān)鍵部分。以及起到美觀作用的 Frame 控件。但是刪除后不會影響其它表中的數(shù)據(jù)。If = False ThenMsgBox 此宿舍已存在, , 提示Exit SubEnd If = If = Then28第四章 程序設(shè)計MsgBox 輸入所要添加宿舍的名稱, , 提示Exit SubEnd If添加：(宿舍名稱) = = gongyu = Set = Adodc1修改宿舍名稱：If = ThenMsgBox 選擇要修改的宿舍, , 提示Exit SubEnd IfIf = 修改 Then = = 輸入想要修改的宿舍名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的宿舍名稱 (宿舍名稱) = update qinshi set 宿舍名稱=39。 = 修改End IfSet = Adodc129學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)Set = Adodc5刪除宿舍名稱If = ThenMsgBox 選擇所要刪除宿舍的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除宿舍名稱為 amp。你也可以自己進行添寫，確認(rèn)宿舍后即可添加完成了。當(dāng)要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。If = True Then31學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)MsgBox 此宿舍不存在 , , 提示Exit SubEnd IfDim sql As StringOn Error Resume NextIf = Or = ThenMsgBox 請在下面選擇所要修改的寢室, , 提示Exit SubEnd If39。 39。 39。 39。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from qinshi where 宿舍名稱=39。End If = = Call startree1在 treeview 點擊的時候，上面的文本框中會顯示相應(yīng)的記錄，這主要是對 treeview進行了設(shè)置，代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As )On Error Resume Next = = = = End Sub(3)班級設(shè)置①班級設(shè)置效果圖圖 班級設(shè)置②界面制作與實現(xiàn)方法此界面制作與宿舍設(shè)置基本一致。Datagrid 也會即時更新其內(nèi)容。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc3 End Sub 數(shù)據(jù)備份數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫表進行全面的備份，以備以后使用。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M ThenEnd IfLoopOn Error GoTo errPathName = amp。 Format(Date, ) amp。 txtSource amp。 \ amp。選擇左面 list 中的一個表后，點擊導(dǎo)出后即可完成，進度條中顯示當(dāng)前轉(zhuǎn)換進度程度。 amp。 datasource.CommandType = adCmdTable.RecordSource = .RefreshEnd With = = 039。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時候沒有同 Adodc 綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。第一是窗體在初始化時不會顯示任何記錄，不用設(shè)置文本框為空等一系列的操作。 39。 \dbasize = FileLen(PathName)數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。以便進行選擇轉(zhuǎn)換。 vbNullChar .fFlags = lFlagsEnd Withlresult