畢業(yè)論文---學(xué)生宿舍管理系統(tǒng)

1、<p><b>　　目  錄</b></p><p>　　摘 要及關(guān)鍵詞．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．2</p><p>　　第一章 開發(fā)背景介紹．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．4</p><p>

2、　　1.1 開發(fā)背景．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．4</p><p>　　1.2 設(shè)計意義．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5</p><p>　　第二章 系統(tǒng)功能簡介．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5<

3、;/p><p>　　第三章 畢業(yè)設(shè)計正文．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5</p><p>　　3.1 選題背景和VB介紹：．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5</p><p>　　3.2 方案論證: ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．

4、．．．．．．．．．．11</p><p>　　3.2.1 系統(tǒng)開發(fā)的可行性研究．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．11</p><p>　　3.2.2 學(xué)生宿舍寑室管理系統(tǒng)開發(fā)方法．．．．．．．．．．．．．．．．．．．．．．．．．．．11</p><p>　　3.2.3 學(xué)生宿舍寑室管理系統(tǒng)的目標(biāo)．．．．．．．．．．．．．．．．．．

5、．．．．．．．．．．．11</p><p>　　3.2.4 實現(xiàn)功能．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．12</p><p>　　3.2.5 功能與模塊設(shè)計．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．12</p><p>　　3.2.6 數(shù)據(jù)庫設(shè)計．．．．．．．．．．．．

6、．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．13</p><p>　　3.3 過程(設(shè)計或?qū)嶒?論述．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．14</p><p>　　3.3.1 登陸流程圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．14</p><p>　　3.3.

7、2 主界面操作圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．15</p><p>　　3.3.3 所有學(xué)生與增加學(xué)生數(shù)據(jù)圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．16</p><p>　　3.3.4 所有宿舍信息與增加宿舍信息數(shù)據(jù)處理圖．．．．．．．．．．．．．．．．．．．17</p><p>　　3.

8、3.5 數(shù)據(jù)保存流程圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．17</p><p>　　3.3.6 學(xué)生管理．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．18</p><p>　　3.3.7 查詢．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．18

9、</p><p>　　3.4 結(jié)論和總結(jié)．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．18</p><p>　　第四章 系統(tǒng)界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．20</p><p>　　4.1 登陸界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．

10、．．．．．．．．．．．．．．．．．．20</p><p>　　4.2 系統(tǒng)主界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．20</p><p>　　4.3 學(xué)生管理界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．21</p><p>　　4.4 宿舍管理界面圖．．．．．．．

11、．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．21</p><p>　　4.5 分配宿舍管理界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．21</p><p>　　4.6 水電管理界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．22</p><p>　　4.7

12、 違紀(jì)管理界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．23</p><p>　　4.8 來訪管理界面圖．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．23</p><p>　　附錄．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．24<

13、/p><p>　　致謝．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．46</p><p>　　參考文獻(xiàn)．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．47</p><p><b>　　學(xué)生宿舍管理系統(tǒng)</b></p&g

14、t;<p><b>　　摘 要:</b></p><p>　　從access 2000和Visual Basic6.0的基礎(chǔ)概念入手，逐步掌握了在Visual Basic 6.0開發(fā)環(huán)境下，實現(xiàn)一個管理信息系統(tǒng)的方法。此系統(tǒng)實現(xiàn)的是對學(xué)生公寓的智能化管理。</p><p>　　全面介紹了所使用的access2000和Visual Basic 6.0的開發(fā)

15、語言。詳細(xì)介紹了學(xué)生公寓智能化管理系統(tǒng)從需求分析，數(shù)據(jù)庫設(shè)計，總體設(shè)計，詳細(xì)設(shè)計的全部過程，并提供了本系統(tǒng)的使用說明書。對其中的問題，產(chǎn)生的原因進(jìn)行了綜合分析，對開發(fā)過程中的感受、得到的經(jīng)驗進(jìn)行了總結(jié)，并對該系統(tǒng)給予了客觀的評價。</p><p>　　本系統(tǒng)充分利用了ADO對象。ActiveX Data Object (ADO)是微軟公司最新的數(shù)據(jù)訪問技術(shù)。他被設(shè)計用來同新的數(shù)據(jù)庫訪問層OLE DB Provid

16、er一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（Universal Data Access）。</p><p>　　關(guān)鍵詞: access2000 VB6.0 ado</p><p><b>　　Abstract:</b></p><p>　　Begin from study of the concept of access 2000 and Vis

17、ual Basic6.0.I gradually master to complete a Management Information System in the Visual Basic environment. The system should manage student dormitory on campus intelligently.</p><p>　　Here is roundly intro

18、duced use of access and the language of Visual Basic6.0 .What’s more, introduce particularly the procedure from requirement analysis, database design, collectivity design, particular design, system implement and debug, a

19、nd provide use introduction of system. For some problems and some reasons in the system, I analyses synthetically, at the same time, I make a summary of feeling of development, experience of doing the system, and imperso

20、nally estimate for the system.</p><p>　　The system utilize fully ADO object. ActiveX Data Object (ADO) is a new Data Access technology in the Microsoft Corporation.It corporate with new Database Access Layer

