基于VB的多媒體畢業(yè)紀(jì)念冊(cè)的設(shè)計(jì)與實(shí)現(xiàn)

1、1 / 30目目 錄錄前言 11 開發(fā)工具簡介 11.1 VISUAL BASIC6.0 簡介 11.2 ACCESS數(shù)據(jù)庫簡介 12 總體分析與設(shè)計(jì) 22.1 概要設(shè)計(jì) 22.2 功能分析 32.2 詳細(xì)設(shè)計(jì) 32.2.1 詳細(xì)設(shè)計(jì)任務(wù) 32.2.2 詳細(xì)設(shè)計(jì)的方法 43 數(shù)據(jù)庫設(shè)計(jì) 43.1 數(shù)據(jù)庫的概念和基本操作 43.2 數(shù)據(jù)庫需求分析 53.3 數(shù)據(jù)庫概要設(shè)計(jì) 63.4 數(shù)據(jù)庫邏輯設(shè)計(jì) 64 功能模塊設(shè)計(jì)與實(shí)現(xiàn) 74.1 系統(tǒng)登錄模塊的設(shè)計(jì)與實(shí)現(xiàn) 74.2 主界面的設(shè)計(jì)與實(shí)現(xiàn) 114.3 班級(jí)資料管理模塊的設(shè)計(jì)實(shí)現(xiàn) 134.3.1 班級(jí)信息管理模塊 134.3.2 班級(jí)留言管理模塊

2、164.4 教師資料管理模塊的設(shè)計(jì)實(shí)現(xiàn) 174.4.1 教師資料維護(hù)模塊 174.4.2 教師資料查詢模塊 194.5 同學(xué)資料管理模塊的實(shí)現(xiàn) 214.5.1 同學(xué)資料維護(hù)模塊 214.5.2 同學(xué)資料查詢模塊 224.6 用戶信息管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 244.6.1 用戶信息維護(hù)模塊 244.6.2 用戶密碼管理模塊 255 結(jié)束語 27參考文獻(xiàn) 272 / 30基于 VB 的多媒體畢業(yè)紀(jì)念冊(cè)的設(shè)計(jì)與實(shí)現(xiàn)摘要摘要：隨著計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)的迅速發(fā)展，畢業(yè)紀(jì)念冊(cè)已告別了由照片、紙質(zhì)文檔構(gòu)成的時(shí)代，多媒體畢業(yè)紀(jì)念冊(cè)越來越受到人們的歡迎。本文所介紹的多媒體畢業(yè)紀(jì)念冊(cè)是采用 Visual Basic 和

3、 Access 為工具開發(fā)的一個(gè)集圖像、文字、音樂等于一體的畢業(yè)紀(jì)念冊(cè)，具有班級(jí)資料管理、教師資料管理、同學(xué)資料管理和用戶信息管理等功能。本文在簡單介紹開發(fā)工具的基礎(chǔ)上，從總體分析與設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)和功能模塊實(shí)現(xiàn)等方面闡述了多媒體畢業(yè)紀(jì)念冊(cè)的開發(fā)過程。關(guān)鍵詞：多媒體；紀(jì)念冊(cè)；Visual Basic；AccessTheThe DesignDesign andand ImplementImplement ofofMultimediaMultimedia GraduationGraduation AlbumAlbum BasedBased onon VBVBAbstractAbstract： Wi

4、th the rapid development of computer and network technology, graduation album has said good-bye to ages of being made of photos and paper document. Multimedia graduation album is more and more welcomed by people.Themultimedia graduation album introduced in this paper, which is developed by using Vis

5、ual Basic and Access, intergates image, character and music into a whole, and provided with such functions as class data managment, teacher data managment, classmate data managment, userinforo management and so on. On the basis of simply introducing development tools,the process of developing this m

6、ultimedia graduation albumgame from collectivity analysis and design, database design to to function modules implement etc is concretely described in this paper.KeywordsKeywords：Multimedia;Album; Visual Basic; Access1 / 30前言前言隨著計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)的普與和發(fā)展，畢業(yè)紀(jì)念冊(cè)已逐漸告別了由照片、紙質(zhì)文檔構(gòu)成的時(shí)代，多媒體畢業(yè)紀(jì)念冊(cè)變得越來越流行。同學(xué)們?cè)诩磳厴I(yè)分別的時(shí)候，不再

