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

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

1、 武威職業(yè)學(xué)院畢業(yè)論文 系 別： xxxxxx系 姓 名： xxx 論文題目： 學(xué)生學(xué)籍管理系統(tǒng) 指導(dǎo)老師： xxx 提交時(shí)間： 2021年11月4日 【摘要】 學(xué)生學(xué)籍管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過分析,我們使用 MICROSO

2、FT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。 這次開發(fā)我非常注重系統(tǒng)的人性化設(shè)計(jì)。最討厭一些系統(tǒng)的不人性化設(shè)計(jì)，讓普通用戶不知道如何使用，從而望而卻步。即使是我這樣的計(jì)算機(jī)專業(yè)人員，也要探索半天才能掌握用法。 我即是此系統(tǒng)的設(shè)計(jì)開發(fā)者，也是此系統(tǒng)的用戶，所以我在此系統(tǒng)的人性化設(shè)計(jì)上下足了功夫。為方便普通用戶的操作使用，也為我的畢業(yè)設(shè)計(jì)增添了一份特色。 本系統(tǒng)的用戶界面十分簡潔、實(shí)用

3、，系統(tǒng)編制過程中充分考慮了計(jì)算機(jī)的優(yōu)越性，對(duì)于不是計(jì)算機(jī)專業(yè)的人員來說，只要閱讀了操作說明書，也可以很方便的進(jìn)入系統(tǒng)和使用本系統(tǒng)提供的功能。 【關(guān)鍵字】：控件、窗體、域、學(xué)籍管理系統(tǒng)、信息管理系統(tǒng)、VISUAL BASIC。 目 錄 前 言 1 第一章 為什么要開發(fā)一個(gè)學(xué)生學(xué)籍管理系統(tǒng)？ 1 1．1在中小學(xué)中用計(jì)算機(jī)管理學(xué)生學(xué)籍的意義 1 1．2為將來學(xué)校上網(wǎng)做好準(zhǔn)備 2 1．3學(xué)生學(xué)籍的設(shè)計(jì)分析 2 第二章 怎樣開發(fā)一個(gè)學(xué)生學(xué)籍管理系統(tǒng)？ 2 2．1編程環(huán)境的選擇 2 2．2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) 2 2．3二者的結(jié)合

4、（DBA） 3 第三章 Windows下的Visual Basic 編程環(huán)境簡介 3 3．1 告別“hello world”的年代 3 3．2 面對(duì)對(duì)象的編程 5 3．3實(shí)現(xiàn)菜單選項(xiàng) 6 3．4實(shí)現(xiàn)工具欄 6 3．5幫助 7 3．6關(guān)于系統(tǒng) 7 第四章 使用 Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫 8 4．1數(shù)據(jù)庫的概念 8 4．2新建一個(gè)數(shù)據(jù)庫 8 4．3修改已建的數(shù)據(jù)庫 8 4．4實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 8 第五章 系統(tǒng)總體規(guī)劃 9 5．1系統(tǒng)功能 9 5．2系統(tǒng)流程圖 9 5．3數(shù)據(jù)字典 10 第六章 系統(tǒng)具體實(shí)現(xiàn) 10 6．1用戶界面的實(shí)現(xiàn) 10 6

5、．1．1用戶登陸界面 10 6．1．2班級(jí)信息管理界面 11 6．1．3學(xué)生信息管理界面 11 6．1．4學(xué)生成績管理界面 12 6．2數(shù)據(jù)庫的實(shí)現(xiàn) 12 6．2．1學(xué)籍?dāng)?shù)據(jù)庫 13 6．2．2成績數(shù)據(jù)庫 13 6．2．3課程數(shù)據(jù)庫 14 6．3 與VB的連接 15 第七章 結(jié)束語 15 致謝 15 參考文獻(xiàn) 15 程序清單及注釋 16 前 言 學(xué)生學(xué)籍管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件學(xué)籍，這種

6、管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生學(xué)籍信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套學(xué)

