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

1、畢業(yè)論文一一學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計用紙 題 目學(xué)生信息管理系統(tǒng) 計算機應(yīng)用 指導(dǎo)教師 學(xué) 校 大學(xué) 2005年2月 (MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立 學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng) 和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、 數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點。 經(jīng)過分析，我們使用 MICROSOFT公司的VISUAL BASIC開發(fā)工具，利用其提供的 各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象， 首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改

2、進，直到形成用戶滿意的可行系統(tǒng)。 關(guān)鍵字：控件、窗體、域、數(shù)據(jù)庫。 隨著學(xué)校的規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。 面對龐大的信息量需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以 做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢、修改、增加、刪除等，從而減少管理方面的 工作量。 本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自 動化，其主要任務(wù)是用計算機對學(xué)生各種信息進行日常管理，如查詢、修改、增加、刪除, 另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)本系統(tǒng)主要用于學(xué)校學(xué)生 信息管理，總體任務(wù)是實現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化

3、、規(guī)范化和自動化，其主要任務(wù)是用計 算機對學(xué)生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學(xué)生選課， 針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)。 本系統(tǒng)主要包括學(xué)生信息查詢、教務(wù)信息維護和學(xué)生選課三部分。其功能主要有: 1有關(guān)學(xué)籍等信息的輸入，包括輸入學(xué)生基本信息、所在班級、所學(xué)課程和成績等。 2學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級、已學(xué)課程和成績等。 3學(xué)生信息的修改。 4班級管理信息的輸入，包括輸入班級設(shè)置、年級信息等。 5班級管理信息的查詢。 6班級管理信息的修改。 7學(xué)生課程的設(shè)置和修改。 、八 前言 第一章 第二章 第三章 Visual Basic 概述 1.1

4、Visual Basic語言的特點 1.2 Visual Basic系統(tǒng)幾個程序應(yīng)用中的常用名詞 Windows下的Visual Basic編程環(huán)境簡介 2.1面對對象的編程 2.2實現(xiàn)菜單選項 2.3實現(xiàn)工具欄 怎樣開發(fā)一個學(xué)生信息管理系統(tǒng)的查詢模塊 3.1 3.2 學(xué)生信息系統(tǒng)的設(shè)計分析 編程環(huán)境的選擇 關(guān)系型數(shù)據(jù)庫的實現(xiàn) 二者的結(jié)合(DBA) 第四章 第五章 第六章 第七章 3.3 3.4 使用Access2000創(chuàng)建數(shù)據(jù)庫 4.1數(shù)據(jù)庫的概念 4.2新建一個數(shù)據(jù)庫 4.3修改已建的數(shù)據(jù)庫 可行性分析 系統(tǒng)總體規(guī)劃 6.1系統(tǒng)功能 6.2系統(tǒng)流程圖 系統(tǒng)具體實現(xiàn) 7.1各功能的實現(xiàn) 7.

5、1.1課程管理 7.1.2打印統(tǒng)計 結(jié)束語 后記 主要參考文獻 第一章Visual Basic概述 1.1 Visual Basic語言的特點 可視化設(shè)計：表現(xiàn)在VB在設(shè)計應(yīng)用于程序界面時有“所見即所得”的處理功能。 事件驅(qū)動編程：在設(shè)計應(yīng)用程序時，把對象添加到窗體中， 在用戶與程序進行交 互時，用戶基本上是通過鼠標(biāo)、 鍵盤與應(yīng)用程序進行交互的， 那些對象就必須對 鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng)，來執(zhí)行一段應(yīng)用程序。 Visual Basic語言用其設(shè)計應(yīng)用程序時具有兩個基本特點：可視化設(shè)計和事件驅(qū)動編 程。 (1) (2) 1.2 Visual Basic系統(tǒng)幾個在程序應(yīng)用中的常用名詞

