第一篇：學(xué)生公寓管理系統(tǒng)分析及設(shè)計(jì)論文

摘要：隨著計(jì)算機(jī)技術(shù)和網(wǎng)絡(luò)技術(shù)的廣泛應(yīng)用，使用計(jì)算機(jī)和網(wǎng)絡(luò)來管理學(xué)生公寓，具有管理方便、清晰，高效、安全的特點(diǎn)，能夠有效的保證學(xué)校的公寓高效、安全的進(jìn)行管理。本系統(tǒng)具有界面友好，操作簡便的特性。

關(guān)鍵詞：學(xué)生公寓；界面模塊

1系統(tǒng)需求分析

一般的公寓管理系統(tǒng)應(yīng)該有三級(jí)用戶管理權(quán)限，其中包含公寓管理員，學(xué)生及系統(tǒng)管理員。因?yàn)楣W(xué)生管理系統(tǒng)的主要任務(wù)是管理住在公寓中學(xué)生，就應(yīng)該包含學(xué)生及公寓兩方面的信息；學(xué)生的信息不僅包含學(xué)生的個(gè)人信息，入住信息，遷出信息，還應(yīng)該包含公寓訪客的信息等。公寓的信息應(yīng)包含公寓的寢室信息，報(bào)修信息，寢室的水電費(fèi)等。并且公寓管理系統(tǒng)應(yīng)該有一般系統(tǒng)應(yīng)該有的用戶管理，權(quán)限管理，密碼管理等功能。

2公寓管理系統(tǒng)的功能設(shè)計(jì)

2.1總體設(shè)計(jì)

學(xué)生公寓管理系統(tǒng)主要實(shí)現(xiàn)了后勤部門對(duì)學(xué)校宿舍的管理功能。管理系統(tǒng)分為用戶管理模塊、公寓信息管理和學(xué)生信息模塊三個(gè)部分。

2.2公寓管理模塊實(shí)現(xiàn)的功能

1）公寓入住學(xué)生管理模塊及報(bào)修管理模塊。公寓入住學(xué)生管理模塊，公寓管理員可以根據(jù)入住學(xué)生的學(xué)號(hào)、姓名、班級(jí)等信息進(jìn)行對(duì)入住學(xué)生進(jìn)行信息查詢。報(bào)修管理模塊可以添加對(duì)需要保修的樓號(hào)、寢室號(hào)、報(bào)修項(xiàng)目、電話號(hào)碼、報(bào)修時(shí)間及處理結(jié)果，和保修當(dāng)前的狀態(tài)進(jìn)行查詢和信息的維護(hù)。2）寢室信息管理模塊。寢室信息管理查詢功能可以根據(jù)樓號(hào)、寢室編號(hào)進(jìn)行查詢；同時(shí)可以對(duì)其信息進(jìn)行修改。3）訪客信息管理模塊。訪客登記信息包含學(xué)生學(xué)號(hào)、拜訪人、關(guān)系、來訪電話號(hào)碼和來訪時(shí)間信息；根據(jù)學(xué)生學(xué)號(hào)來查詢?cè)L客記錄；可以查看正在訪客的信息，并可以對(duì)其進(jìn)行訪客結(jié)束。4）學(xué)生入住遷出信息模塊。學(xué)生入住添加功能的添加信息包含學(xué)號(hào)、寢室編號(hào)、床位編號(hào)、入住時(shí)間信息；根據(jù)學(xué)生學(xué)號(hào)、寢室編號(hào)來查詢?nèi)胱⌒畔ⅲ豢梢詫?duì)查詢出來的學(xué)生信息進(jìn)行批量遷出管理；學(xué)生遷出信息，可以對(duì)查詢出來的學(xué)生信息進(jìn)行批量刪除管理。5）個(gè)人信息管理模塊可以對(duì)操作人員本身的個(gè)人信息包括登陸密碼，登陸狀態(tài)等進(jìn)行編輯和查詢。

2.3公寓管理系統(tǒng)系統(tǒng)管理模塊實(shí)現(xiàn)的功能

1）對(duì)系統(tǒng)應(yīng)用的學(xué)生信息及公寓信息的功能進(jìn)行維護(hù)和修改。對(duì)學(xué)生信息管理模塊的維護(hù)修改：添加功能：比如添加學(xué)生信息（包含學(xué)號(hào)，姓名，所在年級(jí)，聯(lián)系電話，聯(lián)系地址，密碼，所在樓號(hào)，寢室號(hào)、備注等）；修改功能：修改入住學(xué)生的信息。查詢功能：根據(jù)入住學(xué)生的姓名，學(xué)號(hào)，班級(jí)等信息查詢學(xué)生的寢室，入住狀態(tài)，水電費(fèi)等信息。刪除功能：根據(jù)學(xué)號(hào)對(duì)學(xué)生信息進(jìn)行刪除。公寓報(bào)修模塊：添加功能：根據(jù)公寓報(bào)修的時(shí)間，可以添加報(bào)修的樓號(hào)，寢室號(hào)，報(bào)修項(xiàng)目，報(bào)修人聯(lián)系電話等信息，并且。跟蹤功能：根據(jù)報(bào)修系統(tǒng)報(bào)修的內(nèi)容，進(jìn)行跟蹤，并且提供更新報(bào)修狀態(tài)的功能。查詢功能：可以根據(jù)姓名、樓號(hào)、寢室號(hào)進(jìn)行查詢。2）公寓信息管理模塊。公寓信息的維護(hù)，包括公寓的公寓樓號(hào)，可以居住的人數(shù)，當(dāng)前入住的人數(shù)，和公寓的類型（男/女）以及相關(guān)的備注。3）公寓管理員模塊。公寓管理員的信息管理功能的可以對(duì)包含管理員姓名，電話，負(fù)責(zé)區(qū)域，值班信息等進(jìn)行添加，編輯，刪除等操作。4）訪客信息管理模塊，與學(xué)生管理類似，需要對(duì)訪客的個(gè)人信息包括，姓名、訪問原因、被訪問人員姓名，進(jìn)入和離開時(shí)間等信息進(jìn)行記錄。

3數(shù)據(jù)庫的設(shè)計(jì)

1）學(xué)生基本信息表：該表中的數(shù)據(jù)Stnum（學(xué)生學(xué)號(hào)）、有Stname（姓名）、Sex（性別）、Age（年齡）、Dorid（寢室號(hào)）、Classid（班級(jí)）、Phone（電話）、Addr（地址）、Pwd（密碼）。2）報(bào)修表：該表中的數(shù)據(jù)apart_id（樓號(hào)）、Dorid（寢室號(hào)）、Things（損害部位）、Why（原因）、Bxname（報(bào)修人姓名）、date（報(bào)修時(shí)間）和Repair-date（維修時(shí)間）。3）系統(tǒng)管理用戶表：該表中的數(shù)據(jù)有Userid（用戶編號(hào)）、Password（用戶密碼）、Manage（用戶權(quán)限）。4）公寓樓信息表：該表中的數(shù)據(jù)apart_number（樓號(hào)）、Number（學(xué)生人數(shù)）、apart_sex（寢室樓為男/女寢）、People（管理該寢室的人）。5）宿舍信息表：該表中的數(shù)據(jù)apart_number（樓號(hào)）、有Dorid（寢室號(hào)）、leader_name（寢室長名字）、leader_phone（寢室長電話）、DorSex（男/女寢）、PeoNum（人數(shù)）、Bednum（床號(hào)）。6）公寓管理員信息表：該表中的數(shù)據(jù)apart_id（樓號(hào)）、Managename（管理員姓名）、Managephone（電話號(hào)碼）、Anpai（安排）、Pwd（密碼）。具體信息表略。7）訪客登記表：該表中的數(shù)據(jù)Sid（學(xué)生學(xué)號(hào)）、Guanxi（關(guān)系）、Vistor_name（來訪人的名字）、Vistor_phone（來訪人的電話號(hào)碼）、Visit-time（拜訪時(shí)間）和endtime（拜訪結(jié)束時(shí)間）。8）寢室水電費(fèi)信息表：該表中的數(shù)據(jù)Dorid（寢室號(hào)）、Waterfei（已使用水（噸））、Dianfei（已使用電（度））。9）學(xué)生入住遷出信息表：該表中的數(shù)據(jù)Stnum（學(xué)號(hào)）、有Dorid（寢室號(hào)）、leader_phone（寢室長電話）、bednum（床位編號(hào)）、Intime（入住時(shí)間）、Outtime（遷出時(shí)間）。

4小結(jié)

通過以上的分析及管理系統(tǒng)和數(shù)據(jù)庫設(shè)計(jì)，學(xué)生公寓管理系統(tǒng)為公寓管理提供科學(xué)、規(guī)范的現(xiàn)代管理模式，使學(xué)生公寓管理跨上一個(gè)新的臺(tái)階，其不僅能為學(xué)校帶來巨大的直接經(jīng)濟(jì)效益，而且還能提高管理人員的工作效率，使公寓管理進(jìn)入一個(gè)新層次。

參考文獻(xiàn)：

[1]飛思科技產(chǎn)品研發(fā)中心編著《JSP應(yīng)用開發(fā)祥解》電子工業(yè)出版社,2001,7.[2]楊鈺,盧銀娟,趙昊彤,等編著.《JSP網(wǎng)絡(luò)開發(fā)技術(shù)》人民郵電出版社,2002,1.[3]曾云飛.MyEclipse應(yīng)用開發(fā)詳解東北大學(xué)出版社.2005.[4]印民.Java與面向?qū)ο蟪绦蛟O(shè)計(jì)教程高等教育出版社.2002,8,6.[5]陸武,蔣武,劉軍,石正貴.Java項(xiàng)目開發(fā)實(shí)踐.中國鐵道出版社.2004,3.

第二篇：系統(tǒng)分析論文

一、系統(tǒng)的概念級(jí)特征

1.系統(tǒng)，所謂系統(tǒng),就是由相互作用和相互聯(lián)系的若干組成部分結(jié)合而成的整體。

2．系統(tǒng)的特征：1)整體性。整體性就是要用系統(tǒng)的方法研究系統(tǒng)的對(duì)象,立足整體,統(tǒng)籌全局,全面規(guī)劃,協(xié)調(diào)處理,使系統(tǒng)的總體與部分之間、部分之間、系統(tǒng)與環(huán)境之間達(dá)到辯證統(tǒng)一,組成的整體功能,即系統(tǒng)功能,是各部分所不具備的。系統(tǒng)的功能大于各部分功能的和。2)綜合性。綜合性即從系統(tǒng)的總目標(biāo)出發(fā),將相關(guān)的經(jīng)驗(yàn)和知識(shí)有機(jī)結(jié)合,協(xié)調(diào)運(yùn)用,從而開發(fā)出全新的系統(tǒng)概念,創(chuàng)造出全新的系統(tǒng)結(jié)構(gòu)和功能。綜合創(chuàng)造,集成創(chuàng)新,獲得綜合效益。3)科學(xué)性。科學(xué)性要求分析問題時(shí)按規(guī)律辦事,即處理問題時(shí),要有嚴(yán)格的工作步驟和程序,定性與定量相結(jié)合,還要認(rèn)識(shí)到整體與部分的協(xié)調(diào)與統(tǒng)一。整體是更大系統(tǒng)的部分,又是本系統(tǒng)的整體。整體具有一定結(jié)構(gòu)、層次和功能,組成整體部分相互聯(lián)系、相互作用。4)創(chuàng)新性。創(chuàng)新性要求人們?cè)谶\(yùn)用科學(xué)技術(shù)的同時(shí),充分發(fā)揮人的創(chuàng)新能力,大膽地進(jìn)行系統(tǒng)的開發(fā),實(shí)現(xiàn)系統(tǒng)的最優(yōu)效果,要超前預(yù)測(cè),持續(xù)創(chuàng)新。

二、系統(tǒng)分析的概念及特征

1.系統(tǒng)分析的概念: 將所得到的文檔資料集中到一起,對(duì)組織內(nèi)部整體管理狀況和信息處理過程進(jìn)行分析。系統(tǒng)分析所確定的內(nèi)容是今后系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)。

2．系統(tǒng)分析的特征：

系統(tǒng)分析從系統(tǒng)需求入手，從用戶觀點(diǎn)出發(fā)建立系統(tǒng)用戶模型。用戶模型從概念上全方位表達(dá)系統(tǒng)需求及系統(tǒng)與用戶的相互關(guān)系。系統(tǒng)分析在用戶模型的基礎(chǔ)上，建立適應(yīng)性強(qiáng)的獨(dú)立于系統(tǒng)實(shí)現(xiàn)環(huán)境的邏輯結(jié)構(gòu)。系統(tǒng)分析是咨詢研究的最基本的方法，我們可以把一個(gè)復(fù)雜的咨詢項(xiàng)目看成為系統(tǒng)工程，通過系統(tǒng)目標(biāo)分析、系統(tǒng)要素分析、系統(tǒng)環(huán)境分析、系統(tǒng)資源分析和系統(tǒng)管理分析，可以準(zhǔn)確地診斷問題，深刻地揭示問題起因，有效地提出解決方案和滿足客戶的需求。

三、系統(tǒng)分析的產(chǎn)生及發(fā)展

20世紀(jì)60年代以來,許多學(xué)者對(duì)系統(tǒng)工程解決問題、處理問題的方法進(jìn)行了大量研究,雖然目前還找不到能處理所有問題的標(biāo)準(zhǔn)方法, 但是,Hall在1969年提出的系統(tǒng)工程的三維結(jié)構(gòu)是影響較大而且比較完善的方法, Hall認(rèn)為:現(xiàn)實(shí)問題都可以歸結(jié)為工程問題,從而可以應(yīng)用定量分析方法求得最優(yōu)的系統(tǒng)方案。Hall方法論適應(yīng)了60年代系統(tǒng)工程的應(yīng)用需要。當(dāng)時(shí)系統(tǒng)工程主要用來尋求各種戰(zhàn)術(shù)問題的最優(yōu)策略,或者用來組織管理大型工程建設(shè)項(xiàng)目。

從70年代中期開始,Checkland經(jīng)過大量系統(tǒng)實(shí)踐,提出了軟系統(tǒng)方法。由于社會(huì)經(jīng)濟(jì)系統(tǒng)不可能像工程技術(shù)系統(tǒng)那樣將各種方案進(jìn)行科學(xué)地定量分析,因而難以評(píng)價(jià)出最優(yōu)方案,所以Checkland方法的核心不是最優(yōu)化而是比較或者是學(xué)習(xí),即是從模型和現(xiàn)狀的比較中來學(xué)習(xí)改善現(xiàn)狀的途徑。

80年代末以來,錢學(xué)森等學(xué)者從各種系統(tǒng)中分離出一種系統(tǒng),即開放復(fù)雜巨系統(tǒng),并研究其方法論。錢學(xué)森早年在蘭徹斯特的工作中提煉出半經(jīng)驗(yàn)半理論的處理復(fù)雜對(duì)陣問題的方法論,后來又進(jìn)一步發(fā)展為處理復(fù)雜行為系統(tǒng)的定量方法學(xué),從經(jīng)驗(yàn)假設(shè)出發(fā),通過定量方法途徑獲得結(jié)論,強(qiáng)調(diào)數(shù)學(xué)模型的經(jīng)驗(yàn)含義和定量定性相結(jié)合。

1987年,錢學(xué)森提出了定性和定量相結(jié)合的系統(tǒng)研究方法,之后提出綜合集成的概念,并把處理復(fù)雜巨系統(tǒng)的方法命名為定性定量相結(jié)合的綜合集成方法,又把它表述為從定性到定量的綜合集成技術(shù)。

