題目題目學生信息管理系統姓名學號專業計算機應用指導教師學校大學日期2005年2月二郎中學學生信息管理系統第一部分前言隨著學校的規模不斷擴大，學生數量急劇增加，有關學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統來提高學生管理工作的效率。通過這樣的系統可以做到信息的規范管理、科學統計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本系統主要用于學校學生信息管理，總體任務是實現學生信息關系的系統化、規范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統；本系統主要用于學校學生信息管理，總體任務是實現學生信息關系的系統化、規范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生信息管理系統。本系統主要包括學生信息查詢、教務信息維護和學生選課三部分。其功能主要有：1、有關學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。2、學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。3、學生信息的修改。4、班級管理信息的輸入，包括輸入班級設置、年級信息等。5、班級管理信息的查詢。6、班級管理信息的修改。7、學生課程的設置和修改。學生信息管理系統是典型的信息管理系統(MIS)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。經過分析，我們使用MICROSOFT公司的VISUALBASIC開發工具，利用其提供的各種面向對象的開發工具，尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象，首先在短時間內建立系統應用原型，然后，對初始原型系統進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統。關鍵字：控件、窗體、域、數據庫。第二部分緒論學生信息管理系統是一個教育單位不可缺少的部分。一個功能齊全、簡單易用的信息管理系統不但能有效地減輕學校相關工作人員的工作負擔，它的內容對于學校的決策者和管理者來說都至關重要。所以學生信息管理系統應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統人工的方式管理文件檔案、統計和查詢數據，這種管理方式存在著許多缺點,如:效率低、保密性差,人工的大量浪費；另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發揮著來越重要的作用。作為計算機應用的一部分,使用計算機對學校的各類信息進行管理,具有手工管理所無法比擬的優點.例如:檢索迅速、查詢方便、效率高、可靠性好、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高學校信息管理的效率,也是一個單位科學化、正規化管理,與世界接軌的重要條件。2．1目的背景與意義學校主要有總務處、政教處、教導處、培訓處四大塊。其中教導處的工作最為繁重，工作人員多，信息量大。除財務部門有專人及專用軟件進行信息處理外，其它各類的數據處理都由班主任以及教導處工作人員人工完成。教導處目前有幾十個班級的學生，處理的信息主要有五大類：學生信息、成績數據、課程信息。本系統主要著眼于以上部分，建立數據庫以及對數據的各種操作功能。對于學生信息，各班的班主任及學校領導由于各種分類和了解的需要，經常性地進行各種查詢。例如：查詢一個班級中團員的人數，男、女生的人數，住宿或通宿學生的人數等等。教導處在每一屆學生進校時必須進行分班，設置學號；每一屆學生畢業，要進行學生信息備份；對于成績管理，課任教師要進行本科目成績登記，計算平均分、優秀率、及格率；班主任在期中考試和期末考試后計算本班學生總分，排名次；教導處要統計補考學生人數及相應名單，每學期進行學生成績備份；學校領導則可通過查詢工具來了解學生成績情況。對于課程信息，教導處每學期要進行課程安排、課任教師分配、一周課程安排、中途課程調整等等。以上各類信息目前還處于手工或半手工的管理狀態，效率低，可靠性差。配備電腦，但實際利用率不高，如果采用計算機進行以上各類信息的管理，必將大大提高工作效率，對學校各類信息的維護及了解起到積極的作用。另外隨著計算機網絡的持續發展，無論是工作、學習還是生活，將會越來越多地融入到流動的比特中，人們的工作節奏在不斷加快，需要快捷的信息來源，并對此作出反應。因此，無論是從目前的現狀來看，還是面向未來，一個功能完備的學校信息管理系統的開發都非常有必要。本人作為學習計算機專業的一員，對系統的需求作了較深入的認識，同時也掌握了一定的系統開發理論，借這次畢業設計的契機，一方面利用自己的所學小刀試牛，另一方面通過這次實踐必將提升自身對軟件工程、數據庫、程序設計等理論的認識，積累系統開發的經驗。作為畢業設計，由于時間比較緊張，加之本人沒有任何系統開發的經驗，它肯定存在許許多多不足的地方，但對它的改善和功能的完備并不會隨著畢業設計的結束而終止。本人將在原來的基礎上，著眼未來，追蹤計算機新技術發展，并應用到系統持續開發中。2．2相關技術與開發工具介紹本系統采用面向對象的軟件開發辦法，以Microsoft公司的可視開發環境VisualBasic6.0作為主要開發工具，使用MicrosoftAccess2000作為關系數據庫，并為VB編程語言中采用ADO數據庫編程模型，配合功能強大的SQL查詢語言實現建立關系數據庫，放問數據庫，對數據庫的更新，較好地實現了預定的需求功能。2．2．1VisualBasic6.0開發環境VisualBasic6.0是一種可視化、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發Windows環境下的各類應用程序。它簡單易學、效率高、且功能強大。在VisualBasic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口（API）函數，以及動態鏈接庫（DLL）、動態數據交換（DDE）、對象的鏈接與嵌入（OLE）、開放式數據連接（ODBC）等技術，可以高效、快速地開發出Windows環境功能強大、圖形界面豐富的應用軟件系統。總的來看，VisualBasic有以下主要特點：VisualBasic語言用其設計應用程序時具有兩個基本特點：可視化設計和事件驅動編程。1、可視化設計：表現在VB在設計應用于程序界面時有“所見即所得”的處理功能。2、事件驅動編程：在設計應用程序時，把對象添加到窗體中，在用戶與程序進行交互時，用戶基本上是通過鼠標、鍵盤與應用程序進行交互的，那些對象就必須對鼠標和鍵盤操作所引發的事件做出響應，來執行一段應用程序。2．2．2VisualBasic系統幾個在程序應用中的常用名詞VisualBasic系統除了一般高級語言所具有的一些名詞術語外，還有幾個系統常用的名詞。其基本含義如下：1、視窗（Form）視窗是進行人機交互的界面或接口，也叫窗體。VB系統的人機交互界面或接口，無論是在設計時或是在運行時，都是Windows系統的標準視窗。2、對象(Object)對象是VB系統內部提供給設計者可以直接使用的處理輸出的控制工具。本程序所應用到的對象類型有標簽框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，網格(DataGrid)，ADO控件(Adodc1)等。當把這些工具放置到用戶界面對應的窗體上時，被稱為對象或控件。用戶可以通過設置對象的“屬性”和“方法”，便于對象適應自己所設計應用程序的輸入輸出內容，對象的生成過程及結構都被封裝起來。正確使用對象可以減少程序和開發時間，提高程序設計者的工作效率。3、屬性(Properties)屬性是VB系統提供的有關對象的參數或數據接口。用戶通過適當地設置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數據內容及數據的表現格式等。4、事件(Events)事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統狀態發生的變化。VB系統常用事件來引導計算機執行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標事件有Click（單擊鼠標）事件，DbDlicd（雙擊鼠標）。5、方法(Method)方法主要是指對一個對象使用某種作用的過程。它是在程序執行的過程中要計算機執行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。6、過程(Procedure)過程是指經過定義或說明的，或基于某一對象對應的事件所引發的程序段。7、模塊(Module)模塊是指一些運算量或過程進行聲明或定義的一個集合。系統程序大體可分成四個模塊：數據輸入、根據查詢、數據打印和通訊。2．2．3Windows下的VisualBasic編程環境簡介1、面對對象的編程面向對象的設計方法(OOP,ObjectedProgramming)從應用領域內的問題著手，以直觀自然的方式描述客觀世界的實體。VisualBasic作為一種面向對象的編程方法，把程序和數據封裝起來作為一個對象，并為每個對象賦予相應的屬性。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由VisualBasic自動生成對象的程序代碼并封裝起來。VisualBasic應用程序基本的構建塊是用戶所創建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發人員可以最有效利用所創建的每一個對象。使用應用程序具有可通用性可說擴展性和強有力的功能。VisualBasic應用由一系列對象組成，包括有函數、菜單、函數、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。2、實現菜單選項菜單是程序最重要的特性之一，大多數程序都依賴一個定義良好的菜單使程序易于使用和維護，VisualBasic也提供了強大的創建菜單功能是程序更加標準。本系統使用VisualBasic的菜單編輯器建立菜單或者修改已經存在的菜單，您也可以使用VisualBasic的ApplicationWizard來操作。3、實現工具欄CoolBar控件與Office2000中看到的CoolBar是類似的。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“MicrosoftWindowsCommonControls6.0”本系統就用了Cool工具中的Statubar控件，在系統這一界面中，添加了狀態欄，在第一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統日期，第三個欄中選擇了系統時間，這樣，任何時候操作本系統，都可以看到當前的時間和日期。2．2．4怎樣開發一個學生信息管理系統的查詢模塊？1、查詢模塊的設計分析根據實際情況，我們使用原型法(RapidPrototyping)即以少量代價快速地構造一個可執行的軟件模型。使用戶可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發展成為最終產品了。2、編程環境的選擇微軟公司的VisualBasic6.0是Windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。VisualBasic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。3、關系型數據庫的實現Access2000就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于Excel的電子表格，可以使數據庫一目了然。另外，Access允許創建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他用戶共享數據庫。Access是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，Access作為關系數據庫開發具備了許多優點，可以在一個數據包同時擁有桌面數據庫的便利和關系數據庫的強大功能。4、二者的結合(DBA)微軟的JET數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及VisualBasic來訪問數據庫并對其進行各種操作。VisualBasic、Access以及其他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。ADODC控件在數據庫中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們可以設置ADODC控件的各個屬性，告訴它要調用那個數據庫的哪個部分。缺省情況下，ADODC控件根據數據庫中的一個或多個數據庫表建立一個dynaset-type（動態集合）類型的記錄集合。一個記錄集合是動態的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。將ADODC控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫之間建立聯系。2．2．5使用Access2000創建數據庫1、數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫(flat-file)和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。2、新建一個數據庫創建任何一個數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創建一個數據庫結構的過程被認為是數據模型設計。（1）標識需要的數據；（2）收集被子標識的字段到表中；（3）標識主關鍵字字段；（4）規范數據；（5）標識指定字段的信息；3、修改已建的數據庫數據庫的修改分為；添加、編輯和刪除記錄。這三種操作均可由VisualBasic創建的程序來完成，下面的章節將詳細描述實現的具體方法。第三章可行性分析學生信息，作為一個學校，就有一定的工作量存在，而學生信息，它的工作量可能是其它信息工作量的幾倍，班級的增加、班級的查找、班級的修改；學生檔案；課程管理；成績管理；繳費管理；統計等等，每個信息的數據都在不斷地變化著，如果采用人工的方式進行操作，則，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對這樣的情況，采用讓數據的查詢變得簡單化，數據變的更讓每個人都在任何時刻都可以了解到。學生信息管理系統是為本校開發的，本系統所采用的語言是VisualBasic，用MicrosoftAccess2000數據庫完成。該系統總體有四部分組成，包括學生信息查詢、教務信息維護、學生選課及用戶管理。通過本系統，把本校內部查詢學生信息、教務信息、學生選課各個環節進行有效地計劃、組織和控制。通過本校內部的信息，依據統一數據信息進行管理，把任何一塊信息所產生的數據變動及時地反映給其它相關信息，做到數據共享。本系統主要信息流程為：教務信息維護接受學生的信息，學生信息查詢根據教務信息維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應的修改，再把信息存入數據庫中。學生選課是對學生進行相應選擇自己相關的課程。最后進行打印。采用本系統，能夠使整個系統內部所有信息的工作簡化，提高工作效益。由于采用統一的數據信息，使相關資料能夠快速地查詢所需的數據、資料及其它信息的，使信息快速高效運行。第四章學生信息系統軟件測試功能測試功能測試環境操作系統：windows98內存：128M網絡環境：校園網本功能測試共分為:系統功能測試測試是否可以正常添加用戶和修改密碼，系統正常退出測試是否可以正常對班級進行管理，學生的單個或成批添加，刪除以及新生信息的導入和學生信息備份測試成績管理中是否可以進行分數錄入，匯總及排名和成績備份等操作測試課程信息模塊中針對課程管理，老師和課程的關系之間操作是否正常測試是否可以正常查詢學生，老師和成績3、鏈接測試這一部分將測試系統各模塊之間的超鏈接跳轉是否正確4、文檔測試本章主要內容為：測試文檔是否包括全部內容測試軟件功能描述與其他功能有沒有沖突查看軟件功能描述是否是原來系統分析和需求查看文檔內容在特定的情況和進度下,以現有人力,物力和資源能否實現5、負載測試這一部分將測試正常情況下系統性能和用戶數目之間的關系本章主要內容為：查看在多個用戶同時使用本系統時是否正常6、極限測試這一部分將測試所有極端的情況，如速度非常快的情況下和速度非常慢的情況下，以及所有其它的極端情況。本章主要內容為:網絡資源極限測試綜合極限測試