7、需要同以前一樣每個(gè)同學(xué)都要送上幾照片作為紀(jì)念，然后再在每個(gè)同學(xué)的畢業(yè)紀(jì)念本上寫上幾句祝福的話！不再需要為沖洗上數(shù)十、數(shù)百照片而支出一大筆開銷。使用多媒體畢業(yè)紀(jì)念冊(cè)，能夠集圖像、文字、音樂等于一體，不但可以動(dòng)態(tài)地記載母校風(fēng)情、恩師囑托、同學(xué)資料與留言、師生合影與校園生活等豐富的容，同時(shí)能將照片做成電子相冊(cè)，集漂亮、動(dòng)感、實(shí)惠、永久于一身。多媒體畢業(yè)紀(jì)念冊(cè)可以長時(shí)間的留守同學(xué)們的青春校園，讓流走的歲月永遠(yuǎn)的鮮活，生動(dòng)；讓曾經(jīng)美好的校園生活隨時(shí)重現(xiàn)。根據(jù)本人所在班級(jí)對(duì)多媒體畢業(yè)紀(jì)念冊(cè)的實(shí)際需要，為了提高本人的軟件開發(fā)能力，本人選擇了多媒體畢業(yè)紀(jì)念冊(cè)的設(shè)計(jì)與實(shí)現(xiàn)作為畢業(yè)設(shè)計(jì)題目。使用 Visual B

8、asic 和 Access 開發(fā)一個(gè)多媒體畢業(yè)紀(jì)念冊(cè)。該紀(jì)念冊(cè)具有班級(jí)資料管理、教師資料管理、同學(xué)資料管理和用戶信息管理等功能。1 1 開發(fā)工具簡介開發(fā)工具簡介本次畢業(yè)設(shè)計(jì)所開發(fā)多媒體畢業(yè)紀(jì)念冊(cè)主要利用中文版 Visual Basic6.0 編程語言和 Access 數(shù)據(jù)庫技術(shù)來實(shí)現(xiàn)。1.1Visual1.1Visual Basic6.0Basic6.0 簡介簡介Vis ual Basic（VB）是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。它是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)編程語言，源自于 BASIC 編程語言。不論從任何標(biāo)準(zhǔn)來說，VB 都是世界上使用人數(shù)最多的語言。它擁有

9、圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，用戶可以輕易的使用DAO、RDO、ADO 連接數(shù)據(jù)庫，或者輕松的創(chuàng)建 ActiveX 控件。通過輕松地使用 VB 提供的組件就可以快速建立一個(gè)應(yīng)用程序25。由于 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。因此，采用 VB 來實(shí)現(xiàn)本多媒體畢業(yè)紀(jì)念冊(cè)的代碼編程是一個(gè)相對(duì)較好的選擇。1.2Access1.2Access 數(shù)據(jù)庫簡介數(shù)據(jù)庫簡介Access 是一個(gè)面向?qū)ο蟮?、采用事件?qū)動(dòng)機(jī)制的小型關(guān)系數(shù)據(jù)庫管理系統(tǒng)。在A

10、ccess 中，用戶可以根據(jù)實(shí)際需要對(duì)數(shù)據(jù)進(jìn)行分類，然后使用表對(duì)象分別存儲(chǔ)每一種類型的數(shù)據(jù)，并建立起不同類型數(shù)據(jù)之間的關(guān)系，供報(bào)表使用。此時(shí)，每條信息僅在一處存放，減少了冗余數(shù)據(jù)的產(chǎn)生，節(jié)省了寶貴的存儲(chǔ)空間，同時(shí)也加快了更新數(shù)據(jù)的速度。自從 1992 年 Microsoft 公司發(fā)布 Access1.0 以來，隨著 Windows 的普與，使用2 / 30Access 的人越來越多，它逐漸成為流行的數(shù)據(jù)庫軟件之一。Access2000 是微軟公司開發(fā)的基于 Windows 平臺(tái)的小型數(shù)據(jù)庫管理系統(tǒng)，是 Office 2000 件之一。它承襲了舊版本 Access 的各項(xiàng)優(yōu)點(diǎn)，又新增和完善了數(shù)據(jù)

