學(xué)校招生信息管理系統(tǒng)

1、哈爾濱師范大學(xué)課程論文課程名稱 管理信息系統(tǒng)任課教師 XXX題 目 學(xué)校招生信息管理系統(tǒng) 姓 名 XXX學(xué) 號(hào) XXXXXXXXX學(xué) 院 計(jì)算機(jī)科學(xué)與信息工程學(xué)院論文評(píng)語(yǔ)（由任課教師填寫）：成 績(jī)學(xué)校招生信息管理系統(tǒng)XXX摘要：隨著計(jì)算機(jī)及網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，Internet的應(yīng)用在全 球范圍內(nèi)日益普及，辦公自動(dòng)化是運(yùn)作高效的企事業(yè)單位的必然要求，網(wǎng)上招生管理系統(tǒng)是一個(gè)高校不可缺少的部分,它的使用對(duì)于招生人員和考生來(lái)說都至關(guān)重要。 本文以開發(fā)忻州師院網(wǎng)上招生系統(tǒng)為實(shí)踐基礎(chǔ)，詳細(xì)闡述了網(wǎng)上招生管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的全過程，結(jié)合Visual Basic6.0相關(guān)程序和ASP相關(guān)技術(shù)，以SQL Se

2、rver 2000為后臺(tái)數(shù)據(jù)庫(kù)開發(fā)了本系統(tǒng)。關(guān)鍵詞：網(wǎng)上招生； Visual Basic6.0；招生信息管理；SQL Server 2000 ；網(wǎng)上招生管理；計(jì)算機(jī)第一章 論述1.1 課題來(lái)源、研究目的及意義隨著計(jì)算機(jī)及其應(yīng)用軟件的發(fā)展，教育信息化已經(jīng)越來(lái)越得到重視。實(shí)現(xiàn)教育信息化的管理，能夠提高教學(xué)質(zhì)量，減輕學(xué)校和教學(xué)管理部門的壓力。招生管理系統(tǒng)是針對(duì)學(xué)校需要應(yīng)運(yùn)而生的，是每個(gè)學(xué)校運(yùn)行的一個(gè)主要環(huán)節(jié)，是為學(xué)校管理者更好的管理所招收的學(xué)生工作而開發(fā)的管理軟件。利用計(jì)算機(jī)技術(shù)對(duì)招生工作進(jìn)行管理，具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)，因此，開發(fā)一套招生管理系統(tǒng)軟件是很有必要，也是勢(shì)在必行的，根據(jù)需求分析，

3、實(shí)現(xiàn)招生管理業(yè)務(wù)，效益已越來(lái)越明顯。開發(fā)本系統(tǒng)，旨在可以有效而機(jī)密的管理招生數(shù)據(jù)，提高工作效率和增加招生管理的透明度，實(shí)現(xiàn)數(shù)據(jù)規(guī)范化、自動(dòng)化的電腦管理。1.2 研究?jī)?nèi)容整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成考生信息、招生計(jì)劃管理和考生錄取的全過程，。主要的功能模塊有：系統(tǒng)管理模塊：包括系統(tǒng)登錄、修改密碼、添加新用戶、退出系統(tǒng)。其中添加新用戶功能只有當(dāng)?shù)卿浀挠脩羰枪芾韱T時(shí)才能使用，并且注冊(cè)用戶時(shí)需要輸入用戶的真實(shí)姓名?？忌畔⒐芾砟K：包括添加考生信息、顯示考生信息、考生信息統(tǒng)計(jì)。其中添加考生信息需要輸入考生的所有信息，如考生基本信息，考生成績(jī)信息等。顯示考生信息可以

4、逐條顯示這些信息，還可以按準(zhǔn)考證號(hào)查詢考生信息?？忌畔⒔y(tǒng)計(jì)可以按文理科，省份等進(jìn)行統(tǒng)計(jì)?？忌浫∧K：包括考生錄取，顯示已錄取考生信息。招生計(jì)劃管理模塊：包括添加招生計(jì)劃、顯示招生計(jì)劃、查詢招生計(jì)劃、招生計(jì)劃統(tǒng)計(jì)；數(shù)據(jù)庫(kù)維護(hù)模塊：包括數(shù)據(jù)庫(kù)備份和數(shù)據(jù)庫(kù)恢復(fù)。第二章 系統(tǒng)分析及關(guān)鍵技術(shù)2.1 系統(tǒng)需求分析需求分析是管理系統(tǒng)開發(fā)的第一步也是最重要的一步。需求分析就是描述系統(tǒng)的需求，通過定義系統(tǒng)中的關(guān)鍵域類來(lái)建立模型。分析的根本目的是在開發(fā)者和提出需求的人之間建立一種理解和溝通的機(jī)制。 這是一個(gè)管理系統(tǒng)，設(shè)計(jì)目標(biāo)是賦予系統(tǒng)基本的招生功能，以盡量方便學(xué)校，而且使用起來(lái)也很容易。分析那些理論中對(duì)實(shí)際操

