學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)論文

1、<p><b>　　本科畢業(yè)論文</b></p><p><b>　　學(xué)生成績(jī)管理系統(tǒng)</b></p><p>　　【摘　要】學(xué)生成績(jī)是教育單位不可或缺的一部分,應(yīng)該能夠?yàn)橛脩?hù)提供充足的信息和快捷的查詢(xún)方式。傳統(tǒng)的人工方式來(lái)管理學(xué)生的成績(jī)存在著許多缺點(diǎn),如:保密性差而且效率低,產(chǎn)生大量的文件和數(shù)據(jù),對(duì)數(shù)據(jù)的查找、更新和維護(hù)帶來(lái)困難。&

2、#160;  隨著計(jì)算機(jī)科學(xué)逐步成熟以及完善,其滲透到人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著重要的作用。運(yùn)用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理,具有手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高管理者對(duì)學(xué)生成績(jī)管理的效率,使學(xué)校的管理科學(xué)化、正規(guī)化。 </p><p>　　【關(guān)鍵詞】學(xué)生成績(jī)管理系統(tǒng)；數(shù)據(jù)庫(kù)；access；數(shù)據(jù)詞典。</p&g

3、t;<p><b>　　目 錄</b></p><p>　　1.引 言…………………………………………………………………………1</p><p>　　1.1項(xiàng)目開(kāi)發(fā)的背景 ……………………………………………………………1</p><p>　　1.2項(xiàng)目開(kāi)發(fā)的目標(biāo) ……………………………………………………………1</p&g

4、t;<p>　　1.3 項(xiàng)目開(kāi)發(fā)的意義…………………………………………………………………………… 1 </p><p>　　2.可行性研究報(bào)告與需求分析……………………………………………………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è)計(jì)………………………………………………………………3</p><p>　　3.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)…………………………………………………………………3 3.2 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)……………………………………………………………6</p><p>　　3.3 系統(tǒng)E-

7、R圖…………………………………………………………………………………7</p><p>　　4.系統(tǒng)詳細(xì)設(shè)計(jì)……………………………………………………………9</p><p>　　4.1系統(tǒng)開(kāi)發(fā)工具及運(yùn)行環(huán)境…………………………………………………9</p><p>　　4.2系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn)……………………………………………9</p><p

8、>　　4.2.1系統(tǒng)管理模塊設(shè)計(jì) ………………………………………………………12</p><p>　　4.2.2信息錄入模塊設(shè)計(jì)…………………………………………………………13</p><p>　　4.2.3信息查詢(xún)模塊設(shè)計(jì)…………………………………………………………21</p><p>　　4.2.4信息打印模塊設(shè)計(jì)………………………………………………………

9、…22</p><p>　　5.系統(tǒng)測(cè)試與維護(hù)……………………………………………………………24</p><p>　　5.1 系統(tǒng)測(cè)試……………………………………………………………………24</p><p>　　5.1.1軟件測(cè)試的目的…………………………………………………………24</p><p>　　5.1.2系統(tǒng)的測(cè)試環(huán)境…………………

10、………………………………………24</p><p>　　5.1.3測(cè)試方案設(shè)計(jì)………………………………………………………………25</p><p>　　5.1.4測(cè)試結(jié)果的評(píng)價(jià)……………………………………………………………25</p><p>　　5.2 系統(tǒng)維護(hù)……………………………………………………………………26</p><p>　　6

11、. 用戶(hù)手冊(cè)………………………………………………………………………………………26</p><p>　　6.1 軟件的安裝…………………………………………………………………………………26</p><p>　　6.2 登陸界面……………………………………………………………………………………26</p><p>　　6.3 系統(tǒng)主界面……………………………………………

12、……………………………………26</p><p>　　6.4 信息的查詢(xún)…………………………………………………………………………………27</p><p>　　6.5 各種信息的錄入……………………………………………………………………………29</p><p>　　6.6 相關(guān)資料的打印……………………………………………………………………………29</p>