1992年,又提出從定性到定量的綜合集成研討廳體系,進(jìn)而把處理開放復(fù)雜巨系統(tǒng)的方法與使用這種方法的組織形式有機(jī)結(jié)合起來。對(duì)于難度自增值系統(tǒng),王浣塵提出了“旋進(jìn)原則”,即不斷地跟蹤系統(tǒng)的變化,選用多種方法,采用循環(huán)交替結(jié)合的方式,逐步推進(jìn)問題的深度和廣度。張文泉等將系統(tǒng)思維分為硬、軟系統(tǒng)思維。并將以傳統(tǒng)的運(yùn)籌學(xué)(OR)、系統(tǒng)工程等為代表的用常規(guī)數(shù)學(xué)模型就能優(yōu)化解決硬問題的方法稱為硬系統(tǒng)方法。而注重人的因素,考慮人的世界觀、價(jià)值觀以便處理包括人在內(nèi)的軟問題的方法則稱為軟系統(tǒng)方法。其中,根底定義由系統(tǒng)的受益者或受害者C(Customer)、系統(tǒng)(變換T)的執(zhí)行者A(Actors)、系統(tǒng)輸入輸出變換T(Transformation Process)、賦予根底定義實(shí)際意義的世界觀W(Worldview)、系統(tǒng)所有者O(Owners)、系統(tǒng)的環(huán)境約束E(Environ-mental constraints)組成。CATWOE的具體含義是系統(tǒng)所有者O使系統(tǒng)在環(huán)境約束E下,由系統(tǒng)執(zhí)行者A通過變換T將其輸入變換為輸出。而系統(tǒng)的受益者或受變換影響的人,賦予變換具體含義的世界觀至少包括W。在硬、軟系統(tǒng)方法的基礎(chǔ)上,研究探索硬、軟方法兼容,自然科學(xué)和人文社會(huì)科學(xué)膠合的廣義系統(tǒng)方法GSM(General Systmes Methodol-ogy),在理論(模型世界)和實(shí)踐(現(xiàn)實(shí)世界)相結(jié)合的原則下,GSM由五部分組成(見圖3)。GSM是以知識(shí)綜合集成為其基本特征的。

四、系統(tǒng)分析有哪些內(nèi)容

霍爾方法論是出現(xiàn)最早、影響最大的結(jié)構(gòu)模型方法論。霍爾結(jié)構(gòu)模型包括三維,即時(shí)間維、邏輯維和專業(yè)維。其中,粗結(jié)構(gòu)時(shí)間維劃分為7個(gè)階段,即規(guī)劃、設(shè)計(jì)、研制(開發(fā))、生產(chǎn)、安裝、運(yùn)行和更新等階段。細(xì)結(jié)構(gòu)邏輯維又將時(shí)間維的每個(gè)階段分為6個(gè)具體工作步驟,即擺明問題、確定目標(biāo)、系統(tǒng)綜合、系統(tǒng)分析、決策和實(shí)施。專業(yè)維是系統(tǒng)工程涉及的專業(yè)。

霍爾方法論解決的是結(jié)構(gòu)化良好的工程問題,也稱為硬系統(tǒng)方法論。

英國學(xué)者P.B.Checkland提出軟系統(tǒng)方法論。其他典型的方法論還有我國學(xué)者錢學(xué)森院士、顧基發(fā)研究員等在20世紀(jì)80年代~90年代提出的綜合集成法和綜合集成研討體系,以及“物理—事理—人理”系統(tǒng)方法論。

最主要的是錢學(xué)森等所提出的開放的復(fù)雜巨系統(tǒng)理論及其方法論,即從定性到定量的綜合集成方法,包括知識(shí)體系專家體系和工具體系的定性到定量的綜合集成研討廳體系。王浣塵把系統(tǒng)方法論概括為五種類型:即內(nèi)核原則;系統(tǒng)原理包括6條基本原理(組成原理、關(guān)聯(lián)原理、整體原理、層次原理、階段原理和對(duì)環(huán)境的相對(duì)獨(dú)立原理)和2條輔助原理(功能原理、目的原理);結(jié)合原則;從定性到定量綜合集成技術(shù);旋進(jìn)原則。隨著科學(xué)技術(shù)的發(fā)展,人們固然重視一個(gè)個(gè)能解決實(shí)際問題的具體方法,同時(shí)人們更重視從中研究和提煉相應(yīng)的方法論,尤其是針對(duì)系統(tǒng)分類去研究相應(yīng)的系統(tǒng)方法論,具有極其重要的理論意義和實(shí)踐意義。

五、系統(tǒng)工程方法論在建筑企業(yè)管理中的應(yīng)用

模型和模擬方法在系統(tǒng)工程研究中具有極為重要的地位。因?yàn)橄到y(tǒng)工程的研究對(duì)象不僅是有待建立的,而且是無樣本的、信息不充分的,這就使得系統(tǒng)工程研究包含著建立新的概念,對(duì)各種方案進(jìn)行分析、評(píng)定、選擇以及檢驗(yàn)各種環(huán)境因素對(duì)系統(tǒng)的影響等極為復(fù)雜的問題,于是就特別需要運(yùn)用模型和模擬方法來表達(dá)和考察這些問題。只有這樣才能對(duì)問題有更深入的認(rèn)識(shí),從而幫助啟發(fā)思想和加速系統(tǒng)工程研究的進(jìn)程。

明確企業(yè)基本使命和目標(biāo)。在充分認(rèn)識(shí)企業(yè)基本使命的基礎(chǔ)上,確定企業(yè)發(fā)展的目標(biāo),并力求使目標(biāo)與基本使命保持一致,基于目標(biāo)市場(chǎng)預(yù)期與企業(yè)方向選擇制定企業(yè)發(fā)展目標(biāo),建立指標(biāo)體系客觀地反映和描述企業(yè)發(fā)展目標(biāo),各項(xiàng)指標(biāo)準(zhǔn)確定量計(jì)算或者容易進(jìn)行定性分析。實(shí)施戰(zhàn)略的總結(jié),總結(jié)經(jīng)驗(yàn),發(fā)現(xiàn)問題,為研究新戰(zhàn)略提供依據(jù)。

現(xiàn)狀分析:分析環(huán)境。環(huán)境是企業(yè)生存和發(fā)展的空間,是企業(yè)戰(zhàn)略管理行動(dòng)的主要制約因素;發(fā)現(xiàn)機(jī)會(huì)和威脅,在分析了環(huán)境之后,就需要評(píng)估企業(yè)有哪些機(jī)會(huì)可以發(fā)掘、利用,以及企業(yè)可能會(huì)面臨哪些威脅;分析企業(yè)的資源,識(shí)別優(yōu)勢(shì)和劣勢(shì);把握未來發(fā)展趨勢(shì),影響中國建筑市場(chǎng)未來發(fā)展趨勢(shì)的驅(qū)動(dòng)與抑制因素分析;中國建筑市場(chǎng)未來的發(fā)展格局與可能的前景;未來競爭格局;未來產(chǎn)業(yè)格局如法規(guī)及監(jiān)管的變化,技術(shù)的進(jìn)步等;未來長、中、短期主要市場(chǎng)格局,用戶細(xì)分與用戶需求變化,以及業(yè)務(wù)態(tài)勢(shì)等的分析預(yù)測(cè)。可采用數(shù)學(xué)模型法、交叉影響分析法等預(yù)測(cè)方法。

戰(zhàn)略態(tài)勢(shì)的確定。把握戰(zhàn)略時(shí)機(jī)、充分考慮客觀條件、充分考慮進(jìn)行戰(zhàn)略調(diào)整或轉(zhuǎn)移的動(dòng)力。

形成新戰(zhàn)略。經(jīng)營戰(zhàn)略:建筑市場(chǎng)的轉(zhuǎn)型與建筑企業(yè)發(fā)展的重點(diǎn),建筑業(yè)務(wù)的統(tǒng)一戰(zhàn)略安排與管理,單一業(yè)務(wù)的運(yùn)營模式選擇與創(chuàng)新;業(yè)務(wù)發(fā)展戰(zhàn)略:高檔環(huán)保業(yè)務(wù)發(fā)展、增值業(yè)務(wù)發(fā)展;市場(chǎng)開拓戰(zhàn)略:高檔與環(huán)保業(yè)務(wù)相互進(jìn)入、海外市場(chǎng)拓展策略;營銷戰(zhàn)略:企業(yè)品牌宣傳、產(chǎn)品市場(chǎng)營銷;競爭戰(zhàn)略:與各大運(yùn)營商的競爭與合作;合作伙伴戰(zhàn)略:與上、下游企業(yè)的合作與對(duì)整體生態(tài)環(huán)境的控制;技術(shù)與網(wǎng)絡(luò)支持戰(zhàn)略;企業(yè)信息化與管理現(xiàn)代化戰(zhàn)略;網(wǎng)絡(luò)演進(jìn)與技術(shù)發(fā)展戰(zhàn)略;資本運(yùn)作戰(zhàn)略;資本管理戰(zhàn)略;戰(zhàn)略投資戰(zhàn)略;風(fēng)險(xiǎn)投資戰(zhàn)略;集團(tuán)運(yùn)作戰(zhàn)略;人力資源戰(zhàn)略;公共關(guān)系、政府關(guān)系與企業(yè)風(fēng)險(xiǎn)管理戰(zhàn)略。

戰(zhàn)略評(píng)價(jià)和選擇。對(duì)新提出戰(zhàn)略的合理性、可行性及對(duì)實(shí)現(xiàn)企業(yè)目標(biāo)的潛在作用做出嚴(yán)格評(píng)價(jià),從而為戰(zhàn)略選擇提供依據(jù)。

戰(zhàn)略籌劃。確定戰(zhàn)略階段、戰(zhàn)略重點(diǎn)、戰(zhàn)略目標(biāo)及戰(zhàn)略措施等。

戰(zhàn)略實(shí)施。制定中、長期規(guī)劃和短期計(jì)劃,溝通思想、儲(chǔ)備人力、完善政策體系。

從系統(tǒng)的觀點(diǎn)看,企業(yè)戰(zhàn)略與企業(yè)戰(zhàn)略環(huán)境、企業(yè)戰(zhàn)略能力有關(guān)。因此,將企業(yè)戰(zhàn)略環(huán)境、企業(yè)戰(zhàn)略能力因素建立量化的尺度。可采用專家評(píng)分法對(duì)企業(yè)戰(zhàn)略環(huán)境(SE)進(jìn)行量化。可采用功效系數(shù)法對(duì)企業(yè)戰(zhàn)略能力(SC)進(jìn)行量化。

利用系統(tǒng)動(dòng)力學(xué)方法確定一個(gè)適當(dāng)?shù)哪Ｐ?綜合、有效地反映各種復(fù)雜因素之間的關(guān)系,通過分析、觀察各因素發(fā)生波動(dòng)時(shí),對(duì)總體戰(zhàn)略目標(biāo)的影響,找出關(guān)鍵因素,并研究其穩(wěn)定性。系統(tǒng)建模的原則:數(shù)學(xué)模型要滿足現(xiàn)實(shí)性、簡潔性、適應(yīng)性、強(qiáng)壯性。系統(tǒng)建模的步驟主要有:形成問題;選定變量;變量關(guān)系的確定;確定模型的數(shù)學(xué)結(jié)構(gòu)及參數(shù)辨識(shí);模型真實(shí)性檢驗(yàn)。

通過對(duì)博弈論中激勵(lì)理論、代理模型的研究,分析企業(yè)價(jià)格戰(zhàn)略、競爭戰(zhàn)略以及多方合作經(jīng)營戰(zhàn)略。“競爭”是目前國內(nèi)建筑行業(yè)發(fā)展最為顯著的特點(diǎn),也是國內(nèi)建筑企業(yè)面臨的首要問題,國內(nèi)建筑企業(yè)必須改變?cè)瓉淼慕?jīng)營理念和管理方法,采用更多科學(xué)的分析方法,進(jìn)行細(xì)致的分析,才能做大做強(qiáng),在國際競爭中占據(jù)一席之地.

第三篇：VB+Access學(xué)生公寓管理系統(tǒng)-論文

VB+Access學(xué)生公寓管理系統(tǒng)-論文

中文摘要

隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個(gè)檔次，漸漸實(shí)現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。高校是科研的陣地，后勤的公寓管理也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率。基于這一點(diǎn)，開發(fā)此學(xué)生公寓管理軟件。學(xué)生公寓管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理系統(tǒng)。本系統(tǒng)最大的特點(diǎn)是通用性、簡單操作性，適用于同行業(yè)以及一些同類型的企業(yè)管理。隨著學(xué)校寄宿人員的增多，公寓管理人員的負(fù)擔(dān)越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實(shí)現(xiàn)無紙化辦公；使工作更有條理，更方便，更有效率而開發(fā)出這套公寓管理軟件。軟件從對(duì)學(xué)生的分房開始到最后的公寓管理全部電腦化。它主要包括：公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，可以更快地了解到每個(gè)學(xué)生的住宿情況,使公寓的管理效率更高，做的更好！

關(guān)鍵字：配置、登記、檢查 Abstract

With the popularization and use of the computer, present management has been promoted much, more and more jobs have been done by computer.It namely changes the original artificial record management mode into computer''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 student''s apartment.Student Apartment Management System is a utility management system based on the managing mode of many universities and colleges.Universal and easy-operating are the greatest features of the system ,which is also applicable for enterprises of the same type.Apartment keepers bear a increasingly heavy burden because of the gradually added number of roomers.In 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 computerized all the processes concerning the apartment management which include apartment,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students'' violation of discipline,teachers'' records and rooming situation.It makes the apartment management more efficient and much better.Key word: dispose、register、check 目錄

引言...4 第一章系統(tǒng)分析...5 1.1開發(fā)工具簡介及系統(tǒng)運(yùn)行環(huán)境...5 1.2開發(fā)的必要性...6 1.3系統(tǒng)開發(fā)的可行性...7 1.4數(shù)據(jù)來源...8 1.5新系統(tǒng)數(shù)據(jù)流程圖...9 第二章 數(shù)據(jù)庫設(shè)計(jì)...12 第三章功能模塊設(shè)計(jì)...16 3.1新系統(tǒng)功能結(jié)構(gòu)圖及運(yùn)行圖如下：...16 3.2系統(tǒng)設(shè)置:.17 3.3公寓管理...18 3.4 衛(wèi)生檢查...19 3.5 公寓資產(chǎn)...20 3.6 記錄查看與記錄刪除...20 3.7值班記錄...20 3.8幫助制作...21 第四章 程序設(shè)計(jì)...22 主程序流程圖...22 4.1 登錄界面...23 4.2 程序主界面...26 4.3系統(tǒng)設(shè)置...32 4.4公寓管理...57 4.5衛(wèi)生檢查...60 4.6 公寓資產(chǎn)...64 4.7記錄查看...66 4.8記錄刪除...74 4.9值班記錄...81 4.10 Help制作...88 第五章 系統(tǒng)測(cè)試...90 總結(jié)...91 參考文獻(xiàn)...92 引言

隨著電腦的普及與應(yīng)用，現(xiàn)在的管理也需要提升一個(gè)檔次。即從原來的手工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。這樣會(huì)給公寓的管理人員帶來很多好處，讓他們管理的效率更高、效果更好，管理起來更方便。由此而產(chǎn)生了本管理軟件――學(xué)生公寓管理軟件。學(xué)生公寓管理軟件是用Microsoft Visual Basic 編寫完成。由于Visual Basic率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動(dòng)態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。做起來方便，使用起來更為快捷。

作為一個(gè)學(xué)生公寓的管理軟件，要十分全面的貼近以及適合大學(xué)公寓的管理方法。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法。如各個(gè)公寓的分布特色，以及公寓的各種管理制度。這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。

本軟件主要包括以下方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。

學(xué)生公寓管理軟件目前版本為1.0.1，為一個(gè)測(cè)試版本。它目前在功能上，以及操作的簡便上有很大的改進(jìn)。但是還是存在一些不足，在有些功能的實(shí)現(xiàn)上還不是十分的理想，這也是本人在時(shí)間和精力上留下的遺憾。但是相信這些會(huì)在以后的版本中得到完善，使這個(gè)軟件成為一個(gè)功能上最全，使用上最簡捷方便的管理軟件。431

[10]...>> 第一章系統(tǒng)分析