5、作有價(jià)值的功能,如考生信息管理,招生計(jì)劃管理,和系統(tǒng)管理.還有對(duì)信息的添加,修改,和刪除.并且提供快速查詢功能，方便學(xué)校了解并能快速高效的工作。對(duì)于系統(tǒng)管理員，也力求盡最大可能方便其進(jìn)行操作。1.管理員對(duì)功能的需求(1) 登錄取得管理員權(quán)限(2) 注銷此次權(quán)限2.考生信息管理(1)查詢考生信息?？忌畔忌拘畔⒑推渌畔?，基本信息包括準(zhǔn)考證號(hào),姓名,性別,戶籍所在地,政治面貌,籍貫，年齡，出生年月；其他信息包括考生成績(jī)，考生填報(bào)志愿信息，考生個(gè)人簡(jiǎn)歷，考生親屬關(guān)系。(2)修改考生信息。 考生信息包括考生基本信息和其他信息，基本信息包括準(zhǔn)考證號(hào),姓名,性別,戶籍所在地,政治面貌,籍貫，年

6、齡，出生年月；其他信息包括考生成績(jī)，考生填報(bào)志愿信息，考生個(gè)人簡(jiǎn)歷，考生親屬關(guān)系。(3)刪除考生信息.(4) 考生信息統(tǒng)計(jì)。包括按文理科、按院系、按考生省份、先按院系再按省份統(tǒng)計(jì)。 3.招生計(jì)劃管理(1)添加招生計(jì)劃。包括院系，省份，招生人數(shù)。(2) 查詢招生計(jì)劃。(3) 修改招生計(jì)劃。(4) 刪除招生計(jì)劃。(5) 招生計(jì)劃統(tǒng)計(jì)。4.系統(tǒng)管理(1)系統(tǒng)登錄。(2) 修改密碼。(3)添加新用戶。只有管理員才能添加。(4)退出系統(tǒng)。2.2 系統(tǒng)配置1操作系統(tǒng)選擇可以根據(jù)用戶量的大小選擇不同的操作系統(tǒng)。當(dāng)然，一般情況下對(duì)Windows界面比較熟悉。因此，我選擇使用Windows 7。維護(hù)水平“較好”

7、，穩(wěn)定性要求較高，每秒數(shù)據(jù)并發(fā)數(shù)據(jù)訪問記錄為500-2000。2硬件配置 系統(tǒng)的硬件配置主要根據(jù)用戶對(duì)系統(tǒng)的穩(wěn)定性、系統(tǒng)的容量、系統(tǒng)的吞吐量以及對(duì)系統(tǒng)的維護(hù)水平而定。我的系統(tǒng)硬件配置是：處理器:Celeron(R) 2.66GHz；內(nèi)存:512MB；硬盤:80GB。2.3 關(guān)鍵技術(shù)客戶/服務(wù)器(Client/Server)是近年來(lái)迅速發(fā)展的分布式信息處理體系結(jié)構(gòu)。客戶/服務(wù)器體系把信息處理過程分成幾個(gè)部分，并把它分配到整個(gè)計(jì)算機(jī)網(wǎng)絡(luò)上，使信息處理過程能最佳地利用計(jì)算機(jī)的系統(tǒng)資源。在招生管理系統(tǒng)中，為了避免多個(gè)用戶同時(shí)對(duì) 同一數(shù)據(jù)進(jìn)行操作，減少系統(tǒng)開銷，盡可能地少耗用網(wǎng)絡(luò)資源，系統(tǒng)采用客戶/服務(wù)

8、器結(jié)構(gòu)。C/S模式系統(tǒng)以服務(wù)器作為數(shù)據(jù)處理和存儲(chǔ)平臺(tái)，在終端設(shè)計(jì)有專門的應(yīng)用程序進(jìn)行數(shù)據(jù)的采集和初次處理，再將數(shù)據(jù)傳遞到服務(wù)器端，用戶必須使用客戶端應(yīng)用程序才能對(duì)數(shù)據(jù)進(jìn)行操作。C/S模式具有專業(yè)化程度高、開發(fā)手段靈活、運(yùn)行速度快等特點(diǎn)，但受到維護(hù)成本大、適應(yīng)性弱等問題的影響。C/S模式是早期電子政務(wù)開發(fā)中主要應(yīng)用的模式，同時(shí)一些專業(yè)的MIS軟件也經(jīng)常使用這種模式。C/S模式系統(tǒng)幾乎可以適應(yīng)任何的操作平臺(tái)，開發(fā)技術(shù)也多種多樣，大部分計(jì)算機(jī)語(yǔ)言都能開發(fā)出C/S模式的應(yīng)用系統(tǒng)。Client/Server是分離的邏輯實(shí)體，它是通過網(wǎng)絡(luò)協(xié)同工作來(lái)完成一項(xiàng)工作，它具有下列特征：功能分離：Server進(jìn)程是

9、服務(wù)的提供者，Client進(jìn)程是服務(wù)的消費(fèi)者，它們是在不同機(jī)器上運(yùn)行的進(jìn)程間的一種關(guān)系。共享資源：一個(gè)Server可以同時(shí)為多個(gè)Client提供服務(wù)并協(xié)調(diào)它們共享資源的訪問。位置透明：Server可以駐留在與客戶相同或不同的處理器上，需要時(shí)，Client/Server平臺(tái)可通過重新定向服務(wù)來(lái)掩蓋位置。服務(wù)封裝：客戶過程只需要知道Server的界面，而不必了解其邏輯。同步/異步操作：客戶可以用同步或異步的方式請(qǐng)求服務(wù)。異步方式可以使Server并發(fā)地處理多個(gè)客戶任務(wù)。可擴(kuò)展性：支持水平或垂直擴(kuò)展。水平擴(kuò)展可以增加或更改客戶工作站；垂直擴(kuò)展是可以轉(zhuǎn)移到新的或多個(gè)Server機(jī)器上。2.4 可行性研

