學(xué)生成績管理系統(tǒng) 畢業(yè)論文

《學(xué)生成績管理系統(tǒng) 畢業(yè)論文》由會(huì)員分享，可在線閱讀，更多相關(guān)《學(xué)生成績管理系統(tǒng) 畢業(yè)論文（35頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、商丘職業(yè)技術(shù)學(xué)院畢業(yè)論畢業(yè)論文（文（設(shè)計(jì)設(shè)計(jì)） ）題題目：目：學(xué)生成學(xué)生成績績管理系管理系統(tǒng)統(tǒng)姓姓 名：名： 系系 別別： ： 計(jì)計(jì)算機(jī)系算機(jī)系 專專 業(yè)業(yè)： ： 計(jì)計(jì)算機(jī)算機(jī)應(yīng)應(yīng)用技用技術(shù)術(shù) 學(xué)學(xué) 號(hào)：號(hào)： 1101010126 指指導(dǎo)導(dǎo)教教師師： ： XXXX 年年 XX 月月 XX 日日 目 錄第第 1 1 章章 引言引言 .1 11.11.1 項(xiàng)目開發(fā)的背景項(xiàng)目開發(fā)的背景.11.21.2 項(xiàng)目開發(fā)的目標(biāo)項(xiàng)目開發(fā)的目標(biāo).11.31.3 項(xiàng)目開發(fā)的意義項(xiàng)目開發(fā)的意義.1第第 2 2 章章 可行性研究與需求分析可行性研究與需求分析 .2 22.12.1 可行性研究可行性研究.22.22.2

2、需求分析需求分析.22.2.12.2.1 概述概述.22.2.22.2.2系統(tǒng)需求系統(tǒng)需求.22.2.32.2.3數(shù)據(jù)詞典數(shù)據(jù)詞典.32.2.42.2.4數(shù)據(jù)流程圖數(shù)據(jù)流程圖.3第第 3 3 章章 系統(tǒng)的總體設(shè)計(jì)系統(tǒng)的總體設(shè)計(jì) .5 53.13.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)結(jié)構(gòu)設(shè)計(jì).53.23.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì).7INTINT .8 8CHARCHAR .8 83.3 系統(tǒng) E-R 圖.8第第 4 4 章章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì) .12124.14.1 系統(tǒng)開發(fā)工具及運(yùn)行環(huán)境系統(tǒng)開發(fā)工具及運(yùn)行環(huán)境.124.24.2 系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn)系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn).124.2.

3、14.2.1 系統(tǒng)管理模塊設(shè)計(jì)系統(tǒng)管理模塊設(shè)計(jì).154.2.24.2.2 信息錄入信息錄入模塊設(shè)計(jì)模塊設(shè)計(jì).164.2.34.2.3 信息查詢模塊設(shè)計(jì)信息查詢模塊設(shè)計(jì).264.2.44.2.4 信息打印模塊設(shè)計(jì)信息打印模塊設(shè)計(jì).28總結(jié)總結(jié) .3131致謝致謝 .3232參考文獻(xiàn)參考文獻(xiàn) .3333 I摘摘 要要學(xué)生成績是教育單位不可或缺的一部分,應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兎绞?。傳統(tǒng)的人工方式來管理學(xué)生的成績存在著許多缺點(diǎn),如:保密性差而且效率低,產(chǎn)生大量的文件和數(shù)據(jù),對(duì)數(shù)據(jù)的查找、更新和維護(hù)帶來困難。 隨著計(jì)算機(jī)科學(xué)逐步成熟以及完善,其滲透到人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著重要的作用

4、。運(yùn)用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高管理者對(duì)學(xué)生成績管理的效率,使學(xué)校的管理科學(xué)化、正規(guī)化。 關(guān)鍵詞關(guān)鍵詞學(xué)生成績管理系統(tǒng)；數(shù)據(jù)庫；access；數(shù)據(jù)詞典。 0第第 1 1 章章 引言引言1.11.1 項(xiàng)目開發(fā)的背景項(xiàng)目開發(fā)的背景 幾年前，各個(gè)學(xué)校對(duì)于學(xué)生成績的管理還是停留在運(yùn)用手工操作，隨著各個(gè)學(xué)校的規(guī)模不斷壯大，學(xué)生人數(shù)逐年增加。關(guān)于學(xué)生成績管理工作所涉及的數(shù)據(jù)量越來越大，有的學(xué)校不得不靠增加人力、物力來進(jìn)行學(xué)生成績管理。但人工管理又有著許多缺陷，比如：效率底、易出錯(cuò)、

