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