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

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