第五章總體設計5．1系統功能描述本系統的主要任務是實現對學校教導處的學生信息管理、成績管理、課程管理及相關查詢。其主要功能包括：1、學生信息管理功能班級管理。提供給班主任進行本班學生的信息更新、刪除。添加學生。以班級為單位，進行學生入庫。其中分為單個添加和成批添加。單個添加學生供數量較少的學生信息入庫；成批添加可以從現存的學生信息EXCEL文件中成批錄入到數據庫中。刪除學生。當學生畢業后，學生信息轉移備份數據庫中，系統的基本數據庫中需要刪除學生信息。該功能主要進行成批地刪除學生信息，如連續學號區段的多位學生信息刪除，整個班級的刪除，所有學生信息的刪除。新生管理。本部分的功能主要有新生導入、分班、及設置學號。新生導入實現從現存的EXCEL新生名單中錄入學生信息。分班功能實現按新生的報考專業、成績及性別進行分班。設置學號實現自動為各班學生編發學號。學生信息備份。在學生信息刪除前，將其按班級為單位保存到備份數據庫。2．學生成績管理功能分數錄入。以班級為單位，錄入各科目的期中、期末、總評成績。總分及名次。計算指定班級學生的總分及名次。補考成績錄入。修改總評成績，以決定最終補考人數。成績備份。為指定班級及指定的學期數的學生成績保存到備份數據庫中。3、課程信息管理功能課程管理。提供本學期各年級各專業所開課程名稱的錄入、修改、刪除。它是學生成績管理的基礎。用以保證數據庫中一致性原則。4、查詢功能。學生信息查詢。根據用戶的要求，查詢學生數據庫的所有可能的信息，其中包括成績查詢。備份成績查詢。按班級為單位查詢備份數據庫的學生信息，補考情況。2．2數據流圖與數據字典2．2．1數據流圖根據以上的系統功能描述，設計出數據流圖如下：一、頂層數據流圖與0層數據流圖（圖2-1至圖2-2學生信息管理系統用戶學生信息管理系統用戶學生信息管理系統系統時鐘 學生信息管理 成績管理 當前日期 課程信息管理 查詢要求 查詢結果 統計表 圖2-1頂層數據流圖系統時鐘系統時鐘1用戶要1用戶要求有效性檢查2學生信息處理3成績信息處理5課程信息處理6查詢處理 學生情況 學生信息管理 學生信息管理要求成績管理 成績管理要求 成績表課程管理 查詢要求 課程管理要求 課程 查詢結果 圖2-20層數據流圖二、1層數據流圖（圖2-3至圖2-8）2．2新生管理2．2新生管理 新生數據處理結果2．3班級管理2．3班級管理 新生數據處理要求 學生信息學生信息管理要求 班級名稱及修改要求2．1要求類型處理 2．1要求類型處理2．4添加學生 添加要求及學生數據2．4添加學生 當前時鐘數據刪除單2．5刪除學生 備份數據單2．5刪除學生2．6信息備份2．6信息備份圖2-31層數據流圖（a）3．1要求類型處理3．1要求類型處理入 班級及成績數據成績管理要求 班級名稱 成績表備份數據及班級信息 圖2-41層數據流圖（b）三、學生信息管理模塊分層數據流圖（圖2-9至圖2-15） 新生數據2．2．1要求類型處理 分班名單2．2．1要求類型處理 新生數據處理要求 新生數據及班數 起始學號及班級名稱 圖2-9新生處理 新生記錄 有效記錄 新生記錄 無效記錄格式 成績記錄 總分記錄 學生表 分班名單 男、女生人數 專業 班數 成績表 學生表學生表 班級名稱 指定班級學生名單 起始學號 總圖2-10新生數據導入、分班及設置學號學生表 班級名稱 指定班級學生記錄 學生信息 記錄為空 修改要求 圖2-11班級管理 單個學生數據添加要求 成批學生數據 圖2-12添加學生 總分表 學生表 單個學生數據 成績表 圖2-13單個添加學生 成績表 學生記錄 有效格式記錄 無效格式 總分表 學生記錄 學生表 圖2-13成批添加學生數據 學生表 備份表備份數據單 備份數據圖2-14數據備份成績表總分表 起止學號 數據刪除單 班級名稱 學生表 所有學生數據 成績表 總分表圖2-15刪除學生數據 四、成績管理模塊分層數據流圖：（圖2-16至2-18）課程表 班級名稱 學生與課程數據 成績數據學生表 成圖2-16成績錄入 成績表 班級名稱 成績數據 成績信息 總分表圖2-17總分計算 備份班級名稱 備份數據單 備份數據 成績表 成績備份表圖2-18成績備份 七、查詢模塊分層數據流圖：（圖2-24至圖2-26） 總分表 成績表 學生信息查詢要求 查詢規則 查詢結果 學生表圖2-24學生信息查詢 2．2．2數據字典一、數據流條目： （1）學生信息管理模塊：學生信息管理要求=[新生數據處理要求|班級數據管理要求|添加數據要求|數據刪除要求|數據備份要求]新生數據處理要求=[新生數據|班級數目|起始學號|班級名稱|專業]班級數據管理要求=[班級名稱|修改要求]添加數據要求=[單個學生數據單|成批數據單]數據刪除要求=[起止學號|班級名稱|所有學生數據]數據備份要求=[班級名稱|學期數]新生數據=姓名+性別+出生日期+家庭住址+原畢業學校+政治面貌+入學總分起始學號={數字}15班級名稱=[會計04（1）|會計04（2）|會計04（3）|計算機軟件04（1）|會計03（1）|會計03（2）|會計03（3）|計算機軟件03（1）|會計02（1）|會計02（2）|會計02（3）|計算機軟件02（1）|網絡技術03（1）|網絡技術04（1）|機電03（1）|機電02（1）|機電04（1）|網絡技術02（1）|網絡技術02（1）]修改要求=姓名+性別+出生日期+家庭住址+原畢業學校+政治面貌+入學總分+專業+班級+是否住宿單個學生數據單=姓名+性別+出生日期+家庭住址+原畢業學校+政治面貌+入學總分+班級+是否住宿成批數據單=姓名+性別+出生日期+家庭住址+原畢業學校+政治面貌+入學總分+班級+是否住宿性別=[男|女]政治面貌=[團員|非團員]是否住宿=[住宿|通學]（2）成績管理模塊：成績管理要求=[成績錄入要求|總分計算要求|成績備份要求]成績錄入要求=班級名稱+成績數據總分計算要求=班級名稱+成績數據成績備份要求=班級名稱+學期數成績數據=姓名+課程名稱+分數成績表=學號+姓名+期中成績總分+期末成績總分+期中名次+期末名次（3）課程信息管理模塊：課程管理要求=[課程表維護要求|教師課程表維護要求|排課要求]課程表維護要求=課程名稱+年級+專業教師課程表維護要求=教師姓名+任教班級+課程名稱+周課時數年級=[一年級|二年級|三年級]任教班級=[會計04（1）|會計04（2）|會計04（3）|計算機軟件04（1）|會計03（1）|會計03（2）|會計03（3）|計算機軟件03（1）|會計02（1）|會計02（2）|會計02（3）|計算機軟件02（1）|網絡技術03（1）|網絡技術04（1）|機電03（1）|機電02（1）|機電04（1）|網絡技術02（1）|網絡技術02（1）]（4）查詢模塊：查詢要求=[查詢條件]查詢結果=[學生信息統計表|學生成績統計表|學生總分名次統計表|教師信息統計表|備份信息統計表]二、加工條目：（1）學生信息管理模塊加工條目：加工編號：.1加工名稱：檢查記錄有效性輸入：新生數據輸出：有效的新生記錄、無效的新生記錄加工邏輯：根據新生記錄IF格式有效THEN讀取記錄ELSE無效格式記錄，啟動EXCEL調整格式ENDIF加工編號：.2加工名稱：啟動EXCEL調整輸入：新生記錄輸出：有效的新生記錄加工邏輯：根據新生記錄按要求調整加工編號：.3加工名稱：讀取新生記錄輸入：新生數據輸出：寫入學生表文件加工邏輯：根據新生記錄DOWHILE新生記錄不為空THEN讀取記錄，寫學生表文件，班級值為“新生”LOOP加工編號：.1加工名稱：統計新生數據輸入：班級為“新生”記錄輸出：各專業新生人數，各專業男女生人數加工邏輯：根據各專業新生記錄，查詢所有會計專業且班級為“新生”的記錄，并計算記錄數查詢所有會計專業且性別為“男”且班級為“新生”的記錄，并計算記錄數查詢所有會計專業且性別為“女”且班級為“新生”的記錄，并計算記錄數查詢所有計算機軟件專業且班級為“新生”的記錄，并計算記錄數查詢所有計算機軟件專業且性別為“男”且班級為“新生”的記錄，并計算記錄數查詢所有計算機軟件專業且性別為“女”且班級為“新生”的記錄，并計算記錄數查詢所有網絡技術專業且班級為“新生”的記錄，并計算記錄數查詢所有網絡技術專業且性別為“男”且班級為“新生”的記錄，并計算記錄數查詢所有網絡技術專業且性別為“女”且班級為“新生”的記錄，并計算記錄數查詢所有機電專業且班級為“新生”的記錄，并計算記錄數查詢所有機電專業且性別為“男”且班級為“新生”的記錄，并計算記錄數查詢所有機電專業且性別為“女”且班級為“新生”的記錄，并計算記錄數加工編號：.2加工名稱：按報考專業、男女比例及入學總分分班輸入：各專業班數，各專業新生數據，各專業男生人數，各專業女生人數輸出：各班學生名單寫入學生表文件，并設置班級名稱加工邏輯：根據新生記錄各專業男女生名單按入學總分降序排序DOWHILE男女生新生記錄不為空THEN按專業、根據班數，依次取男女生記錄，更改其班級名稱寫入學生表文件LOOP加工編號：2.2.4.加工名稱：查詢相關記錄輸入：學生記錄，班級名稱輸出：指定班級的學生名單加工邏輯：根據學生記錄，查詢所有班級名稱等于輸入值的學生記錄加工編號：2.2.4.加工名稱：按總分降序設置學號輸入：指定班級學生記錄，起始學號輸出：寫入學生表文件，成績表文件，總分表文件加工邏輯：DOWHILE學生記錄非空學生記錄的學號域=起始學號總分表中添加一記錄，學號域=起始學號查詢課程表，N=該專業一年級所開課程數在成績表中添加N個記錄，學號域=起始學號起始學號=起始學號+1LOOP加工編號：加工名稱：查詢相關記錄輸入：學生記錄，班級名稱輸出：指定班級的學生名單加工邏輯：根據學生記錄，查詢所有班級名稱等于輸入值的學生記錄 加工編號：加工名稱：修改學生記錄輸入：指定班級學生記錄，修改要求輸出：學生信息加工邏輯：根據修改要求，改寫學生數據 加工編號：.1加工名稱：數據錄入輸入：單個學生數據輸出：學生表，成績表，總分表加工邏輯：根據學生數據單，接受錄入在學生表中添加一記錄，并將錄入信息作為記錄的值在總分表中添加一記錄，學號域為錄入學號值，班級域為班級值，其余域為0判斷該生所在年級和專業，查詢課程表，N=本學期所開課程數在成績表中添加N個記錄，學號域均為錄入學號值，班級域為班級值，其余域為0加工編號：.1加工名稱：檢查數據格式輸入：學生記錄輸出：有效格式的學生記錄，無效格式的學生記錄加工邏輯：根據學生記錄IF格式有效輸出有效格式記錄ELSE輸出無效格式記錄ENDIF加工編號：.2加工名稱：啟動EXCEL調整輸入：無效格式學生記錄輸出：有效格式學生記錄加工邏輯：啟動EXCEL進行人工調整 加工編號：.3加工名稱：逐行讀取記錄輸入：有效格式學生記錄輸出：寫入學生表，總分表，成績表加工邏輯：DOWHILE學生記錄不為空在學生表中添加一記錄，用學生記錄值更新各域在總分表中添加一記錄，用學生記錄值中的學號值更新學號域，班級域為班級值判斷學生所在年級和專業，N=本學期該專業所開課程數在成績表中添加N個記錄，學號域為學生記錄值中的學號值，班級域為班級值LOOP加工編號：加工名稱：查詢備份數據輸入：班級名稱輸出：備份數據加工邏輯：在學生表中查詢班級名稱等于輸入值的學生數據加工編號：加工名稱：數據備份輸入：備份數據輸出：備份數據文件加工邏輯：IF數據已備份THEN退出ELSE生成備份文件ENDIF加工編號：加工名稱：確認數據類型輸入：刪除數據單輸出：班級名稱，起止學號，所有數據加工邏輯：CASE1按班級刪除獲得班級名稱CASE2按起止學號刪除獲得起止學號CASE3按所有數據查詢學生表中的所有學生數據加工編號：加工名稱：刪除指定范圍數據輸入：起止學號輸出：更新學生表，總分表，成績表加工邏輯：在學生表、成績表、總分表中查詢學號值大于起始學號并小于終止學號的學生記錄從各表中刪除這些記錄加工編號：加工名稱：刪除指定班級數據輸入：班級名稱輸出：更新學生表、成績表、總分表加工邏輯：查詢學生表中班級名稱為輸入值的記錄從學生表中刪除這些記錄從總分表中刪除這些記錄從成績表中刪除這些記錄加工編號：2.5.加工名稱：刪除所有學生數據輸入：所有學生記錄輸出：更新學生表、總分表、成績表加工邏輯：刪除學生表、總分表、成績表中的所有學生數據（2）成績管理模塊加工條目加工編號：加工名稱：查詢學生及課程信息輸入：班級名稱輸出：指定班級的學生名單及本學期所開課程加工邏輯：查詢學生表中班級名稱為輸入值的記錄判斷所在年級和專業,查詢課程表獲得本學期所開課程加工編號：加工名稱：成績錄入輸入：學生名單，課程信息，成績錄入數據輸出：更新成績表加工邏輯：選擇課程名稱，錄入成績寫入成績表加工編號：加工名稱：查詢成績數據輸入：班級名稱輸出：指定班級的學生名單及成績數據加工邏輯：判斷成績表，獲得指定班級的學生成績數據加工編號：加工名稱：計算總分及名次輸入：成績數據輸出：總分與名次信息，更新總分表加工邏輯：依次計算各記錄總成績，寫入總分表對總分表進行按總分降序排序，寫入名次加工編號：加工名稱：查詢成績數據輸入：備份數據單輸出：備份數據加工邏輯：對學生表和成績表做笛卡爾積，獲得指定班級的成績與學生數據加工編號：加工名稱：數據備份輸入：備份數據，備份班級名稱輸出：成績備份文件加工邏輯：根據備份班級名稱生成成績備份文件（4）課程信息管理模塊數據加工條目：加工編號：加工名稱：確認維護要求輸入：維護要求輸出：錄入要求、修改要求加工邏輯：判斷對課程的錄入或者修改加工編號：加工名稱：課程數據錄入輸入：課程數據單，錄入要求輸出：更新課程表文件加工邏輯：根據錄入要求，錄入課程數據在課程表中添加一新記錄，將錄入數據作為新記錄值加工編號：加工名稱：課程數據修改輸入：課程數據單，修改要求輸出：更新課程文件加工邏輯：查詢課程信息，根據修改要求進行修改，并更新課程文件（5）查詢模塊加工條目：加工編號：加工名稱：要求加工輸入：學生信息查詢要求輸出：查詢規則加工邏輯：CASE1查詢要求涉及[學生表|成績表|總分表]在[學生表|成績表|總分表]中查詢CASE2查詢要求涉及學生表和成績表將學生表與成績表做笛卡爾積，與查詢條件形成SQL語句CASE3查詢要求涉及學生表和總分表將學生表與總分表做笛卡爾積，與查詢條件形成SQL語句CASE4查詢要求涉及學生表和成績表、總分表將學生表與成績表、總分表做笛卡爾積，與查詢條件形成SQL語句CASE5查詢要求涉及總分表和成績表將總分表與成績表做笛卡爾積，與查詢條件形成SQL語句最后將SQL語句作為查詢規則輸出加工編號：加工名稱：查詢處理輸入：查詢規則輸出：查詢結果加工邏輯：根據查詢規則查詢指定表，并顯示結果2．3數據庫設計2．3．1庫設計本系統涉及到的信息主要有5類：學生信息、成績信息、教師信息、圖書信息、后備信息。由于成績信息和教師信息與學生信息關系密切，因此將這三類信息存放在同一數據庫中，以提高多種信息同時讀取的速度。按以上分析，將系統的數據庫設計為三個：一、學生數據庫：該數據庫為中包含有以下各表：1、學生表：記錄學生的基本信息，是進行學生及其它各類信息處理的基礎。2、成績表：記錄學生的期中、期末及總評的各科成績。3、總分表：記錄學生的期中、期末及總評的總分及名次。4、課程表：記錄各專業各年級開課情況，在添加學生記錄時，可根據該表的情況決定在成績表添加學生記錄的個數。三、后備數據庫：該數據庫主要保存兩類信息：學生信息、成績信息。其數據表是按用戶的要求在運行過程中動態建立的。2．3．2表設計：1、學生表結構：表2.1編號字段名稱字段類型字段寬度1學號CHAR152姓名CHAR103性別CHAR24出生日期DATE85電話CHAR106家庭住址CHAR507班級CHAR208原畢業學校CHAR509是否住宿CHAR410政治面貌CHAR611入學總分LONG412專業char202、課程表結構：表2.2編號字段名稱字段類型字段寬度1課程名稱CHAR152年級CHAR103專業char203、成績表結構：表2.3編號字段名稱字段類型字段寬度1學號CHAR152課程名稱CHAR153期中成績LONG44期末成績LONG45總評成績LONG46班級char204、總分表結構：表2.4編號字段名稱字段類型字段寬度1學號CHAR152期中總分LONG43期末總分LONG44期中名次LONG45期末名次LONG46班級char20第六章詳細設計根據系統的主要功能及上一章的總體設計，系統開發進入第二個階段：詳細設計。在這一階段的工作中，主要任務有以下幾項：1、根據原型化的開發原則，為系統的每個模塊功能進行界面設計，作為進一步優化的基礎。2、進行系統的流程分析，為模塊的細化做好準備。3、對每個模塊進行詳細的算法設計。3．1系統界面設計一、登錄及系統主窗口界面設計該部分界面主要包括登錄窗口、系統主窗口、修改密碼窗口。1、登錄窗口界面：本系統中使用到的數據表主要有班級表、成績表、繳費表、課程表、學生檔案、用戶資料，由這六個表，組成了名為信息的數據庫（如圖一）。其中學生檔案是本系統主要的（圖一）一張表，所有信息都是根據這張學生檔案進行有關的操作，主要的字段有：學號、姓名、年級、專業、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯系電話、入學時間、備注。其中日期的數據類型為日期/時間天型，其它的數據類型為文本型；成績表中字段為：學號、姓名、年級、專業、學期、考試時間、考試科目、考試地點、課程性質、科目分數、違紀類型、備注；課程表中字段為：專業、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質、考試性質；用戶資料中的字段包括：用戶名、密碼、身份。數據庫與VB的連接：本系統的數據鏈接采用的是ADO方法，打開控制面板，打開ODBC數據源圖標，選擇“系統DSN”標簽，點擊“添加”按鈕，在彈出的“創建新數據源”對話框中選擇名稱為“MicrosoftAccessDrive（*.mdb）”，點擊“完成”按鈕，在ODBCMicrosoftAccess安裝對話框中在數據源名中輸入信息，在數據庫這個框中，單擊“選擇”按鈕，在彈出的選擇數據庫這一對話框架中，在驅動器下拉列表框中選擇本系統數據庫所在驅動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數據庫（*.mdb）”，在數據庫名中選擇本系統的數據庫，點擊“確定”按鈕即完成數據鏈接。在VB中，用ADODC鏈接數據庫，用DataGrid或DATA將庫中的數據在界面中顯示出來，本系統采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對話框中，在“屬性”這一標簽中，選中單選框“UseODBCDataSourceName”，并在下拉文本框中選擇已經配置好的數據源名信息，再在“RecordSoure”標簽中，在CommardText（SQL）文本框中輸入查詢語句，如：select*from學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設為Adodc。我們可以設置DataGrid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調整。第七章系統具體實現7.1各功能的實現課程管理：課程設置（如：界面如圖二）（圖二）運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設置，在這模塊中可以把專業、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質和考試性質等信息輸入，以便使用。課程管理：課程查詢（如：界面如圖三）（圖三）當輸入查詢類別、運算符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。打印統計運行打印統計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保存。打印統計包括班級統計分析、檔案統計分析、課程統計分析、成績統計分析和交費統計分析五類。班級統計分析（如：界面如圖四）（圖四）檔案分析統計（如：界面如圖五）（圖五）課程統計分析（如：界面如圖六）（圖六）成績統計分析（如：界面如圖七）（圖七）交費統計分析（如：界面如圖八）（圖八）結束語學生信息管理系統（課程設置和打印統計）的完成，它在審核這一功能中能夠對不同情況的資料進行設置和打印，針對需要的信息進行設置和打印。后記本系統能夠順利完成，非常感謝鄒永康老師的指導。對于本人來說，通過這次畢業設計，也是對自己在這三年學習的一個檢驗和平時學習的一種結累，可以在學習中提高自己，也充分體現學有所用，學以致用的學習倡導。在此，我對三年來輔導過我的各位任課老師深表感謝主要參考文獻本系統的過程中，主要的參考文獻有：《VisualBasic6.0》林陳雷人民郵電出版社《面向對象程序設計系列教材》龔沛曾高等教育出版社《VisualBasic6.0編程實例精解》何文俊《學用VisualBasic編程》潭浩西安電子科技大學出版社《VisualBasic6.0數據庫開發與專業應用》敬錚國防工業出版社《VisualBasic6.0數據庫程序設計高手》溫賢發科學出版社《VisualBasic6.0程序設計》陳明中央廣播電視大學出版社附:源程序課程管理：課程設置下面為其代碼：PrivateSubCommand1_Click()DimmyConAsNewADODB.ConnectionDimmyRsAsNewADODB.RecordsetDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=Text1.TextNianJi=Text2.TextXueQi=DTPicker1.ValueKeCheng=Text4.TextJiaoCai=Text5.TextRenKLS=Text6.TextKeShi=Text7.TextShangKeDD=Text8.TextKeChengXZ=Combo1.TextKaoShiXZ=Combo2.TextIfTrim(ZhuanYe)=""OrTrim(NianJi)=""OrTrim(XueQi)=""OrTrim(KeCheng)=""OrTrim(JiaoCai)=""OrTrim(RenKLS)=""OrTrim(KeShi)=""OrTrim(ShangKeDD)=""OrTrim(KeChengXZ)=""OrTrim(KaoShiXZ)=""ThenMsgBox"請填寫要修改課程資料的內容！"Combo1.Text=""Combo2.Text=""ExitSubEndIfmyCon.Open"dsn=信息"myRs.Open"select*from課程表where專業='"&Text1.Text&"'",myCon,3,2myRs!年級=Text2.TextmyRs!學期=DTPicker1.ValuemyRs!課程名稱=Text4.TextmyRs!教材=Text5.TextmyRs!任課老師=Text6.TextmyRs!課時=Text7.TextmyRs!上課地點=Text8.TextmyRs!課程性質=Combo1.TextmyRs!考試性質=Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox"您確定要修改嗎？",vbYesNo,"提示"Text1.Text=""Text2.Text=""'Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Combo1.Text=""Combo2.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()UnloadMeFrm_FindGrean.Show1EndSubPrivateSubDataGrid1_Click()'Frm_UpdateGrean.Adodc1.RecordSource="select*from課程表where專業='"&Trim(DataGrid1.Row)&"'"'Text1.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("專業")'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("課程性質")'Combo2.Text=Frm_UpdateGrean.Adodc1.Recordset.Fields("考試性質")EndSubPrivateSubDTPicker1_CallbackKeyDown(ByValKeyCodeAsInteger,ByValShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate)EndSubPrivateSubForm_Activate()Frm_FindGrean.Adodc1.RecordSource=strTiaoJianSetDataGrid1.DataSource=Frm_FindGrean.Adodc1EndSubPrivateSubForm_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=""EndSubPrivateSubText1_Change()EndSubPrivateSubText2_Change()EndSubPrivateSubText8_Change()EndSub課程管理：課程查詢當輸入查詢類別、運算符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。代碼如下：DimsqlstrAsStringPrivateSubCombo1_Change()EndSubPrivateSubCombo2_Change()EndSubPrivateSubCombo4_Change()EndSubPrivateSubCombo5_Change()EndSubPrivateSubCombo7_Change()EndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIfOption3.Value=TrueThena=Trim(Combo2)SelectCaseaCase"="KCCX1=""&Combo1.Text&""&Combo2.Text&"'"&Trim(Text1)&"'"Case"like"KCCX1="Instr(1,"&Combo1.Text&",'"&Trim(Text1.Text)&"')<>0"EndSelecta=Trim(Combo4)SelectCaseaCase"="KCCX2=""&Combo3.Text&""&Combo4.Text&"'"&Trim(Text2)&"'"Case"like"KCCX2="Instr(1,"&Combo3.Text&",'"&Trim(Text2.Text)&"')<>0"EndSelectIfOption1.Value=TrueThenIfKCCX1=""ThenstrTiaoJian="select*from課程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from課程表where"&KCCX1ElsestrTiaoJian="select*from課程表where"&KCCX1&"and"&KCCX2EndIfElseIfOption2.Value=TrueThenIfKCCX1=""ThenstrTiaoJian="select*from課程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from課程表where"&KCCX1ElsestrTiaoJian="select*from課程表where"&KCCX1&"or"&KCCX2EndIfElseIfKCCX1=""ThenstrTiaoJian="select*from課程表where"&KCCX2ElseIfKCCX2=""ThenstrTiaoJian="select*from課程表where"&KCCX1ElseMsgBox"請選擇連接方式！",vbOKOnly,"警告"ExitSubEndIfEndIfIf(KCCX1&KCCX2)=""ThenMsgBox"請輸入查詢類別！",vbOKOnly,"警告"ExitSubElseUnloadMeFrm_UpdateGrean.Show1EndIfEndIfIfOption4.Value=TrueThenIfVal(Combo6)>Val(Combo9)ThenMsgBox"請正確選擇年份！",vbOKOnly+vbExclamation,"信息提示"Combo6.SetFocusExitSubElseIfVal(Combo6)=Val(Combo9)ThenIfVal(Combo7)>Val(Combo10)ThenMsgBox"請正確選擇月份！",vbOKOnly+vbExclamation,"信息提示"Combo7.SetFocusExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)>Val(Combo11)ThenMsgBox"請正確選擇日期！",vbOKOnly+vbExclamation,"信息提示"Combo8.SetFocusExitSubEndIfEndIfEndIfEndIfEndIfIfCombo6.Text=""OrCombo7.Text=""OrCombo8.Text=""OrCombo9.Text=""OrCombo10.Text=""OrCombo11.Text=""ThenMsgBox"請輸入完整的日期",vbOKOnly,"警告"ExitSubEndIfstr1=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")Ifsqlstr=""Thensqlstr=""&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"Elsesqlstr=sqlstr&"and"&Trim(Combo5.Text)&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&Trim(Combo5.Text)&"<=#"&Format(str2,"yyyy-mm-dd")&"#"EndIfIfsqlstr=""ThenMsgBox"請先輸入查找時間！"ExitSubEndIfstrTiaoJian="select專業,年級,學期,課程名稱,教材,任課老師,課時,上課地點,課程性質,考試性質from課程表where"&sqlstrUnloadMeFrm_UpdateGrean.Show1EndIfIfOption3.Value<>TrueAndOption4.Value<>TrueThenMsgBox"請選擇查詢方式！",vbOKOnly,"警告"ExitSubEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Dimi,jAsIntegerFori=1999To2010Combo6.AddItemiCombo9.AddItemiNextiCombo6.ListIndex=0Combo9.ListIndex=0Fori=1To12Combo7.AddItemiCombo10.AddItemiNextiCombo7.ListIndex=0Combo10.ListIndex=0Fori=1To31Combo8.AddItemiCombo11.AddItemiNextiCombo8.ListIndex=0Combo11.ListIndex=0Combo1.AddItem("專業")Combo1.AddItem("年級")Combo1.AddItem("課程名稱")Combo1.AddItem("教材")Combo1.AddItem("任課老師")'Combo1.AddItem("課時")Combo1.AddItem("課程性質")Combo1.AddItem("考試性質")Combo2.AddItem("=")Combo3.AddItem("專業")Combo3.AddItem("年級")Combo3.AddItem("課程名稱")Combo3.AddItem("教材")Combo3.AddItem("任課老師")'Combo3.AddItem("課時")Combo3.AddItem("課程性質")Combo3.AddItem("考試性質")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=""EndSub打印統計運行打印統計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保存。打印統計包括班級統計分析、檔案統計分析、課程統計分析、成績統計分析和交費統計分析五類。班級統計分析代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringSQLoriginal="SELECT年級,專業,人數,輔導員,備注FROM班級表"SQLadd="WHERE年級=年級AND專業=專業"SQLorder=""IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+"and年級='"+Text1+"'"EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and專業='"+Text2+"'"EndIfIfCheck3.Value=1AndIsNumeric(Text3)ThenSQLadd=SQLadd+"and人數='"+Text3+"'"EndIfIfCheck4.Value=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+"and輔導員='"+Text4+"'"EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Class.State=1ThenEndIfDat_Main.rsDat_Class.OpenstrSqlDat_Class.ShowvbModalText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubText1_Change()EndSubPrivateSubText3_Change()EndSub檔案分析統計代碼如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsStringDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM學生檔案"SQLadd="WHERE學號=學號AND姓名=姓名"SQLorder=""IfCheck1.Value=1AndIsNumeric(Text1)ThenSQLadd=SQLadd+"and學號='"+Text1+"'"EndIfIfCheck2.Value=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and姓名='"+Text2+"'"EndIfIfCheck3.Value=1AndNotIsNull(Text3)ThenSQLadd=SQLadd+"and專業='"+Text3+"'"EndIfIfCheck4.Value=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+"and出生年月=#"&DTPicker1.Value&"#"EndIfstrSql=SQLoriginal+SQLadd+SQLordeIfDat_Main.rsDat_Strudent.State=1ThenEndIfDat_Main.rsDat_Strudent.OpenstrSqlDat_Strudent.ShowvbModalText1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()'Combo1.AddItem("男")'Combo1.AddItem("女")Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubText1_Change()EndSub課程統計分析代碼如下：PrivateSubCommand1_Click()DimSQLorigin