21、 OLE DB Provider for providing Universal Data Access.</p><p>　　key words: access2000 VB6.0 ado</p><p>　　第一章 開發(fā)背景介紹</p><p><b>　　1.1開發(fā)背景</b></p><p>　　隨著計算機(jī)產(chǎn)

22、業(yè)的迅速發(fā)展，電子計算機(jī)已廣泛的應(yīng)用于信息管理、文字處理、輔助設(shè)計、輔助教學(xué)及人們的日常生活中。特別是在計算機(jī)的操作系統(tǒng)具有了圖形化的界面后，使用計算機(jī)已經(jīng)不再是某些專業(yè)人員的專利，各行各業(yè)的人們不需要經(jīng)過專業(yè)化的訓(xùn)練就能自如的在計算機(jī)上進(jìn)行各種復(fù)雜的操作。  時下，為了能創(chuàng)造更大的經(jīng)濟(jì)效益和社會效益，更有利于參與國際競爭，越來越多的企業(yè)、公司和學(xué)校迫切需要引入現(xiàn)代化的管理手段，而計算機(jī)的大容量操作，精確的計算，使它成為企業(yè)

23、管理不可缺少的手段之一，但隨著計算機(jī)應(yīng)用的不斷深入，用戶對軟件的需求也不斷增加，越來越多的用戶希望擁有適合自己需要的特殊軟件來滿足自己的特殊要求。  我的畢業(yè)設(shè)計題目的選定應(yīng)該說是順應(yīng)這一趨勢的。對于當(dāng)今大學(xué)校園內(nèi)的學(xué)生公寓來說，其數(shù)據(jù)量大，各種信息管理內(nèi)容復(fù)雜，查詢和管理學(xué)生信息和校園內(nèi)的公寓信息等工作由人工完成將是很累的，也許還很不切實際，不僅浪費了許多人力物力資源，而且還很容易出現(xiàn)差錯，有一個符合要求的軟件對其進(jìn)

24、行智能化的學(xué)生公寓管理是最好不過的，節(jié)省了人力物力資源，并且對各種信息的把握和操作也更加方便了，對所有信息有了一個全局的掌握。</p><p>　　當(dāng)今時代是飛速發(fā)展的信息時代。在各行各業(yè)中離不開信息處理，這正是計算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。</p><p>　　尤其對

25、于復(fù)雜的信息管理，計算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了更好管理學(xué)生宿舍信息而設(shè)計的。</p><p>　　學(xué)生宿舍寢室作為學(xué)生休息的地方，有許多信息需要處理和管理?，F(xiàn)今，有很多學(xué)生宿舍都是初步開如使用，甚至尚未使用計算機(jī)進(jìn)行信息處理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于男女生信宿信息都

26、是用人工手抄進(jìn)行。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩碚f，缺乏系統(tǒng)，規(guī)范的信息管理手段。這就是管理信息系統(tǒng)的開發(fā)的基本環(huán)境</p><p>　　數(shù)據(jù)處理手工操作，工作量大，出錯率高，出錯后不易更改?；谶@此問題，我認(rèn)為有必要建立一個學(xué)生宿舍管理系統(tǒng)，使宿舍管理工作規(guī)范化，系統(tǒng)化，程序化，避免宿舍管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時、準(zhǔn)確、有效的查詢和修改宿舍情況

27、。</p><p><b>　　1.2設(shè)計意義</b></p><p>　　對于一名專業(yè)的信息技術(shù)人員來說，如何最大限度地利用學(xué)校后勤部門多年來在數(shù)據(jù)庫系統(tǒng)上的投資，把學(xué)?；舜罅馑鸭瘉淼臄?shù)據(jù)變成對學(xué)校未來發(fā)展有巨大價值的信息，這是每一個從事信息技術(shù)工作的專業(yè)人員都應(yīng)該考慮的問題。</p><p>　　現(xiàn)在全國的很多大學(xué)校園內(nèi)的學(xué)生公寓都采用

28、了計算機(jī)統(tǒng)一管理，這樣就需要一種管理軟件來為公寓的管理者服務(wù)，協(xié)助他們來完成管理學(xué)生公寓這么一個龐大的工作。</p><p>　　在這種情況下，用各種開發(fā)工具開發(fā)出來的學(xué)生公寓智能管理系統(tǒng)應(yīng)運而生，并且蓬勃的發(fā)展起來。這為學(xué)校的公寓管理帶來了很大的方便，更重要的是節(jié)省了相當(dāng)大的人力，物力，財力。</p><p>　　本系統(tǒng)的深刻意義可以通過一個例子來體現(xiàn)出來。假如想在全校范圍內(nèi)查找一名學(xué)生

29、所在的公寓，則不要象以前那樣一個一個公寓樓去查名單，只需通過查詢方法，輸入該學(xué)生的學(xué)號或者是姓名，即可很容易的找到他的所在公寓，同時也可以了解他的一些基本信息，看所查找的對象是否是自己所要找的人，另外，還可以知道他的情況，可以幫助及時的了解學(xué)生住宿情況。</p><p><b>　　第二章系統(tǒng)功能簡介</b></p><p>　　在系統(tǒng)中，充分利用了access200