5、檢索信息慢、對(duì)學(xué)校的管理提供決策信息較為困難等。學(xué)校不能完全掌握每一個(gè)學(xué)生的學(xué)習(xí)情況，這樣對(duì)學(xué)校的教學(xué)工作及其不利，使學(xué)校的教學(xué)質(zhì)量一直停滯不前，所以我想借本次畢業(yè)設(shè)計(jì)之際，開發(fā)一個(gè)不僅適用于各校的通用高校學(xué)生成績管理系統(tǒng)，使學(xué)校能夠充分掌握學(xué)生的學(xué)習(xí)情況，便于學(xué)校教學(xué)工作的進(jìn)行和改革。1.21.2 項(xiàng)目開發(fā)的目標(biāo)項(xiàng)目開發(fā)的目標(biāo)建立學(xué)生成績管理系統(tǒng)，采用計(jì)算機(jī)對(duì)學(xué)生成績進(jìn)行管理，進(jìn)一步提高辦學(xué)效率和現(xiàn)代化水平。使學(xué)校對(duì)學(xué)生的成績能夠快速并準(zhǔn)確的錄入、修改和查詢，更好地掌握每個(gè)學(xué)生的各科成績，便于教師的管理。使學(xué)生對(duì)個(gè)人的學(xué)習(xí)成績進(jìn)行更快的查詢。讓老師能夠更好、更快的了解學(xué)生的學(xué)習(xí)情況，使學(xué)校的

6、教學(xué)質(zhì)量進(jìn)一步的提高。1.31.3 項(xiàng)目開發(fā)的意義項(xiàng)目開發(fā)的意義現(xiàn)在我國的一些院校的學(xué)生成績管理水平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時(shí)代的進(jìn)展，因?yàn)樗速M(fèi)了太多的人力和物力。在當(dāng)今的信息時(shí)代，這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所取代。如果本系統(tǒng)能被學(xué)校所采用，將會(huì)改變以往靠手工管理學(xué)生成績的狀況，可以樹立良好的辦學(xué)形象，提高工作效率，節(jié)省人力和物力。 1第第 2 2 章章 可行性研究與需求分析可行性研究與需求分析2.12.1 可行性研究可行性研究隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生人數(shù)逐年增加，學(xué)校對(duì)學(xué)生成績管理的工作量也越來越大。學(xué)生成績管理涉及大量的數(shù)據(jù)處

7、理，如果用手工來完成龐大的數(shù)據(jù)處理，將費(fèi)時(shí)費(fèi)力，還容易出錯(cuò)，為了滿足學(xué)校對(duì)學(xué)生成績管理的需要，急需要一套學(xué)生成績管理系統(tǒng)來完成這項(xiàng)工作。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生成績信息加以管理,將擁有著手工管理所無法比擬的優(yōu)點(diǎn).例如:輸入迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生成績管理的效率,也是學(xué)生成績的科學(xué)化、正規(guī)化管理的重要條件。同時(shí)還要注意下列幾點(diǎn)：1 由于各方面的限制，如人員不夠、技術(shù)缺乏等原因，開發(fā)時(shí)應(yīng)本著循序漸進(jìn)，逐步完善的原則，不能貪大求全，盲目開發(fā)。2要注意信息的準(zhǔn)確、及時(shí)、適用、經(jīng)濟(jì)，只有及時(shí)、準(zhǔn)確的信息才能保證系統(tǒng)開發(fā)的質(zhì)

8、量和效率。3 從全局出發(fā)注意系統(tǒng)開發(fā)的整體優(yōu)化性，同時(shí)還要注意系統(tǒng)的可擴(kuò)展性和可延伸性。4 盡量采用學(xué)?，F(xiàn)有的軟硬件環(huán)境,及先進(jìn)的管理系統(tǒng)開發(fā)方案,從而達(dá)到充分利用學(xué)?，F(xiàn)有資源、提高系統(tǒng)開發(fā)水平和應(yīng)用效果的以及減少開發(fā)成本的目的。5 系統(tǒng)應(yīng)符合學(xué)校對(duì)學(xué)生成績管理的規(guī)定,滿足學(xué)生成績管理的工作需要,并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求。2.22.2 需求分析需求分析2.2.12.2.1 概述概述1、系統(tǒng)分析的原則分析高校成績管理的要求，確定管理系統(tǒng)的邏輯功能，以滿足高校成績的要求。第一階段完成后，該系統(tǒng)應(yīng)具備較高的可擴(kuò)充性，便于在此基礎(chǔ)上完成第二階段。2、分析方法采用結(jié)構(gòu)化分析方法，建

9、立新系統(tǒng)的邏輯模型，這個(gè)邏輯模型盡可能避免計(jì)算機(jī)的專業(yè)術(shù)語。2.2.22.2.2系統(tǒng)需求系統(tǒng)需求經(jīng)過一段時(shí)間對(duì)學(xué)校學(xué)生成績管理的調(diào)研與分析，以及認(rèn)真研究了幾位老師的意見，所開發(fā)的學(xué)生成績管理系統(tǒng)應(yīng)分成以下幾個(gè)階段開發(fā)：第一階段建立的成績管理系統(tǒng)由以下 5 個(gè)子系統(tǒng)組成： 21系統(tǒng)信息的管理，能添加用戶、修改用戶信息、刪除用戶。2學(xué)生基本信息的管理，能對(duì)學(xué)生基本信息進(jìn)行添加、刪除、修改。3班級(jí)信息的管理，能對(duì)班級(jí)基本信息進(jìn)行添加、刪除、修改。4學(xué)生成績信息的管理，能對(duì)學(xué)生成績基本信息進(jìn)行添加、刪除、修改。5對(duì)數(shù)據(jù)的備份、恢復(fù)，對(duì)學(xué)生數(shù)據(jù)的及時(shí)備份。第二階段建立的成績管理系統(tǒng)主要在上次基礎(chǔ)上對(duì)其功