10、究可行性分析（Feasibility Analysis）也稱為可行性研究，是在系統(tǒng)調(diào)查的基礎(chǔ)上，針對(duì)新系統(tǒng)的開發(fā)是否具備必要性和可能性，對(duì)新系統(tǒng)的開發(fā)從技術(shù)、經(jīng)濟(jì)、社會(huì)的方面進(jìn)行分析和研究，以避免投資失誤，保證新系統(tǒng)的開發(fā)成功。可行性研究的目的就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決。本系統(tǒng)的可行性分析包括以下幾個(gè)方面的內(nèi)容。1 經(jīng)濟(jì)可行性：主要是對(duì)項(xiàng)目的經(jīng)濟(jì)效益進(jìn)行評(píng)價(jià)，本系統(tǒng)開發(fā)經(jīng)費(fèi)非常小,對(duì)于大多數(shù)單位在經(jīng)濟(jì)上是可以接受的。2 技術(shù)上的可行性：技術(shù)上的可行性分析主要分析技術(shù)條件能否順利完成開發(fā)工作，硬、軟件能否滿足開發(fā)者的需要等。系統(tǒng)采用Visual Basic6.0開發(fā)，

11、后臺(tái)數(shù)據(jù)庫(kù)使用Server SQL 2000，使用C/S結(jié)構(gòu)設(shè)計(jì)，系統(tǒng)實(shí)現(xiàn)對(duì)SQL數(shù)據(jù)庫(kù)的維護(hù)，包括對(duì)數(shù)據(jù)的增加、修改、刪除，以及查詢操作。因此，系統(tǒng)的軟件開發(fā)平臺(tái)已成熟可行。硬件方面，科技飛速發(fā)展的今天，硬件更新的速度越來(lái)越快，容量越來(lái)越大，可靠性越來(lái)越高，價(jià)格越來(lái)越低，其硬件平臺(tái)完全能滿足此系統(tǒng)的需要。3時(shí)機(jī)可行性：目前，隨著社會(huì)的發(fā)展,學(xué)校的增加,生員的擴(kuò)招,設(shè)計(jì)這樣一個(gè)招生系統(tǒng)會(huì)給學(xué)校帶來(lái)方便和效率.所以建立這樣一個(gè)管理系統(tǒng)很有市場(chǎng)，所以具有時(shí)機(jī)可行性。第三章 招生管理系統(tǒng)分析與設(shè)計(jì)3.1 招生管理系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)招生管理系統(tǒng)按功能可分為系統(tǒng)管理、考生信息管理、招生計(jì)劃管理、考生錄取管

12、理、數(shù)據(jù)庫(kù)維護(hù)、幫助六大模塊，每個(gè)模塊下分幾個(gè)小模塊。系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)如圖3.2所示：招生管理系統(tǒng)系統(tǒng)管理考生信息管理招生計(jì)劃管理考生錄取管理數(shù)據(jù)庫(kù)維護(hù)幫助 圖3.2 系統(tǒng)總體結(jié)構(gòu)圖3.1.1 系統(tǒng)管理系統(tǒng)管理可以細(xì)分為登錄系統(tǒng)、修改密碼、添加新用戶、管理員設(shè)置、退出系統(tǒng)五個(gè)子功能模塊。登錄系統(tǒng)：過對(duì)操作人員輸入的用戶名稱和用戶口令的驗(yàn)證，使得系統(tǒng)管理人員進(jìn)入系統(tǒng)管理界面進(jìn)行相關(guān)操作。修改密碼：用戶可以通過該模塊進(jìn)行密碼的重新設(shè)置，以保證帳號(hào)安全。添加新用戶：該功能模塊只有登錄的用戶是管理員時(shí)才能對(duì)其進(jìn)行操作，注冊(cè)過程中可以選擇新用戶的權(quán)限。退出系統(tǒng)：操作員完成對(duì)系統(tǒng)的操作，安全退出系統(tǒng)。3.

13、1.2 考生信息管理考生管理系統(tǒng)包括考生信息的錄入、顯示考生信息、考生信息統(tǒng)計(jì)三個(gè)子功能模塊。考生信息錄入：該模塊是整個(gè)招生管理系統(tǒng)的一個(gè)核心部分。操作人員可以在考生錄入窗口中實(shí)現(xiàn)考生信息管理的大部分的節(jié)本功能，包括考生信息的添加、修改、刪除等功能。顯示考生信息：該模塊可以顯示考生的所以信息，包括基本信息、考生成績(jī)信息、考生報(bào)考志愿信息、考生簡(jiǎn)歷等。還可以同過準(zhǔn)考證號(hào)查詢特定考生的信息，并可對(duì)其進(jìn)行修改、刪除、保存等操作?？忌畔⒔y(tǒng)計(jì)：該功能模塊可以按多種方式統(tǒng)計(jì)，如按文理科、按院系、按考生省份、先按院系再按省份統(tǒng)計(jì)等。3.1.3 招生計(jì)劃管理招生計(jì)劃管理包括招生計(jì)劃錄入、顯示招生計(jì)劃、招生計(jì)