11、訪問頁、個(gè)性化菜單、internet/intranet、編程、安全等功能12。Access2000 簡單易用的特點(diǎn)，逐漸成為辦公領(lǐng)域流行的數(shù)據(jù)庫軟件。使用Access2000，用戶不需要進(jìn)行專業(yè)程序設(shè)計(jì)能力培養(yǎng)，就可在較短的時(shí)間通過簡單直觀的可視化操作（操作向?qū)В┩瓿纱蟛糠值臄?shù)據(jù)管理任務(wù)，設(shè)計(jì)出功能強(qiáng)大的數(shù)據(jù)庫管理程序。即使要開發(fā)復(fù)雜或?qū)I(yè)的數(shù)據(jù)庫管理程序，也只需編寫少量的程序代碼。ACCESS 具有以下主要特點(diǎn)：（1）在 Access 數(shù)據(jù)庫中，任何有名字的事物都可以稱之為對(duì)象。Access 使用了與 Windows 一致的風(fēng)格，采取面向?qū)ο蟮姆绞?，完成?shù)據(jù)庫的各種功能。極簡化了用戶的開發(fā)工

12、作。（2）針對(duì)用戶在實(shí)際應(yīng)用中的需求，Access 數(shù)據(jù)庫提供了表、查詢、窗體、報(bào)表、頁、宏和模塊等七個(gè)對(duì)象，用于收集、存儲(chǔ)和操作各種不同的信息。 （3）Access 的每個(gè)對(duì)象都為用戶提供了設(shè)計(jì)器和生成向?qū)?。用戶可以在設(shè)計(jì)器中設(shè)計(jì)生成對(duì)象，或?qū)ι傻膶?duì)象進(jìn)行編輯；用戶也可通過生成向?qū)Х奖憧焖俚纳梢粋€(gè)完備的對(duì)象。2 2 總體分析與設(shè)計(jì)總體分析與設(shè)計(jì)2.1 概要設(shè)計(jì)概要設(shè)計(jì)（1）概要設(shè)計(jì)的任務(wù)4系統(tǒng)分析員審查軟件計(jì)劃、軟件需求分析提供的文檔，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進(jìn)度計(jì)劃，供指導(dǎo)教師審定，審定后進(jìn)入設(shè)計(jì)。確定模塊結(jié)構(gòu)，劃分功能模塊，將軟件功能

13、需求分配給所劃分的最小單元模塊。確定模塊間的聯(lián)系，確定數(shù)據(jù)結(jié)構(gòu)、文件結(jié)構(gòu)、數(shù)據(jù)庫模式，確定測試方法與策略。 編寫概要設(shè)計(jì)說明書，用戶手冊(cè)，測試計(jì)劃，選用相關(guān)的軟件工具來描述軟件結(jié)構(gòu)，結(jié)構(gòu)圖是經(jīng)常使用的軟件描述工具。選擇分解功能與劃分模塊的設(shè)計(jì)原則，例如模塊劃分獨(dú)立性原則，信息隱蔽原則等。（2）概要設(shè)計(jì)的原則將軟件劃分成若干獨(dú)立成分的依據(jù)。如何表示不同的成分的功能細(xì)節(jié)和數(shù)據(jù)結(jié)構(gòu)。如何統(tǒng)一衡量軟件設(shè)計(jì)的技術(shù)質(zhì)量。（3）概要設(shè)計(jì)的過程概要設(shè)計(jì)要先進(jìn)行系統(tǒng)設(shè)計(jì)，復(fù)審系統(tǒng)計(jì)劃與需求分析，確定系統(tǒng)具體的實(shí)施方案；然后進(jìn)行結(jié)構(gòu)設(shè)計(jì)，確定軟件結(jié)構(gòu)。3 / 302.2功能分析功能分析根據(jù)分析，本次畢業(yè)設(shè)計(jì)開發(fā)的