13、;<p>　　7. 總結(jié)………………………………………………………………………………298. 致謝…………………………………………………………………………………29參考文獻(xiàn) ……………………………………………………………………………30</p><p><b>　　1. 引 言</b></p><p>　　1.1  項(xiàng)目開(kāi)發(fā)的背境<

14、/p><p>　　幾年前，各個(gè)學(xué)校對(duì)于學(xué)生成績(jī)的管理還是停留在運(yùn)用手工操作，隨著各個(gè)學(xué)校的規(guī)模不斷壯大，學(xué)生人數(shù)逐年增加。關(guān)于學(xué)生成績(jī)管理工作所涉及的數(shù)據(jù)量越來(lái)越大，有的學(xué)校不得不靠增加人力、物力來(lái)進(jìn)行學(xué)生成績(jī)管理。但人工管理又有著許多缺陷，比如：效率底、易出錯(cuò)、檢索信息慢、對(duì)學(xué)校的管理提供決策信息較為困難等。學(xué)校不能完全掌握每一個(gè)學(xué)生的學(xué)習(xí)情況，這樣對(duì)學(xué)校的教學(xué)工作及其不利，使學(xué)校的教學(xué)質(zhì)量一直停滯不前，所以我想借

15、本次畢業(yè)設(shè)計(jì)之際，開(kāi)發(fā)一個(gè)不僅適用于各校的通用高校學(xué)生成績(jī)管理系統(tǒng)，使學(xué)校能夠充分掌握學(xué)生的學(xué)習(xí)情況，便于學(xué)校教學(xué)工作的進(jìn)行和改革。</p><p>　　1.2 項(xiàng)目開(kāi)發(fā)的目標(biāo)</p><p>　　建立學(xué)生成績(jī)管理系統(tǒng)，采用計(jì)算機(jī)對(duì)學(xué)生成績(jī)進(jìn)行管理，進(jìn)一步提高辦學(xué)效率和現(xiàn)代化水平。使學(xué)校對(duì)學(xué)生的成績(jī)能夠快速并準(zhǔn)確的錄入、修改和查詢(xún)，更好地掌握每個(gè)學(xué)生的各科成績(jī)，便于教師的管理。使學(xué)生對(duì)個(gè)人

16、的學(xué)習(xí)成績(jī)進(jìn)行更快的查詢(xún)。讓老師能夠更好、更快的了解學(xué)生的學(xué)習(xí)情況，使學(xué)校的教學(xué)質(zhì)量進(jìn)一步的提高。</p><p>　　1.3 項(xiàng)目開(kāi)發(fā)的意義</p><p>　　現(xiàn)在我國(guó)的一些院校的學(xué)生成績(jī)管理水平普遍不高，有的還停留在紙介質(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é)

17、校所采用，將會(huì)改變以往靠手工管理學(xué)生成績(jī)的狀況，可以樹(shù)立良好的辦學(xué)形象，提高工作效率，節(jié)省人力和物力。</p><p>　　2. 可行性研究與需求分析</p><p><b>　　2.1 可行性研究</b></p><p>　　隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生人數(shù)逐年增加，學(xué)校對(duì)學(xué)生成績(jī)管理的工作量也越來(lái)越大。學(xué)生成績(jī)管理涉及大量的數(shù)據(jù)處理，如果用

18、手工來(lái)完成龐大的數(shù)據(jù)處理，將費(fèi)時(shí)費(fèi)力，還容易出錯(cuò)，為了滿(mǎn)足學(xué)校對(duì)學(xué)生成績(jī)管理的需要，急需要一套學(xué)生成績(jī)管理系統(tǒng)來(lái)完成這項(xiàng)工作。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生成績(jī)信息加以管理,將擁有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:輸入迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生成績(jī)管理的效率,也是學(xué)生成績(jī)的科學(xué)化、正規(guī)化管理的重要條件。同時(shí)還要注意下列幾點(diǎn)：</p><p>