14、劃統(tǒng)計(jì)三個(gè)子功能模塊。招生計(jì)劃錄入：按要求輸入招生院系、省份、招生人數(shù)。顯示招生計(jì)劃：可以按院系、省份查詢招生計(jì)劃，也可顯示全部招生計(jì)劃。并能對(duì)招生計(jì)劃進(jìn)行修改、刪除、保存等操作。招生計(jì)劃統(tǒng)計(jì)：包括按院系統(tǒng)計(jì)和按省份統(tǒng)計(jì)。3.1.4 考生錄取管理考生錄取管理包括考生錄取、已錄取考生信息兩個(gè)子功能模塊?？忌浫。翰僮鲉T通過該模塊對(duì)符合要求的考生進(jìn)行錄取操作。已錄取考生信息：可以查看各院系、各省份的考生錄取情況，也可以查看全部的考生錄取情況。其中各省已錄取考生信息和各院系已錄取考生信息都統(tǒng)計(jì)了已錄取考生人數(shù)和相對(duì)招生計(jì)劃而言的剩余招生名額，以便于用戶明確已錄取情況和還需招生情況。3.1.5 數(shù)據(jù)庫(kù)

15、維護(hù)數(shù)據(jù)庫(kù)維護(hù)包括數(shù)據(jù)庫(kù)備份和數(shù)據(jù)庫(kù)恢復(fù)兩個(gè)子功能模塊。數(shù)據(jù)庫(kù)備份：主要是為了防止數(shù)據(jù)丟失，定期對(duì)數(shù)據(jù)庫(kù)進(jìn)行備份。數(shù)據(jù)庫(kù)恢復(fù)：主要作用是當(dāng)數(shù)據(jù)庫(kù)出現(xiàn)問題時(shí)，將備份的數(shù)據(jù)恢復(fù)，可以防止數(shù)據(jù)丟失帶來(lái)的損失。3.2 系統(tǒng)流程圖登錄系統(tǒng)用戶權(quán)限招生管理系統(tǒng)考生基本信息數(shù)據(jù)查詢數(shù)據(jù)統(tǒng)計(jì)招生計(jì)劃管理數(shù)據(jù)查詢數(shù)據(jù)統(tǒng)計(jì)已錄取考生信息數(shù)據(jù)查詢數(shù)據(jù)統(tǒng)計(jì)系統(tǒng)登錄數(shù)據(jù)錄入數(shù)據(jù)錄入添加新用戶修改密碼管理員設(shè)置數(shù)據(jù)庫(kù)備份恢復(fù)退出系統(tǒng)數(shù)據(jù)增加數(shù)據(jù)修改數(shù)據(jù)刪除 圖3.3 系統(tǒng)流程圖3.3 系統(tǒng)數(shù)據(jù)流程圖已錄取考生信息管理管理員登錄考生信息錄入招生計(jì)劃錄入考生錄取考生信息管理招生計(jì)劃管理考生錄取管理錄取考生信息 圖3.4 系統(tǒng)

16、數(shù)據(jù)流程圖3.4 數(shù)據(jù)庫(kù)詳細(xì)設(shè)計(jì)數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫(kù)設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，保證數(shù)據(jù)信息的完整性和一致性。同時(shí)，一個(gè)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。3.4.1 數(shù)據(jù)庫(kù)表的設(shè)計(jì)本系統(tǒng)采用了大型的SQL Server數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為“zsgl”.數(shù)據(jù)庫(kù)“zsgl”包含8個(gè)表。其中包括每個(gè)表的備份表。用戶表，包括用戶名、密碼、真實(shí)姓名、用戶類型、注冊(cè)時(shí)間4個(gè)字段。字段名數(shù)據(jù)類型說明是否為空用戶名varchar主鍵，字段長(zhǎng)度10否密碼varchar字段長(zhǎng)度20否真實(shí)

17、姓名varchar字段長(zhǎng)度20否用戶類型varchar字段長(zhǎng)度10否注冊(cè)日期datatime字段長(zhǎng)度8否 表3.5.2-1 用戶表結(jié)構(gòu)考生基本信息表，包括準(zhǔn)考證號(hào)、姓名、性別、戶口所在地、政治面貌、籍貫、年齡、出生日期8個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型否姓名varchar字段長(zhǎng)度20否性別varchar字段長(zhǎng)度10否戶口所在地varchar字段長(zhǎng)度50否政治面貌varchar字段長(zhǎng)度20否籍貫varchar字段長(zhǎng)度20否年齡varchar整型否出生日期datatime字段長(zhǎng)度8否 表3.5.2-2 考生基本信息表結(jié)構(gòu)考生成績(jī)表，包括準(zhǔn)考證號(hào)、姓名、語(yǔ)文、數(shù)學(xué)、外語(yǔ)、

18、X綜合、特殊加分、總分、外語(yǔ)語(yǔ)種、文理科類型10個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型否姓名varchar字段長(zhǎng)度20否語(yǔ)文int整型否數(shù)學(xué)int整型否外語(yǔ)int整型否X綜合int整型否特殊加分int整型否總分int整型否外語(yǔ)語(yǔ)種varchar字段長(zhǎng)度10否文理科類型varchar字段長(zhǎng)度10否 表3.5.2-3 考生成績(jī)表結(jié)構(gòu)考生志愿表，包括準(zhǔn)考證號(hào)、姓名、第一志愿學(xué)校、第二志愿學(xué)校、第三志愿學(xué)校、本校院系1、本校院系2、本校院系3八個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型否姓名varchar字段長(zhǎng)度20否第一志愿學(xué)校varchar字段長(zhǎng)度50否第二