10、能進(jìn)行修改以及擴(kuò)充。在功能擴(kuò)充上應(yīng)該使系統(tǒng)更具實(shí)用性。2.2.32.2.3數(shù)據(jù)詞典數(shù)據(jù)詞典 經(jīng)過分析，所開發(fā)的學(xué)生成績管理系統(tǒng)應(yīng)有五個(gè)數(shù)據(jù)表，分別是：1系統(tǒng)用戶數(shù)據(jù)：高校老師以及管理人員使用成績管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有用戶編號(hào)、登錄口令、權(quán)限代碼。2學(xué)生基本信息數(shù)據(jù)：學(xué)生基本信息數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有學(xué)號(hào)、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號(hào)等。3課程數(shù)據(jù)：課程信息數(shù)據(jù)。4班級(jí)數(shù)據(jù)：用于班級(jí)信息記錄數(shù)據(jù)。5學(xué)生成績數(shù)據(jù)：學(xué)生的成績數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)考試編號(hào)、選擇班號(hào)、選擇學(xué)號(hào)姓名、選擇課程以及輸入分?jǐn)?shù)等。2.2.42.2.4數(shù)據(jù)流程圖數(shù)據(jù)流程圖學(xué)生成績管理系統(tǒng)

11、數(shù)據(jù)流程圖如下： 3用戶主界面歡迎界面用戶登陸 管理系統(tǒng)系統(tǒng)管理信息打印信息錄入信息查詢用戶登陸退出管理系統(tǒng)打印信息表查詢信息錄入信息圖 2-1 系統(tǒng)數(shù)據(jù)流程圖 4第第 3 3 章章 系統(tǒng)的總體設(shè)計(jì)系統(tǒng)的總體設(shè)計(jì)3.13.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)結(jié)構(gòu)設(shè)計(jì)1系統(tǒng)設(shè)計(jì)目標(biāo)本系統(tǒng)既要滿足用戶的設(shè)計(jì)目標(biāo)，也要滿足設(shè)計(jì)員的設(shè)計(jì)目標(biāo)。(1) 用戶的觀點(diǎn)看，要求系統(tǒng)能夠達(dá)到以下目標(biāo)1) 對(duì)信息的收集和保存信息。例如：輸入學(xué)生的成績信息,學(xué)生的基本信息等.2）速的傳遞信息，對(duì)那些共享的數(shù)據(jù)進(jìn)行快速的傳遞。3）供準(zhǔn)確的信息，要求比手工作業(yè)提供的更加準(zhǔn)確和細(xì)致的數(shù)據(jù)，例如學(xué)生的各科分?jǐn)?shù).4）現(xiàn)有的報(bào)表自動(dòng)生成。5）共

12、享現(xiàn)有的數(shù)據(jù)(2) 設(shè)計(jì)員從技術(shù)觀點(diǎn)看，要求系統(tǒng)能達(dá)到以下的目標(biāo)：1) 用戶使用，具有較高的用戶友好性。2）有較高的可靠性，將系統(tǒng)發(fā)生故障的概率控制在 2.0以下，并具有快速恢復(fù)的能力3) 具有較高的運(yùn)行效率，應(yīng)比人工作業(yè)提高效率 10 倍以上。4）具有較強(qiáng)的可維護(hù)性和擴(kuò)充性，能夠適應(yīng)用戶的業(yè)務(wù)要求變化。(3)設(shè)計(jì)策略本系統(tǒng)的結(jié)構(gòu)是自頂向下擴(kuò)展的，層次化的暗盒模塊結(jié)構(gòu)。對(duì)高層模塊，將運(yùn)用以事務(wù)為中心的設(shè)計(jì)策略，將一個(gè)復(fù)雜的系統(tǒng)逐步分解成為幾個(gè)較小的相對(duì)簡單的暗合模塊；對(duì)低層模塊，采用以變換為中心的設(shè)計(jì)策略。此外，為了提高模塊的內(nèi)聚性，降低模塊間的偶合程度，數(shù)據(jù)庫 的設(shè)計(jì)原則是把他作為模塊間的郵

