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

學生信息管理系統(tǒng)摘 要學生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(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)進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵字：控件、窗體、域、數(shù)據(jù)庫。前 言隨著學校的規(guī)模不斷擴大，學生數(shù)量急劇增加，有關(guān)學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統(tǒng)來提高學生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本系統(tǒng)主要用于學校學生信息管理，總體任務(wù)是實現(xiàn)學生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計算機對學生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學生選課，針對這些要求設(shè)計了學生信息管理系統(tǒng)本系統(tǒng)主要用于學校學生信息管理，總體任務(wù)是實現(xiàn)學生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計算機對學生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學生選課，針對這些要求設(shè)計了學生信息管理系統(tǒng)。本系統(tǒng)主要包括學生信息查詢、教務(wù)信息維護和學生選課三部分。其功能主要有：有關(guān)學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。學生信息的修改。班級管理信息的輸入，包括輸入班級設(shè)置、年級信息等。班級管理信息的查詢。班級管理信息的修改。學生課程的設(shè)置和修改。目 錄前言 第一章 Visual Basic 概述 1.1 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ā)一個學生信息管理系統(tǒng)的查詢模塊3.1 學生信息系統(tǒng)的設(shè)計分析3.2 編程環(huán)境的選擇3.3 關(guān)系型數(shù)據(jù)庫的實現(xiàn)3.4 二者的結(jié)合(DBA)第四章 使用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.1.1 課程管理7.1.2 打印統(tǒng)計結(jié)束語后記主要參考文獻第一章 Visual Basic 概述1.1 Visual Basic 語言的特點 Visual Basic 語言用其設(shè)計應(yīng)用程序時具有兩個基本特點：可視化設(shè)計和事件驅(qū)動編程。（1） 可視化設(shè)計：表現(xiàn)在VB在設(shè)計應(yīng)用于程序界面時有“所見即所得”的處理功能。（2） 事件驅(qū)動編程：在設(shè)計應(yīng)用程序時，把對象添加到窗體中，在用戶與程序進行交互時，用戶基本上是通過鼠標、鍵盤與應(yīng)用程序進行交互的，那些對象就必須對鼠標和鍵盤操作所引發(fā)的事件做出響應(yīng)，來執(zhí)行一段應(yīng)用程序。1.2 Visual Basic 系統(tǒng)幾個在程序應(yīng)用中的常用名詞 Visual Basic 系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。其基本含義如下：(1) 視窗（Form）視窗是進行人機交互的界面或接口，也叫窗體。VB系統(tǒng)的人機交互界面或接口，無論是在設(shè)計時或是在運行時，都是Windows 系統(tǒng)的標準視窗。(2) 對象 (Object)對象是VB系統(tǒng)內(nèi)部提供給設(shè)計者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對象類型有標簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)，ADO控件 (Adodc1)等。當把這些工具放置到用戶界面對應(yīng)的窗體上時，被稱為對象或控件。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對象可以減少程序和開發(fā)時間，提高程序設(shè)計者的工作效率。(3) 屬性 (Properties)屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當?shù)卦O(shè)置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。(4) 事件 (Events)事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導計算機執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標事件有Click（單擊鼠標）事件，DbDlicd（雙擊鼠標）。(5) 方法 (Method)方法主要是指對一個對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計算機執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。(6) 過程 (Procedure)過程是指經(jīng)過定義或說明的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。(7) 模塊 (Module)模塊是指一些運算量或過程進行聲明或定義的一個集合。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 第二章 Windows下的Visual Basic 編程環(huán)境簡介2.1 面對對象的編程面向?qū)ο蟮脑O(shè)計方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實體。Visual Basic 作為一種面向?qū)ο蟮木幊谭椒ǎ殉绦蚝蛿?shù)據(jù)封裝起來作為一個對象，并為每個對象賦予相應(yīng)的屬性。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動生成對象的程序代碼并封裝起來。Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。使用應(yīng)用程序具有可通用性可說擴展性和強有力的功能。Visual Basic 應(yīng)用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應(yīng)用中重復使用。2.2 實現(xiàn)菜單選項菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使用和維護，Visual Basic 也提供了強大的創(chuàng)建菜單功能是程序更加標準。本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用Visual Basic 的Application Wizard 來操作。2.3 實現(xiàn)工具欄CoolBar控件與Office2000 中看到的CoolBar是類似的。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統(tǒng)日期，第三個欄中選擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當前的時間和日期。第三章 怎樣開發(fā)一個學生信息管理系統(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)境的選擇微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向?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ù)庫一目了然。另外，Access允許創(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數(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)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。將ADODC控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。第四章 使用Access2000創(chuàng)建數(shù)據(jù)庫4.1數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(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è)計。1 標識需要的數(shù)據(jù)；2 收集被子標識的字段到表中；3 標識主關(guān)鍵字字段；4 規(guī)范數(shù)據(jù)；5 標識指定字段的信息；4.3修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為；添加、編輯和刪除記錄。這三種操作均可由Visual Basic創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。第五章 可行性分析學生信息，作為一個學校，就有一定的工作量存在，而學生信息，它的工作量可能是其它信息工作量的幾倍，班級的增加、班級的查找、班級的修改；學生檔案；課程管理；成績管理；繳費管理；統(tǒng)計等等，每個信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對這樣的情況，采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個人都在任何時刻都可以了解到。學生信息管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是Visual Basic，用Microsoft Access 2000數(shù)據(jù)庫完成。該系統(tǒng)總體有四部分組成，包括學生信息查詢、教務(wù)信息維護、學生選課及用戶管理。通過本系統(tǒng)，把本校內(nèi)部查詢學生信息、教務(wù)信息、學生選課各個環(huán)節(jié)進行有效地計劃、組織和控制。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動及時地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。本系統(tǒng)主要信息流程為：教務(wù)信息維護接受學生的信息，學生信息查詢根據(jù)教務(wù)信息維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫中。學生選課是對學生進行相應(yīng)選擇自己相關(guān)的課程。最后進行打印。采用本系統(tǒng)，能夠使整個系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運行。本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級表、成績表、繳費表、課程表、學生檔案、用戶資料，由這六個表，組成了名為信息的數(shù)據(jù)庫（如圖一）。其中學生檔案是本系統(tǒng)主要的（圖一）一張表，所有信息都是根據(jù)這張學生檔案進行有關(guān)的操作，主要的字段有：學號、姓名、年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學時間、備注。其中日期的數(shù)據(jù)類型為日期/時間天型，其它的數(shù)據(jù)類型為文本型；成績表中字段為：學號、姓名、年級、專業(yè)、學期、考試時間、考試科目、考試地點、課程性質(zhì)、科目分數(shù)、違紀類型、備注；課程表中字段為：專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密碼、身份。數(shù)據(jù)庫與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開控制面板，打開ODBC數(shù)據(jù)源圖標，選擇“系統(tǒng)DSN”標簽，點擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對話框中選擇名稱為“Microsoft Access Drive（*.mdb）”，點擊“完成”按鈕，在ODBC Microsoft Access 安裝對話框中在數(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控制，在彈出的快捷菜單中選擇屬性，在屬性對話框中，在“屬性”這一標簽中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標簽中，在Commard Text（SQL）文本框中輸入查詢語句，如：select * from 學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設(shè)為Adodc。我們可以設(shè)置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現(xiàn)了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調(diào)整。第六章 系統(tǒng)（查詢模塊）總體規(guī)劃6.1系統(tǒng)功能（查詢模塊）1 查詢信息的情況；2 判斷信息是否符合要求；3 將符合條件的信息進行打??；6.2流程圖學生注冊基本信息輸入學籍信息管理班級管理班級課程設(shè)置課程基本信息班級課程管理成績信息輸入成績信息管理班級設(shè)置第七章 系統(tǒng)具體實現(xiàn)7.1各功能的實現(xiàn)7.1.1課程管理：課程設(shè)置（如：界面如圖二）（圖二）運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。下面為其代碼：Private Sub Command1_Click()Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeShi = Text7.TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "" Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(ShangKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" Then MsgBox "請?zhí)顚懸薷恼n程資料的內(nèi)容！" Combo1.Text = "" Combo2.Text = "" Exit SubEnd IfmyCon.Open "dsn=信息"myRs.Open "select * from 課程表 where 專業(yè)=" & Text1.Text & "", myCon, 3, 2 myRs!年級 = Text2.Text myRs!學期 = DTPicker1.Value myRs!課程名稱 = Text4.Text myRs!教材 = Text5.Text myRs!任課老師 = Text6.Text myRs!課時 = Text7.Text myRs!上課地點 = Text8.Text myRs!課程性質(zhì) = Combo1.Text myRs!考試性質(zhì) = Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox "您確定要修改嗎？", vbYesNo, "提示"Frm_UpdateGrean.Adodc1.RefreshFrm_UpdateGrean.DataGrid1.RefreshText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = ""End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() Unload Me Frm_FindGrean.Show 1End SubPrivate Sub DataGrid1_Click()Frm_UpdateGrean.Adodc1.RecordSource = "select * from 課程表 where 專業(yè) = " & Trim(DataGrid1.Row) & ""Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("專業(yè)")Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年級")Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("學期")Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程名稱")Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("教材")Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("任課老師")Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課時")Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("上課地點")Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程性質(zhì)")Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考試性質(zhì)")End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate()Frm_FindGrean.Adodc1.RecordSource = strTiaoJianFrm_FindGrean.Adodc1.RefreshSet DataGrid1.DataSource = Frm_FindGrean.Adodc1End SubPrivate Sub Form_Load()Combo1.AddItem ("必修")Combo1.AddItem ("選修")Combo1.AddItem ("自開")Combo2.AddItem ("考試")Combo2.AddItem ("查考")Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = ""End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub課程管理：課程查詢（如：界面如圖三）（圖三）當輸入查詢類別、運算符和條件后可以查找到所需要的課程設(shè)置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設(shè)置。代碼如下：Dim sqlstr As StringPrivate Sub Combo1_Change()End SubPrivate Sub Combo2_Change()End SubPrivate Sub Combo4_Change()End SubPrivate Sub Combo5_Change()End SubPrivate Sub Combo7_Change()End SubPrivate Sub Command1_Click()Dim a As StringDim KCCX1 As StringDim KCCX2 As StringDim str1 As StringDim str2 As StringIf Option3.Value = True Thena = Trim(Combo2)Select Case a Case "=" KCCX1 = "" & Combo1.Text & " " & Combo2.Text & " " & Trim(Text1) & "" Case "like" KCCX1 = "Instr(1," & Combo1.Text & "," & Trim(Text1.Text) & ")<>0 "End Select a = Trim(Combo4)Select Case a Case "=" KCCX2 = "" & Combo3.Text & " " & Combo4.Text & " " & Trim(Text2) & "" Case "like" KCCX2 = "Instr(1," & Combo3.Text & "," & Trim(Text2.Text) & ")<>0 "End Select If Option1.Value = True Then If KCCX1 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX2 ElseIf KCCX2 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX1 Else strTiaoJian = "select * from 課程表 where " & KCCX1 & "and " & KCCX2 End IfElseIf Option2.Value = True Then If KCCX1 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX2 ElseIf KCCX2 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX1 Else strTiaoJian = "select * from 課程表 where " & KCCX1 & "or " & KCCX2 End IfElse If KCCX1 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX2 ElseIf KCCX2 = "" Then strTiaoJian = "select * from 課程表 where " & KCCX1 Else MsgBox "請選擇連接方式！", vbOKOnly, "警告" Exit Sub End IfEnd If If (KCCX1 & KCCX2) = "" Then MsgBox "請輸入查詢類別！", vbOKOnly, "警告"Exit SubElse Unload Me Frm_UpdateGrean.Show 1End IfEnd IfIf Option4.Value = True Then If Val(Combo6) > Val(Combo9) Then MsgBox "請正確選擇年份！", vbOKOnly + vbExclamation, "信息提示" Combo6.SetFocus Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) > Val(Combo10) Then MsgBox "請正確選擇月份！", vbOKOnly + vbExclamation, "信息提示" Combo7.SetFocus Exit Sub Else If Val(Combo7) = Val(Combo10) Then If Val(Combo8) > Val(Combo11) Then MsgBox "請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示" Combo8.SetFocus Exit Sub End If End If End If End If End If If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11.Text = "" Then MsgBox "請輸入完整的日期", vbOKOnly, "警告" Exit Sub End If str1 = Trim(Combo6) & "-" & Trim(Combo7) & "-" & Trim(Combo8) str2 = Trim(Combo9) & "-" & Trim(Combo10) & "-" & Trim(Combo11) str1 = Format(str1, "yyyy-mm-dd") str2 = Format(str2, "yyyy-mm-dd") If sqlstr = "" Then sqlstr = "" & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#" Else sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#" End If If sqlstr = "" Then MsgBox "請先輸入查找時間！" Exit Sub End If strTiaoJian = "select 專業(yè),年級,學期,課程名稱,教材,任課老師,課時,上課地點,課程性質(zhì),考試性質(zhì) from 課程表 where " & sqlstr Unload Me Frm_UpdateGrean.Show 1End IfIf Option3.Value <> True And Option4.Value <> True Then MsgBox "請選擇查詢方式！", vbOKOnly, "警告" Exit SubEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1999 To 2010 Combo6.AddItem i Combo9.AddItem iNext i Combo6.ListIndex = 0 Combo9.ListIndex = 0 For i = 1 To 12 Combo7.AddItem i Combo10.AddItem iNext i Combo7.ListIndex = 0 Combo10.ListIndex = 0For i = 1 To 31 Combo8.AddItem i Combo11.AddItem iNext i Combo8.ListIndex = 0 Combo11.ListIndex = 0Combo1.AddItem ("專業(yè)")Combo1.AddItem ("年級")Combo1.AddItem ("課程名稱")Combo1.AddItem ("教材")Combo1.AddItem ("任課老師")Combo1.AddItem ("課時")Combo1.AddItem ("課程性質(zhì)")Combo1.AddItem ("考試性質(zhì)")Combo2.AddItem ("=")Combo3.AddItem ("專業(yè)")Combo3.AddItem ("年級")Combo3.AddItem ("課程名稱")Combo3.AddItem ("教材")Combo3.AddItem ("任課老師")Combo3.AddItem ("課時")Combo3.AddItem ("課程性質(zhì)")Combo3.AddItem ("考試性質(zhì)")Combo4.AddItem ("=")Combo5.AddItem ("學期")Combo1.Text = ""Combo2.Text = ""Text1.Text = ""Combo3.Text = ""Combo4.Text = ""Text2.Text = ""Combo5.Text = ""Combo6.Text = ""Combo7.Text = ""Combo8.Text = ""Combo9.Text = ""Combo10.Text = ""Combo11.Text = ""End Sub7.1.2 打印統(tǒng)計運行打印統(tǒng)計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保存。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。班級統(tǒng)計分析（如：界面如圖四）（圖四）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = "SELECT 年級,專業(yè),人數(shù),輔導員,備注 FROM 班級表 "SQLadd = "WHERE 年級=年級 AND 專業(yè)=專業(yè) "SQLorder = ""If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + "and 年級=" + Text1 + ""End If If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + "and 專業(yè)=" + Text2 + ""End IfIf Check3.Value = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + "and 人數(shù)=" + Text3 + ""End IfIf Check4.Value = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + "and 輔導員=" + Text4 + ""End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_Class.State = 1 Then Dat_Main.rsDat_Class.CloseEnd If Dat_Main.rsDat_Class.Open strSql Dat_Class.Show vbModalText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub檔案分析統(tǒng)計（如：界面如圖五）（圖五）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = "SELECT * FROM 學生檔案 "SQLadd = "WHERE 學號=學號 AND 姓名=姓名 "SQLorder = ""If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + "and 學號=" + Text1 + ""End If If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + "and 姓名=" + Text2 + ""End IfIf Check3.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + "and 專業(yè)=" + Text3 + ""End IfIf Check4.Value = 1 And IsDate(DTPicker1) Then SQLadd = SQLadd + " and 出生年月= # " & DTPicker1.Value & "#"End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_Strudent.State = 1 Then Dat_Main.rsDat_Strudent.CloseEnd IfDat_Main.rsDat_Strudent.Open strSqlDat_Strudent.Show vbModalText1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem ("男")Combo1.AddItem ("女")Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Text1_Change()End Sub課程統(tǒng)計分析（如：界面如圖六）（圖六）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = "SELECT * FROM 課程表 "SQLadd = "WHERE 專業(yè)=專業(yè) AND 課程名稱=課程名稱 "SQLorder = ""If Check1.Value = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + "and 專業(yè)=" + Text1 + ""End If If Check2.Value = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + "and 課程性質(zhì)=" + Combo1 + ""End IfIf Check3.Value = 1 And Not IsNumeric(Text2) Then SQLadd = SQLadd + "and 課時=" + Text2 + ""End IfIf Check4.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + "and 課程名稱=" + Text3 + ""End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_Grean.State = 1 Then Dat_Main.rsDat_Grean.CloseEnd IfDat_Main.rsDat_Grean.Open strSqlDat_Grean.Show vbModalText1.Text = ""Combo1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Combo1.AddItem ("必修")Combo1.AddItem ("選修")Combo1.AddItem ("自開")End SubPrivate Sub Text3_Change()End Sub成績統(tǒng)計分析（如：界面如圖七）（圖七）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = "SELECT * FROM 成績表 "SQLadd = "WHERE 學號=學號 AND 姓名=姓名 "SQLorder = ""If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + "and 學號=" + Text1 + ""End If If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + "and 姓名=" + Text2 + ""End IfIf Check3.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + "and 考試科目=" + Text3 + ""End IfIf Check4.Value = 1 Then SQLadd = SQLadd + "and 科目分數(shù)<60"End IfstrSql = SQLoriginal + SQLadd + SQLordeIf Dat_Main.rsDat_ChengJ.State = 1 Then Dat_Main.rsDat_ChengJ.CloseEnd If Dat_Main.rsDat_ChengJ.Open strSql