19、志愿學(xué)校varchar字段長(zhǎng)度50是第三志愿學(xué)校varchar字段長(zhǎng)度50是本校院系1varchar字段長(zhǎng)度50是本校院系2varchar字段長(zhǎng)度50是本校院系3varchar字段長(zhǎng)度50是 表3.5.2-4 考生志愿表結(jié)構(gòu) 考生簡(jiǎn)歷表，包括準(zhǔn)考證號(hào)、姓名、畢業(yè)學(xué)校、畢業(yè)學(xué)校所在地、畢業(yè)時(shí)間、曾獲獎(jiǎng)勵(lì)6個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型否姓名varchar字段長(zhǎng)度20否畢業(yè)學(xué)校varchar字段長(zhǎng)度20否畢業(yè)學(xué)校所在地varchar字段長(zhǎng)度20否畢業(yè)時(shí)間datatime字段長(zhǎng)度8否曾獲獎(jiǎng)勵(lì)varchar字段長(zhǎng)度100是 表3.5.2-5 考生簡(jiǎn)歷表結(jié)構(gòu) 考生親屬表，包

20、括準(zhǔn)考證號(hào)、考生姓名、與考生關(guān)系、親屬姓名、工作及工作單位、電話、通訊地址、郵編、備注、親屬2與考生關(guān)系、親屬2姓名、親屬2工作及工作單位、親屬2電話、親屬2通訊地址、親屬2郵編、親屬2備注16個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型否姓名varchar字段長(zhǎng)度為20否與考生關(guān)系varchar字段長(zhǎng)度為20否親屬姓名varchar字段長(zhǎng)度為20否工作及工作單位varchar字段長(zhǎng)度為50是電話varchar字段長(zhǎng)度為20是通訊地址varchar字段長(zhǎng)度為50是郵編varchar字段長(zhǎng)度為10是備注varchar字段長(zhǎng)度為50是親屬2與考生關(guān)系varchar字段長(zhǎng)度為20是親

21、屬2姓名varchar字段長(zhǎng)度為20是親屬2工作及工作單位varchar字段長(zhǎng)度為50是親屬2電話varchar字段長(zhǎng)度為20是親屬2通訊地址varchar字段長(zhǎng)度為50是親屬2郵編varchar字段長(zhǎng)度為10是親屬2備注varchar字段長(zhǎng)度為50是 表3.5.2-6 考生親屬表結(jié)構(gòu) 招生計(jì)劃表，包括院系、省份、招生人數(shù)3個(gè)字段。字段名數(shù)據(jù)類型說明是否為空院系varchar主鍵，字段長(zhǎng)度20否省份varchar主鍵，字段長(zhǎng)度20否招生人數(shù)int整形否 表3.5.2-7 招生計(jì)劃表 已錄取考生表，包括準(zhǔn)考證號(hào)、姓名、院系、省份、總分5個(gè)字段。字段名數(shù)據(jù)類型說明是否為空準(zhǔn)考證號(hào)int主鍵，長(zhǎng)整型

22、否姓名varchar字段長(zhǎng)度20否院系varchar字段長(zhǎng)度20否省份varchar字段長(zhǎng)度20否總分int整型否 表3.5.2-8 已錄取考生表根據(jù)3.5.1數(shù)據(jù)庫(kù)設(shè)計(jì)理論可知，本系統(tǒng)所設(shè)計(jì)的數(shù)據(jù)庫(kù)表符合第三范式(3NF)。第四章 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)4.1 系統(tǒng)登錄窗口系統(tǒng)登錄窗口模塊主要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)入系統(tǒng)。只有合法的用戶在輸入正確的管理員和密碼后，才可以進(jìn)入系統(tǒng)。4.1.1 實(shí)現(xiàn)目標(biāo)(1)輸入用戶名和密碼進(jìn)入系統(tǒng)。(2)確認(rèn)用戶的身份及使用權(quán)限(3)支持鍵盤操作及鼠標(biāo)操作4.1.2 開發(fā)流程根據(jù)系統(tǒng)登錄窗口的實(shí)現(xiàn)目標(biāo),在設(shè)計(jì)系統(tǒng)登錄窗口時(shí),要了解系統(tǒng)登錄窗

23、口的開發(fā)流程,系統(tǒng)登錄窗口的開發(fā)流程圖如圖4.1.2 所示.用戶登錄窗口判斷是否輸入用戶名輸入用戶名輸入密碼判斷是否輸入密碼判斷密碼是否真確提示：請(qǐng)輸入用戶名！提示：請(qǐng)輸入密碼！提示：用戶名或密碼輸入錯(cuò)誤！進(jìn)入主程序界面 圖4.1.2 系統(tǒng)登錄窗口開發(fā)流程圖4.1.3 程序設(shè)計(jì)及代碼 1.添加控件新建一個(gè)窗口，在窗口中添加一個(gè)圖形控件，一個(gè)Frame控件，兩個(gè)Label控件，兩個(gè)TextBox控件和兩個(gè)CommandButton控件。輸入密碼控件采用TextBox控件，以星號(hào)（*）顯示。重要控件屬性設(shè)置如表4.13所示：控件屬性屬性值CommandNamecmdLoginCaption登錄Co