系統(tǒng)采用MICROSOFT公司的 VISUAL BASIC語言編寫的學(xué)生公寓管理系統(tǒng),本系統(tǒng)在研制開發(fā)過程中，嚴(yán)格遵循軟件工程方法，完全采用結(jié)構(gòu)化程序設(shè)計(jì)方法。

本系統(tǒng)的主要功能可以方便的對(duì)學(xué)生公寓進(jìn)行管理，系統(tǒng)采用ACCESS數(shù)據(jù)庫使數(shù)據(jù)具有較強(qiáng)的完整性、較好的數(shù)據(jù)安全性等特點(diǎn)以及提供了標(biāo)準(zhǔn)的幫助，使用戶方便的獲得所需的幫助。界面友好、操作簡單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。1.1開發(fā)工具簡介及系統(tǒng)運(yùn)行環(huán)境 1．1．1

VB6簡介

本軟件的開發(fā)工具為VISUAL BASIC，作為一種開發(fā)語言，VISUAL BASIC率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀、動(dòng)態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。

它還擁有面向?qū)ο蟮木幊谭椒āＣ嫦驅(qū)ο蟮某绦蛟O(shè)計(jì)是伴隨WIDNOWS圖形界面的誕生而產(chǎn)生的一種新的程序設(shè)計(jì)思想，與傳統(tǒng)程序設(shè)計(jì)有著較大的區(qū)別，VISUAL BASIC采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。所謂“對(duì)象”就是現(xiàn)實(shí)生活中的每個(gè)一人，每一個(gè)可見的實(shí)體。同樣，在VISUAL BASIC中，用來構(gòu)成用戶圖形界面的可視化控件，也可視為是一個(gè)對(duì)象。不同的對(duì)象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個(gè)命令按鈕，一個(gè)用來實(shí)現(xiàn)數(shù)據(jù)的統(tǒng)計(jì)計(jì)算，另一個(gè)用來實(shí)現(xiàn)數(shù)據(jù)的打印，這兩個(gè)按鈕就可視為是兩個(gè)不同的對(duì)象，為了實(shí)現(xiàn)這兩個(gè)對(duì)象各自不同的功能，接下來就應(yīng)該分別針對(duì)這兩個(gè)對(duì)象編寫程序代碼，這種編程的思想和方法即為所謂的“面向?qū)ο蟮某绦蛟O(shè)計(jì)”。它還支持第三方軟件商為其開發(fā)的可視化控制對(duì)象，如本例中就用到了一個(gè)。這些可視化控件對(duì)應(yīng)的文件擴(kuò)展名這OCX。只要擁有控件的OCX文件，就可將其加入到VB系統(tǒng)中，從而大大增強(qiáng)VB的編程實(shí)力。使軟件做起來會(huì)更加得心應(yīng)手。1．1．2 HELP 制作

制作help文檔需要一個(gè)專業(yè)制作軟件，本人使用的是破解版的QuickCHM，此軟件無論在功能上還在是操作上用起來都是很方便。它屬于一個(gè)傻瓜型的制作軟件，利用它可以快速的制作出各種你所需要的幫助文檔。但是如果想制作出幫助文檔，就需要使用制作網(wǎng)頁的軟件把內(nèi)容先做成html形式，本人使用Dreamweaver制作的網(wǎng)頁，然后在用此軟件進(jìn)行加載，最后生成chm文檔。1.2開發(fā)的必要性

信息資源已成為各個(gè)部門的重要財(cái)富和資源，建立一個(gè)滿足各級(jí)部門信息處理需要的信息系統(tǒng)，也一個(gè)企業(yè)或組織生存越來越重要的信息資源。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。而且時(shí)間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新、維護(hù)都帶來了不少的困難。

隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮越來越重要的作用。學(xué)生公寓管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理軟件。

本系統(tǒng)最大的特點(diǎn)是通用性、簡單操作性。隨著學(xué)校寄宿人員的增多，公寓管理人員的負(fù)擔(dān)越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實(shí)現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套公寓管理軟件。1.3系統(tǒng)開發(fā)的可行性 1．3．1 技術(shù)上的可行性 我們正走進(jìn)一個(gè)信息時(shí)代，信息技術(shù)將從根本上改變?nèi)祟惿鐣?huì)的生產(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來處理，可以說用計(jì)算機(jī)進(jìn)行信息管理是一個(gè)總趨勢(shì)。學(xué)生公寓管理軟件主要是對(duì)公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，修改，更新等。可以更快地了解到每個(gè)學(xué)生的住宿情況。開發(fā)一個(gè)學(xué)生公寓管理系統(tǒng)可以達(dá)到事半功倍的效果。隨著數(shù)據(jù)庫管理系統(tǒng)的普及以及可視化編程軟件的出現(xiàn)，使數(shù)據(jù)庫管理信息系統(tǒng)的開發(fā)變得更為簡單，因此開發(fā)一個(gè)學(xué)生公寓管理系統(tǒng)是完全可行的。1．3．2 經(jīng)濟(jì)上的可行性

本單位有自己的微機(jī)室可以使用，不必重新購置計(jì)算機(jī)，不需要花費(fèi)大量資金，是一個(gè)節(jié)約人力物力的好辦法。

1．3．3 組織管理上的可行性

本單位的領(lǐng)導(dǎo)干部具有較高的素質(zhì)，它們對(duì)管理現(xiàn)代化有較高的認(rèn)識(shí)水平，并且有各級(jí)領(lǐng)導(dǎo)的大力支持和重視。

綜上所述，建立一個(gè)學(xué)生公寓管理軟件與人工操作相比具有速度更快，操作更準(zhǔn)確，更節(jié)約開支等有利之處，因此建立一個(gè)學(xué)生公寓管理軟件是必要可行。

1.4數(shù)據(jù)來源

作為一個(gè)學(xué)生公寓的管理軟件，要十分全面的貼近以及適合大學(xué)公寓的管理方法。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。

[10]...>> 1.5新系統(tǒng)數(shù)據(jù)流程圖

圖1.1數(shù)據(jù)流程圖

數(shù)據(jù)字典

圖1.2 數(shù)據(jù)元素 注：其它數(shù)據(jù)元素略

圖1.3 數(shù)據(jù)流 注：其它數(shù)據(jù)流略

圖1.4 加工 注：其它加工略

注：其它數(shù)據(jù)存儲(chǔ)略

第二章 數(shù)據(jù)庫設(shè)計(jì)

1、E-R圖

圖2.1 E-R圖

2、信息的數(shù)量越來越大，數(shù)據(jù)庫的作用越發(fā)突出,所以數(shù)據(jù)庫的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個(gè)系統(tǒng)的運(yùn)行情況，是整個(gè)系統(tǒng)的重要組成部分。本系統(tǒng)數(shù)據(jù)庫為db.mdb，在數(shù)據(jù)庫中包括十個(gè)表。分別是：用戶表、公寓表、班級(jí)表、寢室表、衛(wèi)生等級(jí)表、學(xué)生基本情況表、學(xué)生請(qǐng)假情況表、學(xué)生違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。下面介紹幾個(gè)主要的表：

⑴ 學(xué)生基本情況表主要是存放學(xué)生的基本情況，字段包括：姓名、性別、學(xué)號(hào)、班級(jí)、公寓、寢室、入學(xué)時(shí)間、年制、寢室電話、個(gè)人電話、備注。數(shù)據(jù)結(jié)構(gòu)如下表：

字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 姓名 文本 8 性別 文本 2 學(xué)號(hào) 文本 10 班級(jí) 文本 10 公寓 文本 20 寢室 文本 10 入學(xué)時(shí)間 文本 14 年制 文本 8 個(gè)人電話 文本 15 備注 備注

⑵ 學(xué)生請(qǐng)假情況表主要存放學(xué)生請(qǐng)假情況，字段包括：日期、姓名、班級(jí)、公寓、寢室、天數(shù)、原因、老師、備注。數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 姓名 文本 8 班級(jí) 文本 10 公寓 文本 20 寢室 文本 10 天數(shù) 文本 10 原因 備注

老師 文本 8 備注 備注

⑶ 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級(jí)、公寓、寢室、原因、程度、處罰、備注。數(shù)據(jù)結(jié)構(gòu)如下表：

字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 姓名 文本 8 班級(jí) 文本 10 公寓 文本 20 寢室 文本 10 原因 備注

程度 備注

處罰 備注

備注 備注

⑷ 衛(wèi)生情況表主要存放寢室衛(wèi)生情況，字段包括：日期、公寓、寢室、檢查1到

5、得分、減分、等級(jí)、備注。其中檢查1到5是為了在沒有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系統(tǒng)的可修改性、可擴(kuò)展性。數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 公寓 文本 20 寢室 文本 10 檢查1 文本 40 檢查2 文本 40 檢查3 文本 40 檢查4 文本 40 檢查5 文本 40 得分 文本 4 減分 文本 4 等級(jí) 文本 6 備注 備注

⑸ 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、公寓、名稱、數(shù)量、單價(jià)、總價(jià)、用途、備注。數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類型 數(shù)據(jù)長度 日期 文本 14 公寓 文本 20 名稱 文本 20 數(shù)量 文本 4 單價(jià) 文本 10 總價(jià) 文本 10 用途 備注

備注 備注

第三章功能模塊設(shè)計(jì)

3.1新系統(tǒng)功能結(jié)構(gòu)圖及運(yùn)行圖如下：

1、系統(tǒng)功能結(jié)構(gòu)圖：

[10]...>> 圖3.1系統(tǒng)功能結(jié)構(gòu)圖

2、系統(tǒng)功能結(jié)構(gòu)圖運(yùn)行圖：

圖3.2系統(tǒng)功能結(jié)構(gòu)運(yùn)行圖

經(jīng)過系統(tǒng)分析，確定了本軟件主要包括以下方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。3.2系統(tǒng)設(shè)置: 主要完成：用戶管理、公寓設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。運(yùn)行圖如下:

圖3.3系統(tǒng)設(shè)置運(yùn)行圖 3.2.1 用戶管理

可以進(jìn)行管理人員的添加和修改以及刪除操作。添加人員可以分為兩類：普通用戶、管理員。可以視不同人員而添加。管理員擁有所有權(quán)力，對(duì)整個(gè)系統(tǒng)的操作。普通用戶只有瀏覽、及一些簡單的添加操作權(quán)力。無用戶設(shè)置、公寓設(shè)置及記錄刪除等權(quán)力。3.2.2公寓設(shè)置

分為三個(gè)主要的操作：公寓設(shè)置、寢室設(shè)置、班級(jí)設(shè)置。在這里可以添加學(xué)校所有的公寓、所有班級(jí)、每個(gè)公寓的所有寢室,也可以用此軟件管理一幢公寓。這樣操作起來會(huì)更簡單、操作一目了然。3.2.3數(shù)據(jù)備份

這是一個(gè)數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時(shí)的備份當(dāng)前的數(shù)據(jù)庫以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進(jìn)行恢復(fù)。3.2.4數(shù)據(jù)轉(zhuǎn)換

利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫中的表轉(zhuǎn)換成Excel表格的形式，顯示更為直觀，可以進(jìn)行打印等操作。3.3公寓管理

主要完成：學(xué)生請(qǐng)假、學(xué)生違規(guī)、床位設(shè)置的功能。運(yùn)行圖如下:

圖3.4公寓管理運(yùn)行圖 3.3.1學(xué)生請(qǐng)假

主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。3.3.2學(xué)生違規(guī)

主要是對(duì)學(xué)生違規(guī)記錄做一個(gè)添加。利用它可以把學(xué)生的基本的違規(guī)資料保存起來。3.3.3床位設(shè)置

通過床位設(shè)置可以簡單查看每個(gè)公寓每個(gè)寢室的床位使用情況以及床位剩余情況。還可以通過詳細(xì)查看，查看到某個(gè)公寓某個(gè)寢室住宿人員的人數(shù)，以及具體的住宿人員的名字。3.4 衛(wèi)生檢查

主要完成：添加檢查記錄的功能。衛(wèi)生檢查可以對(duì)衛(wèi)生檢查的結(jié)果進(jìn)行記錄。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。運(yùn)行圖如下:

圖3.5衛(wèi)生檢查運(yùn)行圖 3.5 公寓資產(chǎn)

主要完成：添加新增物品的功能。可以對(duì)公寓資產(chǎn)的收入或其它物品的入庫進(jìn)行記錄。運(yùn)行圖如下:

圖3.6公寓資產(chǎn)運(yùn)行圖 3.6 記錄查看與記錄刪除

主要是對(duì)學(xué)生請(qǐng)假、學(xué)生違規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進(jìn)行的操作，利用這兩個(gè)功能可以對(duì)任一記錄進(jìn)行查看與刪除。運(yùn)行圖如下:

圖3.7記錄查看

圖3.8記錄刪除運(yùn)行圖 3.7值班記錄

它的功能主要是針對(duì)值班人員開發(fā)出來的，在這里可以讓值班人員對(duì)當(dāng)天值班情況進(jìn)行一個(gè)小記，以便日后查看。運(yùn)行圖如下:

圖3.9值班記錄運(yùn)行圖 3.8幫助制作

對(duì)于一個(gè)稍顯正規(guī)的軟件來說幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。在程序中可以按F1或點(diǎn)擊幫助菜單來顯示此help.Chm文檔。以便對(duì)本軟件進(jìn)行快速操作。運(yùn)行圖如下:

圖3.10幫助運(yùn)行圖

第四章 程序設(shè)計(jì) 主程序流程圖

4.1 登錄界面

此界面是由Photoshop制作而成。在做這個(gè)登錄面的時(shí)候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。又不失其莊雅。加上本單位最有特色的建筑，會(huì)讓人一目了然。

4.1.1 登錄圖片顯示

圖4.1登錄界面

4.1.2 界面制作與實(shí)現(xiàn)

在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類型用戶。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！(1)浮動(dòng)按鈕的實(shí)現(xiàn)

確定和取消兩個(gè)按鈕在鼠標(biāo)沒有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。總體實(shí)現(xiàn)立體的感覺。原理主要是在鼠標(biāo)mousemove事件與線的顏色變化組合來實(shí)現(xiàn)。主要代碼如下：

在窗體中的鼠標(biāo)移動(dòng)過程中，以及在窗體初始化的時(shí)候，要把添加的線的.Visible 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時(shí)候在改變其顏色即

[10]...>> 可。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.Visible = False Line2.Visible = False Line3.Visible = False Line4.Visible = False Line5.Visible = False Line6.Visible = False Line7.Visible = False Line8.Visible = False End Sub

鼠標(biāo)按下的時(shí)候設(shè)置線條的顏色如下：

Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080 Line2.BorderColor = &H808080 Line3.BorderColor = &HE0E0E0 Line4.BorderColor = &HE0E0E0 End Sub

鼠標(biāo)移動(dòng)到標(biāo)簽的時(shí)候設(shè)置線條的顏色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &HE0E0E0 Line2.BorderColor = &HE0E0E0 Line3.BorderColor = &H808080 Line4.BorderColor = &H808080 Line1.Visible = True Line2.Visible = True Line3.Visible = True Line4.Visible = True End Sub(2)用戶類型判斷

在數(shù)據(jù)庫中建了一人yonghu表。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。管理員、普通用戶。管理員擁有對(duì)數(shù)據(jù)庫操作的一切權(quán)限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒有刪除等操作功能。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。主要代碼如下：

設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫 Dim provider As String Dim datasource As String provider = “provider=Microsoft.jet.oledb.4.0” datasource = “data source=” & App.Path & “DB.mdb” With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & “;” & datasource.CommandType = adCmdTable.RecordSource = “yonghu”.Refresh.Recordset.MoveFirst End With 對(duì)用戶進(jìn)行判斷

If Text1.Text = “" Then MsgBox ”請(qǐng)輸入用戶名!“, 48, ”提示“ Exit Sub End If Adodc1.Recordset.Find ”用戶=''“ & Text1.Text & ”''“ If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields(”pass“))Then main.Text1.Text = Adodc1.Recordset.Fields(”級(jí)別“)main.Text2.Text = Adodc1.Recordset.Fields(”用戶“)main.Show Unload Me Else Text1.Text = ”“ Text2.Text = ”“ MsgBox ”登錄不成功,請(qǐng)重新登錄!“, 48, ”提示“ End If 4.2 程序主界面

程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。整個(gè)界面主要由五部分組成。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。①界面效果圖如下：

圖4.2程序主界面

菜單欄的詳見附錄內(nèi)容，這里就不提了。左側(cè)操作欄和右側(cè)顯示欄會(huì)在下面的內(nèi)容中做介紹，現(xiàn)在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個(gè)事件。

工具欄主要是由coolbar制作而成。由它制做的工具欄的顯示效果會(huì)更有立體感一些。這里只列出了幾個(gè)常用的按鈕。其中的添加按鈕是用來對(duì)公寓住宿人員進(jìn)行添加，修改也是對(duì)所住宿人員進(jìn)行修改，想要進(jìn)行修改時(shí)必須顯示所有記錄時(shí)才可以進(jìn)行。在這里值得一提的是刪除DataGrid的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的adodc1的數(shù)據(jù)源，或者是其它ado控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個(gè)查詢后得到的記錄。②它的實(shí)現(xiàn)方法如下所示： Dim o As Adodc Set o = DataGrid1.datasource

o.Recordset.Delete

o.Recordset.Update 這里主要是用到了ado對(duì)像的方法。用這個(gè)方法得到數(shù)據(jù)源。

下面是整個(gè)工具欄運(yùn)行時(shí)代碼： Select Case Button.Index Case 1 sel.Show 1 Case 3 add.Show 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = DataGrid1.datasource If s.RecordSource = ”users“ Then edit.Show 1 End If next2: Case 7 On Error Resume Next Dim o As Adodc Set o = DataGrid1.datasource

o.Recordset.Delete

o.Recordset.Update Case 9 back.Show 1 Case 11 With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”users“ ''.Refresh End With Set DataGrid1.datasource = Adodc1 DataGrid1.Refresh Call dx Case 13 Unload Me End Select 狀態(tài)欄分四個(gè)部分。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。其中第二個(gè)和第三部分為動(dòng)態(tài)顯示的，它會(huì)顯示出每次用戶登錄名稱及其管理模式。由上圖可以看出，lf為本軟件管理員。第四部分為日期與時(shí)間的顯示。其中第三部分的代碼實(shí)現(xiàn)如下： main.Text1.Text = Adodc1.Recordset.Fields(”級(jí)別“)main.Text2.Text = Adodc1.Recordset.Fields(”用戶“)StatusBar1.Panels(2).Text = ”當(dāng)前用戶：“ & Text2.Text StatusBar1.Panels(3).Text = ”用戶模式：“ & Text1.Text StatusBar1.Panels(4).Text = Date & ”

“ & Time ''設(shè)置普通用戶模式

If Text1.Text = ”普通用戶“ Then yhgl.Visible = False g1.Visible = False jlsc.Visible = False gysz.Visible = False Toolbar1.Buttons(5).Visible = False Toolbar1.Buttons(6).Visible = False Toolbar1.Buttons(7).Visible = False Toolbar1.Buttons(8).Visible = False End If 主窗體在程序運(yùn)行中會(huì)遇到不斷改變其大小，最小化，最大化，以及用鼠標(biāo)來改變，這里需要在窗體的Resize事件中添加代碼，讓程序中用到的各個(gè)控件隨時(shí)可以適應(yīng)窗體改變后的大小，在這里改變的控件主要有DataGrid、TreeView系列及Frame控件、StatusBar。下面就是設(shè)置它們大小的程序代碼：

DataGrid1.Width = main.WidthStatusBar1.Height750 SSTab1.Height = main.HeightCoolBar1.HeightStatusBar1.Height1200 Frame2.Height = main.HeightCoolBar1.HeightStatusBar1.Height1200 TreeView1.Height=main.HeightCoolBar1.HeightStatusBar1.Height1500 TreeView3.Height=main.HeightCoolBar1.Heightz)/ 4 StatusBar1.Panels(1).Width = u + x StatusBar1.Panels(2).Width = v + x StatusBar1.Panels(3).Width = w + x StatusBar1.Panels(4).Width = m + x 這個(gè)軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的load事件里要把所用的到的東西都要加載進(jìn)來，例如所在程序運(yùn)行時(shí)所用到的表，左側(cè)treeview部分樹形顯示的初始化。在這里幾乎用到了所有的表，如下所示： provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”users“ ''.Refresh End With

