版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)
文檔簡介
1、<p><b> 本科畢業(yè)論文</b></p><p><b> 學(xué)生成績管理系統(tǒng)</b></p><p> 【摘 要】學(xué)生成績是教育單位不可或缺的一部分,應(yīng)該能夠為用戶提供充足的信息和快捷的查詢方式。傳統(tǒng)的人工方式來管理學(xué)生的成績存在著許多缺點,如:保密性差而且效率低,產(chǎn)生大量的文件和數(shù)據(jù),對數(shù)據(jù)的查找、更新和維護帶來困難。&
2、#160; 隨著計算機科學(xué)逐步成熟以及完善,其滲透到人類社會的各個領(lǐng)域并發(fā)揮著重要的作用。運用計算機對學(xué)生信息進行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高管理者對學(xué)生成績管理的效率,使學(xué)校的管理科學(xué)化、正規(guī)化。 </p><p> 【關(guān)鍵詞】學(xué)生成績管理系統(tǒng);數(shù)據(jù)庫;access;數(shù)據(jù)詞典。</p&g
3、t;<p><b> 目 錄</b></p><p> 1.引 言…………………………………………………………………………1</p><p> 1.1項目開發(fā)的背景 ……………………………………………………………1</p><p> 1.2項目開發(fā)的目標(biāo) ……………………………………………………………1</p&g
4、t;<p> 1.3 項目開發(fā)的意義…………………………………………………………………………… 1 </p><p> 2.可行性研究報告與需求分析……………………………………………………1</p><p> 2.1可行性研究……………………………………………………………………1</p><p> 2.2需求分析…………………………………………
5、………………………………2</p><p> 2.2.1 概述……………………………………………………………………………2</p><p> 2.2.2 系統(tǒng)需求………………………………………………………………………2</p><p> 2.2.3 數(shù)據(jù)詞典………………………………………………………………………2</p><p> 2
6、.2.4 數(shù)據(jù)流程圖…………………………………………………………………2</p><p> 3.系統(tǒng)總體設(shè)計………………………………………………………………3</p><p> 3.1 系統(tǒng)結(jié)構(gòu)設(shè)計…………………………………………………………………3 3.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計……………………………………………………………6</p><p> 3.3 系統(tǒng)E-
7、R圖…………………………………………………………………………………7</p><p> 4.系統(tǒng)詳細設(shè)計……………………………………………………………9</p><p> 4.1系統(tǒng)開發(fā)工具及運行環(huán)境…………………………………………………9</p><p> 4.2系統(tǒng)各功能模塊的設(shè)計及實現(xiàn)……………………………………………9</p><p
8、> 4.2.1系統(tǒng)管理模塊設(shè)計 ………………………………………………………12</p><p> 4.2.2信息錄入模塊設(shè)計…………………………………………………………13</p><p> 4.2.3信息查詢模塊設(shè)計…………………………………………………………21</p><p> 4.2.4信息打印模塊設(shè)計………………………………………………………
9、…22</p><p> 5.系統(tǒng)測試與維護……………………………………………………………24</p><p> 5.1 系統(tǒng)測試……………………………………………………………………24</p><p> 5.1.1軟件測試的目的…………………………………………………………24</p><p> 5.1.2系統(tǒng)的測試環(huán)境…………………
10、………………………………………24</p><p> 5.1.3測試方案設(shè)計………………………………………………………………25</p><p> 5.1.4測試結(jié)果的評價……………………………………………………………25</p><p> 5.2 系統(tǒng)維護……………………………………………………………………26</p><p> 6
11、. 用戶手冊………………………………………………………………………………………26</p><p> 6.1 軟件的安裝…………………………………………………………………………………26</p><p> 6.2 登陸界面……………………………………………………………………………………26</p><p> 6.3 系統(tǒng)主界面……………………………………………
12、……………………………………26</p><p> 6.4 信息的查詢…………………………………………………………………………………27</p><p> 6.5 各種信息的錄入……………………………………………………………………………29</p><p> 6.6 相關(guān)資料的打印……………………………………………………………………………29</p>
13、;<p> 7. 總結(jié)………………………………………………………………………………298. 致謝…………………………………………………………………………………29參考文獻 ……………………………………………………………………………30</p><p><b> 1. 引 言</b></p><p> 1.1 項目開發(fā)的背境<
14、/p><p> 幾年前,各個學(xué)校對于學(xué)生成績的管理還是停留在運用手工操作,隨著各個學(xué)校的規(guī)模不斷壯大,學(xué)生人數(shù)逐年增加。關(guān)于學(xué)生成績管理工作所涉及的數(shù)據(jù)量越來越大,有的學(xué)校不得不靠增加人力、物力來進行學(xué)生成績管理。但人工管理又有著許多缺陷,比如:效率底、易出錯、檢索信息慢、對學(xué)校的管理提供決策信息較為困難等。學(xué)校不能完全掌握每一個學(xué)生的學(xué)習(xí)情況,這樣對學(xué)校的教學(xué)工作及其不利,使學(xué)校的教學(xué)質(zhì)量一直停滯不前,所以我想借
15、本次畢業(yè)設(shè)計之際,開發(fā)一個不僅適用于各校的通用高校學(xué)生成績管理系統(tǒng),使學(xué)校能夠充分掌握學(xué)生的學(xué)習(xí)情況,便于學(xué)校教學(xué)工作的進行和改革。</p><p> 1.2 項目開發(fā)的目標(biāo)</p><p> 建立學(xué)生成績管理系統(tǒng),采用計算機對學(xué)生成績進行管理,進一步提高辦學(xué)效率和現(xiàn)代化水平。使學(xué)校對學(xué)生的成績能夠快速并準(zhǔn)確的錄入、修改和查詢,更好地掌握每個學(xué)生的各科成績,便于教師的管理。使學(xué)生對個人
16、的學(xué)習(xí)成績進行更快的查詢。讓老師能夠更好、更快的了解學(xué)生的學(xué)習(xí)情況,使學(xué)校的教學(xué)質(zhì)量進一步的提高。</p><p> 1.3 項目開發(fā)的意義</p><p> 現(xiàn)在我國的一些院校的學(xué)生成績管理水平普遍不高,有的還停留在紙介質(zhì)基礎(chǔ)上,這種管理手段已不能適應(yīng)時代的進展,因為它浪費了太多的人力和物力。在當(dāng)今的信息時代,這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理系統(tǒng)所取代。如果本系統(tǒng)能被學(xué)
17、校所采用,將會改變以往靠手工管理學(xué)生成績的狀況,可以樹立良好的辦學(xué)形象,提高工作效率,節(jié)省人力和物力。</p><p> 2. 可行性研究與需求分析</p><p><b> 2.1 可行性研究</b></p><p> 隨著學(xué)校規(guī)模的不斷擴大,學(xué)生人數(shù)逐年增加,學(xué)校對學(xué)生成績管理的工作量也越來越大。學(xué)生成績管理涉及大量的數(shù)據(jù)處理,如果用
18、手工來完成龐大的數(shù)據(jù)處理,將費時費力,還容易出錯,為了滿足學(xué)校對學(xué)生成績管理的需要,急需要一套學(xué)生成績管理系統(tǒng)來完成這項工作。作為計算機應(yīng)用的一部分,使用計算機對學(xué)生成績信息加以管理,將擁有著手工管理所無法比擬的優(yōu)點.例如:輸入迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生成績管理的效率,也是學(xué)生成績的科學(xué)化、正規(guī)化管理的重要條件。同時還要注意下列幾點:</p><p>
19、; 1 由于各方面的限制,如人員不夠、技術(shù)缺乏等原因,開發(fā)時應(yīng)本著循序漸進,逐步完善的原則,不能貪大求全,盲目開發(fā)。</p><p> 要注意信息的準(zhǔn)確、及時、適用、經(jīng)濟,只有及時、準(zhǔn)確的信息才能保證系統(tǒng)開發(fā)的質(zhì)量和效率。</p><p> 3 從全局出發(fā)注意系統(tǒng)開發(fā)的整體優(yōu)化性,同時還要注意系統(tǒng)的可擴展性和可延伸性。</p><p> 4 盡量采用學(xué)校
20、現(xiàn)有的軟硬件環(huán)境,及先進的管理系統(tǒng)開發(fā)方案,從而達到充分利用學(xué)?,F(xiàn)有資源、提高系統(tǒng)開發(fā)水平和應(yīng)用效果的以及減少開發(fā)成本的目的。</p><p> 5 系統(tǒng)應(yīng)符合學(xué)校對學(xué)生成績管理的規(guī)定,滿足學(xué)生成績管理的工作需要,并達到操作過程中的直觀、方便、實用、安全等要求。</p><p><b> 2.2 需求分析</b></p><p><b
21、> 2.2.1 概述</b></p><p><b> 1.系統(tǒng)分析的原則</b></p><p> 分析高校成績管理的要求,確定管理系統(tǒng)的邏輯功能,以滿足高校成績的要求。第一階段完成后,該系統(tǒng)應(yīng)具備較高的可擴充性,便于在此基礎(chǔ)上完成第二階段。</p><p><b> 分析方法</b></
22、p><p> 采用結(jié)構(gòu)化分析方法,建立新系統(tǒng)的邏輯模型,這個邏輯模型盡可能避免計算機的專業(yè)術(shù)語。 </p><p> 2.2.2 系統(tǒng)需求</p><p> 經(jīng)過一段時間對學(xué)校學(xué)生成績管理的調(diào)研與分析,以及認(rèn)真研究了幾位老師的意見,所開發(fā)的學(xué)生成績管理系統(tǒng)應(yīng)分成以下幾個階段開發(fā):</p><p> 第一階段建立的成績管理系統(tǒng)由以下5個子
23、系統(tǒng)組成: </p><p> 1.系統(tǒng)信息的管理,能添加用戶、修改用戶信息、刪除用戶。</p><p> 2.學(xué)生基本信息的管理,能對學(xué)生基本信息進行添加、刪除、修改。</p><p> 3.班級信息的管理,能對班級基本信息進行添加、刪除、修改。</p><p> 4.學(xué)生成績信息的管理,能對學(xué)生成績基本信息進行添加、刪除、修改。&
24、lt;/p><p> 5.對數(shù)據(jù)的備份、恢復(fù),對學(xué)生數(shù)據(jù)的及時備份。</p><p> 第二階段建立的成績管理系統(tǒng)主要在上次基礎(chǔ)上對其功能進行修改以及擴充。在功能擴充上應(yīng)該使系統(tǒng)更具實用性。</p><p> 2.2.3 數(shù)據(jù)詞典</p><p> 經(jīng)過分析,所開發(fā)的學(xué)生成績管理系統(tǒng)應(yīng)有五個數(shù)據(jù)表,分別是:</p><
25、p> 1.系統(tǒng)用戶數(shù)據(jù):高校老師以及管理人員使用成績管理系統(tǒng)的身份數(shù)據(jù),包含的數(shù)據(jù)項有用戶編號、登錄口令、權(quán)限代碼。</p><p> 2.學(xué)生基本信息數(shù)據(jù):學(xué)生基本信息數(shù)據(jù),包含的數(shù)據(jù)項有學(xué)號、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號等。</p><p> 3.課程數(shù)據(jù):課程信息數(shù)據(jù)。</p><p> 4.班級數(shù)據(jù):用于班級信
26、息記錄數(shù)據(jù)。</p><p> 5.學(xué)生成績數(shù)據(jù):學(xué)生的成績數(shù)據(jù),包含的數(shù)據(jù)項考試編號、選擇班號、選擇學(xué)號姓名、選擇課程以及輸入分?jǐn)?shù)等。</p><p> 2.2.4 數(shù)據(jù)流程圖</p><p> 學(xué)生成績管理系統(tǒng)數(shù)據(jù)流程圖如下:</p><p> 圖2-1 系統(tǒng)數(shù)據(jù)流程圖</p><p> 3. 系統(tǒng)的總
27、體設(shè)計</p><p><b> 3.1系統(tǒng)結(jié)構(gòu)設(shè)計</b></p><p><b> 1.系統(tǒng)設(shè)計目標(biāo)</b></p><p> 本系統(tǒng)既要滿足用戶的設(shè)計目標(biāo),也要滿足設(shè)計員的設(shè)計目標(biāo)。</p><p> (1) 用戶的觀點看,要求系統(tǒng)能夠達到以下目標(biāo)</p><p&g
28、t; 1) 對信息的收集和保存信息。例如:輸入學(xué)生的成績信息,學(xué)生的基本信息等.</p><p> 2)速的傳遞信息,對那些共享的數(shù)據(jù)進行快速的傳遞。</p><p> 3)供準(zhǔn)確的信息,要求比手工作業(yè)提供的更加準(zhǔn)確和細致的數(shù)據(jù),例如學(xué)生的各科分?jǐn)?shù).</p><p> 現(xiàn)有的報表自動生成。</p><p><b> 共享現(xiàn)
29、有的數(shù)據(jù)</b></p><p> (2) 設(shè)計員從技術(shù)觀點看,要求系統(tǒng)能達到以下的目標(biāo):</p><p> 1) 用戶使用,具有較高的用戶友好性。</p><p> 有較高的可靠性,將系統(tǒng)發(fā)生故障的概率控制在2.0%以下,并具有快速恢復(fù)的能力</p><p> 3) 具有較高的運行效率,應(yīng)比人工作業(yè)提高效率10倍以上。&
30、lt;/p><p> 4)具有較強的可維護性和擴充性,能夠適應(yīng)用戶的業(yè)務(wù)要求變化。</p><p><b> (3)設(shè)計策略</b></p><p> 本系統(tǒng)的結(jié)構(gòu)是自頂向下擴展的,層次化的暗盒模塊結(jié)構(gòu)。</p><p> 對高層模塊,將運用以事務(wù)為中心的設(shè)計策略,將一個復(fù)雜的系統(tǒng)逐步分解成為幾個較小的相對簡單的暗合
31、模塊;對低層模塊,采用以變換為中心的設(shè)計策略。</p><p> 此外,為了提高模塊的內(nèi)聚性,降低模塊間的偶合程度,數(shù)據(jù)庫 的設(shè)計原則是把他作為模塊間的郵政信箱,從而既實現(xiàn)數(shù)據(jù)共享有提高模塊的獨立性,使系統(tǒng)具有很高的可修改性。[1]</p><p><b> 2.系統(tǒng)總體功能</b></p><p> 本說明主要是為了對學(xué)生成績管理系統(tǒng)進
32、行使用和維護。</p><p> 該系統(tǒng)充分利用計算機的現(xiàn)有的功能來實現(xiàn)對系統(tǒng)管理、信息錄入、信息查詢,信息打印等的自動化控制,將會使學(xué)生成績管理工作大大減輕,方便友好的信息管理用戶界面,簡便的操作,完善的數(shù)據(jù)庫管理,將會使得信息管理系統(tǒng)極大限度地應(yīng)用于現(xiàn)代化學(xué)生成績管理,成為管理人員的得力助手。</p><p> 對系統(tǒng)信息的修改、添加、刪除</p><p>
33、 對學(xué)生基本信息的修改、添加、刪除、查詢</p><p> 對班級信息的添加、修改、查詢</p><p> 對學(xué)籍信息的添加、修改、查詢</p><p> 對學(xué)生成績信息的添加,修改,查詢</p><p><b> 對數(shù)據(jù)的備份、恢復(fù)</b></p><p><b> 3.系
34、統(tǒng)結(jié)構(gòu)圖</b></p><p> 學(xué)生成績管理系統(tǒng)結(jié)構(gòu)圖,以下所示,這些結(jié)構(gòu)圖是根據(jù)系統(tǒng)分析說明書的數(shù)據(jù)流程圖畫出的。實際上它有 四個模塊組成。</p><p> 圖3-1 學(xué)生成績管理系統(tǒng)</p><p> 圖3-2 系統(tǒng)管理</p><p> 圖3-3 信息錄入</p><p> 圖3-
35、4 信息查詢</p><p> 圖3-5 信息打印</p><p> 3.2數(shù)據(jù)庫結(jié)構(gòu)設(shè)計</p><p> 1. 數(shù)據(jù)庫總體結(jié)構(gòu)</p><p> 本系統(tǒng)采用關(guān)系型數(shù)據(jù)庫Acess實現(xiàn),數(shù)據(jù)庫由、若干個二維表構(gòu)成。本系統(tǒng)的表分為兩類。一類是目錄,即索引。另一類是實際數(shù)據(jù)。其中數(shù)據(jù)表包括:學(xué)生信息表、 班級信息表、課程信息表、成績
36、信息表和用戶信息表。[2]</p><p><b> 2.?dāng)?shù)據(jù)庫表</b></p><p> 表3-1 學(xué)生信息表</p><p> 表3-2 班級信息表</p><p> 表3-3 課程信息表</p><p> 表3-4 成績信息表</p><p>
37、表3-5 用戶信息表</p><p> 3.3 系統(tǒng)E-R圖</p><p><b> 局部E-R圖</b></p><p> 圖3-6 課程E-R圖</p><p> 圖3-7 班級E-R圖</p><p> 圖3-8 成績E-R圖</p><p>
38、圖3-9 學(xué)生信息E-R圖</p><p> 2.系統(tǒng)全局E-R圖</p><p> 圖3-10 系統(tǒng)全局E-R圖</p><p><b> 4. 系統(tǒng)詳細設(shè)計</b></p><p> 4.1系統(tǒng)開發(fā)工具及運行環(huán)境</p><p><b> 1. 系統(tǒng)開發(fā)工具</b
39、></p><p> 本系統(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)性,更重要的是利用Acess做數(shù)據(jù)庫開發(fā),在數(shù)據(jù)備份方面很
40、優(yōu)勢,方法簡單,可靠。[3]</p><p><b> 2 .系統(tǒng)運行環(huán)境</b></p><p> 軟件環(huán)境:系統(tǒng)環(huán)境win2000及以上 + Acess數(shù)據(jù)庫</p><p> 硬件環(huán)境:CPU P4 2.4G、256MB內(nèi)存、80G硬盤</p><p> 4.2系統(tǒng)各功能模塊的設(shè)計及實現(xiàn)</p>
41、<p> 執(zhí)行程序后,首先進入的是學(xué)生成績管理系統(tǒng)的登錄界面,用戶通過輸入正確的信息后,就進入系統(tǒng)主界面。 如圖4-1所示</p><p> 圖4-1 登陸界面</p><p> 以下是登陸模塊的代碼:</p><p> Private Sub Command1_Click()</p><p> Text1.Text
42、 = DBCombo1.Text</p><p> Data1.Recordset.FindFirst "name=" & "'" & Text1.Text & "'"</p><p> If Data1.Recordset.NoMatch Then</p><p&g
43、t; MsgBox ("沒有此用戶")</p><p> DBCombo1.Text = ""</p><p> Text2.Text = ""</p><p><b> Exit Sub</b></p><p><b> End If<
44、;/b></p><p> If Text4.Text = Text2.Text Then</p><p><b> main.Show</b></p><p> Unload denglu</p><p><b> Exit Sub</b></p><p>&
45、lt;b> End If</b></p><p> If Not (Text4.Text = Text2.Text) Then</p><p> MsgBox ("密碼錯誤")</p><p> Text2.Text = ""</p><p><b> Exit S
46、ub</b></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p><b> End</b></p><
47、;p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Data1.DatabaseName = App.Path & "\DATABASE\USER1.mdb"</p><p> End Sub[4]</p><p
48、> 進入主界面后,用戶可以進行學(xué)生信息添加、刪除、修改、查詢和打印以及對數(shù)據(jù)庫的備份等操作。如圖4-2所示</p><p> 圖4-2 系統(tǒng)主界面</p><p> 下面是主界面模塊的代碼:</p><p> Private Sub bklr_Click()</p><p> bukao.Show</p>&l
49、t;p><b> End Sub</b></p><p> Private Sub bkxshchx_Click()</p><p> chaxun_bukao.Show</p><p><b> End Sub</b></p><p> Private Sub bkxshmddy_
50、Click()</p><p> dayin_bukao.Show</p><p><b> End Sub</b></p><p> Private Sub chjlr_Click()</p><p> chengji.Show</p><p><b> End Sub<
51、;/b></p><p> Private Sub gyrj_Click()</p><p> frmAbout.Show</p><p><b> End Sub</b></p><p> Private Sub kchxxlr_Click()</p><p> kecheng.
52、Show</p><p><b> End Sub</b></p><p> Private Sub MDIForm_Load()</p><p><b> End Sub</b></p><p> Private Sub shjbf_Click()</p><p>
53、 beifen.Show</p><p><b> End Sub</b></p><p> Private Sub tch_Click()</p><p><b> End</b></p><p><b> End Sub</b></p><p&
54、gt; Private Sub xshxxlr_Click()</p><p> xuesheng.Show</p><p><b> End Sub</b></p><p> Private Sub yhqx_Click()</p><p> quanxian.Show</p><p>
55、;<b> End Sub</b></p><p> 4.2.1系統(tǒng)管理模塊設(shè)計</p><p> 在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖4-3所示</p><p> 圖4-3 用戶權(quán)限設(shè)置</p><p> 用戶權(quán)限設(shè)置代碼如下:</p><p> Priva
56、te Sub Command1_Click()</p><p> Data1.Recordset.AddNew</p><p> Command1.Enabled = False</p><p> Command2.Enabled = False</p><p> Command3.Enabled = True</p>
57、<p> Command4.Enabled = True</p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> Data1.Recordset.Edit</p><p> Command1.Enabled = F
58、alse</p><p> Command2.Enabled = False</p><p> Command3.Enabled = True</p><p> Command4.Enabled = True</p><p><b> End Sub</b></p><p> Priva
59、te Sub Command3_Click()</p><p> Data1.Recordset.Update</p><p> Data1.Refresh</p><p> Command1.Enabled = True</p><p> Command2.Enabled = True</p><p> C
60、ommand3.Enabled = False</p><p> Command4.Enabled = False</p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> Data1.UpdateControls</p&
61、gt;<p> Data1.Refresh</p><p> Command1.Enabled = True</p><p> Command2.Enabled = True</p><p> Command3.Enabled = False</p><p> Command4.Enabled = False</
62、p><p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p> answer = MsgBox("確定刪除數(shù)據(jù)嗎?", 305, "核對框")</p><p> If answer = 1 Then&l
63、t;/p><p> Data1.Recordset.Delete</p><p> Data1.Refresh</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load
64、()</p><p> Data1.DatabaseName = App.Path & "\DATABASE\user1.mdb"</p><p><b> End Sub</b></p><p> 4.2.2信息錄入模塊設(shè)計 </p><p> 包括對班級信息、學(xué)生基本信息、課程信息
65、、學(xué)生成績信息、學(xué)生補考信息的錄入、修改和刪除</p><p><b> 班級信息錄入</b></p><p> 用戶在班級輸入框中輸入要添加的班級信息,點擊添加按鈕,如果班級信息出現(xiàn)在右側(cè)的表格中就說明信息添加成功。用戶也可以對已經(jīng)添加的信息進行修改和刪除,具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應(yīng)的操作,如果已經(jīng)添加的班級信息很多,你可
66、以通過模糊查找來幫你找出比較匹配的班級信息并將查詢結(jié)果顯示在右側(cè)的表格中,便于用戶進行修改或刪除。如圖4-4所示</p><p> 圖4-4 班級信息</p><p> 班級信息錄入的代碼:</p><p> Private Sub Command1_Click()</p><p> Data1.Recordset.AddNew&l
67、t;/p><p> Command1.Enabled = False</p><p> Command2.Enabled = False</p><p> Command3.Enabled = True</p><p> Command4.Enabled = True</p><p><b> End
68、Sub</b></p><p> Private Sub Command2_Click()</p><p> Data1.Recordset.Edit</p><p> Command1.Enabled = False</p><p> Command2.Enabled = False</p><p&g
69、t; Command3.Enabled = True</p><p> Command4.Enabled = True</p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> Data1.Recordset.Update&l
70、t;/p><p> Data1.Refresh</p><p> Command1.Enabled = True</p><p> Command2.Enabled = True</p><p> Command3.Enabled = False</p><p> Command4.Enabled = False
71、</p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> Data1.UpdateControls</p><p> Data1.Refresh</p><p> Command1.Enabled =
72、 True</p><p> Command2.Enabled = True</p><p> Command3.Enabled = False</p><p> Command4.Enabled = False</p><p><b> End Sub</b></p><p> Pri
73、vate Sub Command5_Click()</p><p> answer = MsgBox("確定刪除數(shù)據(jù)嗎?", 305, "核對框")</p><p> If answer = 1 Then</p><p> Data1.Recordset.Delete</p><p> Data
74、1.Refresh</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command6_Click()</p><p><b> Dim bm</b></p><
75、;p> bm = Data1.Recordset.Bookmark</p><p> Data1.Recordset.FindFirst "班級 Like " & "'*" & Text2.Text & "*'"</p><p> If Data1.Recordset.NoMat
76、ch Then</p><p> MsgBox ("沒有符合條件的記錄")</p><p> Data1.Recordset.Bookmark = bm</p><p><b> End If</b></p><p><b> End Sub</b></p>
77、<p> Private Sub Form_Load()</p><p> Data1.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p><b> End Sub</b></p><p><b> 學(xué)生基本信息錄入</b&
78、gt;</p><p> 在此輸入學(xué)生的基本信息包含班級學(xué)號、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號等,主要是對學(xué)生信息的登記。</p><p> 管理員還可以在右側(cè)表格中對已經(jīng)選中的學(xué)生信息進行修改或者刪除,如果學(xué)生信息比較多,而你要進行操作的學(xué)生的信息沒有顯示出來,你可以通過查找進行快速定位,查找分為按學(xué)號查找和按姓名查找。如圖4-5所示:</p>
79、;<p> 圖4-5 學(xué)生信息</p><p> 學(xué)生信息模塊的代碼:</p><p> Private Sub Command1_Click()</p><p><b> Dim bm</b></p><p> bm = Data1.Recordset.Bookmark</p>
80、<p> Data1.Recordset.FindFirst "學(xué)號 Like " & "'*" & Text27.Text & "*'"</p><p> If Data1.Recordset.NoMatch Then</p><p> MsgBox ("沒有符合
81、條件的記錄")</p><p> Data1.Recordset.Bookmark = bm</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p&g
82、t;<p><b> Dim bm</b></p><p> bm = Data1.Recordset.Bookmark</p><p> Data1.Recordset.FindFirst "姓名 Like " & "'*" & Text28.Text & "*
83、39;"</p><p> If Data1.Recordset.NoMatch Then</p><p> MsgBox ("沒有符合條件的記錄")</p><p> Data1.Recordset.Bookmark = bm</p><p><b> End If</b><
84、/p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p><b> Dim bm</b></p><p> bm = Data1.Recordset.Bookmark</p><p> D
85、ata1.Recordset.FindNext "姓名 Like " & "'*" & Text28.Text & "*'"</p><p> If Data1.Recordset.NoMatch Then</p><p> MsgBox ("沒有符合條件的記錄")&
86、lt;/p><p> Data1.Recordset.Bookmark = bm</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p>
87、 Data1.Recordset.AddNew</p><p> Command4.Enabled = False</p><p> Command5.Enabled = False</p><p> Command6.Enabled = True</p><p> Command7.Enabled = True</p>
88、<p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p> Data1.Recordset.Edit</p><p> Command4.Enabled = False</p><p> Command5.Enabled
89、= False</p><p> Command6.Enabled = True</p><p> Command7.Enabled = True</p><p><b> End Sub</b></p><p> Private Sub Command6_Click()</p><p>
90、 Data1.Recordset.Update</p><p> Data1.Refresh</p><p> Command4.Enabled = True</p><p> Command5.Enabled = True</p><p> Command6.Enabled = False</p><p>
91、 Command7.Enabled = False</p><p><b> End Sub</b></p><p> Private Sub Command7_Click()</p><p> Data1.UpdateControls</p><p> Data1.Refresh</p><
92、;p> Command4.Enabled = True</p><p> Command5.Enabled = True</p><p> Command6.Enabled = False</p><p> Command7.Enabled = False</p><p><b> End Sub</b>
93、</p><p> Private Sub Command8_Click()</p><p> answer = MsgBox("確定刪除數(shù)據(jù)嗎?", 305, "核對框")</p><p> If answer = 1 Then</p><p> Data1.Recordset.Delete&
94、lt;/p><p> Data1.Refresh</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub DBGrid1_Click()</p><p><b> End Su
95、b</b></p><p> Private Sub Form_Load()</p><p> Data1.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p> Data2.DatabaseName = App.Path & "\DATABASE
96、\stu1.mdb"</p><p><b> End Sub</b></p><p> 3.課程信息錄入. </p><p> 主要是對學(xué)生所學(xué)課程信息進行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱,點擊添加按鈕,如果課程信息出現(xiàn)在右側(cè)的表格中,就說明信息添加成功。在這里也可以選中右側(cè)表格中的信息對課程信息
97、進行修改或者刪除,管理員也可以通過利用查找功能快速定位你想要操作的課程信息,便于管理。如圖4-6所示:</p><p> 圖4-6 課程設(shè)置</p><p><b> 4.成績信息錄入</b></p><p> 管理員在此窗口輸入要輸入學(xué)生所屬班級,學(xué)生所學(xué)的課程和學(xué)期后,點擊“確定”按鈕,在下面的表格中就會列出班級所有學(xué)生的學(xué)號和姓名
98、,如果某位學(xué)生這門學(xué)科已經(jīng)輸入成績則顯示該學(xué)生的成績情況。選中要進行成績錄入的學(xué)生,在窗口下面就會顯示選中學(xué)生的“學(xué)號”和“姓名”,在后面的輸入框中輸入相應(yīng)的信息,點擊“確定并輸入下一成績”按鈕,該學(xué)生的成績就添加成功了。如果點擊“對已輸入成績進行刪除”按鈕,則將已經(jīng)輸入的成績信息刪除。如圖4-7所示</p><p> 圖4-7 成績信息錄入</p><p><b> 成績
99、錄入代碼如下:</b></p><p> Private Sub Command1_Click()</p><p> MsgBox ("注意,學(xué)期一定要輸入正確")</p><p> SQLStr = "SELECT 學(xué)號,姓名 FROM 學(xué)生"</p><p> SQLStr =
100、SQLStr + " WHERE 班級 like " & "'" & DBCombo1.Text & "'"</p><p> SQLStr = SQLStr + "order by 學(xué)號"</p><p> Data3.RecordSource = SQLStr&l
101、t;/p><p> Data3.Refresh</p><p> Text1.DataField = "學(xué)號"</p><p> Text2.DataField = "姓名"</p><p> sSQLStr = "SELECT 學(xué)號,姓名,隨堂,平時,考勤,期末,總評,學(xué)期 from 成
102、績"</p><p> sSQLStr = sSQLStr + " where 班級 like " & "'" & DBCombo1.Text & "'"</p><p> sSQLStr = sSQLStr + " and 課程 like " &
103、"'" & DBCombo2.Text & "'"</p><p> sSQLStr = sSQLStr + "order by 學(xué)號"</p><p> Data5.RecordSource = sSQLStr</p><p> Data5.Refresh</p
104、><p> Label10.Caption = Str$(Data3.Recordset.RecordCount)</p><p> Label11.Caption = Str$(Data5.Recordset.RecordCount)</p><p><b> End Sub</b></p><p> Privat
105、e Sub Command2_Click()</p><p> If Data3.Recordset.EOF Then</p><p> MsgBox ("已輸入完成!")</p><p><b> Exit Sub</b></p><p><b> End If</b>
106、</p><p> If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then</p><p> MsgBox ("數(shù)據(jù)有誤")</p><p><b>
107、; Exit Sub</b></p><p><b> End If</b></p><p> sui = Val(Text3.Text)</p><p> ping = Val(Text4.Text)</p><p> kaoqin = Val(Text5.Text)</p><
108、;p> qimo = Val(Text6.Text)</p><p> zongping = sui * 0.05 + ping * 0.1 + kaoqin * 0.05 + qimo * 0.8</p><p> Text7.Text = Str$(Int(zongping + 0.5))</p><p> Data4.Recordset.AddN
109、ew</p><p> Text8.Text = Text1.Text</p><p> Text9.Text = Text2.Text</p><p> Text10.Text = DBCombo1.Text</p><p> Text11.Text = DBCombo2.Text</p><p> Tex
110、t12.Text = Combo1.Text</p><p> Text13.Text = Text3.Text</p><p> Text14.Text = Text4.Text</p><p> Text15.Text = Text5.Text</p><p> Text16.Text = Text6.Text</p>
111、<p> Text17.Text = Text7.Text</p><p> Data4.Recordset.Update</p><p> Data3.Recordset.MoveNext</p><p> Data5.Refresh</p><p> Data5.Recordset.MoveLast</p&g
112、t;<p> Label11.Caption = Str$(Data5.Recordset.RecordCount)</p><p> Text3.Text = ""</p><p> Text4.Text = ""</p><p> Text5.Text = ""</p>
113、<p> Text6.Text = ""</p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> SQLStr = "SELECT * FROM 成績"</p><p>
114、 SQLStr = SQLStr + " WHERE 學(xué)號 like " & "'" & Text1.Text & "'"</p><p> SQLStr = SQLStr + " and 課程 like " & "'" & DBCombo2.Tex
115、t & "'"</p><p> Data6.RecordSource = SQLStr</p><p> Data6.Refresh</p><p> answer = MsgBox("確定刪除數(shù)據(jù)嗎?", 305, "核對框")</p><p> If a
116、nswer = 1 Then</p><p> Data6.Recordset.Delete</p><p> Data6.Refresh</p><p> Data5.Refresh</p><p> Data4.Refresh</p><p> Label11.Caption = Str$(Data5.R
117、ecordset.RecordCount)</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> Command3.Enabled = True</
118、p><p> Command4.Enabled = False</p><p> DBGrid2.AllowUpdate = False</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Data1.Data
119、baseName = App.Path & "\DATABASE\stu1.mdb"</p><p> Data2.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p> Data3.DatabaseName = App.Path & "\DATABASE\
120、stu1.mdb"</p><p> Data4.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p> Data5.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p> Data6
121、.DatabaseName = App.Path & "\DATABASE\stu1.mdb"</p><p><b> End Sub</b></p><p><b> 5.補考信息的錄入</b></p><p> 管理員在此主要是對參加補考的學(xué)生的補考成績進行錄入,主要操作步驟是:在學(xué)
122、號一欄輸入要添加補考成績的的學(xué)生的學(xué)號,選擇其補考的科目,點擊“確定”按鈕,在窗口表格中就會顯示學(xué)生的成績信息,點擊“修改成績”按鈕,對成績進行修改,點擊“確定”按鈕,補考成績就添加成功。(如圖4-8所示)</p><p> 圖4-8 補考成績重錄</p><p> 4.2.3信息查詢模塊設(shè)計</p><p><b> 學(xué)生成績查詢 </b
123、></p><p> 用戶在“輸入學(xué)號”框中輸入要查詢的學(xué)生的學(xué)號,點擊“確定” 按鈕,下面表格中會顯示該學(xué)生的各科目成績。如圖4-9所示</p><p> 圖4-9 學(xué)生成績查詢</p><p><b> 班級課程成績查詢</b></p><p> 用戶輸入班級和課程信息,點擊“確定”按鈕,查詢的結(jié)果就
124、會顯示自下面的表格中。如圖4-10所示</p><p> 圖4-10 班級課程成績查詢圖</p><p> 班級學(xué)期成績查詢 </p><p> 用戶輸入班級和學(xué)期信息,點擊“確定”按鈕,查詢的結(jié)果就會顯示自阿下面的表格中。如圖4-11所示:</p><p> 圖4-11 班級學(xué)期成績查詢圖</p><p&g
125、t;<b> 補考學(xué)生查詢 </b></p><p> 用戶輸入學(xué)號,點擊“確定”按鈕,查詢的結(jié)果就會顯示自阿下面的表格中,通過此功能,用戶可以查詢某一個學(xué)生的不及格科目。 如圖4-12所示:</p><p> 圖4-12 補考名單查詢圖</p><p> 4.2.4信息打印模塊設(shè)計</p><p><b
126、> 班級課程成績打印 </b></p><p> 用戶輸入班級和所要打印的課程,點擊“打印”按鈕,可以通過打印功能打印某一各班級的成績。以Excel表格的形式打印出來,便于瀏覽。如圖4-13所示:</p><p> 圖4-13 班級課程成績打印圖</p><p> 班級課程成績打印模塊代碼如下:</p><p>
127、 Dim exlapp As New Excel.Application</p><p> Dim exlbook As Excel.Workbook</p><p> Dim exlsheet As Excel.Worksheet</p><p> Dim mydb As Database '定義數(shù)據(jù)庫</p><p>
128、; Dim rs As Recordset '定義字段</p><p> Private Sub Command1_Click()</p><p> SQLStr = "SELECT * FROM 成績"</p><p> SQLStr = SQLStr + " WHERE 班級 like " &
129、; "'" & DBCombo1.Text & "'"</p><p> SQLStr = SQLStr + " and 課程 like " & "'" & DBCombo2.Text & "'"</p><p>
130、SQLStr = SQLStr + "order by 學(xué)號"</p><p> Set exlapp = New Excel.Application</p><p> exlapp.Workbooks.Open App.Path + "\dayin\banji.xlt"</p><p> Set mydb = Work
131、spaces(0).OpenDatabase(App.Path + "\database\stu1.mdb") '打開數(shù)據(jù)庫</p><p> Set rs = mydb.OpenRecordset(SQLStr) '打開表</p><p> Dim rows As Integer</p><p><b&
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計論文
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計(論文)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計(論文)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計論文
- 畢業(yè)設(shè)計----學(xué)生成績管理系統(tǒng)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)---畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計 (3)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計 (3)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計報告
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計 (2)
- 學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計3
- 畢業(yè)設(shè)計(論文)-pb9.0學(xué)生成績管理系統(tǒng)設(shè)計
- 畢業(yè)設(shè)計--學(xué)生成績管理設(shè)計
- 基于bs學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計
評論
0/150
提交評論