學(xué)生成績管理系統(tǒng)論文修訂

1、一、 開發(fā)背景現(xiàn)在我國的大多數(shù)學(xué)校中成績的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我作為一個計(jì)算機(jī)應(yīng)用的?？粕Ｍ梢栽谶@方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我兩年的所學(xué)編制出一個實(shí)用的程序來幫助學(xué)校進(jìn)行更有效的信息管理。 歸納起來，好處大約有以下幾點(diǎn)：1. 歷屆的學(xué)生成績，安全、高效；2 只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對學(xué)生成績進(jìn)行管理,具有手工管理所無

2、法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高的效率,也是學(xué)?？茖W(xué)化、正規(guī)化管理的重要條件學(xué)生成績管理管理工作主要是學(xué)生成績管理情況的管理，主要包括數(shù)據(jù)輸入、修改、刪除、查詢、打印等功能，學(xué)生成績管理管理系統(tǒng)要能高效、準(zhǔn)確地完成這些功能，并要達(dá)到界面友好、使用方便。二、 實(shí)現(xiàn)的環(huán)境今天，計(jì)算機(jī)的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四，計(jì)算機(jī)可

3、以使敏感文檔更加安全，等等。2.1用計(jì)算機(jī)管理學(xué)生成績的意義現(xiàn)在我國的大中專校中學(xué)生成績的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我作為一個計(jì)算機(jī)應(yīng)用的專科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我兩年的所學(xué)編制出一個實(shí)用的程序來幫助大中專進(jìn)行更有效的學(xué)生成績管理。 歸納起來，好處大約有以下幾點(diǎn)：1. 歷屆的學(xué)生成績，安全、高效；2 只需一到二名學(xué)生成績錄入員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。2.2學(xué)生成

4、績的設(shè)計(jì)分析根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時模塊也發(fā)展成為最終產(chǎn)品了。第三章前臺語言工具的選擇31開發(fā)工具的選擇現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft公司的Visual BasicMicrosoft公司的Visual C在目前市場上這些眾多的程序開發(fā)工具中

5、，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)

6、庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長處：Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動

7、態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，Visual Basic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程

8、序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實(shí)在的東西

9、。在設(shè)計(jì)對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計(jì)算機(jī)可以識別的機(jī)器指令，并判斷每個語句的語法錯誤。在設(shè)計(jì)Vi

10、sual Basic程序的過程中，隨時可以運(yùn)行程序，而在整個程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動編程機(jī)制Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引

11、發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL

12、 Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。Visual Basic提供了動態(tài)數(shù)

13、據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看做是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看做是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個不同

14、應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動態(tài)鏈接庫(DLL)Visual Basic是一種高級程序設(shè)計(jì)語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。32 編程環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮?/p>

15、開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。總體結(jié)構(gòu)設(shè)計(jì)主要包括運(yùn)行模式選擇、操作系統(tǒng)選擇、數(shù)據(jù)庫管理系統(tǒng)選擇、系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)等。第四章后臺數(shù)據(jù)庫的物理實(shí)現(xiàn)數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含

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

17、相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(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、用戶管理功能用戶分為管理員、教師用戶、學(xué)生用戶三類。不論是管理員或教師用戶，還是學(xué)生用戶都需要通過用戶名和口令進(jìn)行登錄按學(xué)生角度管理教師可以看到學(xué)生信息和成績信息。學(xué)生信息包括學(xué)號、姓名、班級、生日、性別、地址、電話

18、和簡歷。當(dāng)教師用鼠標(biāo)雙擊某一學(xué)生信息時，可以自動顯示出該課程的這個學(xué)生所有課程的學(xué)習(xí)成績，并同時自動計(jì)算出這個學(xué)生的總分和平均分。在成績信息中，教師可以對學(xué)習(xí)成績進(jìn)行增加、修改和刪除。并能夠打印報表。2、學(xué)生對成績的查看功能學(xué)生用戶登錄后，學(xué)生可以看到自己的學(xué)生信息和成績信息。學(xué)生信息包括學(xué)號、姓名、班級、生日、性別、地址、電話和簡歷。成績信息包括這個學(xué)生的所有課程的成績信息52流程圖學(xué)生成績管理主界面系統(tǒng)關(guān)于系統(tǒng)幫助數(shù)據(jù)查詢數(shù)據(jù)錄入系統(tǒng)退出記錄查詢系統(tǒng)的信息系統(tǒng)幫助信息修改記錄刪除記錄添加記錄信息打印53具體操作步驟一覽表：模塊名稱功能說明1成績錄入對學(xué)生成績管理的錄入2成績查詢對學(xué)生成績管

19、理的查詢。3數(shù)據(jù)游覽簡單的信息游覽。4系統(tǒng)幫助系統(tǒng)制作人。5系統(tǒng)退出退出系統(tǒng)。第六章、系統(tǒng)具體實(shí)現(xiàn)及源代碼6.1 系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)學(xué)生成績管理工作主要是學(xué)生成績的管理，具體功能主要包括數(shù)據(jù)輸入、修改、刪除、查詢、統(tǒng)計(jì)等功能。62數(shù)據(jù)庫設(shè)計(jì)在系統(tǒng)分析中把學(xué)生成績管理分為學(xué)生基本情況管理、學(xué)生成績管理。學(xué)生成績信息，和用戶管理信息。學(xué)生基本信息表標(biāo)題列名數(shù)據(jù)類型寬度院系序號院系序號文 本6姓名姓名文 本10性別性別文 本2出生年月出生年月日期8簡歷簡歷Memo 電話電話文 本12住址住址文 本12所在院系所在院系文 本16成績表標(biāo)題列名數(shù)據(jù)類型寬度姓名學(xué)號數(shù)值型4性別性別字符型2學(xué)號學(xué)號數(shù)值型8班