13、政信箱，從而既實(shí)現(xiàn)數(shù)據(jù)共享有提高模塊的獨(dú)立性，使系統(tǒng)具有很高的可修改性。12系統(tǒng)總體功能本說明主要是為了對(duì)學(xué)生成績管理系統(tǒng)進(jìn)行使用和維護(hù)。該系統(tǒng)充分利用計(jì)算機(jī)的現(xiàn)有的功能來實(shí)現(xiàn)對(duì)系統(tǒng)管理、信息錄入、信息查詢，信息打印等的自動(dòng)化控制，將會(huì)使學(xué)生成績管理工作大大減輕，方便友好的信息管理用戶界面，簡便的操作，完善的數(shù)據(jù)庫管理，將會(huì)使得信息管理系統(tǒng)極大限度地應(yīng)用于現(xiàn)代化學(xué)生成績管理，成為管理人員的得力助手。對(duì)系統(tǒng)信息的修改、添加、刪除對(duì)學(xué)生基本信息的修改、添加、刪除、查詢對(duì)班級(jí)信息的添加、修改、查詢 5對(duì)學(xué)籍信息的添加、修改、查詢對(duì)學(xué)生成績信息的添加，修改，查詢對(duì)數(shù)據(jù)的備份、恢復(fù)3系統(tǒng)結(jié)構(gòu)圖 學(xué)生成績

14、管理系統(tǒng)結(jié)構(gòu)圖，以下所示，這些結(jié)構(gòu)圖是根據(jù)系統(tǒng)分析說明書的數(shù)據(jù)流程圖畫出的。實(shí)際上它有 四個(gè)模塊組成。學(xué)生成績管理系統(tǒng)系統(tǒng)管理信息錄入信息查詢信息打印圖 3-1 學(xué)生成績管理系統(tǒng) 系統(tǒng)管理用戶權(quán)限設(shè)置數(shù)據(jù)備份圖 3-2 系統(tǒng)管理信息錄入班級(jí)信息錄入學(xué)生信息錄入課程信息錄入成績錄入補(bǔ)考信息錄入圖 3-3 信息錄入 6信息查詢按學(xué)號(hào)查詢學(xué)生成績班級(jí)課程成績查詢 班級(jí)學(xué)期成績查詢補(bǔ)考學(xué)生查詢圖 3-4 信息查詢信息打印學(xué)生成績打印班級(jí)課程成績打印班級(jí)學(xué)期成績打印補(bǔ)考學(xué)生名單打印圖 3-5 信息打印3.23.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)1、數(shù)據(jù)庫總體結(jié)構(gòu)本系統(tǒng)采用關(guān)系型數(shù)據(jù)庫 Acess 實(shí)現(xiàn),數(shù)

15、據(jù)庫由、若干個(gè)二維表構(gòu)成。本系統(tǒng)的表分為兩類。一類是目錄，即索引。另一類是實(shí)際數(shù)據(jù)。其中數(shù)據(jù)表包括：學(xué)生信息表、 班級(jí)信息表、課程信息表、成績信息表和用戶信息表。22數(shù)據(jù)庫表表 3-1 學(xué)生信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空學(xué)號(hào)int4否姓名Char 10否性別char2是生日datetime8是本人成分Int 4是文化程度char10是籍貫Varchar8是民族varchar50是入學(xué)注冊(cè)varchar200是 7身份證號(hào)Varchar200是郵政編碼varchar18是工作單位及地址Varchar200是單位電話Varchar200是家庭住址Varchar200是家庭電話Varc

16、har20是畢業(yè)時(shí)間Datatime5是成績畢業(yè)Int4是表 3-2 班級(jí)信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空班號(hào) Int 4 否年級(jí)char10是班主任Char 10是教室char10是表 3-3 課程信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空課程編號(hào)Int 10否課程名稱 char10是課程類型Char 10是課程描述char50是表 3-4 成績信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空考試編號(hào)Char 10否選擇班號(hào)Int 4否選擇學(xué)號(hào)Int 4是姓名 Char 10是選擇課程char10是輸入分?jǐn)?shù)float8是表 3-5 用戶信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空輸

17、入用戶名Char 10否輸入密碼Char 10是確認(rèn)密碼Char 10是3.3 系統(tǒng) E-R 圖1、局部 E-R 圖 課程實(shí)體課程 8圖 3-6 課程 E-R 圖班級(jí)實(shí)體圖 3-7 班級(jí) E-R 圖成績實(shí)體學(xué)期考勤成績隨堂成績期末成績總評(píng)成績平時(shí)成績課程班級(jí)姓名學(xué)號(hào)圖 3-8 成績 E-R 圖學(xué)生信息實(shí)體姓名學(xué)號(hào)學(xué)制性別出生年月文化程度籍貫民族入學(xué)時(shí)間身份證號(hào)郵編工作單位單位電話家庭住址家庭電話成績記錄編號(hào)答辯日期指導(dǎo)教師設(shè)計(jì)題目畢業(yè)證編號(hào)畢業(yè)時(shí)間家庭成員學(xué)習(xí)工作經(jīng)歷答辯評(píng)語班級(jí) 9圖 3-9 學(xué)生信息 E-R 圖2.系統(tǒng)全局 E-R 圖班級(jí)班級(jí)就讀學(xué)號(hào)學(xué)生信息選課課程課程總評(píng)總評(píng)成績11n1