6、Visual Basic系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的 名詞。其基本含義如下： (1) 視窗(Form) 視窗是進行人機交互的界面或接口，也叫窗體。VB系統(tǒng)的人機交互界面或接口， 無論是在設(shè)計時或是在運行時，都是Windows系統(tǒng)的標(biāo)準(zhǔn)視窗。 (2) 對象(Object) 對象是VB系統(tǒng)內(nèi)部提供給設(shè)計者可以直接使用的處理輸出的控制工具。本程序所 應(yīng)用到的對象類型有標(biāo)簽框(Label Box)，文本框 (Text Box)，命令按扭(Command Button)，網(wǎng)格(Data Grid)，ADO控件(Adodc1)等。當(dāng)把這些工具放置到用戶界面對應(yīng)的 窗體上時

7、，被稱為對象或控件。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適 應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用 對象可以減少程序和開發(fā)時間，提高程序設(shè)計者的工作效率。 (3) 屬性(Properties) 屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變對 象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的 名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。 (4) 事件(Events) 事件是指用戶或操作者對計算機進行的某一操作(如擊鍵、單擊或移動鼠標(biāo)等)的 行為或系統(tǒng)狀態(tài)

8、發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計算機執(zhí)行一段程序。程序所用的 鍵盤事件有 Keypress (按鍵)事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有 Click (單 擊鼠標(biāo))事件，DbDlicd (雙擊鼠標(biāo))。 (5) 方法(Method) 方法主要是指對一個對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計算機 執(zhí)行的某種操作。其程序的方法有Show (顯示)方法，Hide (隱藏)方法，Refresh (刷 新)方法。 (6) 過程(Procedure) 過程是指經(jīng)過定義或說明的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。 (7) 模塊(Module) 模塊是指一些運算量或過程進行

9、聲明或定義的一個集合。系統(tǒng)程序大體可分成四個 模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 第二章 Windows下的Visual Basic編程環(huán)境簡介 2.1面對對象的編程 面向?qū)ο蟮脑O(shè)計方法(00P, Objected Programming)從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀 自然的方式描述客觀世界的實體。Visual Basic作為一種面向?qū)ο蟮木幊谭椒?，把程序?數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予相應(yīng)的屬性。在設(shè)計對象時，不必編寫建 立和描述每個對象的程序代碼，而是用工具畫在界面上，由Visual Basic自動生成對象的 程序代碼并封裝起來。Visual Basic應(yīng)用程序基本

10、的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個 對象都具有一些特性和行為(屬性、事件和方法)。開發(fā)人員可以最有效利用所創(chuàng)建的每一 個對象。使用應(yīng)用程序具有可通用性可說擴展性和強有力的功能。 Visual Basic應(yīng)用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、 用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和 控件都可在許多應(yīng)用中重復(fù)使用。 2.2實現(xiàn)菜單選項 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使 用和維護，Visual Basic也提供了強大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 本系統(tǒng)使用 Visual Basic的菜單編輯器

11、建立菜單或者修改已經(jīng)存在的菜單，您也可以 使用 Visual Basic 的 Application Wizard 來操作。 2.3實現(xiàn)工具欄 CoolBar控件與0ffice2000中看到的 CoolBar是類似的。CoolBar就是一個可以在窗體 上浮動的工具，同時也是其他 ActiveX的容器。通過在 CoolBar中遷入其他空間你也可以 向用戶提供更好的靈活性和義用性。 選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡 列表中選擇Microsoft Win dows Com mon Co ntrols 6.0 ”后工具相中增加改控件。 本系統(tǒng)就用了 Cool工

12、具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第 一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統(tǒng)日期，第三個欄中選 擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當(dāng)前的時間和日期。 第三章怎樣開發(fā)一個學(xué)生信息管理系統(tǒng)的查詢模塊? 3.1查詢模塊的設(shè)計分析 根據(jù)實際情況，我們使用原型法(Rapid Prototyping)即以少量代價快速地構(gòu)造一個可 執(zhí)行的軟件模型。使用戶可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模 型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時模 塊也發(fā)展成為最終產(chǎn)品了。 3.2編程環(huán)境的選擇 微軟公