24、mmandNamecmdCancelCaption取消重填TextBoxNametxtUserTextBoxNametxtPwd 表4.13 重要控件屬性設(shè)置2.添加代碼：為了使本窗體在運(yùn)行時(shí)處于主窗體的中央，需要加入如下代碼：Private Sub Form_Load() Dim Y0 As Long 讓窗體居中 X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0End Sub下面實(shí)現(xiàn)【登錄】按鈕的功能，雙擊【登錄】按鈕，添加單擊此按鈕時(shí)的

25、代碼：Private Sub cmdLogin_Click()首先檢查用戶是否輸入了用戶名和密碼 If txtUser.Text = Then MsgBox 請(qǐng)輸入用戶名！, vbOKOnly + vbInformation, 注意 txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = Then MsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbInformation, 注意 txtPwd.SetFocus Exit Sub End If Dim sqluser As String 構(gòu)造查詢?cè)撚脩裘兔艽a的sql語(yǔ)句 sqluser = selec

26、t * from 用戶表 where 用戶名 = & txtUser.Text _ & and 密碼 = & txtPwd.Text & * CursorLocation = adUseClient 打開數(shù)據(jù)游標(biāo) rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox 用戶名和密碼不正確！, vbOKOnly + vbInformation, 注意 rs_user.Close Exit Sub ElseIf rs_user.Fields(3) = 超級(jí)用戶 The

27、n admin_user = True 如果是超級(jí)用戶則使添加新用戶子菜單為可用 MDIfrmMain.mnAddNew.Enabled = True 還需使其他菜單可用 MDIfrmMain.mnStu.Enabled = True MDIfrmMain.mnPlan.Enabled = True MDIfrmMain.mnAdmit.Enabled = True 提示用戶登錄成功并關(guān)閉游標(biāo)和登錄窗口 MsgBox 登錄成功！, vbOKOnly + vbInformation, 注意 rs_user.Close Unload Me Else admin_user = False 如果為普通

28、用戶則，添加新用戶子菜單不可用，其他菜單可用 MDIfrmMain.mnStu.Enabled = True MDIfrmMain.mnPlan.Enabled = True MDIfrmMain.mnAdmit.Enabled = True MsgBox 登錄成功！, vbOKOnly + vbInformation, 注意 rs_user.Close Unload Me End IfEnd Sub4.2 主程序界面主程序界面是用戶與應(yīng)用程序交互的接口，用于調(diào)用其他子程序的窗口，另外主程序界面還要實(shí)現(xiàn)權(quán)限設(shè)置，菜單調(diào)用，工具欄調(diào)用等功能，主程序界面設(shè)計(jì)的好壞直接影響到應(yīng)用程序的整體形象。4.

29、2.1 實(shí)現(xiàn)目標(biāo)選擇主界面的菜單，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。窗體名稱顯示當(dāng)前操作員姓名，顯示日期和時(shí)間。按操作員的使用權(quán)限，調(diào)用相應(yīng)的菜單項(xiàng)。按操作員的使用權(quán)限，調(diào)用相應(yīng)的工具欄按鈕。4.2.2 開發(fā)流程主界面的開發(fā)流程如圖4.2.2所示用戶主程序用戶權(quán)限菜單工具欄執(zhí)行子程序執(zhí)行子程序 圖4.2.2 主界面開發(fā)流程圖4.2.3 程序設(shè)計(jì)及代碼：在MDIfrmMain窗體中對(duì)各模塊進(jìn)行連接，然后對(duì)各窗體添加代碼。MDIfrmMain模塊代碼：Private Sub MDIForm_Load() 在主窗體中打開對(duì)數(shù)據(jù)庫(kù)的連接 Dim strCnn As String 定義一個(gè)連接串變量 strC

30、nn = Provider=MSDASQL.1;Persist Security Info=False;Data Source=zsglconn.Open strCnnmnAddNew.Enabled = False 設(shè)置添加新用戶菜單不可用 mnStu.Enabled = False mnPlan.Enabled = False mnAdmit.Enabled = FalseEnd Sub4.3新用戶注冊(cè)模塊新用戶注冊(cè)模塊主要完成新用戶信息的管理。新用戶注冊(cè)模塊涉及到的數(shù)據(jù)表為用戶表。4.3.1 實(shí)現(xiàn)目標(biāo)只有管理員才能注冊(cè)新用戶。設(shè)置用戶權(quán)限及密碼。4.3.2 開發(fā)流程本模塊用于注冊(cè)新用戶，

31、設(shè)計(jì)目標(biāo)如下：在系統(tǒng)登入框中輸入用戶名和密碼后，程序?qū)⑴袛嘤脩羰欠駷橄到y(tǒng)管理員，如果是系統(tǒng)管理員，“添加新用戶”按鈕可用。否則，“添加新用戶”按鈕不可用。權(quán)限管理：由于不同的用戶都有不同的權(quán)限，為了保證數(shù)據(jù)的安全，避免非法用戶任意更改數(shù)據(jù)，必須對(duì)用戶的權(quán)限加以管理，當(dāng)用戶通過登陸窗口進(jìn)入系統(tǒng)后，系統(tǒng)就會(huì)對(duì)用戶信息做一個(gè)記錄，當(dāng)用戶要試圖進(jìn)入某個(gè)分模塊時(shí)，系統(tǒng)首先要驗(yàn)證用戶的權(quán)限，對(duì)于有些模塊用戶根不無(wú)權(quán)打開，對(duì)于有些模塊用戶可以進(jìn)去預(yù)覽某些數(shù)據(jù)，但是其中的某些功能只對(duì)特定權(quán)限的用戶開放，其它用戶均無(wú)權(quán)進(jìn)行操作，因?yàn)檫@些功能都是不可用狀態(tài)。當(dāng)然要想使用某些功能，用戶可以通過切換用戶，來(lái)提高自己的