19、;　　1 由于各方面的限制，如人員不夠、技術(shù)缺乏等原因，開(kāi)發(fā)時(shí)應(yīng)本著循序漸進(jìn)，逐步完善的原則，不能貪大求全，盲目開(kāi)發(fā)。</p><p>　　要注意信息的準(zhǔn)確、及時(shí)、適用、經(jīng)濟(jì)，只有及時(shí)、準(zhǔn)確的信息才能保證系統(tǒng)開(kāi)發(fā)的質(zhì)量和效率。</p><p>　　3 從全局出發(fā)注意系統(tǒng)開(kāi)發(fā)的整體優(yōu)化性，同時(shí)還要注意系統(tǒng)的可擴(kuò)展性和可延伸性。</p><p>　　4 盡量采用學(xué)校

20、現(xiàn)有的軟硬件環(huán)境,及先進(jìn)的管理系統(tǒng)開(kāi)發(fā)方案,從而達(dá)到充分利用學(xué)校現(xiàn)有資源、提高系統(tǒng)開(kāi)發(fā)水平和應(yīng)用效果的以及減少開(kāi)發(fā)成本的目的。</p><p>　　5 系統(tǒng)應(yīng)符合學(xué)校對(duì)學(xué)生成績(jī)管理的規(guī)定,滿(mǎn)足學(xué)生成績(jī)管理的工作需要,并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等要求。</p><p><b>　　2.2 需求分析</b></p><p><b

21、>　　2.2.1 概述</b></p><p><b>　　1．系統(tǒng)分析的原則</b></p><p>　　分析高校成績(jī)管理的要求，確定管理系統(tǒng)的邏輯功能，以滿(mǎn)足高校成績(jī)的要求。第一階段完成后，該系統(tǒng)應(yīng)具備較高的可擴(kuò)充性，便于在此基礎(chǔ)上完成第二階段。</p><p><b>　　分析方法</b></

22、p><p>　　采用結(jié)構(gòu)化分析方法，建立新系統(tǒng)的邏輯模型，這個(gè)邏輯模型盡可能避免計(jì)算機(jī)的專(zhuān)業(yè)術(shù)語(yǔ)。 </p><p>　　2.2.2 系統(tǒng)需求</p><p>　　經(jīng)過(guò)一段時(shí)間對(duì)學(xué)校學(xué)生成績(jī)管理的調(diào)研與分析，以及認(rèn)真研究了幾位老師的意見(jiàn)，所開(kāi)發(fā)的學(xué)生成績(jī)管理系統(tǒng)應(yīng)分成以下幾個(gè)階段開(kāi)發(fā)：</p><p>　　第一階段建立的成績(jī)管理系統(tǒng)由以下5個(gè)子

23、系統(tǒng)組成： </p><p>　　1．系統(tǒng)信息的管理，能添加用戶(hù)、修改用戶(hù)信息、刪除用戶(hù)。</p><p>　　2．學(xué)生基本信息的管理，能對(duì)學(xué)生基本信息進(jìn)行添加、刪除、修改。</p><p>　　3．班級(jí)信息的管理，能對(duì)班級(jí)基本信息進(jìn)行添加、刪除、修改。</p><p>　　4．學(xué)生成績(jī)信息的管理，能對(duì)學(xué)生成績(jī)基本信息進(jìn)行添加、刪除、修改。&

24、lt;/p><p>　　5．對(duì)數(shù)據(jù)的備份、恢復(fù)，對(duì)學(xué)生數(shù)據(jù)的及時(shí)備份。</p><p>　　第二階段建立的成績(jī)管理系統(tǒng)主要在上次基礎(chǔ)上對(duì)其功能進(jìn)行修改以及擴(kuò)充。在功能擴(kuò)充上應(yīng)該使系統(tǒng)更具實(shí)用性。</p><p>　　2.2.3 數(shù)據(jù)詞典</p><p>　　經(jīng)過(guò)分析，所開(kāi)發(fā)的學(xué)生成績(jī)管理系統(tǒng)應(yīng)有五個(gè)數(shù)據(jù)表，分別是：</p><