14、多媒體畢業(yè)紀(jì)念冊(cè)需具備如下功能：（1）班級(jí)留言管理。（2）任課教師資料管理。（3）同學(xué)資料管理。（4）用戶信息管理。 根據(jù)以上分析，得系統(tǒng)功能模塊圖如下：圖 3-1 功能模塊圖在系統(tǒng)的開發(fā)過程中，本人盡量注意模塊的高聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護(hù)。2.2 詳細(xì)設(shè)計(jì)2.2.1 詳細(xì)設(shè)計(jì)任務(wù)詳細(xì)設(shè)計(jì)就是要在概要設(shè)計(jì)的結(jié)果的基礎(chǔ)上，考慮“怎樣實(shí)現(xiàn)”這個(gè)軟件系統(tǒng)，直到對(duì)系統(tǒng)中的每個(gè)模塊給出足夠詳細(xì)的過程性描述。主要任務(wù)如下：（1）為每個(gè)模塊確定采用的算法，選擇某種適當(dāng)?shù)墓ぞ弑磉_(dá)算法的過程，寫出模塊的詳細(xì)過程性描述；（2）確定每一模塊使用的數(shù)據(jù)結(jié)構(gòu)；（3）確定模塊接

15、口的細(xì)節(jié)，包括對(duì)系統(tǒng)外部的接口和用戶界面，對(duì)系統(tǒng)部其它模塊的接口，以與模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)與局部數(shù)據(jù)的全部細(xì)節(jié)；（4）要為每一個(gè)模塊設(shè)計(jì)出一組測試用例，以便在編碼階段對(duì)模塊代碼（即程序）進(jìn)行預(yù)定的測試，模塊的測試用例是軟件測試計(jì)劃的重要組成部分，通常應(yīng)包括輸入數(shù)據(jù)，期望輸出等容。主界面班級(jí)留言管理任課教師管理同學(xué)管理退出輔助功能登錄4 / 302.2.2 詳細(xì)設(shè)計(jì)的方法詳細(xì)設(shè)計(jì)的方法有：程序流程圖、N-S 圖、PAD 圖、IPO 圖。本多媒體畢業(yè)紀(jì)念冊(cè)在開發(fā)過程中所采用的詳細(xì)設(shè)計(jì)方法為 IPO 圖方法，涉與到的重要模塊的 IPO 圖如下所示：（1） 息管理模塊 IPO 圖I IOP班級(jí)信息留

16、言信息教師信息學(xué)生信息提供相應(yīng)的界面供操作人員錄入保存到表圖 3-2 信息管理模塊（2） 查詢模塊 IPO 圖I IOP設(shè)置相關(guān)的查詢信息提供相應(yīng)的界面供操作人員錄入顯示查詢結(jié)果圖 3-3 查詢模塊（3） 用戶信息維護(hù)模塊 IPO 圖I IOP增加修改刪除提供相應(yīng)的界面供操作人員操作保存到表圖 3-4 用戶信息維護(hù)模塊3 數(shù)據(jù)庫設(shè)計(jì)3.13.1 數(shù)據(jù)庫的概念和基本操作數(shù)據(jù)庫的概念和基本操作（1）數(shù)據(jù)庫概念5 / 30數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫

17、（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等1。 （2）新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 標(biāo)識(shí)需要的數(shù)據(jù)； 收集被標(biāo)識(shí)的字段到表中； 標(biāo)識(shí)主關(guān)鍵字字段； 繪制一個(gè)簡單的數(shù)據(jù)圖表； 規(guī)數(shù)據(jù)； 標(biāo)識(shí)指定字段的信息； 創(chuàng)建物理表。（3）修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。（4）實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指兩個(gè)庫之間

18、共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以與在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。3.23.2 數(shù)據(jù)庫需求分析數(shù)據(jù)庫需求分析需求分析的任務(wù)不是確定系統(tǒng)怎么樣完成它的工作,而僅僅是去確定系統(tǒng)必須完成哪些工作,也就是對(duì)目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。需求分析

19、的結(jié)果是系統(tǒng)開發(fā)的基礎(chǔ)，關(guān)系到整個(gè)系統(tǒng)的成敗和質(zhì)量。該系統(tǒng)分為游客和管理員兩部分。該系統(tǒng)需要實(shí)現(xiàn)下列功能1。(1) 班級(jí)表：班級(jí)所有相關(guān)信息（班級(jí)名、班級(jí)專業(yè)、入學(xué)年份、畢業(yè)時(shí)間、班級(jí)人數(shù)、畢業(yè)照片）(2) 教師表：教師所包含的相關(guān)信息（教師、性別、系別、班級(jí)、照片、留言）(3) 學(xué)生表：學(xué)生的相關(guān)信息（學(xué)生、性別、班級(jí)、生日、愛好、特長、自我介紹、照片、個(gè)人主頁、留言） (4) 留言表：存儲(chǔ)例言（班級(jí)、留言、）6 / 303.3 數(shù)據(jù)庫概要設(shè)計(jì)畢業(yè)紀(jì)念冊(cè)數(shù)據(jù)庫功能主要體現(xiàn)在對(duì)班級(jí)表、教師表、學(xué)生表、留言表信息的存儲(chǔ)，通常建立一個(gè)概念性的數(shù)據(jù)模型（也稱信息模型）。數(shù)據(jù)庫中包含三種相關(guān)聯(lián)的信息：