18、1姓名學(xué)期平時(shí)隨堂期末考勤性別籍貫入學(xué)時(shí)間指導(dǎo)老師身份證民族家庭住址姓名設(shè)計(jì)題目圖 3-10 系統(tǒng)全局 E-R 圖 10第第 4 4 章章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì)4.14.1 系統(tǒng)開發(fā)工具及運(yùn)行環(huán)境系統(tǒng)開發(fā)工具及運(yùn)行環(huán)境1. 系統(tǒng)開發(fā)工具本系統(tǒng)利用 VB6.0 全套開發(fā)工具做程序開發(fā)，利用 Acess 數(shù)據(jù)庫作為學(xué)生成績管理系統(tǒng)的后臺(tái)數(shù)據(jù)庫。VB6.0 在數(shù)據(jù)庫開發(fā)方面功能很強(qiáng)大，大量使用可視化的界面操作工具，支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，其以簡便、靈活、高效等優(yōu)點(diǎn)著稱。而 Acess 數(shù)據(jù)庫以功能比較強(qiáng)大，由于 VB6.0 中無需另外安裝其支持環(huán)境也能正常打開數(shù)據(jù)庫，具有很強(qiáng)的適應(yīng)性，更重要的是

19、利用 Acess 做數(shù)據(jù)庫開發(fā)，在數(shù)據(jù)備份方面很優(yōu)勢(shì)，方法簡單，可靠。3 2 系統(tǒng)運(yùn)行環(huán)境軟件環(huán)境：系統(tǒng)環(huán)境 win2000 及以上 + Acess數(shù)據(jù)庫硬件環(huán)境：CPU P4 2.4G、256MB 內(nèi)存、80G 硬盤4.24.2 系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn)系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn)執(zhí)行程序后，首先進(jìn)入的是學(xué)生成績管理系統(tǒng)的登錄界面,用戶通過輸入正確的信息后,就進(jìn)入系統(tǒng)主界面。 如圖 4-1 所示圖 4-1 登陸界面以下是登陸模塊的代碼：Private Sub Command1_Click() Text1.Text = DBCombo1.Text Data1.Recordset.FindFir

20、st name= & & Text1.Text & 11 If Data1.Recordset.NoMatch Then MsgBox (沒有此用戶) DBCombo1.Text = Text2.Text = Exit Sub End If If Text4.Text = Text2.Text Then main.Show Unload denglu Exit Sub End IfIf Not (Text4.Text = Text2.Text) Then MsgBox (密碼錯(cuò)誤) Text2.Text = Exit Sub End IfEnd SubPrivate Sub Command2_

21、Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEUSER1.mdbEnd Sub4進(jìn)入主界面后，用戶可以進(jìn)行學(xué)生信息添加、刪除、修改、查詢和打印以及對(duì)數(shù)據(jù)庫的備份等操作。如圖 4-2 所示 12圖 4-2 系統(tǒng)主界面下面是主界面模塊的代碼：Private Sub bklr_Click()bukao.ShowEnd SubPrivate Sub bkxshchx_Click()chaxun_bukao.ShowEnd SubPrivate Sub bkxshmddy_Click()da

22、yin_bukao.ShowEnd SubPrivate Sub chjlr_Click()chengji.ShowEnd SubPrivate Sub gyrj_Click()frmAbout.ShowEnd SubPrivate Sub kchxxlr_Click()kecheng.ShowEnd SubPrivate Sub MDIForm_Load() 13End SubPrivate Sub shjbf_Click()beifen.ShowEnd SubPrivate Sub tch_Click()EndEnd SubPrivate Sub xshxxlr_Click()xueshe

23、ng.ShowEnd SubPrivate Sub yhqx_Click()quanxian.ShowEnd Sub4.2.14.2.1 系統(tǒng)管理模塊設(shè)計(jì)系統(tǒng)管理模塊設(shè)計(jì)在這里管理員可以進(jìn)行添加用戶、修改用戶和刪除用戶等操作。如圖 4-3 所示圖 4-3 用戶權(quán)限設(shè)置用戶權(quán)限設(shè)置代碼如下：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True 14 Command4.Enabled = TrueEnd

24、 SubPrivate Sub Command2_Click() Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Com

25、mand4.Enabled = FalseEnd SubPrivate Sub Command4_Click() Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對(duì)框)If answer = 1 ThenData1.Recordset.Delete

26、Data1.Refresh 15End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEuser1.mdbEnd Sub4.2.24.2.2 信息錄入信息錄入模塊設(shè)計(jì)模塊設(shè)計(jì) 包括對(duì)班級(jí)信息、學(xué)生基本信息、課程信息、學(xué)生成績信息、學(xué)生補(bǔ)考信息的錄入、修改和刪除1.班級(jí)信息錄入用戶在班級(jí)輸入框中輸入要添加的班級(jí)信息，點(diǎn)擊添加按鈕，如果班級(jí)信息出現(xiàn)在右側(cè)的表格中就說明信息添加成功。用戶也可以對(duì)已經(jīng)添加的信息進(jìn)行修改和刪除，具體操作是選中要修改或者刪除的班級(jí)信息點(diǎn)擊修改或者刪除按鈕執(zhí)行相應(yīng)的操作，如果已經(jīng)