30、0 數(shù)據(jù)庫和Visual Basic 6.0的強(qiáng)大功能，通過實踐，也使自己對這些方面有了較深入的了解。在設(shè)計過程中力求完善系統(tǒng)功能，使界面友好，具有一定的容錯能力，在使用過程中不會出現(xiàn)難以糾正的錯誤和毛病。</p><p>　　該系統(tǒng)主要提供了八部分，功能分別為學(xué)生基本情況管理、宿舍管理、分配宿舍、辦理遷出、水電管理、違紀(jì)管理、來訪管理和打印管理。等幾個方面的功能,以實現(xiàn)用戶方便的輸入、查詢、統(tǒng)計、打印相關(guān)報表的

31、業(yè)務(wù)需求。這些功能基本上覆蓋了學(xué)生公寓管理的主要部分。</p><p><b>　　第三章畢業(yè)設(shè)計正文</b></p><p>　　3.1選題背景和VB介紹：</p><p>　　學(xué)生宿舍寑室管理系統(tǒng)是一個學(xué)校管理不可缺少的部分,它的內(nèi)容對于學(xué)校的的領(lǐng)導(dǎo)者和管理者來說都至關(guān)重要,所以學(xué)生宿舍寑室管理系統(tǒng)應(yīng)該能夠為校領(lǐng)導(dǎo)和管理宿舍的員工提供充足的

32、信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。</p><p>　　隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。</p><p>　　作為計算機(jī)應(yīng)用的一部分,

33、使用計算機(jī)對人事勞資信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。</p><p>　　因此，開發(fā)這樣一套學(xué)生宿舍管理軟件成為很有必要的事情。首先我們來介紹開發(fā)工具VB和access.</p><p>　　開發(fā)工具Visua

34、l Basic介紹</p><p>　　Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接

35、口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　總的來說，Visual Basic具有以下特點：</p><p><b>　　可視化編程：</b></p><p>

36、;　　用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏

37、幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。</p><p>　　面向?qū)ο蟮某绦蛟O(shè)計:</p><p>　　4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計

38、語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。</p><p>　　結(jié)構(gòu)化程序設(shè)計語言

39、:</p><p>　　Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。</p><p>　　Visual Basic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算

40、機(jī)可以識別的機(jī)器指令，并判斷每個語句的語法錯誤。在設(shè)計Visual Basic程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運行。</p><p><b>　　事件驅(qū)動編程機(jī)制:</b></p><p>　　Visual Basic通過事件來執(zhí)行對象的操作。一個對

41、象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。</p><p>　　在用Visual Basic設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事

42、件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。</p><p><b>　　訪問數(shù)據(jù)庫:</b></p><p>　　Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問

43、其他外部數(shù)據(jù)庫，如DBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。</p><p>　　Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈?/p>

44、多用戶數(shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。</p><p>　　動態(tài)數(shù)據(jù)交換(DDE):</p><p>　　利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)

45、用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。Visual Basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。</p><p>　　對象的鏈接與嵌入(OLE):</p><p>　　對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看作是一個對象(object)，將不同的對象鏈接(link)

46、起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看作是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)

47、用程序完全相同的操作。</p><p>　　動態(tài)鏈接庫(DLL):</p><p>　　Visual Basic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序

48、接口(API)函數(shù)，實現(xiàn)SDK所具有的功能。</p><p><b>　　Access簡介:</b></p><p>　　Microsoft Access 數(shù)據(jù)庫管理系統(tǒng)是Microsoft Office 套件的重要組成部分，先后出現(xiàn)了Access 97、Access 2000 和Access XP。其中Access XP是最新版本。Access適用于小型商務(wù)活動，用

49、以存貯和管理商務(wù)活動所需要的數(shù)據(jù)。Access不僅是一個數(shù)據(jù)庫，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報表和應(yīng)用程序等。</p><p>　　Microsoft Access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復(fù)。圖 4 - 1是一個“學(xué)生”表的例子?！皩W(xué)

50、生”表由9個記錄組成，一個記錄占一行，每一個記錄由學(xué)號、姓名、性別、出生日期、電話號碼、宿舍號、班長、系號和中共黨員9個字段組成?！皩W(xué)號”是字段名，其下面的02010101，02010102等是字段的值。</p><p>　　表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫以文件形式保存，文件的擴(kuò)展名是MDB。</p><p>　　Access 2000數(shù)