7、生學(xué)籍管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 第一章 為什么要開發(fā)一個(gè)學(xué)生學(xué)籍管理系統(tǒng)？ 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面： 首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)； 其次，計(jì)算機(jī)可以節(jié)省許多資源； 第三，計(jì)算機(jī)可以大大的提高人們的工作效率； 第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。 1．1在中小學(xué)中用計(jì)算機(jī)管理學(xué)生學(xué)籍的意義 現(xiàn)在我國的中小學(xué)校中學(xué)籍的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)

8、展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。 我作為一個(gè)計(jì)算機(jī)應(yīng)用的專科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我三年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的學(xué)籍管理。 歸納起來，好處大約有以下幾點(diǎn)： 1． 可以存儲(chǔ)歷屆的學(xué)生學(xué)籍，安全、高效； 2． 只需一到二名學(xué)籍錄入員即可操作系統(tǒng)，節(jié)省大量人力； 3． 可以迅速查到所需信息。 1．2為將來學(xué)校上網(wǎng)做好準(zhǔn)備 跟據(jù)1999年中國電信的調(diào)查報(bào)告顯示我國的上網(wǎng)人數(shù)已達(dá)到890萬，互聯(lián)網(wǎng)已經(jīng)十分普及，學(xué)校往界的畢業(yè)生

9、希望能在世界的任何一個(gè)角落查到自己校友的信息，本系統(tǒng)為學(xué)校將來的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫的建立。 1．3學(xué)生學(xué)籍的設(shè)計(jì)分析 根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。 第二章 怎樣開發(fā)一個(gè)學(xué)生學(xué)籍管理系統(tǒng)？ 2．1編程環(huán)境的選擇 微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的

10、面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。 2．2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用

11、桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。 2．3二者的結(jié)合（DBA） 微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示

12、給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 第三章 Windows下的Visual Basic 編程環(huán)境簡介 3．1 告別“hello world”的年代 V

13、isual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。 BASIC是Beginners All-purpose symbolic instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，是國際上廣泛使用的一種計(jì)算機(jī)高級(jí)語言。BASIC簡單、易學(xué)，目前仍是計(jì)算機(jī)入門的主要學(xué)習(xí)語言之一。 　　BASIC語言的問世及發(fā)展 BASIC語言自其問世經(jīng)歷了以下四個(gè)階段： 　　第一階段：（1964年～70年代初） 1964年BASIC語言

14、問世。 　　第二階段：（1975年～80年代中） 微機(jī)上固化的BASIC 　　第三階段：（80年代中～90年代初） 結(jié)構(gòu)化BASIC語言。 第四階段：（1991年以來） Visual BASIC 1991年，微軟推出了Visual Basic1.0版。這在當(dāng)時(shí)引起了很大的轟動(dòng)。許多專家把VB的出現(xiàn)當(dāng)做是軟件開發(fā)史上的一個(gè)具有劃時(shí)代意義的事件。其實(shí)，以我們現(xiàn)在的目光來看，VB10的功能實(shí)在是太弱了。但在當(dāng)時(shí)，它是第一個(gè)“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在VB的平臺(tái)上進(jìn)行軟件創(chuàng)作。微軟也不失時(shí)機(jī)地在四年內(nèi)接連推出VB20，VB30，40三個(gè)版本。并且從VB3開始，微軟將A

15、CCESS的數(shù)據(jù)庫驅(qū)動(dòng)集成到了VB中，這使得VB的數(shù)據(jù)庫編程能力大大提高。從VB4開始，VB也引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。VB功能強(qiáng)大，學(xué)習(xí)簡單。而且，VB還引入了“控件：的概念，使得大量已經(jīng)編好的VB程序可以被我們直接拿來使用，如今，VB已經(jīng)有了6.0版。 　　通過幾年的發(fā)展，它已成為一種真真專業(yè)化的開發(fā)語言和環(huán)境。用戶認(rèn)為可用Visual Basic快速創(chuàng)建Windows程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序，Visual Basic新版中還有更多可用功能。 　　Visual Basic的編程基礎(chǔ) 　　什么是程序 　　首先需要知道下面這個(gè)問題的

