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