With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”gongyu“.Refresh End With

With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”class“.Refresh End With

With Adodc4.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weisheng“.Refresh End With

With Adodc5.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource End With

With Adodc6.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”dengji“.Refresh End With

With Adodc7.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”qinshi“.Refresh End With

With Adodc9.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”zichan“.Refresh End With treeview部分樹形顯示的初始化在這里已經(jīng)做了幾個(gè)過程，調(diào)用即可。4.3系統(tǒng)設(shè)置 4.3.1用戶管理 ①界面效果圖

[10]...>>

② 界面制作與實(shí)現(xiàn)方法

這個(gè)界面總體來說各個(gè)控件比較簡單，但是作為一個(gè)添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。各個(gè)控件也與數(shù)據(jù)庫中表的字段綁定。在窗體初始化的時(shí)候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會(huì)被設(shè)置成為失效狀態(tài)，否則會(huì)出現(xiàn)錯(cuò)誤。設(shè)置代碼如下： Dim provider As String Dim datasource As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”yonghu“.Refresh End With Option1.Enabled = False Option2.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False End If Text2.Text = Text3.Text 上一條與下一條的功能一目了然，它們可以對(duì)當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。上一條記錄與下一條的記錄在查看時(shí)有一個(gè)判斷。當(dāng)表中記錄移到最前面（BOF）或最后面（EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的enable屬性設(shè)置為true。即不可以前查看或向后查看。上一條與下一條主要代碼如下：

Adodc1.Recordset.MovePrevious ''移動(dòng)記錄 Command6.Enabled = True If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

Command5.Enabled = False End If Adodc1.Recordset.MoveNext ''移動(dòng)記錄 Command5.Enabled = True If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

Command6.Enabled = False End If 添加用戶可以添加使用該管理軟件的用戶。添加的時(shí)候可以選擇所添加人物的級(jí)別。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。管理員擁有對(duì)此軟件管理操作等一切的權(quán)力。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。沒有對(duì)記錄刪除等權(quán)力。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：

If Command1.Caption = ”添加“ Then Command2.Enabled = False Command5.Enabled = False Command6.Enabled = False Command1.Caption = ”確定“ Command3.Caption = ”取消“ Adodc1.Recordset.AddNew Option1.Enabled = True Option2.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text2.Text = ”“ ElseIf Text1.Text = ”“ Then MsgBox ”用戶名不能為空！“, 48, ”提示“ ElseIf Text2.Text = ”“ Then MsgBox ”密碼不能為空！“, 48, ”提示“ ElseIf Text2.Text <> Text3.Text Then MsgBox ”密碼兩次需一致！“, 48, ”提示“ ElseIf Text4.Text = ”“ Then MsgBox ”請(qǐng)選擇所建用戶類型！“, 48, ”提示“ Else Command2.Enabled = True Command3.Enabled = True Command5.Enabled = True Command6.Enabled = True Command3.Caption = ”編輯“ Command1.Caption = ”添加“ Adodc1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。刪除操作部分代碼：

If Adodc1.Recordset.RecordCount = 1 Then Command2.Enabled = False End If If(MsgBox(”你真的想刪除當(dāng)前記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst Adodc1.Refresh End If 編輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以修改其用戶名與密碼。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時(shí)，可以進(jìn)行修改。修改記錄即更新表中的某一條記錄。編輯操作主要代碼如下： Command2.Enabled = False Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Option1.Enabled = True Option2.Enabled = True Command1.Caption = ”確定“ ElseIf Command3.Caption = ”取消“ Then Command3.Caption = ”編輯“ Command1.Caption = ”添加“ Command2.Enabled = True Command5.Enabled = True Command6.Enabled = True Text2.Text = Text3.Text Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 4.3.2 公寓設(shè)置

公寓設(shè)置可以說是本程序中一關(guān)鍵部分。因?yàn)樗械脑O(shè)置都在此進(jìn)行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。這里主要涉及到的問題是datagrid的顯示，以及treeview及時(shí)形成新的結(jié)構(gòu)。還有一些就是對(duì)表記錄的復(fù)雜操作。在點(diǎn)擊sstab各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab

Case 0

Call startree1

Case 1

Combo1.Clear

Dim I As Integer

I = 1

If Adodc1.Recordset.RecordCount <> 0 Then

Adodc1.Recordset.MoveFirst

Do While I < Adodc1.Recordset.RecordCount

Combo1.AddItem(Adodc1.Recordset.Fields(”公寓名稱“))

Adodc1.Recordset.MoveNext

I = I + 1

Loop

End If

Call startree1

Case 2

Call startree1 End Select End Sub(1)公寓設(shè)置

① 公寓設(shè)置效果圖

圖4.4公寓設(shè)置

② 界面制作與實(shí)現(xiàn)方法

在這個(gè)界面中主要用到了一個(gè)Sstab控件與一個(gè)顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame控件。

在右下角的文本框中可以輸入想要添加的公寓名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改公寓的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。Datagrid也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡單，選擇想要?jiǎng)h除的公寓名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。但是刪除后不會(huì)影響其它表中的數(shù)據(jù)。其它表的有關(guān)此公寓的信息還會(huì)存在。在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫已連接。

在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加成功。

Adodc1.Recordset.Find ”公寓名稱=''“ & Text2.Text & ”''“ If Adodc1.Recordset.EOF = False Then MsgBox ”此公寓已存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If Text3.Text = ”“ If Text2.Text = ”“ Then MsgBox ”輸入所要添加公寓的名稱“, , ”提示“ Exit Sub End If 添加：

Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(”公寓名稱“)= Text2.Text Adodc1.Recordset.Update Adodc1.RecordSource = ”gongyu“ Text2.Text = ”“ Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh

修改公寓名稱：

If Text3.Text = ”“ Then MsgBox ”選擇要修改的公寓“, , ”提示“ Exit Sub End If If Command12.Caption = ”修改“ Then Text2.Text = Text3.Text Label6.Caption = ”輸入想要修改的公寓名稱“ Command12.Caption = ”更新“ Command3.Enabled = False Command7.Enabled = False ElseIf Command12.Caption = ”更新“ Then Command3.Enabled = True Command7.Enabled = True Label6.Caption = ”輸入想要添加的公寓名稱“ Adodc1.Recordset.Fields(”公寓名稱“)= Text2.Text Adodc1.Recordset.Update Adodc2.Recordset.ActiveConnection.Execute ”update qinshi set 公寓名稱=''“ & Text2.Text & ”'' where 公寓名稱=''“ & Trim(Text3.Text)& ”''“ Adodc2.Recordset.Update Command12.Caption = ”修改“ End If Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh Adodc5.Recordset.Update Set main.DataGrid1.datasource = Adodc5 main.DataGrid1.Refresh

刪除公寓名稱

If Text3.Text = ”“ Then MsgBox ”選擇所要?jiǎng)h除公寓的名稱“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想刪除公寓名稱為

“ & Text3.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then

Adodc1.Recordset.Delete

Adodc1.Recordset.Update End If Text3.Text = ”“ Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh(2)寢室設(shè)置

①寢室設(shè)置效果圖

圖4.5寢室設(shè)置

②界面制作與實(shí)現(xiàn)方法 此界面實(shí)現(xiàn)相對(duì)比公寓設(shè)置來說相對(duì)復(fù)雜一些。用到的控件主要是Sstab與Treeview。但是在程序方面比較復(fù)雜。

在添加一個(gè)寢室前先要選擇所要添加寢室所在的公寓。這個(gè)公寓可以點(diǎn)擊下面的樹中的節(jié)點(diǎn)，也可以在列表框中選擇。樹中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱里。你也可以自己進(jìn)行添寫，確認(rèn)公寓后即可添加完成了。添加后會(huì)把Treeview重新刷新一下。以顯示更新后的記錄。添加源碼： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名稱=''“ & Combo1.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”此公寓不存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If If Combo1.Text = ”“ Or Text1.Text = ”“ Then MsgBox ”請(qǐng)輸入所要添加的寢室及其所屬公寓“, , ”提示“ Exit Sub End If With Adodc2.Recordset.AddNew.Recordset.Fields(0).Value = Combo1.Text.Recordset.Fields(1).Value = Text1.Text.Recordset.Update End With Combo1.Text = ”“ Text1.Text = ”“ Call startree1 修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬公寓進(jìn)行修改。當(dāng)要對(duì)名稱進(jìn)行修改時(shí)，先要選擇所要修改的寢室名，選擇后會(huì)在寢室名稱里顯示出來，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點(diǎn)擊修改即完成名稱修改操作。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點(diǎn)擊修改后完成此操作。但是這種操作不是常見。修改源碼： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名稱=''“ & Combo1.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”此公寓不存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If

Dim sql As String On Error Resume Next If Combo1.Text = ”“ Or Text1.Text = ”“ Then MsgBox ”請(qǐng)?jiān)谙旅孢x擇所要修改的寢室“, , ”提示“ Exit Sub End If ''sql = ”select * form qinshi where 公寓名稱=''“ & Trim(Combo1.Text)& ”'' and 寢室=''“ & Trim(Text1.Text)& ”''“

Adodc2.Recordset.ActiveConnection.Execute ”update qinshi set 寢室=''“ & Text1.Text & ”'',公寓名稱=''“ & Trim(Combo1.Text)& ”''where 寢室=''“ & Trim(Text6.Text)& ”''and 公寓名稱=''“ & Trim(Text7.Text)& ”''“ Adodc2.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Call startree1 刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記錄只在qinshi表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。實(shí)現(xiàn)的方法主要是對(duì)qinshi表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。實(shí)現(xiàn)的部分代碼如下所示：

If Combo1.Text = ”“ Or Text1.Text = ”“ Or Combo1.Text = ”公寓管理系統(tǒng)“ Then MsgBox ”選擇所要?jiǎng)h除的寢室“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想刪除

“ & Combo1.Text & ” “ & ”寢室為“ & Text1.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc2.Refresh

[10]...>>

Adodc2.Recordset.ActiveConnection.Execute ”delete from qinshi where 公寓名稱=''“ & Trim(Combo1.Text)& ”'' and 寢室=''“ & Trim(Text1.Text)& ”''“ Adodc2.Recordset.Update End If Combo1.Text = ”“ Text1.Text = ”“ Call startree1 在treeview點(diǎn)擊的時(shí)候，上面的文本框中會(huì)顯示相應(yīng)的記錄，這主要是對(duì)treeview進(jìn)行了設(shè)置，代碼如下：

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)On Error Resume Next Text1.Text = TreeView1.SelectedItem.Text Combo1.Text = TreeView1.SelectedItem.Parent Text6.Text = TreeView1.SelectedItem.Text Text7.Text = TreeView1.SelectedItem.Parent End Sub(3)班級(jí)設(shè)置

①班級(jí)設(shè)置效果圖

圖4.6班級(jí)設(shè)置

②界面制作與實(shí)現(xiàn)方法

此界面制作與公寓設(shè)置基本一致。在這個(gè)界面中主要用到了一個(gè)Sstab控件與一個(gè)顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame控件。

在右下角的文本框中可以輸入想要添加的班級(jí)名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改班級(jí)的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。Datagrid也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。添加班級(jí)源碼：

Adodc3.Recordset.Find ”class=''“ & Text4.Text & ”''“ If Adodc3.Recordset.EOF = False Then MsgBox ”此班級(jí)已存在“, , ”提示“ Adodc3.Recordset.MoveFirst Exit Sub End If Text5.Text = ”“ If Text4.Text = ”“ Then MsgBox ”輸入所要添加班級(jí)的名稱“, , ”提示“ Exit Sub End If Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(”class“)= Text4.Text Adodc3.Recordset.Update Adodc3.RecordSource = ”class“ Text4.Text = ”“ Set DataGrid3.datasource = Adodc3 DataGrid3.Refresh 修改班級(jí)源碼：