16、答案：“程序到底是什么？”計(jì)算機(jī)程序是指令集，它告訴計(jì)算機(jī)如何執(zhí)行特殊的任務(wù)。讀者也許對(duì)許多種指令熟悉，如按菜譜烹調(diào)特殊的食物或按指定的方向到達(dá)不熟悉的目的地。沒有這些特殊的指令，就不能執(zhí)行預(yù)期的任務(wù)。 　　計(jì)算機(jī)也是一樣，只是它們需要為執(zhí)行的每一個(gè)任務(wù)提供指令。甚至對(duì)最簡單的任務(wù)也需要指令，例如如何取得擊鍵，怎樣在屏幕上放一個(gè)字母，怎樣在磁盤中保存訊息。 幸運(yùn)的是，許多這樣的指令包含在處理器芯片中或內(nèi)置于操作系統(tǒng)中，因此用戶不必?fù)?dān)心它們。 　 相反，應(yīng)集中于為任務(wù)提供指令，如計(jì)算雇員工資，創(chuàng)建鄰居郵件列表，或設(shè)置格式化文本以顯示最近的年度報(bào)表信息。 雖然我們用自然語言讀這些指令，但計(jì)算機(jī)

17、指令必須是二進(jìn)制代碼，即一系列在計(jì)算機(jī)內(nèi)存和處理器中的開或關(guān)的狀態(tài)。有些語言，如匯編程序，可以允許直接寫這種類型的代碼。但是，以這種方法編程十分困難，因此Visual Basic和其他編程語言使程序員可以用與自然語言有點(diǎn)相近的方式編寫指令。然而，即使是這些指令仍有限，并要遵循高度定義的結(jié)構(gòu)。 　　Visual Basic允許創(chuàng)建反映用戶動(dòng)作和系統(tǒng)事件的程序。這種編程叫事件驅(qū)動(dòng)編程。要了解事件驅(qū)動(dòng)程序是怎樣工作的，先要了解過去的程序怎樣運(yùn)行及在Windows環(huán)境中有何不同。 在Windows之前（回到往日的DOS和“史前時(shí)代”ＰＣ之前），程序以順序方式運(yùn)行。也就是說，一旦程序啟動(dòng)，

18、它就一條指令一條指令的向前執(zhí)行，直到程序結(jié)束或出現(xiàn)致命錯(cuò)誤。 3．2 面對(duì)對(duì)象的編程 　　使創(chuàng)建Windows程序較為容易的關(guān)鍵技術(shù)是面向?qū)ο缶幊?，或OOP。這種技術(shù)可以創(chuàng)建可重用組建，它是程序的組成模塊。 　幾個(gè)定義 　　在討論Visual Basic時(shí)，經(jīng)?？梢月牭竭@些術(shù)語，因此對(duì)這些術(shù)語的基本理解十分有幫助。 　　控件 提供程序可見界面的可重用對(duì)象?？丶氖纠形谋究?、標(biāo)簽和命令按鈕。 　　事件 由用戶或操作系統(tǒng)引發(fā)的動(dòng)作。事件的示例有擊鍵、單擊鼠標(biāo)、一段時(shí)間的限制，或從端口接收數(shù)據(jù)。 　　方法 嵌入在對(duì)象定義中的程序代碼，它定義對(duì)象怎樣處理信息并響應(yīng)某事件。例如，數(shù)據(jù)

19、庫對(duì)象有打開紀(jì)錄集并從一個(gè)記錄移動(dòng)到另一個(gè)記錄的方法。 　　對(duì)象 程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識(shí)別它可以響應(yīng)的事件的方法?？丶痛绑w是Visual Basic中所有對(duì)象的示例。 　　過程 為完成任務(wù)而編寫的代碼段。過程通常用于響應(yīng)特定的事件。 　　屬性 對(duì)象的特征，如尺寸、位置、顏色或文本。屬性決定對(duì)象的外觀，有時(shí)也決定對(duì)象的行為。屬性也用于為對(duì)象提供數(shù)據(jù)和從對(duì)象取回信息。 　　BASIC是種易學(xué)易用的高級(jí)語言,非常適合初學(xué)者學(xué)習(xí)運(yùn)用。常用的編譯軟件有True BASIC,Turbo BASIC Quick BASIC,Visual BASIC,CAREA