51、據(jù)庫由七種對象組成：表、查詢、窗體、報表、頁、宏和模塊。</p><p>　　表(Table) ——表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他6種對象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。</p><p>　　查詢(Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。</p><p>　　窗體

52、(Form)——窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。</p><p>　　報表(Report)——報表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。</p><p>　　頁(Page) ——也叫數(shù)據(jù)訪問頁。是連接到數(shù)據(jù)庫的 Web 頁，在數(shù)據(jù)訪問頁中，可以查看、添加、編輯和操作存儲在數(shù)據(jù)庫中的數(shù)據(jù)。數(shù)據(jù)訪問頁還可以

53、包括其他來源的數(shù)據(jù)，例如 Microsoft Excel。</p><p>　　宏(Macro)——宏相當(dāng)于DOS中的批處理，用來自動執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。</p><p>　　模塊(Module)——模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程。</p

54、><p>　　Microsoft Access特點：</p><p>　　(1)更易建立強(qiáng)大的商業(yè)解決方案，更快找到答案</p><p>　　使Web協(xié)作成為可能，用Access 2000中的新工具提高生產(chǎn)力。使數(shù)據(jù)對任何協(xié)作者都可直接利用。更新銷售數(shù)據(jù)或快速查看顧客細(xì)節(jié)信息。定制您自己的圖形格式，以便準(zhǔn)確地顯示您所需的信息。使用內(nèi)置Microsoft SQL Serv

55、er 集成來創(chuàng)建可以隨您的商務(wù)升級的數(shù)據(jù)庫。 </p><p>　　(2)@在Web上管理和共享信息</p><p>　　將您的數(shù)據(jù)來源與交互式Web頁面無縫集成，使創(chuàng)建和共享Microsoft Access數(shù)據(jù)庫比以前更容易。使用Web技術(shù)快速獲取信息，并把它按您的特殊用途裁剪。加入Office 2000 Web組件以便在Web瀏覽器中視覺化分析數(shù)據(jù)。 </p><p

56、>　　(3)在瀏覽器窗口查看，編輯，和分析數(shù)據(jù)</p><p>　　新的，交互式的Data Access Pages是為Web設(shè)計Access表。它們能使任何職員在瀏覽器內(nèi)輕易地打開，查看，和更新動態(tài)數(shù)據(jù)。用交互式圖表舉例說明Data Access Page，然后郵寄或作為E-mail的附件發(fā)出。您和您的合作者就永遠(yuǎn)擁有最新信息--在辦公室或任何地方.</p><p>　　(4)把交

57、互式報告加入到Intranet中</p><p>　　把多個表格鏈接成單個的，相關(guān)的視圖被稱為Grouped Data Access Page。用這種方法，可以創(chuàng)建分層結(jié)構(gòu)，將記錄從一般類別到具體細(xì)節(jié)分類。例如，按區(qū)字段分析雇員銷售情況。首先把目光集中在一個地區(qū)所有的銷售上。然后，把目光關(guān)注到該地區(qū)銷售幾種紡織品的結(jié)果和基本輸入輸出上。您可以交互式地查看，過濾，分類所有的信息--在同一頁面內(nèi)。 </p>

58、;<p>　　(5)把動態(tài)數(shù)據(jù)拖到網(wǎng)頁上</p><p>　　很容易把字段列表的內(nèi)容拖動，加入到Data Access Page中。表格字段直接連結(jié)到數(shù)據(jù)庫，所以信息總是最新的。 </p><p>　　(6)使工作方式流程化</p><p>　　好的信息有助于做出英明的決策和提高生產(chǎn)力。Microsoft Access使信息更容易獲得和使用?？焖俜治黾?xì)

59、節(jié)內(nèi)容并找出重要聯(lián)系。利用新工具來定制表單和報表。把數(shù)字轉(zhuǎn)化成答案--趕快。 </p><p>　　(7)利用改進(jìn)界面的優(yōu)點 </p><p>　　Access數(shù)據(jù)庫窗口使數(shù)據(jù)庫組件操作更容易。使用垂直O(jiān)bjects工具條在表單，表格，和報表之間切換。把數(shù)據(jù)庫對象組織成組，并對常用的內(nèi)容創(chuàng)建快捷方式。 </p><p>　　(8)在數(shù)據(jù)表視圖中瀏覽相關(guān)記錄 <

60、/p><p>　　Access在一個窗口中可使您以圖中圖方式查看所有相關(guān)數(shù)據(jù)--不必進(jìn)行查詢。即時查看表格間的聯(lián)系以便快速做出相應(yīng)決策。顯示深層信息，以使記錄之間關(guān)系可視化。而您只需用鼠標(biāo)選取您感興趣的記錄。 </p><p>　　(9)對所選記錄作特殊的格式化</p><p>　?、僭谧侄蝺?nèi)容的基礎(chǔ)上改變它們的版面，使用戶能夠做到例如立即在表格或報表內(nèi)發(fā)現(xiàn)高銷售的消費

61、者或低庫存項目。根據(jù)您定義的數(shù)值或習(xí)慣標(biāo)準(zhǔn)設(shè)置字體，風(fēng)格，顏色，和標(biāo)題。</p><p>　?、诒韱螖U(kuò)展功能允許您在一張表單上簡單地選擇一個字段，并改變它的背景顏色，大小，和邊界。不必切換到設(shè)計視圖就可以立即看到這一結(jié)果。 </p><p>　　(10)與SQL Server無縫集成</p><p>　　Microsoft Access包含了內(nèi)置的Microsoft

62、 SQL Server，這使它能夠?qū)κ煜さ腁ccess環(huán)境進(jìn)行高端管理。需要時可以利用可調(diào)整大小的SQL Server技術(shù)創(chuàng)建企業(yè)級數(shù)據(jù)庫。這樣，使用一個可按需調(diào)整大小的數(shù)據(jù)庫，系統(tǒng)就可以隨業(yè)務(wù)擴(kuò)展了。</p><p>　　(11)隨業(yè)務(wù)擴(kuò)展數(shù)據(jù)庫</p><p>　　通過在Access 內(nèi)創(chuàng)建SQL Server數(shù)據(jù)庫，來擴(kuò)展您在客戶/服務(wù)器世界的技能。新的Access 數(shù)據(jù)庫項目允許A