25、p>　　1．系統(tǒng)用戶(hù)數(shù)據(jù)：高校老師以及管理人員使用成績(jī)管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有用戶(hù)編號(hào)、登錄口令、權(quán)限代碼。</p><p>　　2．學(xué)生基本信息數(shù)據(jù)：學(xué)生基本信息數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有學(xué)號(hào)、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號(hào)等。</p><p>　　3．課程數(shù)據(jù)：課程信息數(shù)據(jù)。</p><p>　　4．班級(jí)數(shù)據(jù)：用于班級(jí)信

26、息記錄數(shù)據(jù)。</p><p>　　5．學(xué)生成績(jī)數(shù)據(jù)：學(xué)生的成績(jī)數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)考試編號(hào)、選擇班號(hào)、選擇學(xué)號(hào)姓名、選擇課程以及輸入分?jǐn)?shù)等。</p><p>　　2.2.4 數(shù)據(jù)流程圖</p><p>　　學(xué)生成績(jī)管理系統(tǒng)數(shù)據(jù)流程圖如下：</p><p>　　圖2-1 系統(tǒng)數(shù)據(jù)流程圖</p><p>　　3. 系統(tǒng)的總

27、體設(shè)計(jì)</p><p><b>　　3.1系統(tǒng)結(jié)構(gòu)設(shè)計(jì)</b></p><p><b>　　1．系統(tǒng)設(shè)計(jì)目標(biāo)</b></p><p>　　本系統(tǒng)既要滿(mǎn)足用戶(hù)的設(shè)計(jì)目標(biāo)，也要滿(mǎn)足設(shè)計(jì)員的設(shè)計(jì)目標(biāo)。</p><p>　　(1) 用戶(hù)的觀點(diǎn)看，要求系統(tǒng)能夠達(dá)到以下目標(biāo)</p><p&g

28、t;　　1) 對(duì)信息的收集和保存信息。例如：輸入學(xué)生的成績(jī)信息,學(xué)生的基本信息等.</p><p>　　2）速的傳遞信息，對(duì)那些共享的數(shù)據(jù)進(jìn)行快速的傳遞。</p><p>　　3）供準(zhǔn)確的信息，要求比手工作業(yè)提供的更加準(zhǔn)確和細(xì)致的數(shù)據(jù)，例如學(xué)生的各科分?jǐn)?shù).</p><p>　　現(xiàn)有的報(bào)表自動(dòng)生成。</p><p><b>　　共享現(xiàn)

29、有的數(shù)據(jù)</b></p><p>　　(2) 設(shè)計(jì)員從技術(shù)觀點(diǎn)看，要求系統(tǒng)能達(dá)到以下的目標(biāo)：</p><p>　　1) 用戶(hù)使用，具有較高的用戶(hù)友好性。</p><p>　　有較高的可靠性，將系統(tǒng)發(fā)生故障的概率控制在2.0％以下，并具有快速恢復(fù)的能力</p><p>　　3) 具有較高的運(yùn)行效率，應(yīng)比人工作業(yè)提高效率10倍以上。&

30、lt;/p><p>　　4）具有較強(qiáng)的可維護(hù)性和擴(kuò)充性，能夠適應(yīng)用戶(hù)的業(yè)務(wù)要求變化。</p><p><b>　　(3)設(shè)計(jì)策略</b></p><p>　　本系統(tǒng)的結(jié)構(gòu)是自頂向下擴(kuò)展的，層次化的暗盒模塊結(jié)構(gòu)。</p><p>　　對(duì)高層模塊，將運(yùn)用以事務(wù)為中心的設(shè)計(jì)策略，將一個(gè)復(fù)雜的系統(tǒng)逐步分解成為幾個(gè)較小的相對(duì)簡(jiǎn)單的暗合