32、權(quán)限。前提是你要知道相應(yīng)權(quán)限的驗(yàn)證信息才行。這在很大程度上保證了數(shù)據(jù)的安全性。開發(fā)流程圖如圖4.3.2所示：輸入用戶名輸入密碼用戶密碼確認(rèn)不是系統(tǒng)管理員是系統(tǒng)管理員【添加新用戶】不可用【添加新用戶】可用打開【添加新用戶】窗口注冊(cè)錄入過程取消取消過程 圖4.3.2 用戶注冊(cè)模塊開發(fā)流程圖4.3.3 程序設(shè)計(jì)及代碼 各控件重要屬性設(shè)置如表4.3.3所示：控件屬性屬性值CommandNameCommand1Caption注冊(cè)CommandNameCommand2Caption取消ComboBoxList管理員 一般用戶ItemData0 1TextBoxNametxtTimeEnableFalseT

33、extBoxNametxtUserTextBoxNametxtPwdTextBoxNametxtPwd2TextBoxNametxtTrueName 表4.3.3 各控件重要屬性設(shè)置要使本窗體運(yùn)行時(shí)處于主窗體的中央，還需要設(shè)置Combo的默認(rèn)值和注冊(cè)時(shí)間為當(dāng)前系統(tǒng)時(shí)間，代碼如下：Private Sub Form_Load()Dim X0 As Long Dim Y0 As Long 讓窗體居中 X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y

34、0 cmbType.ListIndex = -1 設(shè)置ComboBox的list初始值為listindex=0的值 txtTime.Text = Str(Date)End Sub下面實(shí)現(xiàn)【注冊(cè)】按鈕功能。首先需要檢測(cè)是否輸入了必要信息，兩次輸入的密碼是否相同，還需要檢測(cè)該用戶是否已經(jīng)注冊(cè)過了。如果檢測(cè)通過則加入用戶表，提示用戶注冊(cè)成功，代碼如下：Private Sub Command1_Click() 先檢查用戶是否輸入了必要的各項(xiàng)值 If txtUser.Text = Then MsgBox 請(qǐng)輸入用戶名！, vbOKOnly + vbInformation, 注意 txtUser.SetF

35、ocus Exit Sub ElseIf txtPwd.Text = Then MsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbInformation, 注意 txtPwd.SetFocus Exit Sub ElseIf txtPwd2.Text = Then MsgBox 請(qǐng)?jiān)俅屋斎朊艽a！, vbOKOnly + vbInformation, 注意 txtPwd2.SetFocus Exit Sub ElseIf txtTrueName.Text = Then MsgBox 請(qǐng)輸入您的真實(shí)姓名！, vbOKOnly + vbInformation, 注意 txtTrueName.S

36、etFocus Exit Sub ElseIf cmbType.Text = Then MsgBox 請(qǐng)選擇用戶類型！, vbOKOnly + vbInformation, 注意 cmbType.SetFocus Exit Sub End If 判斷兩次輸入的密碼是否相同 If txtPwd.Text txtPwd2.Text Then MsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入密碼！, vbOKOnly + vbInformation, 注意 txtPwd.Text = txtPwd2.Text = txtPwd.SetFocus Exit Sub End If Dim rs_check

37、As New ADODB.Recordset Dim rs_add As New ADODB.Recordset Dim strsql As String strsql = select * from 用戶表 where 用戶名 = & txtUser.Text & rs_check.Open strsql, conn, adOpenKeyset, adLockPessimistic 判斷是否已存在此用戶名 If rs_check.EOF = False Then MsgBox 此用戶名已存在，請(qǐng)選擇其他用戶名！, vbOKOnly + vbInformation, 注意 txtUser.Te

38、xt = txtUser.SetFocus rs_check.Close Exit Sub End If 4.4考生信息管理4.4.1 實(shí)現(xiàn)目標(biāo)完成查詢、修改、刪除考生信息操作。在單行編輯框、掩碼框、下拉列表框和單選按鈕中對(duì)信息進(jìn)行快速操作。支持快速瀏覽考生信息。4.4.2 開發(fā)流程顯示考生信息窗口查詢考生信息修改考生信息刪除考生信息瀏覽考生信息查詢過程修改過程刪除過程定位記錄保存/取消保存過程取消過程 圖4.4.2 考生信息管理模塊開發(fā)流程圖4.4.3 程序開發(fā)及代碼按圖4.4.1所示加入各控件，其中TextBox控件的屬性Text域都清空，而且各個(gè)Frame框中的所有TextBox為一個(gè)T

39、extBox控件數(shù)組，其屬性名分別為Texti(j),其中i為控件數(shù)組號(hào)，j為該控件在該控件數(shù)組中的序號(hào)。從上到下5個(gè)Frame框中的控件數(shù)組號(hào)分別為是1，8，9，10，11。其余重要控件的屬性如表4.4.3：控件屬性屬性值FrameNameFrame1Caption考生基本信息FrameNameFrame2Caption考生成績(jī)FrameNameFrame3Caption考生填報(bào)志愿信息FrameNameFrame4Caption考生個(gè)人簡(jiǎn)歷FrameNameFrame5Caption考生親屬關(guān)系FrameNameFrame6Caption功能鍵CommandNamecmdQueryCapt