63、ccess 用戶用熟悉的Access界面創(chuàng)建真正的客戶/服務(wù)器應(yīng)用程序。 </p><p><b>　　3.2方案論證:</b></p><p>　　3.2.1系統(tǒng)開發(fā)的可行性研究</p><p>　　在決定開發(fā)管理信息系統(tǒng)應(yīng)用項目之前，首先要做好系統(tǒng)開發(fā)的可行性分析?？尚行苑治龅娜蝿?wù)是確定項目開發(fā)是否必要和可行。建設(shè)MIS的必要性取決于需求的

64、迫切性和實現(xiàn)的可行性。從以下幾個方面認(rèn)真進(jìn)行研究，從而為確定系統(tǒng)開發(fā)項目的決策提供科學(xué)依據(jù)。</p><p>　　（1）經(jīng)濟(jì)可行性：對組織的經(jīng)濟(jì)狀況和投資能力進(jìn)行分析，一方面是支出的費用，其中包括設(shè)備購置費、軟件開發(fā)費、管理和維護(hù)費用、人員工資和培訓(xùn)費等；另一方面是取得的收益，其中有一部分可以用錢來衡量，如開發(fā)本系統(tǒng)，為企業(yè)節(jié)省的人力，物力。收益的另一部分難以用錢表示，如加強(qiáng)人事信息管理。</p>

65、<p>　?。?）技術(shù)上可行性：現(xiàn)技術(shù)上的可行性分析所考慮采用的硬件和軟件技術(shù)能滿足用戶提出的要求（如計算機(jī)的容量、速度等）。此外，因本系統(tǒng)難度不大，所涉及的范圍只限于企業(yè)人事信息管理，所以在技術(shù)上已達(dá)到開發(fā)該系統(tǒng)的能力。</p><p>　　（3）營運上的可行性：指系統(tǒng)對組織結(jié)構(gòu)的影響，現(xiàn)有人員和結(jié)構(gòu)、設(shè)備、環(huán)境等系統(tǒng)的適應(yīng)性以及進(jìn)行人員培訓(xùn)補(bǔ)充計劃的可行性。</p><p>

66、　　（4）管理上的可行性：重要是管理人員對開發(fā)信息系統(tǒng)的態(tài)度和管理方面的基礎(chǔ)工作。重要領(lǐng)導(dǎo)不支持的項目肯定不可行。管理基礎(chǔ)工作</p><p>　　好壞重要表現(xiàn)在管理制度和方法是否科學(xué)，規(guī)章制度是否齊全以及原始數(shù)據(jù)是否正確等方面。</p><p>　　3.2.2 學(xué)生宿舍寑室管理系統(tǒng)開發(fā)方法</p><p>　　根據(jù)本系統(tǒng)的基本要求，決定綜合利用上述兩種方法，以取長

67、補(bǔ)短?？傮w上是采用結(jié)構(gòu)化生命周期法進(jìn)行系統(tǒng)分析和設(shè)計的，采用了快速原型法來實現(xiàn)系統(tǒng)。首先將系統(tǒng)分成幾個管理模塊：學(xué)生基本信息管理、宿舍管理和分配宿舍幾個部分；然后對每一個模塊的內(nèi)容進(jìn)行更詳細(xì)的劃分，確定每一部分的內(nèi)容；最后采用原型法對每一部分細(xì)節(jié)進(jìn)行設(shè)計。</p><p>　　3.2.3 學(xué)生宿舍寑室管理系統(tǒng)的目標(biāo)</p><p>　　學(xué)生宿舍寑室管理系統(tǒng)的目標(biāo)是：按照建立管理信息系統(tǒng)的原

68、理和方法，采用成熟的計算機(jī)信息技術(shù)和手段，支持學(xué)校管理工作的全過程，加強(qiáng)學(xué)校教師的各種信息資源的管理和應(yīng)用，提高學(xué)校管理的現(xiàn)代化水平，優(yōu)化人、才、物和信息資源的結(jié)構(gòu)，在為學(xué)校日常業(yè)務(wù)提供全面信息服務(wù)的基礎(chǔ)上，為學(xué)校領(lǐng)導(dǎo)管理學(xué)校提供有效的材料。</p><p>　　學(xué)生宿舍寑室管理系統(tǒng)的范圍和邊界是：學(xué)生宿舍寑室管理系統(tǒng)主要是為學(xué)校內(nèi)部管理活動提供信息服務(wù)，同時也為有關(guān)單位提供信息服務(wù)，它覆蓋企業(yè)內(nèi)部和外部的各項管

69、理工作。系統(tǒng)能夠?qū)W(xué)校的各學(xué)生信息、宿舍信息、分配宿舍等方面的信息提供存儲、更新、查詢等功能，并對有關(guān)單位提供信息的查詢功能。系統(tǒng)的數(shù)據(jù)來源由系統(tǒng)管理員錄入。</p><p>　　3.2.4、 實現(xiàn)功能：</p><p><b>　　總體功能需求:</b></p><p>　　學(xué)生宿舍寑室管理系統(tǒng)是針對學(xué)校后勤管理處的大量業(yè)務(wù)處理工作用計算機(jī)進(jìn)