27、添加的班級(jí)信息很多，你可以通過模糊查找來幫你找出比較匹配的班級(jí)信息并將查詢結(jié)果顯示在右側(cè)的表格中，便于用戶進(jìn)行修改或刪除。如圖 4-4 所示圖 4-4 班級(jí)信息班級(jí)信息錄入的代碼：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True 16End SubPrivate Sub Command2_Click()Data1.Recordset.Edit Co

28、mmand1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command4_Click()

29、 Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對(duì)框)If answer = 1 ThenData1.Recordset.DeleteData1.RefreshEnd If 17End SubPrivate Sub Command6_Click()

30、 Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 班級(jí) Like & * & Text2.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub2. 學(xué)生基本信息錄入在此輸入學(xué)生的基本信息包含班級(jí)學(xué)號(hào)、姓名、性別、

31、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號(hào)等，主要是對(duì)學(xué)生信息的登記。管理員還可以在右側(cè)表格中對(duì)已經(jīng)選中的學(xué)生信息進(jìn)行修改或者刪除，如果學(xué)生信息比較多，而你要進(jìn)行操作的學(xué)生的信息沒有顯示出來，你可以通過查找進(jìn)行快速定位，查找分為按學(xué)號(hào)查找和按姓名查找。如圖 4-5 所示：圖 4-5 學(xué)生信息學(xué)生信息模塊的代碼： 18Private Sub Command1_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 學(xué)號(hào) Like & * & Text27.Text & * If Data1.Records

32、et.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Command2_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 姓名 Like & * & Text28.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate

33、 Sub Command3_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindNext 姓名 Like & * & Text28.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Command4_Click()Data1.Recordset.AddNew Command4.Enabled = False Command5.Enabled

34、= False 19 Command6.Enabled = True Command7.Enabled = TrueEnd SubPrivate Sub Command5_Click() Data1.Recordset.Edit Command4.Enabled = False Command5.Enabled = False Command6.Enabled = True Command7.Enabled = TrueEnd SubPrivate Sub Command6_Click() Data1.Recordset.Update Data1.Refresh Command4.Enable

35、d = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = FalseEnd SubPrivate Sub Command7_Click() Data1.UpdateControls Data1.Refresh Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = FalseEnd SubPrivate Sub Command8_Click()answer = MsgBox

36、(確定刪除數(shù)據(jù)嗎？, 305, 核對(duì)框)If answer = 1 ThenData1.Recordset.Delete 20Data1.RefreshEnd IfEnd SubPrivate Sub DBGrid1_Click()End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub3.課程信息錄入. 主要是對(duì)學(xué)生所學(xué)課程信息進(jìn)行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課

37、程名稱，點(diǎn)擊添加按鈕，如果課程信息出現(xiàn)在右側(cè)的表格中，就說明信息添加成功。在這里也可以選中右側(cè)表格中的信息對(duì)課程信息進(jìn)行修改或者刪除，管理員也可以通過利用查找功能快速定位你想要操作的課程信息，便于管理。如圖 4-6 所示：圖 4-6 課程設(shè)置4.成績信息錄入管理員在此窗口輸入要輸入學(xué)生所屬班級(jí)，學(xué)生所學(xué)的課程和學(xué)期后，點(diǎn)擊“確定”按鈕，在下面的表格中就會(huì)列出班級(jí)所有學(xué)生的學(xué)號(hào)和姓名，如果某位學(xué)生這門學(xué)科已經(jīng)輸入成績則顯示該學(xué)生的成績情況。選中要進(jìn)行成績錄入的學(xué)生，在窗口下面就會(huì)顯示選中學(xué)生的“學(xué)號(hào)”和“姓名” ，在后面的輸入框中輸入相應(yīng)的信息，點(diǎn)擊“確定并輸入下一成績”按鈕，該學(xué)生的成績就添加

38、成功了。如果點(diǎn)擊“對(duì)已輸入成績進(jìn)行刪除”按鈕，則將已經(jīng)輸入的成績信息刪除。如圖 4-7 所示 21圖 4-7 成績信息錄入成績錄入代碼如下：Private Sub Command1_Click()MsgBox (注意，學(xué)期一定要輸入正確)SQLStr = SELECT 學(xué)號(hào),姓名 FROM 學(xué)生 SQLStr = SQLStr + WHERE 班級(jí) like & & DBCombo1.Text & SQLStr = SQLStr + order by 學(xué)號(hào) Data3.RecordSource = SQLStr Data3.Refresh Text1.DataField = 學(xué)號(hào) Text2.