31、模塊；對(duì)低層模塊，采用以變換為中心的設(shè)計(jì)策略。</p><p>　　此外，為了提高模塊的內(nèi)聚性，降低模塊間的偶合程度，數(shù)據(jù)庫(kù) 的設(shè)計(jì)原則是把他作為模塊間的郵政信箱，從而既實(shí)現(xiàn)數(shù)據(jù)共享有提高模塊的獨(dú)立性，使系統(tǒng)具有很高的可修改性。[1]</p><p><b>　　2．系統(tǒng)總體功能</b></p><p>　　本說(shuō)明主要是為了對(duì)學(xué)生成績(jī)管理系統(tǒng)進(jìn)

32、行使用和維護(hù)。</p><p>　　該系統(tǒng)充分利用計(jì)算機(jī)的現(xiàn)有的功能來(lái)實(shí)現(xiàn)對(duì)系統(tǒng)管理、信息錄入、信息查詢(xún)，信息打印等的自動(dòng)化控制，將會(huì)使學(xué)生成績(jī)管理工作大大減輕，方便友好的信息管理用戶(hù)界面，簡(jiǎn)便的操作，完善的數(shù)據(jù)庫(kù)管理，將會(huì)使得信息管理系統(tǒng)極大限度地應(yīng)用于現(xiàn)代化學(xué)生成績(jī)管理，成為管理人員的得力助手。</p><p>　　對(duì)系統(tǒng)信息的修改、添加、刪除</p><p>

33、　　對(duì)學(xué)生基本信息的修改、添加、刪除、查詢(xún)</p><p>　　對(duì)班級(jí)信息的添加、修改、查詢(xún)</p><p>　　對(duì)學(xué)籍信息的添加、修改、查詢(xún)</p><p>　　對(duì)學(xué)生成績(jī)信息的添加，修改，查詢(xún)</p><p><b>　　對(duì)數(shù)據(jù)的備份、恢復(fù)</b></p><p><b>　　3．系

34、統(tǒng)結(jié)構(gòu)圖</b></p><p>　　學(xué)生成績(jī)管理系統(tǒng)結(jié)構(gòu)圖，以下所示，這些結(jié)構(gòu)圖是根據(jù)系統(tǒng)分析說(shuō)明書(shū)的數(shù)據(jù)流程圖畫(huà)出的。實(shí)際上它有 四個(gè)模塊組成。</p><p>　　圖3-1 學(xué)生成績(jī)管理系統(tǒng)</p><p>　　圖3-2 系統(tǒng)管理</p><p>　　圖3-3 信息錄入</p><p>　　圖3-

35、4 信息查詢(xún)</p><p>　　圖3-5 信息打印</p><p>　　3.2數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)</p><p>　　1． 數(shù)據(jù)庫(kù)總體結(jié)構(gòu)</p><p>　　本系統(tǒng)采用關(guān)系型數(shù)據(jù)庫(kù)Acess實(shí)現(xiàn),數(shù)據(jù)庫(kù)由、若干個(gè)二維表構(gòu)成。本系統(tǒng)的表分為兩類(lèi)。一類(lèi)是目錄，即索引。另一類(lèi)是實(shí)際數(shù)據(jù)。其中數(shù)據(jù)表包括：學(xué)生信息表、 班級(jí)信息表、課程信息表、成績(jī)

36、信息表和用戶(hù)信息表。[2]</p><p><b>　　2．?dāng)?shù)據(jù)庫(kù)表</b></p><p>　　表3-1 學(xué)生信息表</p><p>　　表3-2 班級(jí)信息表</p><p>　　表3-3 課程信息表</p><p>　　表3-4 成績(jī)信息表</p><p>　　

37、表3-5 用戶(hù)信息表</p><p>　　3.3 系統(tǒng)E-R圖</p><p><b>　　局部E-R圖</b></p><p>　　圖3-6 課程E-R圖</p><p>　　圖3-7 班級(jí)E-R圖</p><p>　　圖3-8 成績(jī)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)詳細(xì)設(shè)計(jì)</b></p><p>　　4.1系統(tǒng)開(kāi)發(fā)工具及運(yùn)行環(huán)境</p><p><b>　　1. 系統(tǒng)開(kāi)發(fā)工具</b