70、行全面現(xiàn)代化管理.主要包括學(xué)生基本情況管理、宿舍管理、分配宿舍和打印管理。等幾個方面的功能,以實現(xiàn)用戶方便的輸入、查詢、統(tǒng)計、打印相關(guān)報表的業(yè)務(wù)需求。</p><p>　　具體系統(tǒng)功能需求描述:</p><p>　　(1)學(xué)生基本情況管理:</p><p>　　提供對”學(xué)生數(shù)據(jù)表”數(shù)據(jù)輸入、組合條件查詢、統(tǒng)計、打印功能,實現(xiàn)”學(xué)生花名冊”數(shù)據(jù)生成、查詢、統(tǒng)計、打印功

71、能。</p><p><b>　　(2)宿舍管理:</b></p><p>　　提供對”宿舍數(shù)據(jù)表”數(shù)據(jù)的輸入、查詢、修改、刪除等功能。</p><p><b>　　(3)用戶管理：</b></p><p>　　設(shè)置兩個級別用戶：管理員和普通用戶，管理員有權(quán)限使用全部的功能，普通用戶只能使用查詢功能

72、，用戶使用本系統(tǒng)之前必須先通過身份認(rèn)證（用戶級別、用戶名和密碼，密碼輸入有次數(shù)限制，連續(xù)三次輸入錯誤密碼則鎖定該用戶）</p><p>　　3.2.5功能與模塊設(shè)計</p><p>　　包括宿舍的總體管理系統(tǒng)、學(xué)生管理系統(tǒng)、宿舍管理系統(tǒng)、分配宿舍管理系統(tǒng)，、辦理遷出、水電管理、違紀(jì)管理、來訪管理和打印管理系統(tǒng)和數(shù)據(jù)備份系統(tǒng)等</p><p>　　3.2.6數(shù)據(jù)庫設(shè)計

73、</p><p>　　創(chuàng)建“學(xué)生宿舍寑室管理系統(tǒng)”數(shù)據(jù)庫系統(tǒng)中需要使用的數(shù)據(jù)表。</p><p><b>　　1、登陸</b></p><p><b>　　2、學(xué)生信息表</b></p><p><b>　　3、宿舍表</b></p><p><b

74、>　　4.分配宿舍表</b></p><p><b>　　5.水電表</b></p><p><b>　　6.違紀(jì)表</b></p><p><b>　　7.來訪表</b></p><p>　　3.3 過程(設(shè)計或?qū)嶒?論述：</p><

75、p><b>　　執(zhí)行流程圖與解說</b></p><p>　　3.3.1登陸流程圖</p><p><b>　　Y</b></p><p><b>　　N</b></p><p><b>　　Y</b></p><p><

76、;b>　　N</b></p><p>　　設(shè)計說明:進(jìn)入主界面后,提示輸入用戶名和密碼,在輸入之后按確定進(jìn)入,驗證用戶名和密碼,實現(xiàn)流程:</p><p>　　(1)檢測數(shù)據(jù)庫中有無管理員帳號,如果有,則等待用戶輸入用戶名和密碼,否則按程序本身自動執(zhí)行插入命令,新建一個管理員用戶,并等待用戶輸入.</p><p>　　(2)驗證用戶名和密碼是否正確

77、。</p><p>　　(3)當(dāng)驗證通過后,檢測該登陸用戶的管理權(quán)限,并設(shè)置變量傳值給主窗體.</p><p>　　3.3.2主界面操作圖</p><p><b>　　實現(xiàn)功能:</b></p><p>　　(1)獲得登陸界面?zhèn)鬟f的權(quán)限信息,設(shè)置用戶是否可以使用(增加員工,宿舍管理,系統(tǒng)操作,保存,修改,刪除)這些操作.

78、</p><p>　　(2)進(jìn)入宿舍主窗口,設(shè)置等待操作狀態(tài)</p><p>　　3.3.3所有學(xué)生與增加學(xué)生數(shù)據(jù)圖</p><p>　　所有學(xué)生E-R圖 增加學(xué)生E-R圖</p><p>　　注：數(shù)據(jù)初始化是對程序中所使用的表格進(jìn)行顏色和表格間距的處理，并綁定數(shù)據(jù)源為進(jìn)行到下一步操作做準(zhǔn)備&l

79、t;/p><p><b>　　實現(xiàn)功能:</b></p><p>　　(1)執(zhí)行學(xué)生信息表的全查詢,獲得所有字段名稱,通過字段名稱來分配數(shù)據(jù)列表的列數(shù).</p><p>　　(2)執(zhí)行數(shù)據(jù)初始化,因使用的圖表控件附帶下拉列表框,日期選擇框等功能,可以很方便的進(jìn)行即時操作,所以數(shù)據(jù)的初始化是針對數(shù)據(jù)來確定哪一列的寬度與文本框的屬性.</p>

80、;<p>　　(3)給圖表控件的第一列賦值,賦值對象是學(xué)生信息表的各字段名稱.</p><p>　　(4)統(tǒng)計所有表內(nèi)信息,得出行數(shù),顯示數(shù)據(jù)。</p><p>　　(5)開始根據(jù)表內(nèi)容給圖表控件賦值,同時設(shè)置狀態(tài),即不可保存,可修改,可刪除.(因為在查詢數(shù)據(jù)的同時無需執(zhí)行保存數(shù)據(jù),而可以進(jìn)行數(shù)據(jù)的修改和刪除)</p><p>　　3.3.4所有宿舍信