13、司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、 易學(xué) 易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和 實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng) 用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。 3.3關(guān)系型數(shù)據(jù)庫的實現(xiàn) Access2000就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類 似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Acc

14、ess允許創(chuàng)建自定義報表用于 打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù) 據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具， 關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫開發(fā)具備 了許多優(yōu)點，可以在一個數(shù)據(jù)包同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。 3.4二者的結(jié)合(DBA) 微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通 過共用JET

15、數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。 ADODC控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的Visual Basic程序之間架起 了一座橋梁。我們可以設(shè)置ADODC控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部 分。缺省情況下，ADODC控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)庫表建立一個dynaset-type (動態(tài)集合)類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的 容改變了以后，該記錄集合中的記錄也會隨之改變。將ADODC控件放置在窗體中之后， 我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 第四章使用Access2000創(chuàng)建數(shù)據(jù)庫 4.1數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種

16、存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息， 簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫(flat-file) 和關(guān)系數(shù)據(jù)庫(relational )。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同 部分的術(shù)語，象記錄、域等。 4.2新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。 創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。 標(biāo)識需要的數(shù)據(jù)； 收集被子標(biāo)識的字段到表中; 標(biāo)識主關(guān)鍵字字段； 規(guī)范數(shù)據(jù)； 標(biāo)識指定字段的信息； 1. 2. 3. 4. 5. 4.3修改已建的數(shù)據(jù)庫 Visual

17、Basic 創(chuàng)建的 數(shù)據(jù)庫的修改分為；添加、編輯和刪除記錄。這三種操作均可由 程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。 第五章可行性分析 學(xué)生信息，作為一個學(xué)校，就有一定的工作量存在，而學(xué)生信息，它的工作量可能是 其它信息工作量的幾倍，班級的增加、班級的查找、班級的修改；學(xué)生檔案；課程管理； 成績管理；繳費管理；統(tǒng)計等等，每個信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方 式進行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對這樣的情況， 采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個人都在任何時刻都可以了解到。 學(xué)生信息管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是 Visua

18、l Basic，用Microsoft Access 2000數(shù)據(jù)庫完成。該系統(tǒng)總體有四部分組成，包括學(xué)生信息查詢、教務(wù)信息維護、 學(xué)生選課及用戶管理。通過本系統(tǒng)，把本校內(nèi)部查詢學(xué)生信息、教務(wù)信息、學(xué)生選課各個 環(huán)節(jié)進行有效地計劃、組織和控制。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進行管理， 把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動及時地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。 本系統(tǒng)主要信息流程為：教務(wù)信息維護接受學(xué)生的信息，學(xué)生信息查詢根據(jù)教務(wù)信息 維護的學(xué)生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應(yīng)的修改， 再把信息存入數(shù)據(jù)庫中。 學(xué)生選課是對學(xué)生進行相應(yīng)選擇自己相關(guān)的課程。最后進行打印。

19、 采用本系統(tǒng)，能夠使整個系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。由于采用統(tǒng) 一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速 高效運行。 本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級表、成績表、繳費表、課程表、學(xué)生檔案、用戶 資料，由這六個表，組成了名為信息的數(shù)據(jù)庫（如圖一）。其中學(xué)生檔案是本系統(tǒng)主要的 SSiTaSi 打玳M設(shè)計圍新逹 X 譽詢 （圖一） 一張表，所有信息都是根據(jù)這張學(xué)生檔案進行有關(guān)的操作，主要的字段有：學(xué)號、姓名、 年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、 入學(xué)時間、備注。其中日期的數(shù)據(jù)類型為日期/時間天型，其它的

20、數(shù)據(jù)類型為文本型；成績 表中字段為：學(xué)號、姓名、年級、專業(yè)、學(xué)期、考試時間、考試科目、考試地點、課程性 質(zhì)、科目分數(shù)、違紀(jì)類型、備注；課程表中字段為：專業(yè)、年級、學(xué)期、課程名稱、教材、 任課老師、課時、上課地點、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密 碼、身份。 數(shù)據(jù)庫與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開控制面板，打開ODBC 數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng)DSN ”標(biāo)簽，點擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對 話框中選擇名稱為 “Microsoft Access Drive （ *.mdb ）”，點擊“完成”按鈕，在 ODBC Microsoft Access安