39、></p><p>　　本系統(tǒng)利用VB6.0全套開(kāi)發(fā)工具做程序開(kāi)發(fā)，利用Acess數(shù)據(jù)庫(kù)作為學(xué)生成績(jī)管理系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)。VB6.0在數(shù)據(jù)庫(kù)開(kāi)發(fā)方面功能很強(qiáng)大，大量使用可視化的界面操作工具，支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，其以簡(jiǎn)便、靈活、高效等優(yōu)點(diǎn)著稱(chēng)。而Acess數(shù)據(jù)庫(kù)以功能比較強(qiáng)大，由于VB6.0中無(wú)需另外安裝其支持環(huán)境也能正常打開(kāi)數(shù)據(jù)庫(kù)，具有很強(qiáng)的適應(yīng)性，更重要的是利用Acess做數(shù)據(jù)庫(kù)開(kāi)發(fā)，在數(shù)據(jù)備份方面很

40、優(yōu)勢(shì)，方法簡(jiǎn)單，可靠。[3]</p><p><b>　　2 ．系統(tǒng)運(yùn)行環(huán)境</b></p><p>　　軟件環(huán)境：系統(tǒng)環(huán)境win2000及以上 + Acess數(shù)據(jù)庫(kù)</p><p>　　硬件環(huán)境：CPU P4 2.4G、256MB內(nèi)存、80G硬盤(pán)</p><p>　　4.2系統(tǒng)各功能模塊的設(shè)計(jì)及實(shí)現(xiàn)</p>

41、<p>　　執(zhí)行程序后，首先進(jìn)入的是學(xué)生成績(jī)管理系統(tǒng)的登錄界面,用戶(hù)通過(guò)輸入正確的信息后,就進(jìn)入系統(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 ("沒(méi)有此用戶(hù)")</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 ("密碼錯(cuò)誤")</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、>　　進(jìn)入主界面后，用戶(hù)可以進(jìn)行學(xué)生信息添加、刪除、修改、查詢(xún)和打印以及對(duì)數(shù)據(jù)庫(kù)的備份等操作。如圖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è)計(jì)</p><p>　　在這里管理員可以進(jìn)行添加用戶(hù)、修改用戶(hù)和刪除用戶(hù)等操作。如圖4-3所示</p><p>　　圖4-3 用戶(hù)權(quán)限設(shè)置</p><p>　　用戶(hù)權(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, "核對(duì)框")</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è)計(jì) </p><p>　　包括對(duì)班級(jí)信息、學(xué)生基本信息、課程信息

65、、學(xué)生成績(jī)信息、學(xué)生補(bǔ)考信息的錄入、修改和刪除</p><p><b>　　班級(jí)信息錄入</b></p><p>　　用戶(hù)在班級(jí)輸入框中輸入要添加的班級(jí)信息，點(diǎn)擊添加按鈕，如果班級(jí)信息出現(xiàn)在右側(cè)的表格中就說(shuō)明信息添加成功。用戶(hù)也可以對(duì)已經(jīng)添加的信息進(jìn)行修改和刪除，具體操作是選中要修改或者刪除的班級(jí)信息點(diǎn)擊修改或者刪除按鈕執(zhí)行相應(yīng)的操作，如果已經(jīng)添加的班級(jí)信息很多，你可

66、以通過(guò)模糊查找來(lái)幫你找出比較匹配的班級(jí)信息并將查詢(xún)結(jié)果顯示在右側(cè)的表格中，便于用戶(hù)進(jìn)行修改或刪除。如圖4-4所示</p><p>　　圖4-4 班級(jí)信息</p><p>　　班級(jí)信息錄入的代碼：</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, "核對(duì)框")</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 "班級(jí) Like " & "'*" & Text2.Text & "*'"</p><p>　　If Data1.Recordset.NoMat

