學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)

學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文RevisedonNovember25,2020–––––––––––––––––摘 要–––––––––––––––––學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。經(jīng)過(guò)分析，我們使用MICROSOFT公司的VISUALBASIC開(kāi)發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵字：控件、窗體、域、數(shù)據(jù)庫(kù)。–––––––––––––––––前言–––––––––––––––––隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來(lái)提高學(xué)生管理工作的效增加、刪除等，從而減少管理方面的工作量。本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如查詢、修改、增加、刪除，另外還考慮到學(xué)生選課，針對(duì)這些要求設(shè)計(jì)了學(xué)生信息管理系統(tǒng)本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如查詢、修改、增加、刪除，另外還考慮到學(xué)生選課，針對(duì)這些要求設(shè)計(jì)了學(xué)生信息管理系統(tǒng)。主要有：成績(jī)等。⒉學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績(jī)等。⒊學(xué)生信息的修改。⒋班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。⒌班級(jí)管理信息的查詢。⒍班級(jí)管理信息的修改。⒎學(xué)生課程的設(shè)置和修改。目 錄前言第一章VisualBasic概述VisualBasic語(yǔ)言的特點(diǎn)VisualBasic第二章WindowsVisualBasic編程環(huán)境簡(jiǎn)介面對(duì)對(duì)象的編程實(shí)現(xiàn)菜單選項(xiàng)實(shí)現(xiàn)工具欄第三章怎樣開(kāi)發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊學(xué)生信息系統(tǒng)的設(shè)計(jì)分析編程環(huán)境的選擇關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)二者的結(jié)合(DBA)第四章使用Access2000創(chuàng)建數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的概念新建一個(gè)數(shù)據(jù)庫(kù)第五章可行性分析第六章系統(tǒng)總體規(guī)劃系統(tǒng)功能系統(tǒng)流程圖第七章系統(tǒng)具體實(shí)現(xiàn)課程管理打印統(tǒng)計(jì)結(jié)束語(yǔ)后記主要參考文獻(xiàn)第一章VisualBasic概述VisualBasic語(yǔ)言的特點(diǎn)VisualBasic語(yǔ)言用其設(shè)計(jì)應(yīng)用程序時(shí)具有兩個(gè)基本特點(diǎn)：可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程?？梢暬O(shè)計(jì)：VB處理功能。事件驅(qū)動(dòng)編程：行一段應(yīng)用程序。VisualBasic系統(tǒng)幾個(gè)在程序應(yīng)用中的常用名詞VisualBasic統(tǒng)常用的名詞。其基本含義如下：（Form）視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無(wú)論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是Windows系統(tǒng)的標(biāo)準(zhǔn)視窗。(Object)對(duì)象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對(duì)象類(lèi)型有標(biāo)簽框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，網(wǎng)格(DataGrid)，ADO控件(Adodc1)等。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。用戶可以通過(guò)設(shè)置對(duì)象的“屬性”和“方法”，便于對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)時(shí)間，提高程序設(shè)計(jì)者的工作效率。(Properties)VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過(guò)適當(dāng)?shù)卦O(shè)的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。(Events)事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來(lái)引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤(pán)事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。(Method)方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過(guò)程。它是在程序執(zhí)行的過(guò)程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。(Procedure)過(guò)程是指經(jīng)過(guò)定義或說(shuō)明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。(Module)模塊是指一些運(yùn)算量或過(guò)程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。Windows下的VisualBasic面對(duì)對(duì)象的編程面向?qū)ο蟮脑O(shè)計(jì)方法(OOP,ObjectedProgramming)從應(yīng)用領(lǐng)域內(nèi)的問(wèn)題著手，以直觀自然的方式描述客觀世界的實(shí)體。VisualBasic作為一種面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，由VisualBasic自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。VisualBasic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開(kāi)發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說(shuō)擴(kuò)展性和強(qiáng)有力的功能。VisualBasic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，VisualBasic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。VisualBasicVisualBasicApplicationWizard來(lái)操作。實(shí)現(xiàn)工具欄CoolBarOffice2000CoolBar是類(lèi)似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過(guò)在中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“MicrosoftWindowsCommonControls”后工具相中增加改控件。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè)欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。第三章怎樣開(kāi)發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊查詢模塊的設(shè)計(jì)分析根據(jù)實(shí)際情況，我們使用原型法(RapidPrototyping)即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件模型。使用戶可以較快地確定需求，然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。編程環(huán)境的選擇微軟公司的VisualBasic是Windows應(yīng)用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。VisualBasic提供了大量的控件，這些控用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)Access2000就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。AccessExcel的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫(kù)。Access是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述，Access作為關(guān)系數(shù)據(jù)數(shù)據(jù)庫(kù)的強(qiáng)大功能。(DBA)JET數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過(guò)它以VisualBasic來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。VisualBasic、AccessJET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類(lèi)型。ADODC控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的VisualBasic程ADODC控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。缺省情況下，ADODC控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)庫(kù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類(lèi)型的記錄集合。一個(gè)記錄ADODC控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。第四章使用Access2000創(chuàng)建數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類(lèi)：非關(guān)系數(shù)據(jù)庫(kù)(flat-file)和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。新建一個(gè)數(shù)據(jù)庫(kù)有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1．標(biāo)識(shí)需要的數(shù)據(jù)；收集被子標(biāo)識(shí)的字段到表中；標(biāo)識(shí)主關(guān)鍵字字段；規(guī)范數(shù)據(jù)；標(biāo)識(shí)指定字段的信息；修改已建的數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的修改分為；添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。第五章可行性分析學(xué)生信息，作為一個(gè)學(xué)校，就有一定的工作量存在，而學(xué)生信息，它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、班級(jí)的查找、班級(jí)的修改；學(xué)生檔案；課程管理；成績(jī)管理；繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺(jué)得比較繁瑣，吃不消。針對(duì)這樣的情況，采用讓數(shù)據(jù)的查詢變得簡(jiǎn)單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。學(xué)生信息管理系統(tǒng)是為本校開(kāi)發(fā)的，本系統(tǒng)所采用的語(yǔ)言是 VisualBasic，用MicrosoftAccess2000數(shù)據(jù)庫(kù)完成。該系統(tǒng)總體有四部分組成，包括學(xué)生信息查詢、教信息維護(hù)、學(xué)生選課及用戶管理。通過(guò)本系統(tǒng)，把本校內(nèi)部查詢學(xué)生信息、教務(wù)信息、學(xué)生選課各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過(guò)本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)據(jù)共享。行打印。采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡(jiǎn)化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運(yùn)行。本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級(jí)表、成績(jī)表、繳費(fèi)表、課程表、學(xué)生檔案、用戶資料，由這六個(gè)表，組成了名為信息的數(shù)據(jù)庫(kù)（如圖一）。其中學(xué)生檔案是本系統(tǒng)主要的（圖一）一張表，所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作，主要的字段有：學(xué)號(hào)、姓系電話、入學(xué)時(shí)間、備注。其中日期的數(shù)據(jù)類(lèi)型為日期/時(shí)間天型，其它的數(shù)據(jù)類(lèi)型為文本型；成績(jī)表中字段為：學(xué)號(hào)、姓名、年級(jí)、專(zhuān)業(yè)、學(xué)期、考試時(shí)間、考試科目、考試地點(diǎn)、課程性質(zhì)、科目分?jǐn)?shù)、違紀(jì)類(lèi)型、備注；課程表中字段為：專(zhuān)業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密碼、身份。數(shù)據(jù)庫(kù)與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開(kāi)控制面ODBCDSN”標(biāo)簽，點(diǎn)擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對(duì)話框中選擇名稱為“MicrosoftAccessDrive（*.mdb）”，點(diǎn)ODBCMicrosoftAccess安裝對(duì)話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫(kù)這個(gè)框中，單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫(kù)這一對(duì)話框架中，在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫(kù)所在驅(qū)動(dòng)器，在目錄中選擇庫(kù)所在的文件夾，在文件類(lèi)型中選擇選“Access數(shù)據(jù)庫(kù)（*.mdb）”，在數(shù)據(jù)庫(kù)名中選擇本系統(tǒng)的數(shù)據(jù)庫(kù)，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)鏈接。VBADODCDataGrid示出來(lái)，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬UseODBCDataSourceName”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標(biāo)簽中，在CommardText（SQL）select*from學(xué)生檔案。同時(shí)，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設(shè)為Adodc。我們可以設(shè)置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對(duì)話框中單擊“確定”，這時(shí)，表格中出現(xiàn)了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進(jìn)行調(diào)整。第六章系統(tǒng)（查詢模塊）總體規(guī)劃系統(tǒng)功能（查詢模塊）查詢信息的情況；判斷信息是否符合要求；將符合條件的信息進(jìn)行打印；學(xué)生注第七章系統(tǒng)具體實(shí)現(xiàn)學(xué)生注第七章系統(tǒng)具體實(shí)現(xiàn)各功能的實(shí)現(xiàn)課程基本基本班級(jí)設(shè)班級(jí)管班級(jí)學(xué)籍信課程成績(jī)信班級(jí)課程息輸入成績(jī)信息管（圖二）塊中可以把專(zhuān)業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。下面為其代碼：PrivateSubCommand1_Click()DimmyConAsNewDimmyRsAsNewDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=NianJi=XueQi=KeCheng=JiaoCai=RenKLS=KeShi=ShangKeDD=KeChengXZ=KaoShiXZ=IfTrim(ZhuanYe)=""OrTrim(NianJi)=""OrTrim(XueQi)=""OrTrim(KeCheng)=""OrTrim(JiaoCai)=""OrTrim(RenKLS)=""OrTrim(KeShi)=""OrTrim(ShangKeDD)=""OrTrim(KeChengXZ)=""OrTrim(KaoShiXZ)""ThenMsgBox請(qǐng)"填寫(xiě)要修改課程資料的內(nèi)容！"=""=""ExitSubEndIf"dsn"select*程表專(zhuān)業(yè)='"& &"'",myCon,3,!級(jí)=MsgBox"您確定要修改嗎",vbYesNo,提"示"=""=""'==""=""=""=""=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()UnloadMe1EndSubPrivateSubDataGrid1_Click()EndSubPrivateSubDTPicker1_CallbackKeyDown(ByValKeyCodeAsInteger,ShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate)EndSubPrivateSubForm_Activate()Set=EndSubPrivateSubForm_Load()("必修")選修")自開(kāi)")考試")查考")=""=""'==""=""=""=""=""=""=""EndSubPrivateSubText1_Change()EndSubPrivateSubText2_Change()EndSubPrivateSubText8_Change()EndSub課程管理：課程查詢（如：界面如圖三）（圖三）當(dāng)輸入查詢類(lèi)別、運(yùn)算符和條件后可以查找到所需要的課程設(shè)置，或按查詢時(shí)間來(lái)查詢，輸入所要查找的時(shí)間段，就可查到所要的課程設(shè)置。代碼如下：DimsqlstrAsStringPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIf=TrueThena=SelectCaseaCase"="KCCX1=""&&""&&"'"&Trim(Text1)&Case"like"KCCX1="Instr(1,"&&",'"&Trim&"')<>0"EndSelecta=Trim(Combo4)SelectCaseaCase"="KCCX2=""&&""&&"'"&Trim(Text2)&Case"like"KCCX2="Instr(1,"&&",'"&Trim&"')<>0EndSelectIf=TrueThenIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElsestrTiaoJian"select*fromwhere&KCCX1&"and&KCCX2EndIfElseIf=TrueThenIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElsestrTiaoJian"select*fromwhere&KCCX1&"or&KCCX2EndIfElseIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElseMsgBox"請(qǐng)選擇連接方式！",vbOKOnly,"警告"ExitSubEndIfEndIfIf(KCCX1&KCCX2)=""ThenMsgBox"請(qǐng)輸入查詢類(lèi)別！",vbOKOnly,"警告"ExitElseUnload1EndIfEndIfIf=TrueThenIfVal(Combo6)>Val(Combo9)ThenMsgBox"請(qǐng)正確選擇年份！",vbOKOnly+vbExclamation,"信息提示"ExitSubElseIfVal(Combo6)=Val(Combo9)ThenIfVal(Combo7)>Val(Combo10)ThenMsgBox請(qǐng)正確選擇月份！vbOKOnlyvbExclamation,信息提示"ExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)>Val(Combo11)ThenMsgBox"請(qǐng)正確選擇日期！",vbOKOnly+vbExclamation,"信息提示"ExitSubEndIfEndIfEndIfEndIfEndIfIf=""Or=""Or=""Or=""Or=""Or=""ThenMsgBox"請(qǐng)輸入完整的日期",vbOKOnly,"警告"ExitSubEndIfstr1=Trim(Combo6)&"-"&Trim(Combo7)&"-"&Trim(Combo8)str2=Trim(Combo9)&"-"&Trim(Combo10)&"-"&str1=Format(str1,"yyyy-mm-dd")str2=Format(str2,"yyyy-mm-dd")Ifsqlstr=""Thensqlstr=""&Trim&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&&"<=#"&Format(str2,"yyyy-mm-dd")&"#"Elsesqlstr=sqlstr&"and"&Trim&">=#"&Format(str1,"yyyy-mm-dd")&and"&Trim&"<=#"&Format(str2,"yyyy-mm-dd")&"#"EndIfIfsqlstr=""ThenMsgBox"請(qǐng)先輸入查找時(shí)間！"ExitSubEndIfstrTiaoJian="select專(zhuān)業(yè),年級(jí),學(xué)期,課程名稱,教材,任課老師,課時(shí),上課地點(diǎn),課程性質(zhì),fromwhere&UnloadMe1EndIfIf<>TrueAnd<>TrueThenMsgBox"請(qǐng)選擇查詢方式！",vbOKOnly,"警告"ExitSubEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Dimi,jAsIntegerFori=1999To2010iiNexti=0=0Fori=1ToiiNext=0=0Fori=1ToiiNexti=0=0專(zhuān)業(yè)")年級(jí)")("課程名稱")("教材")("任課老師")'("課時(shí)")課程性質(zhì)")考試性質(zhì)")("=")專(zhuān)業(yè)")年級(jí)")("課程名稱")("教材")("任課老師")'("課時(shí)")課程性質(zhì)")考試性質(zhì)")("=")("學(xué)期")=""=""=""=""=""=""=""=""=""=""=""=""=""EndSub打印統(tǒng)計(jì)運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來(lái)，各種信息還可以以打印出來(lái)或以報(bào)表形式保存。打印統(tǒng)計(jì)包括班級(jí)統(tǒng)計(jì)分析、檔案統(tǒng)計(jì)分析、課程統(tǒng)計(jì)分析、成績(jī)統(tǒng)計(jì)分析和交費(fèi)統(tǒng)計(jì)分析五類(lèi)。班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）（圖四）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringSQLoriginal="SELECT年級(jí),專(zhuān)業(yè),人數(shù),輔導(dǎo)員,備注FROM班級(jí)表"SQLadd"WHERE年級(jí)=AND專(zhuān)業(yè)=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and年級(jí)Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and專(zhuān)業(yè)='"+Text2+"'"EndIfIf=1AndIsNumeric(Text3)ThenSQLaddSQLadd"and人數(shù)Text3EndIfIf=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+"and輔導(dǎo)員='"+Text4+"'"EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()=""=""=""=""EndSubPrivateSubText1_Change()EndSubPrivateSubText3_Change()EndSub檔案分析統(tǒng)計(jì)（如：界面如圖五）（圖五）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM學(xué)生檔案"SQLadd"WHERE學(xué)號(hào)=AND姓名=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and學(xué)號(hào)Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLaddSQLadd"and姓名Text2EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and專(zhuān)業(yè)Text3EndIfIf=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+"and出生年月=#"&&"#"EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()男")'("女")=""=""=""EndSubPrivateSubText1_Change()EndSub課程統(tǒng)計(jì)分析（如：界面如圖六）（圖六）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringSQLoriginal="SELECT*FROM課程表"SQLadd"WHERE專(zhuān)業(yè)=AND課程名稱=SQLorderIf=1AndNotIsNull(Text1)ThenSQLaddSQLadd"and專(zhuān)業(yè)Text1EndIfIf=1AndNotIsNull(Combo1)ThenSQLadd=SQLadd+"and課程性質(zhì)='"+Combo1+"'"EndIf'If=1AndNotIsNumeric(Text2)Then'SQLaddSQLadd"and課時(shí)Text2'EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and課程名稱Text3EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""'==""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()=""'==""=""必修")選修")("自開(kāi)")EndSubPrivateSubText3_Change()EndSub成績(jī)統(tǒng)計(jì)分析（如：界面如圖七）（圖七）代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM成績(jī)表"SQLadd"WHERE學(xué)號(hào)=AND姓名=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and學(xué)號(hào)Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLaddSQLadd"and姓名Text2EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and考試科目Text3EndIfIf=1ThenSQLadd