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

1、商丘職業(yè)技術(shù)學(xué)院畢業(yè)論畢業(yè)論文（文（設(shè)計設(shè)計） ）題題目：目：學(xué)生成學(xué)生成績績管理系管理系統(tǒng)統(tǒng)姓姓 名：名： 系系 別別： ： 計計算機系算機系 專專 業(yè)業(yè)： ： 計計算機算機應(yīng)應(yīng)用技用技術(shù)術(shù) 學(xué)學(xué) 號：號： 1101010126 指指導(dǎo)導(dǎo)教教師師： ： XXXX 年年 XX 月月 XX 日日 目 錄第第 1 1 章章 引言引言 .1 11.11.1 項目開發(fā)的背景項目開發(fā)的背景.11.21.2 項目開發(fā)的目標項目開發(fā)的目標.11.31.3 項目開發(fā)的意義項目開發(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è)計系統(tǒng)的總體設(shè)計 .5 53.13.1 系統(tǒng)結(jié)構(gòu)設(shè)計系統(tǒng)結(jié)構(gòu)設(shè)計.53.23.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計數(shù)據(jù)庫結(jié)構(gòu)設(shè)計.7INTINT .8 8CHARCHAR .8 83.3 系統(tǒng) E-R 圖.8第第 4 4 章章 系統(tǒng)詳細設(shè)計系統(tǒng)詳細設(shè)計 .12124.14.1 系統(tǒng)開發(fā)工具及運行環(huán)境系統(tǒng)開發(fā)工具及運行環(huán)境.124.24.2 系統(tǒng)各功能模塊的設(shè)計及實現(xiàn)系統(tǒng)各功能模塊的設(shè)計及實現(xiàn).124.2.

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

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

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

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

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

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

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

10、能進行修改以及擴充。在功能擴充上應(yīng)該使系統(tǒng)更具實用性。2.2.32.2.3數(shù)據(jù)詞典數(shù)據(jù)詞典 經(jīng)過分析，所開發(fā)的學(xué)生成績管理系統(tǒng)應(yīng)有五個數(shù)據(jù)表，分別是：1系統(tǒng)用戶數(shù)據(jù)：高校老師以及管理人員使用成績管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項有用戶編號、登錄口令、權(quán)限代碼。2學(xué)生基本信息數(shù)據(jù)：學(xué)生基本信息數(shù)據(jù)，包含的數(shù)據(jù)項有學(xué)號、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號等。3課程數(shù)據(jù)：課程信息數(shù)據(jù)。4班級數(shù)據(jù)：用于班級信息記錄數(shù)據(jù)。5學(xué)生成績數(shù)據(jù)：學(xué)生的成績數(shù)據(jù)，包含的數(shù)據(jù)項考試編號、選擇班號、選擇學(xué)號姓名、選擇課程以及輸入分數(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è)計系統(tǒng)的總體設(shè)計3.13.1 系統(tǒng)結(jié)構(gòu)設(shè)計系統(tǒng)結(jié)構(gòu)設(shè)計1系統(tǒng)設(shè)計目標本系統(tǒng)既要滿足用戶的設(shè)計目標，也要滿足設(shè)計員的設(shè)計目標。(1) 用戶的觀點看，要求系統(tǒng)能夠達到以下目標1) 對信息的收集和保存信息。例如：輸入學(xué)生的成績信息,學(xué)生的基本信息等.2）速的傳遞信息，對那些共享的數(shù)據(jù)進行快速的傳遞。3）供準確的信息，要求比手工作業(yè)提供的更加準確和細致的數(shù)據(jù)，例如學(xué)生的各科分數(shù).4）現(xiàn)有的報表自動生成。5）共

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

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

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

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

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

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

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