81、息與增加宿舍信息數(shù)據(jù)處理圖</p><p>　　所有宿舍信息E-R圖 增加宿舍信息E-R圖</p><p>　　3.3.5 數(shù)據(jù)保存流程圖</p><p><b>　　N</b></p><p><b>　　N </b></p><p>

82、<b>　　Y</b></p><p>　　(1)在點擊上列按鈕后,系統(tǒng)屬于可保存狀態(tài),不可修改狀態(tài),不可刪除狀態(tài).</p><p>　　(2)點擊保存功能實現(xiàn):</p><p>　　驗證輸入對象:即是保存學(xué)生信息的內(nèi)容還是宿舍信息的內(nèi)容,判斷表格中是否是否為空,為空提示并退出操作</p><p>　　驗證用戶輸入的數(shù)據(jù)

83、中是否有必填的字段未填的,如果有,提示并退出操作,等待用戶補(bǔ)齊</p><p>　　以上順利完成,對每行進(jìn)行組織語句(插入語句),然后執(zhí)行該語句,語句成功提示并退出操作,否則通過防錯提示并退出操作</p><p>　　3.3.6 學(xué)生管理</p><p>　　注：增加：刷新表格數(shù)據(jù)，調(diào)整到等待輸入狀態(tài)</p><p>　　保存：執(zhí)行增加操作后

84、，并輸入了必要的數(shù)據(jù)后執(zhí)行，保存用戶輸入的數(shù)據(jù)</p><p>　　修改：對原有數(shù)據(jù)進(jìn)行修改，課程編號為唯一值不可修改</p><p>　　刪除：刪除表格中所選目標(biāo)行</p><p>　　退出：退出課程管理界面，返回到主界面視圖</p><p>　　*(用戶管理,宿舍管理操作原理同上)</p><p><b>

85、;　　3.3.7查詢</b></p><p><b>　　實現(xiàn)功能:</b></p><p>　　支持學(xué)生信息,宿舍信息的查詢,加大了查詢的范圍,任何該表的參數(shù)都可以查詢到.</p><p><b>　　3.4結(jié)論和總結(jié)：</b></p><p>　　確定了本系統(tǒng)的實用價值后，選用了目前

86、最常用也最簡便的access數(shù)據(jù)庫做為后臺，鑒于ADO在很多程序里的廣泛應(yīng)用，使用ADO來連接數(shù)據(jù)庫將是最為適用的，并且在定義了ADO的連接模塊后，對于將來的升級也會很方便，只要修改一下連接源，就可以輕松的更換后臺，access適用于單機(jī)版，當(dāng)想轉(zhuǎn)換為網(wǎng)絡(luò)版的SQL數(shù)據(jù)庫時，就很容易做到</p><p>　　為了減少系統(tǒng)的數(shù)據(jù)資源，選用了目前最方便的將數(shù)據(jù)交給后臺處理的方法，即使用SQL的語句將數(shù)據(jù)庫交給ACCE

87、SS后臺，由后臺來處理，這樣系統(tǒng)的執(zhí)行會加快，也使用程序本身變得簡單</p><p>　　本程序使用了新型控件flexcell，此控件的雙色表格與單元格的特殊賦值功能不但能帶給用戶最好的視覺感受，同時在操作時大大減少了手動輸入操作，因此也為非計算機(jī)人員的可操作性帶來很大的方便。</p><p>　　自行編寫了菜單程序：增強(qiáng)了非計算機(jī)人員的可操作性，使整個窗體布局更加直觀化。</p&g

88、t;<p>　　支持右鍵菜單，在flexcell控件上點擊鼠標(biāo)右鍵，可出現(xiàn)快捷菜單，可以更方便更直觀的處理數(shù)據(jù)。</p><p>　　支持全方位查詢，可以通過計算機(jī)人員的自寫語句實現(xiàn)定位查詢，只要語句正確，都能找到所要找的記錄。</p><p>　　使用了透明API函數(shù)，在調(diào)用用戶管理與學(xué)生信息管理等窗體的時候，對該窗體進(jìn)行透明化處理。</p><p>

89、;<b>　　第四章 系統(tǒng)界面圖</b></p><p><b>　　4.1 登陸界面圖</b></p><p>　　驗證用戶身份，輸入正確的用戶名和密碼后進(jìn)入主界面。</p><p>　　4.2 系統(tǒng)主界面圖</p><p>　　主界面提供菜單界面，方便用戶進(jìn)行各種操作。</p>&

90、lt;p>　　4.3 學(xué)生管理界面圖</p><p>　　包括學(xué)生的增加、修改、刪除、查詢等功能。</p><p>　　4.4 宿舍管理界面圖</p><p>　　包括宿舍的增加、修改、刪除、查詢等功能。</p><p>　　4.5 分配宿舍管理界面圖</p><p>　　包括分配宿舍的增加、修改、刪除、查詢等功

91、能。</p><p>　　4.6 水電管理界面圖</p><p>　　包括水電管理的增加、修改、刪除、查詢等功能。</p><p>　　4.7 違紀(jì)管理界面圖</p><p>　　包括違紀(jì)的增加、修改、刪除、查詢等功能。</p><p>　　4.8 來訪管理界面圖</p><p>　　包括來訪記