20、LIZER,GFA BASIC,POWER BASIC,等等。 Visual Basic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。 3．3實(shí)現(xiàn)菜單選項(xiàng) 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。

21、 3．4實(shí)現(xiàn)工具欄 CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。 Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。 選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Wi

22、ndows Common Controls 6.0”后工具相中增加改控件。其屬性及對(duì)象如下： 1． Align屬性定義工具條在窗體中的位置 2． ToolTipText屬性是字符串類型，定義控件的提示字符 3． Style屬性定義按鈕外觀。 4． ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。 5． HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。 6． DisabledImageList屬性定義工具條按鈕無效時(shí)顯示的圖像。 創(chuàng)建工具條包括ImageList和Toolbar控

23、件 ImageList用于為其他控件提供圖像庫，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 3．5幫助 專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的Help Workshop4.0 是一套獨(dú)立于Visual Basic 的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。 3．6關(guān)于系統(tǒng) 為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信

24、息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。Visual Basic允許你使用APP對(duì)象來保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。 第四章 使用 Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫 4．1數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relatio

25、nal）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 4．2新建一個(gè)數(shù)據(jù)庫 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。 4．3修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方

26、法。 4．4實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 第五章 系統(tǒng)總體規(guī)劃 5．1系統(tǒng)功能 1． 可以進(jìn)行文本操作； 2． 添加一個(gè)數(shù)據(jù)庫項(xiàng)目； 3．

27、刪除一個(gè)數(shù)據(jù)庫項(xiàng)目； 4． 修改一個(gè)數(shù)據(jù)庫項(xiàng)目； 5． 查詢信息； 6． 察看課程表。 5．2系統(tǒng)流程圖 本系統(tǒng)流程圖如下： 學(xué)生管理系統(tǒng) 數(shù)據(jù)修改 數(shù)據(jù)錄入 退出系統(tǒng) 打印報(bào)表 數(shù)據(jù)查詢 數(shù)據(jù)查詢 數(shù)據(jù)錄入 學(xué)生注冊(cè)情況查詢　 學(xué)生基本情況查詢　 班級(jí)課程查詢　 班主任查詢　 學(xué)生成績查詢　 學(xué)生成績錄入　 班級(jí)課程錄入　 班主任錄入　 學(xué)生注冊(cè)錄入　 學(xué)生基本情況錄入　 數(shù)據(jù)修改 班級(jí)課程修改　 學(xué)生成績修改　 班主任修改　 學(xué)生注冊(cè)情況修改　 學(xué)生基本情

28、況修改　 圖 5-2 5．3數(shù)據(jù)字典 數(shù)據(jù)字典是在需求分析階段建立，在數(shù)據(jù)庫設(shè)計(jì)過程中不斷修改、充實(shí)完善的。明確地需求收集和分析作為數(shù)據(jù)庫設(shè)計(jì)的第一階段是十分重要的。 第六章 系統(tǒng)具體實(shí)現(xiàn) 6．1用戶界面的實(shí)現(xiàn) 6．1．1用戶登陸界面 圖6-1 概述：用戶必須輸入正確的用戶名稱（zhanghaiyan）和用戶密碼（888）后按“確認(rèn)”或“Enter”鍵才可進(jìn)入本系統(tǒng)操作。 圖6-2 6．1．2班級(jí)信息管理界面 圖6-3 概述：用戶可以添加、修改、刪除班級(jí)信息 6．1．3學(xué)生信息管理界面 圖6-4