20、數(shù)據(jù)對(duì)象、數(shù)據(jù)對(duì)象的屬性以與數(shù)據(jù)對(duì)象彼此間相互連接的關(guān)系。根據(jù)系統(tǒng)所需要的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)，就可以設(shè)計(jì)出滿足可戶需要的各種實(shí)體，以與之間的關(guān)系，本多媒體畢業(yè)紀(jì)念冊(cè)的 E-R 圖設(shè)計(jì)如下所示：1 MN N圖 4-1 E-R 圖3.43.4 數(shù)據(jù)庫邏輯設(shè)計(jì)數(shù)據(jù)庫邏輯設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫中各個(gè)表的設(shè)計(jì)結(jié)果如圖所示，每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表，系統(tǒng)的基本數(shù)據(jù)如以下各表所示：表 4-2 班級(jí)表字段名稱數(shù)據(jù)類型說明班級(jí)名文本必填字段（否）允許空字符串（否）班級(jí)專業(yè)文本必填字段（否）允許空字符串（否）入學(xué)年份日期/時(shí)間必填字段（否）畢業(yè)時(shí)間日期/時(shí)間必填字段（否）班級(jí)人數(shù)數(shù)字必填字段（否）畢業(yè)照片OLE 對(duì)象

21、必填字段（否）班級(jí)人數(shù)班級(jí)班級(jí)專業(yè)畢業(yè)時(shí)P-P教師教師名性別系別班級(jí)名留言管理學(xué)生自我介紹愛好特長生日性別班級(jí)名包含7 / 30表 4-3 教師表字段名稱數(shù)據(jù)類型說明教師文本必填字段（否）允許空字符串（否）性別文本必填字段（否）允許空字符串（否）系別文本必填字段（否）允許空字符串（否）班級(jí)名文本必填字段（否）允許空字符串（否）照片OLE 對(duì)象必填字段（否）留言備注必填字段（否）允許空字符串（否）表 4-4 學(xué)生表字段名稱數(shù)據(jù)類型說明學(xué)生文本必填字段（否）允許空字符串（否）性別文本必填字段（否）允許空字符串（否）班級(jí)表文本必填字段（否）允許空字符串（否）生日日期/時(shí)間必填字段（否）愛好文本必填字

22、段（否）允許空字符串（否）特長文本必填字段（否）允許空字符串（否）自我介紹備注必填字段（否）允許空字符串（否）照片OLE 對(duì)象必填字段（否）個(gè)人主頁超級(jí)必填字段（否）允許空字符串（否）留言備注必填字段（否）允許空字符串（否）表 4-5 留言表字段名稱數(shù)據(jù)類型說明班級(jí)文本必填字段（否）允許空字符串（否）留言備注必填字段（否）允許空字符串（否）文本必填字段（否）允許空字符串（否）表 4-6 用戶表字段名稱數(shù)據(jù)類型說明ID自動(dòng)編號(hào)user文本必填字段（否）允許空字符串（否）pwd文本必填字段（否）允許空字符串（否）4 功能模塊設(shè)計(jì)與實(shí)現(xiàn)4.14.1 系統(tǒng)登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)系統(tǒng)登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)系

23、統(tǒng)登錄模塊完成登陸方式選擇功能，成功登錄的用戶將進(jìn)入系統(tǒng)的主界面。8 / 30（1）流程圖圖 5-1 登錄界面流程圖（2）界面運(yùn)行效果圖 5-2 選擇登錄模式圖 5-3 管理員登錄 圖 5-4 學(xué)生登錄（3）設(shè)計(jì)與實(shí)現(xiàn)過程用戶選擇登錄方式，根據(jù)不同的登錄方式打開不同的菜單，以管理員登錄為例，介紹實(shí)現(xiàn)過程如下：YN開始選擇登錄模式/登錄是否正確主界面9 / 30Step1：將所需的控件放到窗體的相應(yīng)位置.在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到窗體上。Step2：選擇窗體或控件進(jìn)行屬性設(shè)置.如圖為“確定”按鈕的屬性設(shè)置界面：