76、ch Then</p><p>　　MsgBox ("沒(méi)有符合條件的記錄")</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é)生的基本信息包含班級(jí)學(xué)號(hào)、姓名、性別、出生日期、文化程度、籍貫、民族、入學(xué)日期、身份證號(hào)等，主要是對(duì)學(xué)生信息的登記。</p><p>　　管理員還可以在右側(cè)表格中對(duì)已經(jīng)選中的學(xué)生信息進(jìn)行修改或者刪除，如果學(xué)生信息比較多，而你要進(jìn)行操作的學(xué)生的信息沒(méi)有顯示出來(lái)，你可以通過(guò)查找進(jìn)行快速定位，查找分為按學(xué)號(hào)查找和按姓名查找。如圖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é)號(hào) Like " & "'*" & Text27.Text & "*'"</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox ("沒(méi)有符合

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 ("沒(méi)有符合條件的記錄")</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 ("沒(méi)有符合條件的記錄")&

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, "核對(duì)框")</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>　　主要是對(duì)學(xué)生所學(xué)課程信息進(jìn)行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱(chēng)，點(diǎn)擊添加按鈕，如果課程信息出現(xiàn)在右側(cè)的表格中，就說(shuō)明信息添加成功。在這里也可以選中右側(cè)表格中的信息對(duì)課程信息

97、進(jìn)行修改或者刪除，管理員也可以通過(guò)利用查找功能快速定位你想要操作的課程信息，便于管理。如圖4-6所示：</p><p>　　圖4-6 課程設(shè)置</p><p><b>　　4.成績(jī)信息錄入</b></p><p>　　管理員在此窗口輸入要輸入學(xué)生所屬班級(jí)，學(xué)生所學(xué)的課程和學(xué)期后，點(diǎn)擊“確定”按鈕，在下面的表格中就會(huì)列出班級(jí)所有學(xué)生的學(xué)號(hào)和姓名

98、，如果某位學(xué)生這門(mén)學(xué)科已經(jīng)輸入成績(jī)則顯示該學(xué)生的成績(jī)情況。選中要進(jìn)行成績(jī)錄入的學(xué)生，在窗口下面就會(huì)顯示選中學(xué)生的“學(xué)號(hào)”和“姓名”，在后面的輸入框中輸入相應(yīng)的信息，點(diǎn)擊“確定并輸入下一成績(jī)”按鈕，該學(xué)生的成績(jī)就添加成功了。如果點(diǎn)擊“對(duì)已輸入成績(jī)進(jìn)行刪除”按鈕，則將已經(jīng)輸入的成績(jī)信息刪除。如圖4-7所示</p><p>　　圖4-7 成績(jī)信息錄入</p><p><b>　　成績(jī)

99、錄入代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　MsgBox ("注意，學(xué)期一定要輸入正確")</p><p>　　SQLStr = "SELECT 學(xué)號(hào),姓名 FROM 學(xué)生"</p><p>　　SQLStr =

100、SQLStr + " WHERE 班級(jí) like " & "'" & DBCombo1.Text & "'"</p><p>　　SQLStr = SQLStr + "order by 學(xué)號(hào)"</p><p>　　Data3.RecordSource = SQLStr&l

101、t;/p><p>　　Data3.Refresh</p><p>　　Text1.DataField = "學(xué)號(hào)"</p><p>　　Text2.DataField = "姓名"</p><p>　　sSQLStr = "SELECT 學(xué)號(hào),姓名,隨堂,平時(shí),考勤,期末,總評(píng),學(xué)期 from 成

102、績(jī)"</p><p>　　sSQLStr = sSQLStr + " where 班級(jí) like " & "'" & DBCombo1.Text & "'"</p><p>　　sSQLStr = sSQLStr + " and 課程 like " &

103、"'" & DBCombo2.Text & "'"</p><p>　　sSQLStr = sSQLStr + "order by 學(xué)號(hào)"</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 成績(jī)"</p><p>　

114、　SQLStr = SQLStr + " WHERE 學(xué)號(hào) 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, "核對(duì)框")</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ǔ)考信息的錄入</b></p><p>　　管理員在此主要是對(duì)參加補(bǔ)考的學(xué)生的補(bǔ)考成績(jī)進(jìn)行錄入，主要操作步驟是：在學(xué)