19、利用 Acess 做數(shù)據(jù)庫開發(fā)，在數(shù)據(jù)備份方面很優(yōu)勢，方法簡單，可靠。3 2 系統(tǒng)運行環(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è)計及實現(xiàn)系統(tǒng)各功能模塊的設(shè)計及實現(xiàn)執(zhí)行程序后，首先進入的是學(xué)生成績管理系統(tǒng)的登錄界面,用戶通過輸入正確的信息后,就進入系統(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 (密碼錯誤) Text2.Text = Exit Sub End IfEnd SubPrivate Sub Command2_

21、Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEUSER1.mdbEnd Sub4進入主界面后，用戶可以進行學(xué)生信息添加、刪除、修改、查詢和打印以及對數(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è)計系統(tǒng)管理模塊設(shè)計在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖 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, 核對框)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è)計模塊設(shè)計 包括對班級信息、學(xué)生基本信息、課程信息、學(xué)生成績信息、學(xué)生補考信息的錄入、修改和刪除1.班級信息錄入用戶在班級輸入框中輸入要添加的班級信息，點擊添加按鈕，如果班級信息出現(xiàn)在右側(cè)的表格中就說明信息添加成功。用戶也可以對已經(jīng)添加的信息進行修改和刪除，具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應(yīng)的操作，如果已經(jīng)

27、添加的班級信息很多，你可以通過模糊查找來幫你找出比較匹配的班級信息并將查詢結(jié)果顯示在右側(cè)的表格中，便于用戶進行修改或刪除。如圖 4-4 所示圖 4-4 班級信息班級信息錄入的代碼：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, 核對框)If answer = 1 ThenData1.Recordset.DeleteData1.RefreshEnd If 17End SubPrivate Sub Command6_Click()

30、 Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 班級 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é)生的基本信息包含班級學(xué)號、姓名、性別、

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

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

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

39、DataField = 姓名 sSQLStr = SELECT 學(xué)號,姓名,隨堂,平時,考勤,期末,總評,學(xué)期 from 成績 sSQLStr = sSQLStr + where 班級 like & & DBCombo1.Text & sSQLStr = sSQLStr + and 課程 like & & DBCombo2.Text & sSQLStr = sSQLStr + order by 學(xué)號 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é)號 like & & Text1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & Data6.RecordSource = SQLStr Data6.Refreshanswer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)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.補考信息的錄入 管理員在此主要是對參加補考的學(xué)生的補考成績進行錄入，主要操作步驟是：在學(xué)號一欄輸入要添加補考成績的的學(xué)生的學(xué)號，選擇其補考的科目，點擊“確定”按 24鈕，在窗口表格中就會顯示學(xué)生的成績信息，點擊“修改成績

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

47、示：圖 4-11 班級學(xué)期成績查詢圖4. 補考學(xué)生查詢 用戶輸入學(xué)號，點擊“確定”按鈕，查詢的結(jié)果就會顯示自阿下面的表格中，通過此功能，用戶可以查詢某一個學(xué)生的不及格科目。 如圖 4-12 所示：圖 4-12 補考名單查詢圖 264.2.44.2.4 信息打印模塊設(shè)計信息打印模塊設(shè)計1.班級課程成績打印用戶輸入班級和所要打印的課程，點擊“打印”按鈕，可以通過打印功能打印某一各班級的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-13 所示：圖 4-13 班級課程成績打印圖班級課程成績打印模塊代碼如下：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 班級 like & & DBCombo1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & SQLStr = SQLStr + order by 學(xué)號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、(班級) exlapp.Sheets(1).Cells(2, 4) = rs.Fields(課程) While Not rs.EOF With exlapp.Sheets(1) .Cells(rows, 1) = rs.Fields(學(xué)號) .Cells(rows, 2) = rs.Fields(姓名) .Cells(rows, 3) = rs.Fields(總評) .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. 班級學(xué)期成績打印 用戶輸入班級和所要打印的學(xué)期信息，點擊“打印”按鈕，可以通過打印功能打印某一各班級的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-14 所示：圖 4-14 學(xué)期班級成績打印圖3.補考學(xué)生名單打印 28這里的主要功能可以以班級為單位將某各班級的不及格學(xué)生的信息打印出來，也可以將某一

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

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