39、DataField = 姓名 sSQLStr = SELECT 學(xué)號(hào),姓名,隨堂,平時(shí),考勤,期末,總評(píng),學(xué)期 from 成績 sSQLStr = sSQLStr + where 班級(jí) like & & DBCombo1.Text & sSQLStr = sSQLStr + and 課程 like & & DBCombo2.Text & sSQLStr = sSQLStr + order by 學(xué)號(hào) Data5.RecordSource = sSQLStr Data5.Refresh Label10.Caption = Str$(Data3.Recordset.RecordCount) Lab

40、el11.Caption = Str$(Data5.Recordset.RecordCount)End SubPrivate Sub Command2_Click()If Data3.Recordset.EOF Then 22MsgBox (已輸入完成！)Exit SubEnd IfIf Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = ThenMsgBox (數(shù)據(jù)有誤)Exit SubEnd Ifsui = Val(Text3.Text)ping = Val(Text4.Text)kaoqin = Val(Text5.T

41、ext)qimo = Val(Text6.Text)zongping = sui * 0.05 + ping * 0.1 + kaoqin * 0.05 + qimo * 0.8Text7.Text = Str$(Int(zongping + 0.5)Data4.Recordset.AddNewText8.Text = Text1.TextText9.Text = Text2.TextText10.Text = DBCombo1.TextText11.Text = DBCombo2.TextText12.Text = Combo1.TextText13.Text = Text3.TextTex

42、t14.Text = Text4.TextText15.Text = Text5.TextText16.Text = Text6.TextText17.Text = Text7.TextData4.Recordset.UpdateData3.Recordset.MoveNextData5.RefreshData5.Recordset.MoveLastLabel11.Caption = Str$(Data5.Recordset.RecordCount)Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub 23Private Sub

43、 Command3_Click()SQLStr = SELECT * FROM 成績 SQLStr = SQLStr + WHERE 學(xué)號(hào) like & & Text1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & Data6.RecordSource = SQLStr Data6.Refreshanswer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對(duì)框)If answer = 1 ThenData6.Recordset.DeleteData6.RefreshData5.RefreshData4.RefreshLab

44、el11.Caption = Str$(Data5.Recordset.RecordCount)End IfEnd SubPrivate Sub Command4_Click()Command3.Enabled = TrueCommand4.Enabled = FalseDBGrid2.AllowUpdate = FalseEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbData3.Datab

45、aseName = App.Path & DATABASEstu1.mdbData4.DatabaseName = App.Path & DATABASEstu1.mdbData5.DatabaseName = App.Path & DATABASEstu1.mdbData6.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub5.補(bǔ)考信息的錄入 管理員在此主要是對(duì)參加補(bǔ)考的學(xué)生的補(bǔ)考成績進(jìn)行錄入，主要操作步驟是：在學(xué)號(hào)一欄輸入要添加補(bǔ)考成績的的學(xué)生的學(xué)號(hào)，選擇其補(bǔ)考的科目，點(diǎn)擊“確定”按 24鈕，在窗口表格中就會(huì)顯示學(xué)生的成績信息，點(diǎn)擊“修改成績

46、”按鈕，對(duì)成績進(jìn)行修改，點(diǎn)擊“確定”按鈕，補(bǔ)考成績就添加成功。(如圖 4-8 所示)圖 4-8 補(bǔ)考成績重錄4.2.34.2.3 信息查詢模塊設(shè)計(jì)信息查詢模塊設(shè)計(jì)1. 學(xué)生成績查詢 用戶在“輸入學(xué)號(hào)”框中輸入要查詢的學(xué)生的學(xué)號(hào)，點(diǎn)擊“確定” 按鈕，下面表格中會(huì)顯示該學(xué)生的各科目成績。如圖 4-9 所示圖 4-9 學(xué)生成績查詢2. 班級(jí)課程成績查詢用戶輸入班級(jí)和課程信息，點(diǎn)擊“確定”按鈕，查詢的結(jié)果就會(huì)顯示自下面的表格中。如圖 4-10 所示 25圖 4-10 班級(jí)課程成績查詢圖3.班級(jí)學(xué)期成績查詢 用戶輸入班級(jí)和學(xué)期信息，點(diǎn)擊“確定”按鈕，查詢的結(jié)果就會(huì)顯示自阿下面的表格中。如圖 4-11 所

47、示：圖 4-11 班級(jí)學(xué)期成績查詢圖4. 補(bǔ)考學(xué)生查詢 用戶輸入學(xué)號(hào)，點(diǎn)擊“確定”按鈕，查詢的結(jié)果就會(huì)顯示自阿下面的表格中，通過此功能，用戶可以查詢某一個(gè)學(xué)生的不及格科目。 如圖 4-12 所示：圖 4-12 補(bǔ)考名單查詢圖 264.2.44.2.4 信息打印模塊設(shè)計(jì)信息打印模塊設(shè)計(jì)1.班級(jí)課程成績打印用戶輸入班級(jí)和所要打印的課程，點(diǎn)擊“打印”按鈕，可以通過打印功能打印某一各班級(jí)的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-13 所示：圖 4-13 班級(jí)課程成績打印圖班級(jí)課程成績打印模塊代碼如下：Dim exlapp As New Excel.ApplicationDim e