40、ion查詢CommandNamecmdFirstCaption第一條CommandNamecmdForwardCaption前一條CommandNamecmdAfterwardCaption后一條CommandNamecmdLastCaption最后一條CommandNamecmdChangeCaption修改CommandNamecmdDelCaption刪除CommandNamecmdExitCaption關(guān)閉 表4.4.3 重要控件屬性設(shè)置要顯示考生信息，需要打開5個(gè)考生信息表，代碼如下：在from_laod（)方法中打開5個(gè)考生信息表 sql_Stu = select * from 考

41、生基本信息表 rs_Stu.CursorLocation = adUseClient rs_Stu.Open sql_Stu, conn, adOpenStatic, adLockOptimistic For i = 0 To 7 Text1(i).Text = rs_Stu.Fields(i) Next i sql_Grade = select * from 考生成績(jī)表 rs_Grade.CursorLocation = adUseClient rs_Grade.Open sql_Grade, conn, adOpenStatic, adLockOptimistic For i = 0 To

42、 7 Text8(i).Text = rs_Grade.Fields(i + 2) Next i sql_Wish = select * from 考生志愿表 rs_Wish.CursorLocation = adUseClient rs_Wish.Open sql_Wish, conn, adOpenStatic, adLockOptimistic For i = 0 To 5 Text9(i).Text = rs_Wish.Fields(i + 2) Next i sql_Study = select * from 考生簡(jiǎn)歷表 rs_Study.CursorLocation = adUse

43、Client rs_Study.Open sql_Study, conn, adOpenStatic, adLockOptimistic For i = 0 To 3 Text10(i).Text = rs_Study.Fields(i + 2) Next i sql_Relation = select * from 考生親屬表 rs_Relation.CursorLocation = adUseClient rs_Relation.Open sql_Relation, conn, adOpenStatic, adLockOptimistic For i = 0 To 13 Text11(i)

44、.Text = rs_Relation.Fields(i + 2) & Next i 下面需要設(shè)置各個(gè)textbox控件不可修改 For i = 0 To 7 Text1(i).Enabled = False Next i For i = 0 To 7 Text8(i).Enabled = False Next i For i = 0 To 5 Text9(i).Enabled = False Next i For i = 0 To 3 Text10(i).Enabled = False Next i For i = 0 To 13 Text11(i).Enabled = False Next

45、 i End Sub下面實(shí)現(xiàn)【查詢】按鈕的功能。單擊【查詢】按鈕后，彈出一個(gè)InputBox窗體，需要用戶輸入查詢的準(zhǔn)考證號(hào)，如果沒有輸入準(zhǔn)考證號(hào)，則取消查詢，代碼如下： Dim Markstu As String Dim strInput As String 用于保存用戶輸入的考生準(zhǔn)考證號(hào) Dim lonInput As Long 用于保存轉(zhuǎn)換成數(shù)字后的考生準(zhǔn)考證號(hào) strInput = InputBox(請(qǐng)輸入要查詢的考生準(zhǔn)考證號(hào)：, 輸入準(zhǔn)考證號(hào)) If Len(strInput) = 0 Then MsgBox 沒有輸入準(zhǔn)考證號(hào)，取消查詢！, vbOKOnly + vbInformat

46、ion, 注意 Else lonInput = Val(strInput) Markstu = rs_Stu.Bookmark 使用find 方法查找記錄 rs_Stu.Find 準(zhǔn)考證號(hào) like & lonInput & 如果沒有找到則提示用戶 If rs_Stu.EOF Then MsgBox 對(duì)不起，沒有找到你所要的記錄！, vbOKOnly + vbInformation, 注意 Exit Sub Else 如果找到則顯示該記錄并且相應(yīng)各表游標(biāo)都移到該記錄 For i = 0 To 7 Text1(i).Text = rs_Stu.Fields(i) Next i 移動(dòng)其他各表游標(biāo)到

47、該記錄并顯示 rs_Grade.Find 準(zhǔn)考證號(hào) like & lonInput & For i = 0 To 7 Text8(i).Text = rs_Grade.Fields(i + 2) Next i rs_Wish.Find 準(zhǔn)考證號(hào) like & lonInput & For i = 0 To 5 Text9(i).Text = rs_Wish.Fields(i + 2) Next i rs_Study.Find 準(zhǔn)考證號(hào) like & lonInput & For i = 0 To 3 Text10(i).Text = rs_Study.Fields(i + 2) Next i rs_Relation.Find 準(zhǔn)考證號(hào) like & lonInput & For i = 0 To 13 Text11(i).Text = rs_Relation.Fields(i + 2) & Next i End If End IfEnd Sub單擊【修改】按鈕后，【修改】會(huì)變成【確定】按鈕，同時(shí)各TextBox控件可寫，當(dāng)【修改】按鈕變成【確定】按鈕后，單擊【確定】按鈕，則把修改的數(shù)據(jù)寫入數(shù)據(jù)表中。同時(shí)需要將【確定】按鈕改為【修改】按鈕以及各個(gè)TextBox控件不可寫，代碼如下：If cmdChange.Caption = 修 改 T