122、號(hào)一欄輸入要添加補(bǔ)考成績(jī)的的學(xué)生的學(xué)號(hào)，選擇其補(bǔ)考的科目，點(diǎn)擊“確定”按鈕，在窗口表格中就會(huì)顯示學(xué)生的成績(jī)信息，點(diǎn)擊“修改成績(jī)”按鈕，對(duì)成績(jī)進(jìn)行修改，點(diǎn)擊“確定”按鈕，補(bǔ)考成績(jī)就添加成功。(如圖4-8所示)</p><p>　　圖4-8 補(bǔ)考成績(jī)重錄</p><p>　　4.2.3信息查詢(xún)模塊設(shè)計(jì)</p><p><b>　　學(xué)生成績(jī)查詢(xún) </b

123、></p><p>　　用戶(hù)在“輸入學(xué)號(hào)”框中輸入要查詢(xún)的學(xué)生的學(xué)號(hào)，點(diǎn)擊“確定” 按鈕，下面表格中會(huì)顯示該學(xué)生的各科目成績(jī)。如圖4-9所示</p><p>　　圖4-9 學(xué)生成績(jī)查詢(xún)</p><p><b>　　班級(jí)課程成績(jī)查詢(xún)</b></p><p>　　用戶(hù)輸入班級(jí)和課程信息，點(diǎn)擊“確定”按鈕，查詢(xún)的結(jié)果就

124、會(huì)顯示自下面的表格中。如圖4-10所示</p><p>　　圖4-10 班級(jí)課程成績(jī)查詢(xún)圖</p><p>　　班級(jí)學(xué)期成績(jī)查詢(xún) </p><p>　　用戶(hù)輸入班級(jí)和學(xué)期信息，點(diǎn)擊“確定”按鈕，查詢(xún)的結(jié)果就會(huì)顯示自阿下面的表格中。如圖4-11所示：</p><p>　　圖4-11 班級(jí)學(xué)期成績(jī)查詢(xún)圖</p><p&g

125、t;<b>　　補(bǔ)考學(xué)生查詢(xún) </b></p><p>　　用戶(hù)輸入學(xué)號(hào)，點(diǎn)擊“確定”按鈕，查詢(xún)的結(jié)果就會(huì)顯示自阿下面的表格中，通過(guò)此功能，用戶(hù)可以查詢(xún)某一個(gè)學(xué)生的不及格科目。 如圖4-12所示：</p><p>　　圖4-12 補(bǔ)考名單查詢(xún)圖</p><p>　　4.2.4信息打印模塊設(shè)計(jì)</p><p><b

126、>　　班級(jí)課程成績(jī)打印 </b></p><p>　　用戶(hù)輸入班級(jí)和所要打印的課程，點(diǎn)擊“打印”按鈕，可以通過(guò)打印功能打印某一各班級(jí)的成績(jī)。以Excel表格的形式打印出來(lái)，便于瀏覽。如圖4-13所示：</p><p>　　圖4-13 班級(jí)課程成績(jī)打印圖</p><p>　　班級(jí)課程成績(jī)打印模塊代碼如下：</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ù)庫(kù)</p><p>

128、;　　Dim rs As Recordset '定義字段</p><p>　　Private Sub Command1_Click()</p><p>　　SQLStr = "SELECT * FROM 成績(jī)"</p><p>　　SQLStr = SQLStr + " WHERE 班級(jí) like " &

129、; "'" & DBCombo1.Text & "'"</p><p>　　SQLStr = SQLStr + " and 課程 like " & "'" & DBCombo2.Text & "'"</p><p>　　

130、SQLStr = SQLStr + "order by 學(xué)號(hào)"</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") '打開(kāi)數(shù)據(jù)庫(kù)</p><p>　　Set rs = mydb.OpenRecordset(SQLStr) '打開(kāi)表</p><p>　　Dim rows As Integer</p><p><b&