29、 概述：當(dāng)查詢條件輸入完畢后，系統(tǒng)自動(dòng)在數(shù)據(jù)庫中檢索，將滿足條件的記錄顯示在屏幕上。用戶可以添加、修改、刪除學(xué)生信息等。 6．1．4學(xué)生成績管理界面 圖6-5 概述：用戶可以添加、修改、刪除學(xué)生成績信息等。當(dāng)查詢條件輸入完畢后，系統(tǒng)自動(dòng)在數(shù)據(jù)庫中檢索，將滿足條件的記錄顯示在屏幕上。 6．2數(shù)據(jù)庫的實(shí)現(xiàn) 6．2．1學(xué)籍?dāng)?shù)據(jù)庫 學(xué)籍?dāng)?shù)據(jù)庫里存儲(chǔ)了學(xué)生的學(xué)籍包括：學(xué)號(hào)、姓名、性別、出生日期、學(xué)生編號(hào)、聯(lián)系電話、入學(xué)日期、家庭住址、備注等如下表 表6-1 student_NO（學(xué)號(hào)）文本 student_Name（姓名）文本student_Sex（性別）文本stud

30、ent_Bir（出生日期）日期/時(shí)間 student_Cla（學(xué)生編號(hào)）文本student_Tel（聯(lián)系電話）文本student_Esd （入學(xué)日期）日期/時(shí)間student_Add（家庭住址）文本student_Rem（備注）備注 學(xué)籍模塊： 該模塊主要完成學(xué)生基本信息的錄入、刪除 、更新等功能。在此模塊中定義了八個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行學(xué)生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風(fēng)格（典型的錄入界面）。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新學(xué)生紀(jì)錄。 6．2．2成績數(shù)據(jù)庫 成績數(shù)據(jù)庫里存儲(chǔ)了學(xué)生的成績包括：

31、學(xué)號(hào)、學(xué)生編號(hào)、考試課程、成績等如下表 表6-2 score_NO（考試編號(hào)）文本 score_Per（考試期號(hào)）文本 score_Cla （學(xué)生班號(hào)）文本score_Stu（學(xué)生編號(hào)） 文本score_Cou （考試課程）文本score_Sco（考試分?jǐn)?shù)）數(shù)字 成績模塊： 該模塊主要完成學(xué)生成績的基本信息的錄入、刪除 、更新等功能。在此模塊中定義了四個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。 6．2．3課程數(shù)據(jù)庫 課程數(shù)據(jù)庫利存儲(chǔ)了課程的信息：課程名、備注等如下表 表6-3 course_Name（課程名） 文本 course_Rem（備注）備注 課程模塊： 該模塊主要完成存

32、儲(chǔ)課程的所有信息及錄入、刪除 、更新等功能 6．3 與VB的連接 Visual Basic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫的特長。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用，Visual Basic連接數(shù)據(jù)庫的方式有兩種： ?通過使用Visual Basic的 DATA控件。 ?通過使用由Visual Basic提供的專用的直接與數(shù)據(jù)庫相連的接口 第七章 結(jié)束語 經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)，中小學(xué)學(xué)籍管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲(chǔ)和成績的查詢以及各類相關(guān)報(bào)表的打印

33、。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。，對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師 身上學(xué)到了很多東西。胡老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中 師傅也給于我很大的幫助，幫助解決了不

34、少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 參考文獻(xiàn) [1] Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley 出版社：電子工業(yè)出版社 [2] 中文版Microsoft Office 97 自學(xué)通 作者：Ned Snell 出版社：機(jī)械工業(yè)出版社 [3] Visual Basic 6.0 中文版控件大全 作者：Microsoft 出版社：電子工業(yè)出版社 [4] 中文Access 2000 24學(xué)時(shí)教程 作者：Craig Eddy ，Timothy Buchanan

35、出版社：機(jī)械工業(yè)出版社 [5] Visual Basic6.0程序設(shè)計(jì)教程 作者：李淑華 出版社：高等教育出版社出版 [6] Visual Basic程序設(shè)計(jì) 作者：王利 出版社：高等教育出版社出版 程序清單及注釋 用戶登陸代碼： Private Sub cmdOK_Click() txtSQL = "select * from user_Form where user_ID = " & txtUserName.Text & "" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = Tru

36、e Then MsgBox "沒有這個(gè)用戶，請(qǐng)重新輸入用戶名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) E

37、lse MsgBox "輸入密碼不正確，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit Sub End Sub 班級(jí)信息管理代碼： Private S

38、ub Label2_Click(Index As Integer) Me.Caption = "班級(jí)信息" Me.Caption = Me.Caption & "->" & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible

39、 = True For i = 0 To 11 Text1(i) = "" Next Command3.Enabled = False Command5.Enabled = False End Sub Private Sub ShowData() Dim txSQL As String Dim mrcc As ADODB.Recordset txSQL = "select * from class_Form" Set mrcc = ExecuteSQL(txSQL, MsgText)

40、 With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = "班級(jí)編號(hào)" .TextMatrix(0, 1) = "班級(jí)名稱" .TextMatrix(0, 2) = "導(dǎo)員姓名" .TextMatrix(0, 3) = "備注信息" .Rows = 1

41、 Do While Not mrcc.EOF .Rows = .Rows + 1 For i = 0 To mrcc.Fields.Count - 1 .TextMatrix(.Rows - 1, i) = mrcc.Fields(i) & "" Next i mrcc.MoveNext Loop End With mrcc.Close End Sub Private Sub MSFlexGri

42、d1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) Text1(5) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)) Text1(6) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)) Text1(7) = Trim(MSFlexGrid1.TextM

43、atrix(MSFlexGrid1.Row, 3)) Command3.Enabled = True End If If Picture1(2).Visible = True Then Text1(8) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) Text1(9) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)) Text1(10) = Trim(MSFlexGrid1.TextMatrix(M

44、SFlexGrid1.Row, 2)) Text1(11) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3)) Command5.Enabled = True End If End Sub Private Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = "select * from class_Form where class_NO=" & Trim(Text1(Index)) & ""

45、 Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(5) = mrc.Fields(1) Text1(6) = mrc.Fields(2) Text1(7) = mrc.Fields(3) Command3.Enabled = True Exit Sub Else Text1(5) = ""

46、 Text1(6) = "" Text1(7) = "" Command3.Enabled = False End If mrc.Close End If If Index = 8 Then tSQL = "select * from class_Form where class_NO=" & Trim(Text1(Index)) & "" Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EO

47、F = False Then Text1(9) = mrc.Fields(1) Text1(10) = mrc.Fields(2) Text1(11) = mrc.Fields(3) Command5.Enabled = True Exit Sub Else Text1(9) = "" Text1(10) = "" Text1(11) = ""

48、Command5.Enabled = False End If mrc.Close End If End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)) End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer

49、) EnterToTab KeyCode End Sub 學(xué)生信息管理代碼： Private Sub Label1_Click(Index As Integer) Me.Caption = "學(xué)籍信息->" Me.Caption = Me.Caption & Trim(Label1(Index).Caption) Label1(0).BackColor = &HE0E0E0 Label1(1).BackColor = &HE0E0E0 Label1(2).BackColor = &HE0E0E0 Label1(3

50、).BackColor = &HE0E0E0 Label1(Index).BackColor = &HFFFFFF Label2(4).Caption = "在此選擇學(xué)號(hào)" Label2(5).Caption = "在此輸入聯(lián)系電話" Label2(6).Caption = "在此輸入入學(xué)日期" Command5.SetFocus If Index = 0 Then TextDcolor Command1.Visible = True Command2.Visible = Fals

51、e Command3.Visible = False Command4.Visible = False End If If Index = 1 Then Label2(4).Caption = "在此輸入學(xué)生學(xué)號(hào)" Label2(5).Caption = "查詢?nèi)雽W(xué)日期起始" Label2(6).Caption = "查詢?nèi)雽W(xué)日期截止" TextDcolor Text1(4).Visible = True Combo1.Visibl

52、e = False Command1.Visible = False Command2.Visible = True Command3.Visible = False Command4.Visible = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End If If

53、 Index = 2 Then TextDcolor Text1(0).SetFocus Command1.Visible = False Command2.Visible = False Command3.Visible = True Command4.Visible = False End If If Index = 3 Then TextDcolor Text1(0).SetFocus Command1.Vi

54、sible = False Command2.Visible = False Command3.Visible = False Command4.Visible = True Text1(1).Enabled = False Text1(2).Enabled = False Text1(3).Enabled = False Combo1.Enabled = False Text1(4).Enabled = False Text1(5).Enabled = False Text1(6).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End If End Sub 23