24、圖 5-5 屬性設(shè)置界面Step3：雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼.例如本窗體上“確定”與“退出”按鈕的代碼設(shè)計(jì)如下：Private Sub Command1_Click() SQL = select * from 用戶表 where user = & Trim(Text1.Text) & Data1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 沒有此用戶！, , 提示 Data1.RecordSource = 用戶表 Data1.RefreshElse If Trim(Text

25、2.Text) = Trim(Text3.Text) Then Form4.Show Form1.HideElseMsgBox 密碼錯(cuò)誤！, , 提示 End IfEnd IfEnd SubPrivate Sub Command2_Click()按鈕標(biāo)題按鈕類型按鈕上的圖片按鈕的位置信息10 / 30Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & db.mdbEnd Sub上述代碼中，“IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否一樣，如果一樣，則執(zhí)行 Form1.hide（隱藏

26、當(dāng)前的窗體）和 Form4.show（調(diào)出系統(tǒng)主界面），如果用戶名或密碼輸入錯(cuò)誤，則提示錯(cuò)誤信息，并要求用戶重新輸入用戶名或密碼。Step4：幾個(gè)特殊控件的設(shè)計(jì)實(shí)現(xiàn)。此窗體上另外還有 Data1、Text3 二個(gè)控件在程序運(yùn)行時(shí)是看不到的，它們的作用是使 VB 與 Access 數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進(jìn)入系統(tǒng)。設(shè)計(jì)時(shí)首先將 Data、Text 控件拖放到窗體上，再次設(shè)置它們的屬性如下：Data1 控件的屬性設(shè)置Data1.DatabaseName = App.Path & db.mdb此屬性的作用是保證 Data 控件與數(shù)據(jù)

27、庫相連。圖 5-6 Datal 屬性設(shè)置Visible 屬性是使此控件運(yùn)行時(shí)在窗體上不顯示。Text3 控件的屬性設(shè)置數(shù)據(jù)庫的名稱運(yùn)行時(shí)是否隱藏11 / 30圖 5-7Text3 屬性設(shè)置Visible 屬性的設(shè)置同 Data1 控件。4.2 主界面的設(shè)計(jì)與實(shí)現(xiàn)主界面是系統(tǒng)的啟動(dòng)對(duì)象，可以在系統(tǒng)菜單中選擇設(shè)置啟動(dòng)對(duì)象。主界面是用菜單形式表現(xiàn)的，運(yùn)行效果如下圖所示：圖 5-8 主界面圖中菜單的制作過程如下：此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫此數(shù)據(jù)控件綁定到何字段12 / 30Step1：通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置.此過程中要注意各菜單的名稱唯一，另外還要注意菜單的

28、級(jí)別。系統(tǒng)主菜單運(yùn)行效果如下：圖 5-9 菜單編輯Step2：單擊菜單設(shè)置各菜單代碼。部分關(guān)鍵代碼如下圖：Private Sub bjly_Click()Form8.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Resize()Label1.Left = (Form4.Width - Label1.Width) / 2Label1.Top = Form4.Height / 2End SubPrivate Sub jsxxcx_Click()Form10.ShowEnd SubPrivate Sub jsxxwf_Cl

29、ick()Form2.ShowEnd SubPrivate Sub rkxxwf_Click()Form7.Show調(diào)節(jié)菜單的級(jí)別設(shè)置快捷鍵實(shí)現(xiàn)圖片上文字的位置自動(dòng)調(diào)整13 / 30End Sub4.34.3 班級(jí)資料管理模塊的設(shè)計(jì)實(shí)現(xiàn)班級(jí)資料管理模塊的設(shè)計(jì)實(shí)現(xiàn)4.3.14.3.1 班級(jí)班級(jí)信息管理模塊班級(jí)信息管理的功能是用戶存放班級(jí)信息與增加刪除功能。（1）流程圖圖 5-10 班級(jí)信息管理流程圖（2）界面運(yùn)行效果圖 5-11 班級(jí)信息維護(hù)（3）設(shè)計(jì)與實(shí)現(xiàn)過程N(yùn)Y開始增加刪除等操作是否繼續(xù)退出14 / 30運(yùn)行時(shí)用戶可以選擇系統(tǒng)菜單。以所選的班級(jí)信息菜單為例，其設(shè)計(jì)與實(shí)現(xiàn)過程描述如下：Step