92、錄的增加、修改、刪除、查詢等功能。</p><p><b>　　附錄</b></p><p>　　連接數(shù)據(jù)庫的模塊代碼</p><p>　　Public cnn As New ADODB.Connection '新建一個數(shù)據(jù)源</p><p>　　Public qy1 As New ADODB.Recordset

93、 '數(shù)據(jù)一個記錄集</p><p>　　Public qy2 As New ADODB.Recordset '數(shù)據(jù)一個記錄集</p><p>　　Sub Main()</p><p>　　tkOpenAccessDB App.Path & "\base.mdb" '連接數(shù)據(jù)庫</p><p>

94、;　　If qy1.State = adStateOpen Then '表狀態(tài)</p><p><b>　　qy1.Close</b></p><p><b>　　End If</b></p><p>　　qy1.Open "select * from 登陸", cnn, adOpenStati

95、c, adLockReadOnly, adCmdText '查詢表內(nèi)是否有數(shù)據(jù)</p><p>　　If qy1.RecordCount = 0 Then</p><p>　　Set qy1 = cnn.Execute("insert into 登陸 values('admin','admin','超級管理員')"

96、) '表內(nèi)無數(shù)據(jù)執(zhí)行此語句新建用戶</p><p><b>　　End If</b></p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub tkOpenAccessDB( _</p><p

97、>　　tkFileName As String, _</p><p>　　Optional tkUserID As String, _</p><p>　　Optional tkPassword As String _</p><p>　　) '連接數(shù)據(jù)庫參數(shù)</p><p>　　On Error GoTo tkFinish&l

98、t;/p><p>　　cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _</p><p>　　"Data Source=" & tkFileName & ";" & _</p><p>　　"Mode=Share Deny

99、None;" & _</p><p>　　"Extended Properties=;" & _</p><p>　　"Jet OLEDB:System database=;" & _</p><p>　　"Jet OLEDB:Registry Path=;" &

100、_</p><p>　　"Jet OLEDB:Database Password=;" & _</p><p>　　"Jet OLEDB:Engine Type=5;" & _</p><p>　　"Jet OLEDB:Database Locking Mode=1;" & _<

101、;/p><p>　　"Jet OLEDB:Global Partial Bulk Ops=2;" & _</p><p>　　"Jet OLEDB:Global Bulk Transactions=1;" & _</p><p>　　"Jet OLEDB:New Database Password=;&q

102、uot; & _</p><p>　　"Jet OLEDB:Create System Database=False;" & _</p><p>　　"Jet OLEDB:Encrypt Database=False;" & _</p><p>　　"Jet OLEDB:Don't C

103、opy Locale on Compact=False;" & _</p><p>　　"Jet OLEDB:Compact Without Replica Repair=False;" & _</p><p>　　"Jet OLEDB:SFP=False;" & _</p><p>　　tk

104、UserID, _</p><p>　　tkPassword</p><p><b>　　Exit Sub</b></p><p><b>　　tkFinish:</b></p><p>　　MsgBox Err.Description</p><p><b>　　

105、End</b></p><p><b>　　End Sub</b></p><p><b>　　登陸界面與代碼</b></p><p>　　Private Sub XPButton1_Click()</p><p>　　On Error GoTo finish</p>&l

106、t;p>　　user = Text1.Text</p><p>　　Set mdbrs = mdbconn.Execute("select * from 登陸 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'")<

107、;/p><p>　　If mdbrs.EOF = True Then</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p>　　MsgBox "用戶名和密碼不

108、正確！！"</p><p><b>　　Else</b></p><p>　　user111 = mdbrs.Fields(0)</p><p>　　sup = mdbrs.Fields(2)</p><p>　　If mdbrs.Fields(2) = "超級管理員" Then</p

109、><p>　　admin = True</p><p>　　'MsgBox "您是超級管理員！！"</p><p>　　' MsgBox user</p><p><b>　　Else</b></p><p>　　admin = False</p>&

110、lt;p>　　'MsgBox "您不是超級管理員?。?quot;</p><p><b>　　End If</b></p><p><b>　　Unload Me</b></p><p>　　MDIForm1.Show</p><p><b>　　End If<

111、;/b></p><p><b>　　Exit Sub</b></p><p><b>　　finish:</b></p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>

112、;　　Private Sub XPButton2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_KeyPress(KeyAscii As Integer)</p><p>　　I

113、f KeyAscii = 13 Then</p><p>　　Call XPButton1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_KeyPress(KeyAscii A

114、s Integer)</p><p>　　If KeyAscii = 13 Then</p><p>　　Call XPButton1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b

115、>　　主窗體界面與代碼</b></p><p>　　Private Sub abou_Click()</p><p>　　frmAbout.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cmai_Click()</p><p

116、>　　If admin = False Then</p><p>　　MsgBox "你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If mdi = T

117、rue Then</p><p>　　Form10.Show</p><p><b>　　Else</b></p><p>　　MsgBox "每次只能打開一個窗口，請關(guān)閉正在打開的窗口！", vbInformation, "不允許當(dāng)前操作！"</p><p><b>