If Command10.Caption = ”修改“ Then Text4.Text = Text5.Text Label6.Caption = ”輸入想要修改的班級(jí)名稱“ Command10.Caption = ”更新“ Command6.Enabled = False Command9.Enabled = False ElseIf Command10.Caption = ”更新“ Then Command9.Enabled = True Command6.Enabled = True Label6.Caption = ”輸入想要添加的班級(jí)名稱“ Adodc3.Recordset.Fields(”class“)= Text4.Text Adodc3.Recordset.Update Command10.Caption = ”修改“ End If 刪除班級(jí)源碼：

If Text5.Text = ”“ Then MsgBox ”選擇所要?jiǎng)h除班級(jí)的名稱“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想刪除班級(jí)名稱 為

“ & Text5.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then

Adodc3.Recordset.Delete

Adodc3.Recordset.Update End If Text5.Text = ”“ Set DataGrid3.datasource = Adodc3

DataGrid3.Refresh End Sub 4.3.3數(shù)據(jù)備份：

數(shù)據(jù)備份是一個(gè)數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫表進(jìn)行全面的備份，以備以后使用。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。①數(shù)據(jù)備份效果圖

圖4.7數(shù)據(jù)備份效果圖 ② 功能實(shí)現(xiàn)

界面制作相對(duì)程序來說比較簡單，用到的是coolbar控件，點(diǎn)擊按鈕可以選擇備份路徑。然后點(diǎn)擊數(shù)據(jù)備份即可。窗體初始化部分代碼如下： Dim cnn1 As ADODB.Connection Dim rstschema As ADODB.Recordset Dim strcnn As String Set cnn1 = New ADODB.Connection strcnn = ”provider=Microsoft.jet.oledb.4.0;“ & ”data source=“ & App.Path & ”db.mdb“ cnn1.Open strcnn Set rstschema = cnn1.OpenSchema(adSchemaTables)Do Until rstschema.EOF temp = rstschema!Table_Name If Left(temp, 1)<> ”M“ Then End If rstschema.MoveNext Loop cnn1.Close On Error GoTo err PathName = App.Path & ”db.MDB“ dbasize = FileLen(PathName)err: Exit Sub 數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法，dobackup。點(diǎn)擊備份按鈕后開始備份，代碼如下： If txtDestination <> ”“ Then DoBackup PathName, txtDestination MsgBox ”備份成功！“, , ”提示“ ElseIf txtDestination = ”“ Then MsgBox ”You must specify a distination for the backup“, vbCritical 其中DoBackup為模塊中已定義的方法，在這里進(jìn)行調(diào)用。Dobackup實(shí)現(xiàn)方法代碼如下所示： Dim lFileOp As Long Dim lresult As Long Dim lFlags

As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath MkDir BackupFolderName & ”Backup“ & Format(Date, ”yyyy.mm.dd“)& vbNullChar

.fFlags = lFlags End With lresult = SHFileOperation(SHFileOp)Screen.MousePointer = vbDefault frmBackupDba.lblStatus = ”Backup Complete“ 在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊…那個(gè)按鈕開始進(jìn)行選擇，實(shí)現(xiàn)方法如下： Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, ”Select backup path“)If strTemp <> ”“ Then

txtDestination = strTemp End If 數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫遭到破壞后，可以利用它來進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù)據(jù)庫路徑，如下： Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, ”Restore From“)If strTemp <> ”“ Then

txtSource = strTemp

dbasize2 = FileLen(txtSource & ”db.MDB“)

lblSelectedDba = ”Selected Backup Database is : “ & Format((dbasize2 / 1024)/ 1024, ”standard“)& ”MB.“

cmdRestore.Enabled = True End If Erro:

Select Case err.Number

Case 53 ''File Not Found

lblSelectedDba = ”No Backup at this location“

Toolbar2.Enabled = False

End Select 它主要是查看數(shù)據(jù)庫是否存在，如果所恢復(fù)的數(shù)據(jù)不存在，則會(huì)提示錯(cuò)誤。數(shù)據(jù)恢復(fù)也用到了一個(gè)方法，在模塊中也已經(jīng)定義了該方法DoRestore。數(shù)據(jù)恢復(fù)代碼如下： If MsgBox(”Restoring database from location “ & txtSource & ” will replace existing database files.Do you want to Contunue“, vbYesNo)= vbYes Then DoRestore txtSource.Text, App.Path If NoDba = True Then MsgBox ”Database Restored Click Ok to Exit Program“ frmRestoreDba.Hide Unload frmRestoreDba End If Else lblStatus.Caption = ”Database Restore Canceled“ End If 其中DoRestore實(shí)現(xiàn)的功能源碼如下所示：

DEFSOURCE = ”PROVIDER=Microsoft.jet.oledb.4.0;Persist Security Info=False;Data Source=“ DBName = ”db.MDB;Jet OLEDB:Database Password=matrix-se;“ Set Db = New ADODB.Connection

Db.Open DEFSOURCE & App.Path & DBName Dim lFileOp As Long Dim lresult As Long Dim lFlags

As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String Db.Close Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp

.wFunc = lFileOp

.pFrom = strSourcePath & ”db.MDB“ & vbNullChar

.pTo = strDestinationPath & vbNullChar

.fFlags = lFlags End With lresult = SHFileOperation(SHFileOp)Set Db = New ADODB.Connection Db.Open DEFSOURCE & App.Path & DBName Screen.MousePointer = vbDefault frmRestoreDba.lblStatus = ”Restore Complete“ 說明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過測(cè)試已經(jīng)沒有問題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。這實(shí)屬本人精力與能力有限所置。4.3.4 數(shù)據(jù)轉(zhuǎn)換

這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成excel形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。①界面效果圖

圖4.8數(shù)據(jù)轉(zhuǎn)換效果圖 ②實(shí)現(xiàn)方法

在這里用到了一個(gè)顯示gif圖片的控件。選擇左面list中的一個(gè)表后，點(diǎn)擊導(dǎo)出后即可完成，進(jìn)度條中顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。

首先要在list中加載各表名。以便進(jìn)行選擇轉(zhuǎn)換。添加表名部分在load進(jìn)行加載，其中的導(dǎo)出與取消按鈕是由coolbar制作而成。Form的load事件處理內(nèi)容如下：

TMaxAni1.FileName = App.Path & ”iconfind.gif“ TMaxAni1.ShowGif Dim cnn1 As ADODB.Connection Dim rstschema As ADODB.Recordset Dim strcnn As String Set cnn1 = New ADODB.Connection strcnn = ”provider=Microsoft.jet.oledb.4.0;“ & ”data source=“ & App.Path & ”db.mdb“ cnn1.Open strcnn Set rstschema = cnn1.OpenSchema(adSchemaTables)Do Until rstschema.EOF temp = rstschema!Table_Name If Left(temp, 1)<> ”M“ Then List2.AddItem temp End If rstschema.MoveNext Loop cnn1.Close List2.ListIndex = 0 On Error GoTo err PathName = App.Path & ”db.MDB“ dbasize = FileLen(PathName)數(shù)據(jù)轉(zhuǎn)換成excel用到了一個(gè)部件，在引用中用到了Microsoft Excel9.0 Object library。轉(zhuǎn)換代碼如下：

Select Case Button.Index Case 1 Dim provider As String Dim datasource As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = List2.Text.Refresh End With ProgressBar1.Max = Adodc1.Recordset.RecordCount ProgressBar1.Min = 0 ''開始轉(zhuǎn)換

Dim Irow, Icol As Integer

Dim Irowcount, Icolcount As Integer

Dim Fieldlen()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject(”Excel.Application“)

Set xlBook = xlApp.Workbooks.add

Set xlSheet = xlBook.Worksheets(1)With Adodc1.Recordset

.MoveLast

If.RecordCount < 1 Then

MsgBox(”Error!“)

Exit Sub

End If

Irowcount =.RecordCount

Icolcount =.Fields.Count

ReDim Fieldlen(Icolcount)

.MoveFirst

For Irow = 1 To Irowcount + 1

For Icol = 1 To Icolcount

Select Case Irow

Case 1

xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1))= True Then

Fieldlen(Icol)= LenB(.Fields(Icol1))

End If

xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)

xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1))

If Fieldlen(Icol)< Fieldlen1 Then

xlSheet.Columns(Icol).ColumnWidth = Fieldlen1

Fieldlen(Icol)= Fieldlen1

Else

xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)

End If

xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1)).Font.Name = ”黑體“

.Range(.Cells(1, 1),.Cells(1, Icol1)).Borders.LineStyle = xlContinuous

End With

xlApp.Visible = True

'' xlBook.Save

''xlBook.Close

Set xlApp = Nothing

Adodc1.Recordset.ActiveConnection = Nothing End With Toolbar4.Buttons(1).Enabled = False Case 2 Unload Me End Select

[10]...>>

4.4公寓管理 4.4.1學(xué)生請(qǐng)假

學(xué)生請(qǐng)假與違規(guī)在一個(gè)公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。①學(xué)生請(qǐng)假記錄圖片顯示

圖4.9學(xué)生請(qǐng)假效果圖 ② 界面制作與實(shí)現(xiàn)

此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加操作用的是Adodc控件，所有的文本框在初始的時(shí)候沒有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌５诙钱?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會(huì)提示輸入詳細(xì)信息。添加主要代碼如下：

If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Or Text7.Text = ”“ Or Text8.Text = ”“ Or Text9.Text = ”“ Then MsgBox ”請(qǐng)輸入詳細(xì)信息！“, , ”系統(tǒng)提示“ Else With Adodc1.Recordset.AddNew.Recordset.Fields(0).Value = Text1.Text.Recordset.Fields(1).Value = Text2.Text.Recordset.Fields(2).Value = Text3.Text.Recordset.Fields(3).Value = Text4.Text.Recordset.Fields(4).Value = Text5.Text.Recordset.Fields(5).Value = Text6.Text.Recordset.Fields(6).Value = Text7.Text.Recordset.Fields(7).Value = Text8.Text.Recordset.Fields(8).Value = Text9.Text.Recordset.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh End If 4.4.2學(xué)生違規(guī)

①學(xué)生違規(guī)記錄圖片顯示

圖4.10學(xué)生違規(guī)效果圖

此界面與上面的請(qǐng)假記錄差不多。它主要是對(duì)學(xué)生的違規(guī)記錄做一個(gè)添加。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時(shí)候也沒有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。其它操作同上面基本是一致的，對(duì)于違規(guī)在主界面的左側(cè)并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進(jìn)行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會(huì)提示的！②違規(guī)部分代碼如下：

在load事件里對(duì)數(shù)據(jù)庫鏈接的處理，以及日期文本框的設(shè)置，代碼如下： provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”qingjia“.Refresh End With Text1.Text = Date Text1.Enabled = False 確定無誤后，進(jìn)行添加，代碼如下：

If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Or Text7.Text = ”“ Or Text8.Text = ”“ Or Text9.Text = ”“ Then MsgBox ”請(qǐng)輸入詳細(xì)信息！“, , ”系統(tǒng)提示“ Else With Adodc1.Recordset.AddNew.Recordset.Fields(0).Value = Text1.Text.Recordset.Fields(1).Value = Text2.Text.Recordset.Fields(2).Value = Text3.Text.Recordset.Fields(3).Value = Text4.Text.Recordset.Fields(4).Value = Text5.Text.Recordset.Fields(5).Value = Text6.Text.Recordset.Fields(6).Value = Text7.Text.Recordset.Fields(7).Value = Text8.Text.Recordset.Fields(8).Value = Text9.Text.Recordset.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh 4.5衛(wèi)生檢查

公寓衛(wèi)生可以說是一個(gè)公寓管理中最常見到的問題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來進(jìn)行填寫，一定會(huì)十分麻煩，且保存也不是十分方便，在一些評(píng)比中也會(huì)忙的很遭。所以在這個(gè)軟件中編寫了此功能。4.5.1 公寓衛(wèi)生添加效果圖

圖4.11公寓衛(wèi)生添加效果圖 ①在這個(gè)界面中主要用到了文本框以及起到美觀作用的frame控件。日期已經(jīng)設(shè)置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進(jìn)行選擇，如果在下拉列表框中沒有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不全標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒有你想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對(duì)此寢室減掉的分?jǐn)?shù)，單擊得分后面的文本框會(huì)自動(dòng)算出應(yīng)該得到的分?jǐn)?shù)。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級(jí)，衛(wèi)生等級(jí)為必選值且為固定值，正確的選擇此項(xiàng)可以在主界面的左側(cè)中快速對(duì)衛(wèi)生等級(jí)進(jìn)行查看。②公寓選擇欄中代碼的實(shí)現(xiàn)： Combo3.Clear Dim I As Integer I = 1 If Adodc1.Recordset.RecordCount <> 0 Then Do While I < Adodc1.Recordset.RecordCount

Combo3.AddItem(Adodc1.Recordset.Fields(”公寓名稱“))

Adodc1.Recordset.MoveNext

I = I + 1 Loop End If 衛(wèi)生選擇欄中的代碼實(shí)現(xiàn)基本同上，它也是一個(gè)表中的字段值！Dim J As Integer J = 1 If Adodc4.Recordset.RecordCount <> 0 Then Do While J < Adodc4.Recordset.RecordCount

Combo2.AddItem(Adodc4.Recordset.Fields(”等級(jí)“))

Adodc4.Recordset.MoveNext

J = J + 1 Loop End If Combo2.Text = ”優(yōu)秀“ 不合標(biāo)準(zhǔn)的衛(wèi)生記錄填寫情況如下： Combo4.AddItem(”門窗不干凈“)Combo4.AddItem(”地面不干凈“)Combo4.AddItem(”陽臺(tái)不干凈“)Combo4.AddItem(”床鋪不整齊“)Combo4.AddItem(”不疊被“)Combo4.AddItem(”桌面不整齊“)Combo4.AddItem(”書柜擺放不整齊“)由于此窗體中涉及到公寓與寢室，在填寫時(shí)要確定其名稱的正確，所以在添加記錄前要對(duì)它們進(jìn)行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時(shí)用的是adodc中的find命令。類似于用戶登錄時(shí)的判斷，同樣記錄的輸入也要詳細(xì)。代碼如下： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名稱=''“ & Combo3.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”查無此公寓“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If Adodc3.Refresh Adodc3.Recordset.Find ”寢室=''“ & Text5.Text & ”''“ If Adodc3.Recordset.EOF = True Then MsgBox ”查無此寢室“, , ”提示“ Adodc3.Recordset.MoveFirst Exit Sub End If If Combo3.Text = ”“ Or Combo2.Text = ”“ Or Text5.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Then MsgBox ”請(qǐng)輸入詳細(xì)信息！“, , ”系統(tǒng)提示“ Else 確認(rèn)一切無誤后，開始對(duì)所填寫記錄進(jìn)行添加并顯示： With Adodc2.Recordset.AddNew.Recordset.Fields(0).Value = Combo3.Text.Recordset.Fields(1).Value = Text5.Text.Recordset.Fields(2).Value = Combo4.Text.Recordset.Fields(3).Value = Combo5.Text.Recordset.Fields(4).Value = Combo6.Text.Recordset.Fields(5).Value = Combo7.Text.Recordset.Fields(6).Value = Combo8.Text.Recordset.Fields(7).Value = Text2.Text.Recordset.Fields(8).Value = Text3.Text.Recordset.Fields(9).Value = Combo2.Text.Recordset.Fields(10).Value = Text4.Text.Recordset.Fields(11).Value = Text1.Text.Recordset.Update End With Set main.DataGrid1.datasource = Adodc2 main.DataGrid1.Refresh 4.6 公寓資產(chǎn)

公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)行統(tǒng)計(jì)，以免遺忘，造成不必要的損失或不必要的麻煩，它的實(shí)現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對(duì)比來說比上面的簡單一些。不足的是目前只做出了入庫管理，對(duì)于出庫記錄還沒有實(shí)現(xiàn)。4.6.1公寓資產(chǎn)添加設(shè)置效果圖