30、1：構(gòu)造界面，將所需的控件放到窗體的相應(yīng)位置。在“工具箱”中選中所需要的控件圖標(biāo)然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，既可把由所選取的控件生成的對(duì)象添加到窗體上。Step2：選擇窗體或控件進(jìn)行屬性設(shè)置。Step3：雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼。主要代碼如下：Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueData1.Recordset.

31、AddNewDTPicker1.Value = DateDTPicker2.Value = DateFor i = 0 To 2 Text1(i).Enabled = TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd SubPrivate Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then Command4.Enabled = False Command5.Enabled = False Data1.Recordset.Delete Data1.Record

32、set.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command3_Click()Command5.Enabled = TrueData1.Recordset.Edit15 / 30For i = 0 To 2 Text1(i).Enabled = TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd SubPrivate Sub Command4_Click()If (Len(Trim(Text1(0)

33、= 0) And (Len(Trim(Text1(1) = 0) Then MsgBox 班級(jí)信息有誤！請(qǐng)檢查！, , 系統(tǒng)提示 Text1(0).SetFocusElse Data1.Recordset.Update Data1.Recordset.MoveLast For i = 0 To 2 Text1(i).Enabled = False Next Image1.Enabled = False Command1.Enabled = True MsgBox 班級(jí)信息添加成功！, , 系統(tǒng)提示End IfEnd SubPrivate Sub Command5_Click()Data1.Re

34、cordset.CancelUpdateCommand1.Enabled = TrueFor i = 0 To 2 Text1(i).Enabled = FalseNextImage1.Enabled = FalseEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & db.mdbEnd SubPrivate Sub Image1_Click()16 / 30 Image1.Picture = Clipboard.GetDataE

35、nd Sub4.3.2 班級(jí)留言管理模塊班級(jí)留言管理主要完成存放和刪除班級(jí)留言信息的功能。（1）流程圖圖 5-12 班級(jí)留言流程圖（2）界面運(yùn)行效果圖 5-13 留言管理（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面，將所需的控件放到窗體的相應(yīng)位置。在“工具箱”中選中所需要的控件圖標(biāo)然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，既可把由所選取的控件生成的對(duì)象添加到窗體上。Step2：選擇窗體或控件進(jìn)行屬性設(shè)置。Step3：編寫代碼。NY開始留言/查詢留言是否繼續(xù)退出17 / 30查看留言的主要代碼如下：Private Sub DataCombo1_Change(Index As Integer)If I

36、ndex = 0 Then SQL = select * from 留言表 where 班級(jí) = & Trim(DataCombo1(0).Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 沒有此班級(jí)的學(xué)生留言！, , 提示 Data1.RecordSource = select * from 留言表 Data1.Refresh End IfEnd IfEnd Sub上述代碼的實(shí)現(xiàn)主要通過用戶選擇不同的班級(jí)然后通過 SQL 結(jié)構(gòu)化查詢語句實(shí)現(xiàn)信息的查詢。添加留言頁框

37、的主要代碼如下：Private Sub Command1_Click()If Command1.Caption = 留言 Then Command1.Caption = 保存 Text1.Visible = True Data1.Recordset.AddNew Text2.Text = DataCombo1(1).Text Text3.Text = yf Text1.SetFocusElse Command1.Caption = 留言 Data1.Recordset.Update Text1.Visible = False End IfEnd Sub4.44.4 教師資料管理模塊的設(shè)計(jì)實(shí)現(xiàn)教

38、師資料管理模塊的設(shè)計(jì)實(shí)現(xiàn)4.4.1 教師資料維護(hù)模塊教師資料維護(hù)模塊的功能是為了維護(hù)用戶存放教師資料，主要具有資料的增加和刪除功能。（1）流程圖18 / 30圖 5-14 教師資料維護(hù)流程圖（2）界面運(yùn)行效果圖 5-15 教師資料維護(hù)窗口（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command4_Click()If Len(Trim(Text1(0) = 0 ThenMsgBox 教師資料有誤！請(qǐng)檢查！, , 系統(tǒng)提示 Text1(0).SetFocusElse Data1.Recordset.Update

39、NY開始增加刪除等操作是否繼續(xù)退出19 / 30 Data1.Recordset.MoveLast For i = 0 To 4 Text1(i).Enabled = False Next Combo1.Visible = False Image1.Enabled = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False MsgBox 教師資料添加成功！, , 系統(tǒng)提示End IfEnd Sub

40、4.4.24.4.2 教師資料查詢模塊教師資料查詢模塊教師資料查詢的功能是方便查詢與教師相關(guān)的信息。（1）流程圖圖 5-16 教師資料流程圖（2）界面運(yùn)行效果NY開始設(shè)置查詢條件查詢是否繼續(xù)退出20 / 30圖 5-17 教師資料查詢（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command1_Click()If Option1.Value ThenSQL = select * from 教師表 where 教師= & Trim(Text1.Text) & Data1.RecordSource

41、 = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 沒有此教師的教師資料！, , 提示 Data1.RecordSource = select * from 教師表 Data1.Refresh End IfEnd IfEnd Sub上述代碼主要通過 option 控件判斷用戶選擇了何查詢方法，再采用 SQL 結(jié)構(gòu)化查詢語句實(shí)現(xiàn)查詢。21 / 304.54.5 同學(xué)資料管理模塊的實(shí)現(xiàn)同學(xué)資料管理模塊的實(shí)現(xiàn)4.5.1 同學(xué)資料維護(hù)模塊同學(xué)資料模塊用于存儲(chǔ)同學(xué)資料，具有增加、刪除功能。（1）流程圖圖 5-18 同學(xué)資料維護(hù)流程圖（2）界面運(yùn)

42、行效果圖 5-19 同學(xué)資料維護(hù)窗口（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then Command4.Enabled = FalseNY開始增加刪除等操作是否繼續(xù)退出22 / 30 Command5.Enabled = False Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then D

43、ata1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command3_Click()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueData1.Recordset.EditFor i = 0 To 6 Text1(i).Enabled = TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd Sub4.5.

44、24.5.2 同學(xué)資料查詢模塊同學(xué)資料查詢模塊 同學(xué)資料查詢模塊的功能是方便用戶查詢學(xué)生的更多相關(guān)信息。（1）流程圖圖 5-20 同學(xué)資料查詢流程圖（2）界面運(yùn)行效果NY開始設(shè)置查詢條件查詢是否繼續(xù)退出23 / 30圖 5-21 同學(xué)資料查詢（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command1_Click()If Option1.Value Then SQL = select * from 學(xué)生表 where 學(xué)生= & Trim(Text1.Text) & Data1.RecordS

45、ource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 沒有學(xué)生的信息！, , 提示 Data1.RecordSource = select * from 學(xué)生表 Data1.Refresh End IfEnd IfIf Option2.Value Then SQL = select * from 學(xué)生表 where 班級(jí)名 = & Trim(Text1.Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBo

46、x 沒有此班級(jí)的同學(xué)資料！, , 提示 Data1.RecordSource = select * from 學(xué)生表 Data1.Refresh24 / 30 End IfEnd IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path + db.mdbEnd Sub4.64.6 用戶信息管理模塊的設(shè)計(jì)與實(shí)現(xiàn)用戶信息管理模塊的設(shè)計(jì)與實(shí)現(xiàn)用戶信息管理模塊主要具有用戶信息維護(hù)與密碼修改功能。4.6.1 用戶信息維護(hù)模塊（1）流程圖圖 5-22 用戶信息維護(hù)模塊流程圖（2）界面運(yùn)行效果圖 5-23 用戶信息維護(hù)（3）實(shí)現(xiàn)過程Step1

47、：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。NY開始增加刪除項(xiàng)目是否繼續(xù)保存25 / 30主要代碼如下：Private Sub Command1_Click()Text1.SetFocusIf Command1.Caption = 新增 Then Command1.Caption = 確定 Data1.Recordset.AddNew Command2.Enabled = False Command3.Enabled = FalseElse Command1.Caption = 新增 Data1.Recordset.Update Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()Data1.Recordset.DeleteData1.Recordset.MovePreviousEnd SubPrivate Sub