20、級班級字符型8各門課程各門課程數(shù)值型2 用戶管理表標(biāo)題列名數(shù)據(jù)類型寬度用戶名用戶名字符型256密碼密碼字符型2566.3 歡迎界面當(dāng)運(yùn)行成績管理系統(tǒng)，會彈出歡迎介面！屬性設(shè)置控件名Timer1Label1Picture1Form1屬性Intervalcaptionpicturepictireborderstyle值2000Copyright sln 2012 應(yīng)天學(xué)院網(wǎng)技092班靳杰Pictrue2學(xué)校圖片0-none64登錄窗口進(jìn)入系統(tǒng)需要正確輸入用戶名和密碼屬性設(shè)置控件名Label1Label2Text1Text2Command1Command2屬性LabelLabelTextTextCa

21、ptioncaption值用戶名：密碼：確定取消源代碼Private Sub Command1_Click()If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) ThenMDIForm1.ShowUnload MeElseFor x = 1 To 1If Adodc1.Recordset.EOF = True ThenMsgBox 您輸入的用戶名和密碼有誤請重新輸入！,16, 出錯：Text1.Text = Text2.Text = Adodc1.Recordset.AbsolutePos

22、ition = 1Else If Trim(Text1.Text)= Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then MDIForm1.Show MDIForm1.Print Command1.Tag MDIForm1.Tag = Text1.Text Unload Me Else x = x - 1 Adodc1.Recordset.MoveNext End IfEnd IfNext xEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub65主窗口設(shè)計(jì)主窗

23、口實(shí)現(xiàn)數(shù)據(jù)的錄入，查詢，和系統(tǒng)有關(guān)信息。菜單 程序代碼Private Sub a1_Click()CommonDialog1.ShowOpenpathname=C:windowspbrush.exe+commondialog1.(pathname,1)End SubPrivate Sub a3_Click()End SubPrivate Sub a5_Click()frmMain.CMDialog1.Flags = cdlPDPrintSetup frmMain.CMDialog1.ShowPrinterEnd SubPrivate Sub a7_Click()Unload MeEnd Sub

24、Private Sub b1_Click()Form4.ShowEnd SubPrivate Sub b_Click()Form4.ShowEnd SubPrivate Sub c1_Click()Form3.ShowEnd SubPrivate Sub d1_Click()ChengJB.Sort = 1End SubPrivate Sub d3_Click() Dim i As Integer With ChengJB .Sort = 2 .TextArray(Fgi(0, 18) = 名次 For i = 1 To .Rows - 1 .TextArray(Fgi(i), 18) = i

25、 If Val(.TextArray(Fgi(i), 17) = 0 Then .TextArray(Fgi(i), 18) = Next End WithEnd SubPrivate Sub d5_Click() Dim LsShuju As String LsShuju = ChengJB.Col ChengJB.Col = 17 mnuToolJiang_Click ChengJB.Col = LsShujuEnd SubPrivate Sub Command1_Click()End SubPrivate Sub d7_Click()a = MsgBox(此版本暫時還沒有此功能，請關(guān)注升

26、級版本，謝謝！, vbOKOnly + 16, 成績管理)End SubPrivate Sub dybb_Click()DataReport1.ShowEnd SubPrivate Sub e1_Click()MDIForm1.Arrange 1End SubPrivate Sub e3_Click()MDIForm1.Arrange 2End SubPrivate Sub e5_Click()MDIForm1.Arrange 0End SubPrivate Sub f1_Click()Form6.ShowEnd SubPrivate Sub f3_Click()Form7.ShowEnd S

27、ubPrivate Sub g_Click()a = MsgBox(您真的要退出成績管理系統(tǒng)嗎？, vbYesNo + 32, 退出) If a = 6 Then Unload MDIForm1 Else End If End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error Resume NextSelect Case Button.KeyCase key1CommonDialog1.ShowOpenpathname = C:windowspbrush.exe + commondi

28、alog1.(pathname,1)Case key2Form7.ShowCase key3Form4.ShowCase key4Form3.ShowCase key5MsgBox 此版本暫時還沒有此功能，謝謝！, 16, 排序Case key6Form6.ShowCase key7x = MsgBox(您真的要退出成績管理系統(tǒng)嗎？, vbYesNo + vbQuestion + vbDefaultButton1, 退出)End SelectEnd Sub66學(xué)生成績錄入窗口學(xué)生成績管理窗口中主要完成對學(xué)生數(shù)據(jù)的各種操作。程序代碼Private Sub Command1_Click()Adod

29、c1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.RecordCount = 0 ThenMsgBox 已經(jīng)沒有數(shù)據(jù)可刪除了！, vbOKOnly + vbCritical, 錯誤！ElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.SaveEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()