[10]...>>

圖4.12公寓資產(chǎn)添加效果圖 4.6.2 界面制作與實(shí)現(xiàn)方法 日期的設(shè)置同上面一樣，只讀屬性。公寓名稱與寢室名稱要人工輸入，沒有選擇，這是因?yàn)榭紤]到它不會(huì)像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進(jìn)程，它沒有使用combo，沒有在窗體中進(jìn)行加載。窗體中的數(shù)量與單價(jià)在填寫之后會(huì)自動(dòng)把總價(jià)格計(jì)算出來，類似于上圖中的得分一樣。部分代碼如下： If Text5.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Then MsgBox ”請(qǐng)輸入詳細(xì)信息！“, , ”提示“ Else With Adodc1.Recordset.AddNew.Recordset.Fields(0).Value = Text1.Text.Recordset.Fields(1).Value = Text8.Text.Recordset.Fields(2).Value = Text2.Text.Recordset.Fields(3).Value = Text3.Text.Recordset.Fields(4).Value = Text4.Text.Recordset.Fields(5).Value = Text5.Text.Recordset.Fields(6).Value = Text6.Text.Recordset.Fields(7).Value = Text7.Text.Recordset.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ Text5.Text = ”“ Text6.Text = ”“ Text7.Text = ”“ End If 4.7記錄查看

記錄查看可以讓你對(duì)已錄入的記錄進(jìn)行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個(gè)方面的查看：衛(wèi)生查看、請(qǐng)假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。4.7.1 衛(wèi)生查看 ①界面效果圖

圖4.13衛(wèi)生查看效果圖 ②界面制作與實(shí)現(xiàn)方法

這是一個(gè)比較簡單的窗體操作。看起來精簡、小巧。它主要的功能是對(duì)已經(jīng)錄入的衛(wèi)生記錄進(jìn)行符合條件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點(diǎn)擊確定后即可以看到該日期的記錄。

在進(jìn)行查詢前，要對(duì)所操作的表進(jìn)行綁定，代碼如下： Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weigui“.Refresh End With 日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過對(duì)當(dāng)前表進(jìn)行分類查詢后得到的結(jié)果，然后將其添加在combo中，實(shí)現(xiàn)代碼如下： s = ”select distinct 日期 from weisheng“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With

For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next 查看全部，即把當(dāng)前表中的記錄全部賦給當(dāng)前用來顯示的表格，按日期查看，則是在表中先進(jìn)行查詢，然后對(duì)結(jié)果進(jìn)行重綁定，在賦值。它們的判斷主要是通過單選框的選取來完成的，實(shí)現(xiàn)方法如下： s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from weisheng where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me 4.7.2其它記錄查看 在記錄查看中還有其它三項(xiàng)查看方式，分別是請(qǐng)假、違規(guī)、資產(chǎn)三項(xiàng)記錄查看。它們的實(shí)現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。①請(qǐng)假查看

圖4.14請(qǐng)假查看效果圖

用它可以對(duì)當(dāng)前所有記錄以及有效日期內(nèi)的記錄進(jìn)行查看。代碼如下：

Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from qingjia where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me 在窗體的load中要設(shè)置已經(jīng)添加的日期，需要對(duì)表進(jìn)行條件查詢，代碼如下： s = ”select distinct 日期 from qingjia“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next ②違規(guī)查看

圖4.15違規(guī)查看效果圖

目前此類功能還不是十分理想，有些查看方式會(huì)在以后的程序中進(jìn)行升級(jí)。在Load事件設(shè)置了窗體運(yùn)行時(shí)所有需要的東西。代碼如下：

Option1.Value = True Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weigui“.Refresh End With s = ”select distinct 日期 from weigui“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next 查看部分的源代碼如下： Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from weigui where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me ③資產(chǎn)查看

圖4.16資產(chǎn)查看效果圖

在Load事件設(shè)置了窗體運(yùn)行時(shí)所有需要的東西。代碼如下：

On Error Resume Next Option1.Value = True Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”zichan“.Refresh End With s = ”select distinct 日期 from zichan“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc3.Recordset.RecordCount Combo1.AddItem(Adodc3.Recordset.Fields(”日期“))Adodc3.Recordset.MoveNext Next 查看部分代碼如下所示： On Error Resume Next Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from zichan where 日期=''“ & Trim(s)& ”''“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc2 main.DataGrid1.Refresh End If Call dx1 Unload Me 4.8記錄刪除

刪除是一個(gè)數(shù)據(jù)庫軟件中最基本的操作之一。在本軟件的工具欄中也有一個(gè)刪除按鈕，其功能也是將所找到的記錄刪除，但是它每次只能刪除一條記錄，且此刪除記錄的前提是在右側(cè)的顯示中容易找出，即記錄不多的情況下使用。如果一旦數(shù)據(jù)記錄很多，一條條查找比較不方便時(shí)，即可以使用此窗體進(jìn)行刪除。這里的刪除也有四個(gè)窗體，分別為衛(wèi)生刪除、請(qǐng)假刪除、違規(guī)刪除、資產(chǎn)刪除。下面分別介紹。4.8.1 衛(wèi)生刪除 ①效果圖

圖4.17衛(wèi)生刪除效果圖

②界面制作與實(shí)現(xiàn)方法

這個(gè)界面總體來說各個(gè)控件比較簡單，但是作為一個(gè)刪除操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的表相聯(lián)。且有三種刪除記錄方式可以選擇。默認(rèn)為單條刪除，選擇此項(xiàng)后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當(dāng)這三條全部符合要求后，在表中進(jìn)行查找，找到后確認(rèn)刪除。選擇批量刪除后，在下面只有一個(gè)日期可以選擇，這樣將會(huì)把所選日期內(nèi)的所有記錄都將刪除掉，所以稱其為批量刪除。全部即是把當(dāng)前表清空，全部刪除掉，建議使用此操作前對(duì)當(dāng)前數(shù)據(jù)庫進(jìn)行備份處理，否則數(shù)據(jù)將不會(huì)恢復(fù)。首先要進(jìn)行數(shù)據(jù)庫連接，如上面例子所示，這里就不在介紹，接下來要對(duì)本窗體中的日期進(jìn)行加載，如下所示： s = ”select distinct 日期 from weisheng“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Combo2.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next Option1.Value = True Frame3.Visible = True Frame5.Visible = False Frame6.Visible = False 在單條刪除前要確定所有條件符合要求，單條刪除操作的代碼主要部分如下：