48、xlbook As Excel.WorkbookDim exlsheet As Excel.WorksheetDim mydb As Database 定義數(shù)據(jù)庫Dim rs As Recordset 定義字段Private Sub Command1_Click()SQLStr = SELECT * FROM 成績SQLStr = SQLStr + WHERE 班級(jí) like & & DBCombo1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & SQLStr = SQLStr + order by 學(xué)號(hào)Set exlapp

49、= New Excel.Applicationexlapp.Workbooks.Open App.Path + dayinbanji.xlt Set mydb = Workspaces(0).OpenDatabase(App.Path + databasestu1.mdb) 打開數(shù)據(jù)庫 Set rs = mydb.OpenRecordset(SQLStr) 打開表 Dim rows As Integer rows = 4 If rs.RecordCount 0 Then 將數(shù)據(jù)庫信息添加到 Excel 表中 27 exlapp.Sheets(1).Cells(2, 2) = rs.Fields

50、(班級(jí)) exlapp.Sheets(1).Cells(2, 4) = rs.Fields(課程) While Not rs.EOF With exlapp.Sheets(1) .Cells(rows, 1) = rs.Fields(學(xué)號(hào)) .Cells(rows, 2) = rs.Fields(姓名) .Cells(rows, 3) = rs.Fields(總評(píng)) .Cells(rows, 4) = rs.Fields(學(xué)期) rs.MoveNext rows = rows + 1 End With Wend exlapp.Visible = True Else MsgBox 沒有數(shù)據(jù)！ E

51、nd IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub 52. 班級(jí)學(xué)期成績打印 用戶輸入班級(jí)和所要打印的學(xué)期信息，點(diǎn)擊“打印”按鈕，可以通過打印功能打印某一各班級(jí)的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-14 所示：圖 4-14 學(xué)期班級(jí)成績打印圖3.補(bǔ)考學(xué)生名單打印 28這里的主要功能可以以班級(jí)為單位將某各班級(jí)的不及格學(xué)生的信息打印出來，也可以將某一

52、門科目的不及格的學(xué)生打印出來。如圖 4-15 所示：圖 4-15 補(bǔ)考名單打印圖 29總結(jié)系統(tǒng)運(yùn)行時(shí)對(duì)數(shù)據(jù)的保密性要求不高,對(duì)一般的數(shù)據(jù)不要求進(jìn)行加密。此外，對(duì)其它軟件幾乎沒有依賴性，程序健壯性較好。通過對(duì)系統(tǒng)的需求分析，讓我深深的意識(shí)到它的重要性，在老師的指導(dǎo)下，使我進(jìn)一步增強(qiáng)了做需求分析的能力！把以前書本上學(xué)到的知識(shí)真正用到了實(shí)踐中去，開闊了思路，強(qiáng)化了思維。通過這次全面的系統(tǒng)設(shè)計(jì)，首先讓我感到非常有成就感！。在今后的工作的過程中，這樣的困難會(huì)常常遇到的，別人不會(huì)幫你的，只要靠自己來解決。學(xué)無止境，我們要學(xué)的知識(shí)很多。 30致謝 在本文完成之際，我由衷地感謝關(guān)懷、幫助、支持，鼓勵(lì)我完成學(xué)業(yè)

53、的老師。首先我使我深深體會(huì)到有付出才有收獲，經(jīng)過這么長時(shí)間的開發(fā)，我遇到許多難題，但是通過仔細(xì)研究查閱書籍許多問題都得到解決。再此要感謝我的導(dǎo)師，半年來她在學(xué)習(xí)、學(xué)習(xí)上一直對(duì)悉心指導(dǎo)，嚴(yán)格要求、熱情鼓勵(lì)，為我創(chuàng)造了很多鍛煉提高的機(jī)會(huì)。老師洞察全局、高屋建瓴，為我的論文的順利完成指出了很好的方向，老師淵博的知識(shí)、寬廣無私的胸懷、夜以繼日的工作態(tài)度、對(duì)事業(yè)的執(zhí)著追求、誨人不倦的教師風(fēng)范和對(duì)問題的敏銳觀察力，都將使我畢生受益。在此我謹(jǐn)向敬愛的老師致以最誠摯的謝意！ 31參考文獻(xiàn)1Visual Basic 輕松入門M 李俊民 許波 編著，人民郵電出版社，2009 年 1 月2 數(shù)據(jù)庫系統(tǒng)概論M第四版 王珊、薩師煊 主編，高等教育出版社，2006 年 5月；3Visual Basic 畢業(yè)設(shè)計(jì)指南與項(xiàng)目實(shí)踐M 李玉林.北京科學(xué)出版社，2008，72-119.4Visual Basic 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)與開發(fā)M 李春葆、張植民 清華大學(xué)出版社；5Visual Basic 6.0 信息管理系統(tǒng)開發(fā)實(shí)例導(dǎo)航M 求是科技，北京人民郵電出版社，2005，1-51.