21、裝對話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫這個框中，單擊“選擇”按鈕， 在彈出的選擇數(shù)據(jù)庫這一對話框架中，在驅(qū)動器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動 器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數(shù)據(jù)庫（*.mdb）”，在 數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點擊“確定”按鈕即完成數(shù)據(jù)鏈接。 在VB中，用ADODC鏈接數(shù)據(jù)庫，用 DataGrid或DATA將庫中的數(shù)據(jù)在界面中顯 示出來，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性， 在屬性對話框中，在“屬性”這一標(biāo)簽中，選中單選框“ Use ODBC Data Source Name ”， 并

22、在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure ”標(biāo)簽中，在 Commard Text （SQL ）文本框中輸入查詢語句，如：select * from學(xué)生檔案。同時，將桌 面的DataGrid控件選中，在屬性框中，將它的Datasoure設(shè)為Adodc。 我們可以設(shè)置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢 索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現(xiàn)了表的字段。然后再右擊， 同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調(diào)整。 第六章系統(tǒng)（查詢模塊）總體規(guī)劃 6.1系統(tǒng)功能（查詢模塊） 1. 查詢信

23、息的情況； 2. 判斷信息是否符合要求； 3. 將符合條件的信息進行打印; 6.2流程圖 第七章系統(tǒng)具體實現(xiàn) 7.1各功能的實現(xiàn) 7.1.1課程管理：課程設(shè)置（如：界面如圖二） *：aTaiiss 麺 r pOJ 5 -11 nia= 泱時： 誡稈件艄； IMHEira aaoluj aooRL aQj 200303 lUDlOL 300102 g 葉 b-H ajoa-is ffiffl-E-Z iOM-B-lJ 曲i-A色 檸： rti+ 曲 廿 W 看試 W13 HflFi fflomeP：(iq-5-M H0 TOlffldfl c-nFW 計 肄護 aonifuacfli-i-e 丁

24、 F 3F 殲 計s別信星aoat l+S用應(yīng)用310102 40!5UUJUZ E 于fflOMl 圧-帆 actE-s-E zijyq-2-iJ |ffiO3-2-5 flsdp 小昌 廠 tgtB （圖二） 運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把 專業(yè)、年級、學(xué)期、課程名稱、教材、任課老師、課時、上課地點、課程性質(zhì)和考試性質(zhì) 等信息輸入，以便使用。 下面為其代碼： Private Sub Comma nd1_Click() Dim myCon As New ADODB.Co nn ectio n Dim myRs As New ADODB.Reco

25、rdset Dim Zhua nYe, Nia nJi, XueQi, KeChe ng, JiaoCai, Ren KLS, KeShi, Sha ngKeDD, KeChe ngXZ, KaoShiXZ As Stri ng Zhua nYe = Text1.Text Nia nJi = Text2.Text XueQi = DTP icker1.Value KeChe ng = Text4.Text JiaoCai = Text5.Text Ren KLS = Text6.Text KeShi = Text7.Text Sha ngKeDD = Text8.Text KeChe ngXZ

26、 = Combo1.Text KaoShiXZ = Combo2.Text If Trim(Zhua nYe) = Or Trim(Nia nJi) = Or Trim(XueQi) = Or Trim(KeChe ng) = Or Trim(JiaoCai) = Or Trim(Re nKLS) = Or Trim(KeShi) = Or Trim(Sha ngKeDD) = Or Trim(KeChe ngXZ) = Or Trim(KaoShiXZ) = The n MsgBox 請?zhí)顚懸薷恼n程資料的內(nèi)容！ ” Combo1.Text = Combo2.Text = Exit Sub