If(MsgBox(”你真的想刪除日期為

“ & Combo1.Text & ”

公寓為

“ & Text1.Text & ”

寢室為

“ & Text2.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weisheng where 日期=''“ &

Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寢室=''“ & Trim(Text2.Text)& ”''“

'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If Unload Me 當(dāng)選擇某一日期后進(jìn)行批量刪除代碼如下：

If(MsgBox(”你真的想刪除日期為

“ & Combo2.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weisheng where 日期=''“ & Trim(Combo2.Text)& ”''“ Combo2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If Unload Me 清空數(shù)據(jù)表代碼為：

If(MsgBox(”你真的想刪除所有的記錄嗎？一旦刪除即不可恢復(fù)“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then For I = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Next I End If MsgBox ”刪除成功“, , ”系統(tǒng)提示“ Unload Me 4.8.2請(qǐng)假記錄 ①效果圖

[10]...>>

圖4.18請(qǐng)假記錄刪除效果圖 ②界面制作與實(shí)現(xiàn)方法

這個(gè)窗體與上面不同的是多了一個(gè)姓名條件，其它的都基本一致。由于在一個(gè)公寓中會(huì)有很多人要得名，但是在某一公寓某一寢室中只會(huì)有一個(gè)人，這也是一個(gè)公寓分配住宿人員時(shí)的基本標(biāo)準(zhǔn)，因?yàn)檫@樣也便于公寓本身的管理。此刪除窗體只有單條刪除與上面不同，單條刪除部分代碼如下：

If(MsgBox(”你真的想刪除日期為

“ & Combo1.Text & ”

公寓為

“ & Text1.Text & ”

寢室為

“ & Text2.Text & ”

姓名為

“ & Text3.Text & ” 的請(qǐng)假記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from qingjia where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寢室=''“ & Trim(Text2.Text)& ”''and 姓名=''“ & Trim(Text3.Text)& ”''“

'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If 4.8.3 違規(guī)刪除 ①效果圖

圖4.19違規(guī)記錄刪除效果圖 ②界面制作與實(shí)現(xiàn)方法

違規(guī)刪除操作與請(qǐng)假刪除操作基本一致，不同之處只是在于后臺(tái)對(duì)不同的表進(jìn)行處理，前臺(tái)界面大體相同。其實(shí)現(xiàn)方法與上現(xiàn)的也差不太多，這里就不在敘述。單條刪除記錄： Dim sql As String Dim s As String Dim panduan As Boolean If Combo1.Text = ”“ And Text1.Text = ”“ And Text2.Text = ”“ Then MsgBox ”請(qǐng)輸入刪除條件!“, , ”提示“ Exit Sub End If s = Combo1.Text If(MsgBox(”你真的想刪除日期為

“ & Combo1.Text & ”

公寓為

“ & Text1.Text & ”

寢室為

“ & Text2.Text & ”

姓名為

“ & Text3.Text & ” 的違規(guī)記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weigui where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寢室=''“ & Trim(Text2.Text)& ”'' and 姓名=''“ & Trim(Text3.Text)& ”''“

'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If Unload Me 成批刪除記錄：

If(MsgBox(”你真的想刪除日期為

“ & Combo2.Text & ” 的記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weigui where 日期=''“ & Trim(Combo2.Text)& ”''“ Combo2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If Unload Me 刪除所有記錄：

If(MsgBox(”你真的想刪除所有的記錄嗎？一旦刪除即不可恢復(fù)“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then For I = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Next I End If MsgBox ”刪除成功“, , ”系統(tǒng)提示“ Unload Me 4.8.4 資產(chǎn)刪除 ①效果圖

圖4.20資產(chǎn)刪除效果圖 ② 界面制作與實(shí)現(xiàn)方法

與衛(wèi)生記錄刪除不同的是寢室改為了名稱。值得注意的是，此處公寓與名稱都要人工輸入，所以在輸入的時(shí)候要注意不要有多余字符，否則會(huì)出錯(cuò)刪除不掉的情況。單條刪除部分源碼如下：

If(MsgBox(”你真的想刪除日期為

“ & Combo1.Text & ”

公寓為

“ & Text1.Text & ”

名稱為

“ & Text2.Text & ” 的資產(chǎn)記錄嗎？“, vbOKCancel, ”系統(tǒng)提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from zichan where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 名稱=''“ & Trim(Text2.Text)& ”''“

'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”刪除成功“, , ”系統(tǒng)提示“ End If 4.9值班記錄

值班記錄這項(xiàng)可以說是此軟件的一個(gè)新增功能。它的界面小巧，并且它可以讓值班人員記錄前天發(fā)生的一些事情，字?jǐn)?shù)在1000字左右。可以說是一個(gè)小型的日記本。4.9.1 值班記錄 ①值班記錄效果圖

圖4.21值班記錄效果圖 ② 實(shí)現(xiàn)思想與功能

此窗體的功能以及其源代碼是經(jīng)過修改之后而形成的，源文件是一個(gè)電子記事本，發(fā)現(xiàn)后經(jīng)過修改后做出一個(gè)日記本。

在上面的日期后面的文本框中，你可以輸入如窗口標(biāo)題后面所示的日期格式后，點(diǎn)擊查看，即可以查看到所選日期的詳細(xì)記錄。這是一種查詢方法，當(dāng)然你也可以用右面簡單的上一條與下一條進(jìn)行快速查看，但是它只能查看當(dāng)日日期起開始的記錄，如果與你所想要查看的日期相差很遠(yuǎn)，那么你就需要使用第一種方法了。這個(gè)日記本還支持修改與刪除功能。當(dāng)你想編輯或刪除某一日期的時(shí)候時(shí)，你需要用查看方法找到該記錄，然后對(duì)當(dāng)前記錄使用編輯或刪除即可完成操作。刪除后，記錄即不可恢復(fù)，且此日記目前還沒有備份功能，慎重操作。

如果你今天值班，還沒有寫值班記錄，那么你可以點(diǎn)擊增加按鈕，開始寫當(dāng)日的值班記錄，說明的是，每天只可以寫一次記錄。當(dāng)你寫完今天記錄后，在點(diǎn)擊增加時(shí)會(huì)提示你今日已寫完。但是你可以對(duì)今日記錄進(jìn)行編輯修改。

本程序源碼較為復(fù)雜，主要都是對(duì)文件進(jìn)行操作，并沒有把記錄添加到數(shù)據(jù)庫中，所以不支持備份操作，且本窗體中的操作程序還用到了一個(gè)模塊。部分代碼如下： 查看上一條記錄：

If giCurrentRecord > 1 Then

giCurrentRecord = giCurrentRecord1

Form_Load

End If 4.9.2 增加記錄 ①增加記錄效果圖

圖4.22增加記錄效果圖 ② 實(shí)現(xiàn)思想與程序源碼

日期后顯示當(dāng)前日期，但是可以修改。每篇記錄的字?jǐn)?shù)要求在1000字以內(nèi)。支持對(duì)當(dāng)前字符輸入的統(tǒng)計(jì)，確定完成本日記錄后，點(diǎn)擊保存即可。部分代碼如下：

Dim bSaved As Boolean, bCF If txtDate = ”“ Or txtMemo = ”“ Then Exit Sub '' 如果記錄未填,則退出 If riji.Tag = ”addnew“ Then

If giRecordCount >= 1 Then

''新增時(shí),檢查記錄是否重復(fù)

gsSql = frminput.txtDate

bCF = FindData(gsSql)

If bCF Then

MsgBox ”今天你已經(jīng)寫過日記了!“, vbExclamation + vbOKOnly, ”每日一記“

txtMemo.SetFocus

Exit Sub

End If

End If

giRecordCount = giRecordCount + 1

bSaved = WriteData()ElseIf riji.Tag = ”modify“ Then ''

bSaved = ModifyData()End If If bSaved = True Then

AddNext = MsgBox(”保存完畢!“, vbExclamation + vbOKOnly, ”每日一記“)End If Unload Me 由于此段代碼中用到了一個(gè)模塊，在模塊中定義了很多過程，各過程實(shí)現(xiàn)功能及代碼如下所示：

讀取數(shù)據(jù)：

Public Sub ReadData(curRecord As Integer)''讀取數(shù)據(jù) On Error Resume Next Dim strcaption$

riji.txtDate = goDiarys(curRecord).fldDate

riji.txtMemo = goDiarys(curRecord).fldMemo

strcaption = ”每日一記

[“ & Date & ”] “ & Time & ” WeekdayName(Weekday(Date))& “ 記錄:” & giCurrentRecord & “/” & giRecordCount

riji.Caption = strcaption End Sub 查詢數(shù)據(jù)：

Public Function FindData(sql As String)As Boolean ''查詢數(shù)據(jù) On Error Resume Next

Dim I%

For I = 1 To giRecordCount

If goDiarys(I).fldDate = sql Then

giCurrentRecord = I

FindData = True

Exit For

End If

Next

ReadData giCurrentRecord End Function 新增數(shù)據(jù)：

Public Function WriteData()As Boolean ''新增數(shù)據(jù) On Error Resume Next

Dim iFreefile%, I%

iFreefile = FreeFile()

Open gsPath & “DATA.DAT” For Random As #iFreefile Len = en(goDiary)

ReDim Preserve goDiarys(giRecordCount)

goDiarys(giRecordCount).fldDate = frminput.txtDate

goDiarys(giRecordCount).fldMemo = frminput.txtMemo

goDiary = goDiarys(giRecordCount)

Put #iFreefile, giRecordCount, goDiary

giCurrentRecord = giRecordCount

ReadData(giCurrentRecord)

Close #iFreefile

WriteData = True

“ & End Function 修改數(shù)據(jù)：

Public Function ModifyData()As Boolean ''修改數(shù)據(jù) On Error Resume Next

Dim iFreefile%, I%

iFreefile = FreeFile()

Open gsPath & ”DATA.DAT“ For Random As #iFreefile Len =len(goDiary)

goDiarys(giCurrentRecord).fldDate = frminput.txtDate

goDiarys(giCurrentRecord).fldMemo = frminput.txtMemo

goDiary = goDiarys(giCurrentRecord)

Put #iFreefile, giCurrentRecord, goDiary

ReadData(giCurrentRecord)

Close #iFreefile

ModifyData = True End Function 刪除數(shù)據(jù)：

Public Sub DeleteData()''刪除數(shù)據(jù) On Error Resume Next

Dim iFreefile%, I%, J%

I = 1: J = 1

iFreefile = FreeFile()

Open gsPath & ”temp.dat“ For Random As #iFreefile Len = Len(goDiary)

goDiarys(giCurrentRecord).fldMemo = ”IWantToKillIt*“ & goDiarys(giCurrentRecord).fldMemo ''加刪除標(biāo)記

For I = 1 To giRecordCount

''無刪除標(biāo)記的記錄保存到臨時(shí)文件,TEMP.DAT

If Left(goDiarys(I).fldMemo, 14)<> ”IWantToKillIt*“ Then

goDiary = goDiarys(I)

Put #iFreefile, J, goDiary

''在此必須有I,J兩個(gè)變量,因?yàn)槭褂枚M(jìn)制保存文件，J = J + 1

''從1開始到后面,中間如有間隔就會(huì)出現(xiàn)亂碼

End If

Next

Close #iFreefile

Kill gsPath & ”data.dat“

Name gsPath & ”temp.dat“ As gsPath & ”data.dat“

riji.txtDate = ”“

riji.txtMemo = ”“ End Sub 說明：由于本人能力有限，對(duì)文件部分還不算是很了解，這個(gè)功能的實(shí)現(xiàn)主要是借用了網(wǎng)上的一個(gè)電子記事本。本人只是對(duì)其做了一些修改，做成了這個(gè)每日一記，但個(gè)人認(rèn)為此功能還算是可以。4.10 Help制作 Help文檔的制作也標(biāo)志著本軟件基本完成。制作help文檔需要一個(gè)專業(yè)制作軟件，本人使用的是破解版的QuickCHM，此軟件無論在功能上還在是操作上用起來都是很方便。QuickCHM軟件的界面及其使用如下：

[10]...>>

圖4.23 QuickCHM軟件的界面 它屬于一個(gè)傻瓜型的制作軟件，利用它可以快速的制作出各種你所需要的幫助文檔。但是如果想制作出如下圖所示的文檔，那么需要使用制作網(wǎng)頁的軟件把內(nèi)容先做成html形式，然后在用此軟件進(jìn)行加載，最后生成chm文檔。在制作前要制作出相差的網(wǎng)頁形式，本人使用Dreamweaver。用它先做出要用到的相差頁面，大約一共為十個(gè)。然后在用QuickCHM把所有的網(wǎng)頁添加進(jìn)去，然后對(duì)QuickCHM進(jìn)行各項(xiàng)設(shè)置，最后點(diǎn)擊編譯即可生成help文檔，后綴為.Chm。在本管理軟件中可以按F1或點(diǎn)擊幫助菜單下的幫助主題即可顯示該幫助文檔，調(diào)用的過程也很簡單，兩條語句即可以實(shí)現(xiàn)。代碼如下：

在主窗體的load事件中添加下面語句： App.HelpFile = App.Path & ”help.chm“ 在幫助主題的click事件中添加下面語句： SendKeys ”{F1}" 上面這兩條語句即可以實(shí)現(xiàn)調(diào)用幫助文檔的功能。

第五章 系統(tǒng)測(cè)試

編寫出的各功能模塊需要進(jìn)行測(cè)試，對(duì)于模塊化應(yīng)用程序，軟件開發(fā)的最后一部分便是不斷的測(cè)試程序最終編譯成可執(zhí)行的.exe文件，該階段主要對(duì)系統(tǒng)的正確性及完整性等方面進(jìn)行測(cè)試。主要進(jìn)行：功能確認(rèn)測(cè)試、運(yùn)行測(cè)試、健壯性測(cè)試、安全性測(cè)試以及查錯(cuò)方面的測(cè)試等，系統(tǒng)測(cè)試的測(cè)試人員由測(cè)試組成員（或質(zhì)量保證人員）或測(cè)試組成員與用戶共同測(cè)試，在整個(gè)系統(tǒng)開發(fā)完成，即將交付用戶使用前進(jìn)行。在這一階段，對(duì)整個(gè)系統(tǒng)進(jìn)行測(cè)試，系統(tǒng)測(cè)試結(jié)束后我們應(yīng)該打軟件打包，使其脫離VB的環(huán)境下也能正常運(yùn)行。打包應(yīng)將所有程序需要的文件加載進(jìn)去，如數(shù)據(jù)庫（DB.MDB），每日一記和幫助的文件都要進(jìn)行加載。在調(diào)試程序過程中，由于某些內(nèi)在的錯(cuò)誤影響程序的運(yùn)行，在采用上述調(diào)試方法對(duì)程序進(jìn)行調(diào)試后，程序運(yùn)行情況良好，達(dá)到了預(yù)期的設(shè)計(jì)目標(biāo)，基本上滿足了用戶的需要。

總結(jié)

到目前為止，學(xué)生公寓管理軟件基本開發(fā)完畢，軟件界面美觀，運(yùn)行時(shí)間短，執(zhí)行功能強(qiáng)，其功能基本符合用戶需求。能夠完成對(duì)學(xué)生公寓中學(xué)生基本資料的存儲(chǔ)和查詢，并提供數(shù)據(jù)轉(zhuǎn)換、數(shù)據(jù)備份等系統(tǒng)維護(hù)功能，可以使用查找、修改、添加和刪除對(duì)學(xué)生公寓管理軟件的操作等。

由于本人知識(shí)有限，又是剛初學(xué)軟件，時(shí)間比較倉促，又缺乏經(jīng)驗(yàn)，必定有不足和不周之處，希望各位老師給予指導(dǎo)，本人將繼續(xù)完善修改，使此系統(tǒng)能更好地發(fā)揮性能。

參考文獻(xiàn)

Visual Basic 程序設(shè)計(jì)

王棟

清華大學(xué)出版社 Visual Basic 高級(jí)編程宋偉

吳建國

清華大學(xué)出版社 Visual Basic 6.0 入門與提高 戴紅 陳哲 清華大學(xué)出版社 Visual Basic 6.0應(yīng)用指南

何斌 王運(yùn)堅(jiān)

馮峰 劉醒

人民郵電出版社

Visual Basic 高級(jí)編程技術(shù) 陳 明

楊勁松

北京希望電子出版社

Visual Basic實(shí)用教程

陳弘原

中國水利水電出版社

數(shù)據(jù)庫系統(tǒng)概論

薩師煊、王珊 高等教育出版社

軟件系統(tǒng)開發(fā)技術(shù)

潘錦平施小姚 西安電子科技大學(xué)出版

<<

[11]

第四篇：高校學(xué)生公寓管理系統(tǒng)設(shè)計(jì)

畢業(yè)設(shè)計(jì)（論文）開題報(bào)告

高校學(xué)生公寓管理系統(tǒng)設(shè)計(jì)

學(xué)生姓名

學(xué)號(hào)

系別

專業(yè)計(jì)算機(jī)畢業(yè)設(shè)計(jì)

屆別

指導(dǎo)教師

職稱

年月日

第五篇：學(xué)生公寓管理

學(xué)生公寓管理

1、學(xué)生公寓應(yīng)該堅(jiān)持什么的工作理念？A

A 以人為本，育人為先

B 科學(xué)管理，育人為先 C 育人為先，物資獎(jiǎng)勵(lì)

D 以人為本，科學(xué)管理

2、學(xué)生公寓應(yīng)該堅(jiān)持什么原則？D A 教育管理

B 物業(yè)服務(wù)

C學(xué)生自律

D 三者都有

3、我校學(xué)生公寓管理的專門機(jī)構(gòu)是什么？A A 宿舍管理中心

B 保衛(wèi)科

C 學(xué)生科

D 教務(wù)科

4、我校學(xué)生公寓實(shí)行什么形式管理？C A 以樓或小區(qū)為單位

B以學(xué)生為主體

C 按樓管理與小區(qū)管理

D由宿管中心調(diào)配

5、學(xué)生公寓管理的校級(jí)學(xué)生自律組織有D A 校大學(xué)生自律委員會(huì)

B 學(xué)生樓管會(huì)

C 宿管科

D

A與B

6、宿舍內(nèi)違紀(jì)行為無法落實(shí)責(zé)任人的，其責(zé)任由誰承擔(dān)？A A 同宿舍全體成員

B 宿管阿姨

C 同班同學(xué)

D 三者都有

7、申請(qǐng)走讀手續(xù)多久辦理一次？C A 二年

B 6個(gè)月

C 一年

D 3個(gè)月

8、申請(qǐng)走讀手續(xù)，新生需在什么時(shí)間內(nèi)辦理？A A 一周內(nèi)

B 二周內(nèi)

C三周內(nèi)

D一個(gè)月

9、申請(qǐng)走讀手續(xù)，除新生外，其他年級(jí)學(xué)生須在什么時(shí)候辦理？A A 五月份

B 六月份

C 七月份

D八月份

10、學(xué)生因退學(xué)、轉(zhuǎn)學(xué)、休學(xué)、出國等原因中途停止住宿，住宿不滿一學(xué)期（含滿一學(xué)期）的收取住宿費(fèi)的標(biāo)準(zhǔn)是什么？D A 半學(xué)期

B八個(gè)月

C 九個(gè)月

D一學(xué)期

11、學(xué)生因退學(xué)、轉(zhuǎn)學(xué)、休學(xué)、出國等原因中途停止住宿，超過一學(xué)期不滿一學(xué)年的收取住宿費(fèi)的標(biāo)準(zhǔn)是什么？A A 一學(xué)年

B八個(gè)月

C 九個(gè)月

D一學(xué)期

12、住宿學(xué)生能不能添置室內(nèi)家具?C A能

B隨你愿意

C不能

D不知道

13、宿管中心接到公務(wù)報(bào)修后，正常水電零修應(yīng)在什么時(shí)間內(nèi)完成？A A 當(dāng)天

B二天

C三天

D一周

14、宿管中心接到公務(wù)報(bào)修后，門窗家具零修應(yīng)在什么時(shí)間內(nèi)完成？A A 24 小時(shí)

B 12小時(shí)

C 13小時(shí)

D 20小時(shí)

15、宿管中心接到公務(wù)報(bào)修后，土建管修應(yīng)在什么時(shí)間內(nèi)完成？C A 兩周 B 當(dāng)天

C 一周 D 三天

16、學(xué)生進(jìn)出學(xué)生公寓樓，應(yīng)服從誰的管理？D :A 所處二級(jí)學(xué)院

B 學(xué)生科

C 保衛(wèi)科

D 管理人員 17學(xué)生原則上不得離開學(xué)生公寓樓的時(shí)間是A

A 22：30—5:30

B 22:00—5:00 C 23:00—5:00 D23;00—5:30

18、宿舍管理員在每周內(nèi)應(yīng)檢查多少次宿舍？A A 二至三次

B 每天都檢查

C 一次

D 四次

19、校大學(xué)生自律委員會(huì)原則上在什么時(shí)候檢查宿舍衛(wèi)生？B A 周一下午

B 周三下午

C 周四下午

D 周二下午 20、學(xué)生公寓的供電時(shí)間是A A 6:00—23;00

B 6:00—8:00

C 12:00—14:00

D B與C

21、在學(xué)生公寓區(qū)內(nèi)組織的集體活動(dòng)，須經(jīng)誰的批準(zhǔn)？D A 學(xué)生科

B 教務(wù)科

C 保衛(wèi)科

D 宿管中心

22、學(xué)校決定在全校學(xué)生寢室中開展學(xué)生寢室評(píng)比級(jí)暨“文明寢室”評(píng)比活動(dòng)的目的是什么？D A 為學(xué)生營造安全的環(huán)境

B 營造學(xué)生氛圍

C 營造安全文明的生活

D 營造安全文明的生活、學(xué)習(xí)環(huán)境

23、A級(jí)宿舍將被授予學(xué)期什么稱號(hào)？A A 文明寢室

B 安全衛(wèi)生寢室

C 合格宿舍

D 不合格宿舍

24、宿舍評(píng)價(jià)結(jié)論分為幾個(gè)等級(jí)？B A 一個(gè)

B 三個(gè)

C 二個(gè)

D四個(gè)

25、宿舍評(píng)比依據(jù)是什么？A A 鹽城工學(xué)院學(xué)生寢室衛(wèi)生檢查評(píng)分標(biāo)準(zhǔn)

B鹽城工學(xué)院學(xué)生 C鹽城工學(xué)院學(xué)生行為準(zhǔn)則

D 鹽城工學(xué)院學(xué)生網(wǎng)絡(luò)行為規(guī)范

26、基礎(chǔ)免費(fèi)電量是根據(jù)什么核定的？ A

A 學(xué)生所交住宿費(fèi)的多少

B 宿舍人數(shù)的多少

C 學(xué)校管理制度

D 三者都有

27、為保證必要的休息時(shí)間，對(duì)考研學(xué)生的供電時(shí)間不超過夜:B A 12:00

B 12:30

C 11:30 D 11:00

28、學(xué)生購電及辦理延時(shí)，增容手續(xù)，應(yīng)在正常工作的什么時(shí)間段辦理？C A 早上8:00—11:30

B 早上8:00—9;30 C 下午3:00—5:00

D 下午3:00—6:00

29、申請(qǐng)走讀的學(xué)生可憑書面申請(qǐng)到所在的二級(jí)學(xué)院學(xué)生科取《鹽城工學(xué)院學(xué)生申請(qǐng)走讀審批表》，一式幾份？C A 1 B 2 C 3 D 4 30、每學(xué)年開學(xué)初所有學(xué)生寢室按多少個(gè)安培送電？C A 2

B 3 C 2—3

D 2—4

31、學(xué)生在校學(xué)習(xí)期間原則上不得提出校外住宿要求，情況特殊應(yīng)辦理C A 休學(xué)

B 退學(xué)

C 走讀

D 轉(zhuǎn)學(xué)

32、每間開學(xué)后一周內(nèi)選出的寢室長任期是A A 一年

B 二年

C 三年

D 四年

33、被授予什么將發(fā)證書D A 安全衛(wèi)生宿舍

B 文明宿舍

C 合格宿舍

D 文明示范宿舍

34、公用部分衛(wèi)生寢室多久一循環(huán)？A A 三周B 三月

C 六周D 半年

35、學(xué)生住宿由宿管中心提出方案報(bào)——批準(zhǔn)后，由宿管中心赫各級(jí)二級(jí)學(xué)院學(xué)生共同實(shí)B

A 學(xué)院科長

B 學(xué)生處處長室

C 輔導(dǎo)員

D 校長

36、對(duì)于指定房間床位的調(diào)整，應(yīng)經(jīng)——同意。B A 宿管阿姨

B 宿管中心

C 學(xué)生處處長室

D 學(xué)院科長

37、放假期間，學(xué)生想留住學(xué)校在填寫審批表，經(jīng)學(xué)生處——審批后，被統(tǒng)一安排住宿。B A 宿管中心

B 二級(jí)學(xué)院

C 輔導(dǎo)員

D 學(xué)生處處長室

38、學(xué)生宿舍去公共場(chǎng)所衛(wèi)生由——負(fù)責(zé)D A 值日生

B 管理員

C 無人

D 保潔員

39、學(xué)生公寓管理方法由——負(fù)責(zé)解釋。A A 學(xué)生處

B 宿管中心

C 教務(wù)處

D 二級(jí)學(xué)院 40、學(xué)生寢室評(píng)比結(jié)果由——公布。A A 學(xué)生處宿管中心

B 網(wǎng)站

C 教務(wù)處

D 二級(jí)學(xué)院

41、大學(xué)一級(jí)學(xué)生——及所在寢室評(píng)為D級(jí)的學(xué)生不具備帶電腦資格。A A 上一學(xué)期期末考試成績不及格出現(xiàn)重修

B 被通報(bào)批評(píng)

C 掛科者

D 走讀生

42、應(yīng)被學(xué)生家長將電腦領(lǐng)回而沒被領(lǐng)回的，由——代為保管。B A 學(xué)生處

B 二級(jí)學(xué)院學(xué)生科

C 宿管中心

D 管理員

43、以人為本，育人為先是學(xué)生公寓管理應(yīng)堅(jiān)持的搶答：A A 工作理念

B 原則

C 方針

D 政策

44、宿舍管理中心是我校學(xué)生公寓管理的B A 部門

B 專門機(jī)構(gòu)

C 單位

D 代表

45、我校學(xué)生公寓管理以——為單位。D A 管理員

B 學(xué)生

C 樓

D樓或小區(qū)

46、我校學(xué)生公寓管理實(shí)行——負(fù)責(zé)制。A A 管理員

B 學(xué)生

C 寢室長

D 輔導(dǎo)員

47、學(xué)生自律委員會(huì)與學(xué)生樓管會(huì)是學(xué)生公寓管理的——B A 院級(jí)學(xué)生自律組織

B 校級(jí)學(xué)生自律組織

C 學(xué)生機(jī)構(gòu)

D 學(xué)生自律組織

48、宿管中心接到公務(wù)報(bào)修后，須在兩周完成的是——B A 門窗家具

B 土建管修

C 正常水電零修

D三者都是

49、宿管中心接到公務(wù)報(bào)修后，須在當(dāng)天完成的是——C A 門窗家具

B 土建管修

C 正常水電零修

D三者都是 50、宿管中心接到公務(wù)報(bào)修后，須在24小時(shí)內(nèi)完成的是——A A 門窗家具

B 土建管修

C 正常水電零修

D三者都是 51、22:30—5;30是學(xué)生原則上不得離開———時(shí)間A

A 學(xué)生公寓

B 學(xué)校

C 教室

D 食堂

52、在每周應(yīng)檢查二到三次宿舍是——該做的。C A 學(xué)生科

B 教務(wù)科

C 宿舍管理員

D保衛(wèi)科

53、學(xué)生公寓是學(xué)生——的重要場(chǎng)所。D A 學(xué)生

B生活

C 休息

D三者都是

54、堅(jiān)持教育管理、物業(yè)服務(wù)、學(xué)生自律三結(jié)合是學(xué)生公寓管理——A A 工作原則

B 方針

C 政策

D規(guī)定

55、原則上在周三下午時(shí)候檢查宿舍衛(wèi)生的是——D A 宿管中心

B 學(xué)生科

C 保衛(wèi)科

D自律委

56、“文明寢室”稱號(hào)是哪類宿舍？A A A級(jí)

B B級(jí)

C C級(jí)

D D級(jí)

57、“安全衛(wèi)生寢室” 稱號(hào)是哪類宿舍？B A A級(jí)

B B級(jí)

C C級(jí)

D D級(jí)

58、“合格宿舍” 稱號(hào)是哪類宿舍？C A A級(jí)

B B級(jí)

C C級(jí)

D D級(jí)

59、“不合格宿舍” 稱號(hào)是哪類宿舍？D A A級(jí)

B B級(jí)

C C級(jí)

D D級(jí) 60、“文明示范寢室” 稱號(hào)是哪類宿舍？A A

A級(jí)中特優(yōu)

B B 級(jí)中特優(yōu)

C C 級(jí)中特優(yōu)

D D級(jí)中特優(yōu)

61、“文明示范寢室” 稱號(hào)是哪類宿舍？A A AAA

B AA

C BBB

D BB 62、學(xué)生寢室評(píng)級(jí)和“文明寢室”評(píng)比活動(dòng)，根據(jù)各寢室的——等方面的情況綜合評(píng)定。D A 衛(wèi)生

B 安全

C 文化建設(shè)

D三者都有 63、——等住宿紀(jì)律檢查由管理員、自律委每天檢查。D A 晚歸

B 不歸

C 離校

D 晚歸、不歸

64、凡被評(píng)為“文明寢室”、“安全衛(wèi)生寢室” 的寢室將——D A 予以通報(bào)表揚(yáng)

B 授予相應(yīng)標(biāo)志牌

C 發(fā)證書

D A與B 65、被授予“文明示范寢室” 將——C A 發(fā)證書

B 給予一定的物質(zhì)獎(jiǎng)勵(lì)

C A與B

D 表揚(yáng) 66、不合格宿舍將予以——A A 通報(bào)批評(píng)

B 取消資格

C 扣學(xué)分

D 三者都有 67、在宿舍評(píng)分標(biāo)準(zhǔn)中，項(xiàng)目室風(fēng)的分值是——A A 15

B25 C 35 D 10 68、在宿舍評(píng)分標(biāo)準(zhǔn)中，項(xiàng)目環(huán)境的分值是——B

A 15

B25 C 35 D 10 69、在宿舍評(píng)分標(biāo)準(zhǔn)中，項(xiàng)目壁面的分值是——A A 15

B25 C 35 D 10

70、在宿舍評(píng)分標(biāo)準(zhǔn)中，項(xiàng)目櫥柜的分值是——D A 15

B25 C 35 D 10 71、宿舍評(píng)比總分為100，采用——B A 加分制

B 扣分制 C 多勞多得

D 乘除制

72、年住宿費(fèi)為500元的宿舍，每生每月用電指標(biāo)為——B A 2

B 3

C 4

D 5 73、年住宿費(fèi)為800元的宿舍，每生每月用電指標(biāo)為——C A 2

B 3

C 4

D 5 74、年住宿費(fèi)為1000元的宿舍，每生每月用電指標(biāo)為——D

A 2

B 3

C 4

D 5 75、基礎(chǔ)免費(fèi)電量學(xué)期初由——一次性發(fā)送到每間寢室。A A 宿管中心

B 學(xué)生科

C 保衛(wèi)科

D 教務(wù)科

76、學(xué)生基礎(chǔ)免費(fèi)電量由學(xué)校免費(fèi)提供，超量用電費(fèi)用由學(xué)生自理，——B A 先用后購

B 先購后用

C 不用付費(fèi)

D 先用再說 77、宿舍所有張貼物均用——固定。A A 透明膠帶

B 漿糊

C 雙面膠

D 圖釘

78、根據(jù)——管理員、自律委會(huì)每周分別做出一次評(píng)比。B A 得分高低

B 宿舍成員表現(xiàn)

C 宿舍成員與宿管阿姨的關(guān)系的好壞

D宿舍成員與自律委成員的關(guān)系的好壞

79、在學(xué)生寢室檢查評(píng)分標(biāo)準(zhǔn)中，分值是25分的是——A A 室風(fēng)

B 環(huán)境

C 壁面

D 床鋪

80、學(xué)生寢室自備計(jì)算機(jī)實(shí)行——制度。B A 審批

B 登記

C A與 B

D 視察

81、凡因?qū)W習(xí)需要在寢室自備計(jì)算機(jī)的學(xué)生，須到——登記備案。A A 學(xué)生處宿舍管理中心

B 學(xué)生科

C 教務(wù)科 D 保衛(wèi) 82、學(xué)生公寓管理應(yīng)堅(jiān)持——工作理念。AB

A 以人為本

B 育人為先

C 教育管理

D 物業(yè)服務(wù) 83、學(xué)生公寓管理應(yīng)堅(jiān)持——工作原則。ABC A 教育管理

B 物業(yè)服務(wù)

C 學(xué)生自律

D 育人為先 84、學(xué)生公寓管理著力實(shí)現(xiàn)——ABCD A 常規(guī)制度管理化

B 特色工作正常化

C 學(xué)生服務(wù)親情化

D 環(huán)境氛圍人文化

85、我校學(xué)生公寓實(shí)行——相結(jié)合方式。AB A 按樓管理

B 小區(qū)管理

C 以樓或區(qū)

D 管理員、學(xué)生 86、學(xué)生公寓設(shè)——崗位。ABC A 管理員

B 保安員

C 保潔員

D 學(xué)生 87、學(xué)生公寓是學(xué)生學(xué)習(xí)——重要場(chǎng)所。ABC A 學(xué)習(xí)

B 生活

C 休息

D 娛樂

88、學(xué)生公寓管理的校級(jí)學(xué)生自律組織有——ABC A 自律委

B 校學(xué)生公寓樓自我管理

C 校學(xué)生公寓樓服務(wù)委員會(huì)

D 學(xué)生科

89、校級(jí)學(xué)生自律委組織在校黨委——的直接指導(dǎo)下工作。ABD A 學(xué)工部

B 學(xué)生處

C 學(xué)生科

D 招生就業(yè)處 90、校級(jí)學(xué)生自律委組織開展——等工作。ABC

A 文明宿舍的創(chuàng)建

B 學(xué)生住宿紀(jì)律

C 安全衛(wèi)生檢查工作

D 查晚歸工作

91、住宿學(xué)生應(yīng)把學(xué)生公寓作為——場(chǎng)所。ABC A 學(xué)習(xí)進(jìn)修

B 陶冶情操

C 培養(yǎng)文明習(xí)慣的場(chǎng)所

D 娛樂

92、對(duì)在學(xué)生公寓內(nèi)行為不當(dāng)者，同寢室人員有責(zé)人及時(shí)勸阻并向——舉報(bào)。ABD A 宿管中心

B 保衛(wèi)科

C 學(xué)生科 D 相關(guān)二級(jí)學(xué)院

93、對(duì)同宿舍成員不良行為——的同宿舍成員給予批評(píng)及處分。ABC A 知情不報(bào)

B 包庇縱容

C 違紀(jì)者做假證

D 逃避 94、公物報(bào)修包括以下幾類。ABC A 水電維修

B 門窗家具零修

C 土建零修

D 空調(diào)維修

95、寢室衛(wèi)生應(yīng)做到——ABCD A 室內(nèi)、陽臺(tái)地面干凈

B 無紙屑雜物

C 無衛(wèi)生死角

D 衛(wèi)生間整潔無異味

96、學(xué)生不能在寢室內(nèi)和樓道內(nèi)——ABCD A 亂貼

B 亂刻畫

C 亂掛衣物 D 亂釘釘子 97、嚴(yán)禁學(xué)生——ABCD A 私拉亂接電源線

B私拉亂接電話線

C 私拉亂接網(wǎng)線

D 改動(dòng)室內(nèi)線路

98、文明寢室評(píng)比可分為幾個(gè)檔次？ABCD A 文明寢室

B 安全衛(wèi)生寢室

C 合格寢室

D 不合格寢室 99、下列屬于學(xué)生公寓文明公約地是——

ABCD A 熱愛公寓

B 講究衛(wèi)生

C 安全用電

D 節(jié)約用水 100、宿舍所有張貼物不應(yīng)使用——張貼。ABCD A 漿糊

B 雙面膠

C 圖釘

D 膠水

101、學(xué)院學(xué)生寢室評(píng)比暨“文明宿舍”評(píng)比方法的評(píng)級(jí)內(nèi)容有——ABC A 全是人員學(xué)習(xí)態(tài)度端正、學(xué)風(fēng)良好

B 愛護(hù)公共設(shè)施、室內(nèi)房器俱安好無損、節(jié)約用電

C 全是人員言談舉止文明禮貌，同學(xué)之間團(tuán)結(jié)友愛，和睦相處 D 在公寓內(nèi)抽煙、喝酒

102、發(fā)生以下哪類情況之一的，可視為不合格寢室。ABC A 發(fā)生消防、人身傷害等惡性安全事件

B 安全隱患不及時(shí)整改的 C 寢室成員經(jīng)常晚歸、不歸的 D 宿舍環(huán)境好，擺放整齊

103、在宿舍衛(wèi)生檢查評(píng)分標(biāo)準(zhǔn)中，分值都是15的有——ACD A 室風(fēng)

B環(huán)境

C 壁面

D床鋪

104、在宿舍衛(wèi)生檢查評(píng)分標(biāo)準(zhǔn)中，分值都是10的有——BCD A 床鋪

B櫥柜

C 門窗

D 物品

105、凡被評(píng)為——的寢室將予以通報(bào)表揚(yáng)，并授予相應(yīng)標(biāo)志牌。AC A 文明寢室

B 文明示范寢室

C 安全衛(wèi)生寢室

D 合格寢室 106、學(xué)生宿舍衛(wèi)生重點(diǎn)檢查——ABCD A 空氣清新度

B 物品整齊度

C 壁面清潔度

D安全文明度 107、學(xué)生在使用計(jì)算機(jī)過程中，必須遵守——ABC A 國家、教育行政部門的規(guī)定

B 學(xué)校計(jì)算機(jī)及網(wǎng)絡(luò)管理的有關(guān)規(guī)定 C 與寢室成員商定的用機(jī)時(shí)間

D 宿管阿姨的規(guī)定 108、學(xué)生寢室自備計(jì)算機(jī)實(shí)行——制度。BC A 自己保管

B 審批

C 登記

D 松散

109、出現(xiàn)下列哪些情況的學(xué)生，學(xué)生科應(yīng)視情節(jié)分別給予教育、通報(bào)、批評(píng)、取消在學(xué)校寢室用的自備計(jì)算機(jī)資格并通知家長領(lǐng)回計(jì)算機(jī)。ABCD A 不遵守學(xué)校作息時(shí)間，妨礙他人學(xué)習(xí)和休息的

B 跨寢室聯(lián)網(wǎng)使用計(jì)算機(jī)

C 不配合學(xué)校管理和監(jiān)督檢查，態(tài)度惡劣者 D 因使用計(jì)算機(jī)曠課、遲到

110、學(xué)員宿舍的年住宿費(fèi)有哪幾種？ACD A 500

B 600

C 800

D1000元以上

111、學(xué)校努力為廣大學(xué)生營造——的住宿環(huán)境。ABCDE A 安全

B 整潔

C 舒適

D 文明

E 和諧

112、宿管中心在學(xué)校處領(lǐng)導(dǎo)下負(fù)責(zé)——工作。ABCDE A 學(xué)生公寓資源調(diào)配

B 物資管理

C 零星維修

D 衛(wèi)生保潔

E 水電管理

113、住宿學(xué)生應(yīng)——ABCDE A 遵守住宿紀(jì)律

B 愛護(hù)公私物

C 增強(qiáng)安全意識(shí)

D 注意防火防盜

E 搞好個(gè)人衛(wèi)生

114、寢室成員應(yīng)——ABCDE A 團(tuán)結(jié)友愛

B 和睦相處

C 文明交往 D 互幫互助

E 遵紀(jì)守法

115、學(xué)生因——等原因需要退宿的，應(yīng)憑有效證明到宿管中心辦理退宿手續(xù)。ABCDE A 畢業(yè)

B 休學(xué)

C 退學(xué)

D 轉(zhuǎn)學(xué)

E 出國 116、學(xué)生寢室不得擁有或使用——ABCDE A 熱得快

B 電爐

C 電熱杯

D電取暖器

E電吹風(fēng) 117、住宿學(xué)生應(yīng)保持學(xué)生公寓區(qū)安靜，需做到——ABCDE A 在午休時(shí)間和晚上熄燈后，接聽電話應(yīng)輕聲，以不影響他人休息為宜 B 不利用電話長時(shí)間閑聊，不利用電話騷擾別人

C 不得彈奏樂器、播放音樂。晚歸學(xué)生回宿后，洗漱應(yīng)輕拿輕放

D 禁止進(jìn)行妨礙他人休息的娛樂活動(dòng)

E 在學(xué)校規(guī)定的學(xué)習(xí)時(shí)間內(nèi)，不準(zhǔn)在寢室內(nèi)下棋、打撲克、玩電子游戲 118、學(xué)生寢室布置的原則是——ABCDE A 安全整潔

B 美觀大方

C 健康高雅

D 和諧有序

E 富有個(gè)性