27、End If myC on .0 pen dsn=信息 myRs.Open select * from 課程表 where 專業(yè)= 統(tǒng)計打印 廠課程性質(zhì)= 退出 （圖六） 代碼如下: Private Sub Comma nd1_Click() Dim SQLorigi nal As Stri ng Dim SQLadd As Stri ng Dim SQLorder As Stri ng Dim strSql As Stri ng SQLoriginal = SELECT * FROM 課程表 ” SQLadd = WHERE 專業(yè)=專業(yè) AND 課程名稱=課程名稱 ” SQLorder =

28、If CheckI.Value = 1 And Not IsNull(Textl) The n SQLadd = SQLadd + and 專業(yè)=+ Textl + ” End If If Check2.Value = 1 And Not lsNull(Combo1) The n SQLadd = SQLadd + and 課程性質(zhì)=+ Combo1 + ” End If If Check3.V alue = 1 And Not lsNumeric(Text2) The n SQLadd = SQLadd + and 課時=+ Text2 + ” End If If Check4.Value

29、= 1 And Not IsNull(Text3) The n SQLadd = SQLadd + and 課程名稱=+ Text3 + ” End If strSql = SQLorigi nal + SQLadd + SQLorde If Dat_Mai n.rsDat_Grea n.State = 1 Then Dat_Mai n. rsDat_Grea n.Close End If Dat_Mai n.rsDat_Grea n.Open strSql Dat Grean.Show vbModal Text1.Text = Combol.Text = Text2.Text = Text3

30、.Text = End Sub Private Sub Comma nd2_Click() Un load Me End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Combo1.Addltem (必修) Combo1.Addltem (選修) Combo1.AddItem (自開) End Sub Private Sub Text3_Cha nge() End Sub 成績統(tǒng)計分析（如：界面如圖七） 廠學(xué)號I 廠姓魚 廠肴試科目；I 廠不及格 . I I 統(tǒng)計打印 “I 退出

31、 （圖七） 代碼如下: Private Sub Comma nd1_Click() Dim SQLorigi nal As Stri ng Dim SQLadd As Stri ng Dim SQLorder As Stri ng Dim strSql As Stri ng On Error Resume Next SQLoriginal = SELECT * FROM 成績表” SQLadd = WHERE 學(xué)號=學(xué)號 AND 姓名=姓名” SQLorder = If CheckI.Value = 1 And IsNumeric(Textl) The n SQLadd = SQLadd +

32、and 學(xué)號=+ Textl + ” End If If Check2.Value = 1 And Not IsNull(Text2) The n SQLadd = SQLadd + and 姓名=+ Text2 + ” End If If Check3.Value = 1 And Not IsNull(Text3) The n SQLadd = SQLadd + and 考試科目=+ Text3 + ” End If If Check4.Value = 1 The n SQLadd = SQLadd + and 科目分數(shù) 60 End If strSql = SQLorigi nal + S

33、QLadd + SQLorde If Dat_Mai n.rsDat_Che ngJ.State = 1 The n Dat_Mai n.rsDat_Che ngJ.CIose End If Dat_Mai n.rsDat_Che ngJ. Open strSql Dat_Che ngJ.Show vbModal Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Comma nd2_Click() Un load Me End Sub Private Sub Form_Load() Text1.Text = Text2.Tex

34、t = Text3.Text = Text4.Text = End Sub Private Sub Text1_Cha nge() End Sub 交費統(tǒng)計分析（如：界面如圖八） 廠學(xué)臥可 I 廠姓各1 廠實際窓費; 統(tǒng)計打印 退出 （圖八） 代碼如下: Private Sub Comma nd1_Click() Dim SQLorigi nal As Stri ng Dim SQLadd As Stri ng Dim SQLorder As Stri ng Dim strSql As Stri ng SQLoriginal = SELECT學(xué)號，姓名,學(xué)期，本學(xué)期應(yīng)交費用，實際交費，本次欠費FROM 交費表” SQLadd = WHERE 學(xué)號=學(xué)號 AND 姓名=姓名 SQLorder = If Check1.Value = 1 And lsNumeric(Text1) The n SQLadd =