《學(xué)生信息管理系統(tǒng)設(shè)計(jì) 計(jì)算機(jī)畢業(yè)論文》由會(huì)員分享，可在線閱讀，更多相關(guān)《學(xué)生信息管理系統(tǒng)設(shè)計(jì) 計(jì)算機(jī)畢業(yè)論文（39頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、第一章 系統(tǒng)概述本學(xué)生信息管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績(jī)管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、學(xué)生繳費(fèi)管理系統(tǒng)等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。1.1 系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能：(1) 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面；(2) 由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理； (3) 原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改；(4) 方便的數(shù)據(jù)查詢，支持多條件查詢；(5) 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好；(6) 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。1.1.2可行性分析

2、由于本系統(tǒng)管理的對(duì)象單一,都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫(kù)管理。且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)器，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫(kù)運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。本系統(tǒng)的設(shè)計(jì)是在Windows 98中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開(kāi)發(fā)成功的。數(shù)據(jù)庫(kù)是MIS中的重要支持技術(shù)，在MIS開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在

3、選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言介紹如下：Visual Basic語(yǔ)言Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開(kāi)發(fā)工具SDK相媲美，而且程序開(kāi)發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODB

4、C)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩?lái)說(shuō)，Visual Basic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫(xiě)大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“

5、部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C+)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面

6、上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言Visual Basic是在BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類的邏輯思維方式。Visual Basic語(yǔ)句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之

7、后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行

8、指定的操作，這樣可以方便編程人員，提高效率。訪問(wèn)數(shù)據(jù)庫(kù)Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。Visual Basic提供開(kāi)放式數(shù)據(jù)連接，即ODBC功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語(yǔ)言SQ

9、L數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)

10、據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與

11、原來(lái)應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(kù)(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C+或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。1.2系統(tǒng)的功能簡(jiǎn)介本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：班級(jí)管理、學(xué)生檔案管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理等等。1.2.1 項(xiàng)目規(guī)劃學(xué)生信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序,由班級(jí)管理、學(xué)生檔案管理、

12、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理等模塊組成,特規(guī)劃如下:1.2.2系統(tǒng)管理模塊(CTRL+O)該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶(快捷鍵：CTRL+A)、修改密碼(快捷鍵：CTRL+B)、重新登錄(快捷鍵：CTRL+F1)等等。1.2.3班級(jí)管理模塊（CTRL+P）：該模塊的功能是實(shí)現(xiàn)對(duì)全校班級(jí)的管理工作，包括：班級(jí)游覽、班級(jí)添加、班級(jí)查詢等，這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級(jí)的管理。1.2.4學(xué)生檔案管理模塊（CTRL+T）：該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學(xué)校管理部門對(duì)學(xué)校的基本情況的快速

13、查詢和了解。1.2.5課程管理模塊（CTRL+R）：該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。1.2.6成績(jī)管理模塊（CTRL+F）：學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考試類型設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績(jī)添加、成績(jī)游覽、成績(jī)查詢等功能模塊。1.3系統(tǒng)開(kāi)發(fā)的目標(biāo)出于本系統(tǒng)是學(xué)校學(xué)生管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。第二章 系統(tǒng)分析2.1業(yè)務(wù)流程分析班級(jí)管理業(yè)務(wù)流程圖

14、：教務(wù)處輸入計(jì)算機(jī)班主任教務(wù)處學(xué)生班級(jí)班級(jí)輸出 圖1 班級(jí)管理業(yè)務(wù)流程圖檔案管理業(yè)務(wù)流程圖：教務(wù)處輸入計(jì)算機(jī)班主任教務(wù)處學(xué)生檔案檔案輸出 圖2 檔案管理業(yè)務(wù)流程圖課程管理業(yè)務(wù)流程圖：教務(wù)處輸入計(jì)算機(jī)教師教務(wù)處學(xué)生課程輸出課程 圖3 課程管理業(yè)務(wù)流程圖成績(jī)管理業(yè)務(wù)流程圖：教務(wù)處輸入計(jì)算機(jī)教師教務(wù)處學(xué)生成績(jī)教師輸出 圖4 成績(jī)管理業(yè)務(wù)流程圖1教務(wù)處輸入計(jì)算機(jī)班主任教務(wù)處學(xué)生班級(jí)班級(jí)輸出 圖5 成績(jī)管理業(yè)務(wù)流程圖22.2數(shù)據(jù)流程分析：2.2.1數(shù)據(jù)流程圖：由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以學(xué)生成績(jī)管理模塊為例來(lái)進(jìn)行編制。學(xué)籍管理部門教師學(xué)生成績(jī)管理系統(tǒng)教務(wù)處學(xué)生教師教師學(xué)生情況學(xué)生成績(jī)查詢統(tǒng)計(jì)分析圖

15、6 學(xué)生成績(jī)管理系統(tǒng)0層數(shù)據(jù)流程圖管理部門教務(wù)處教師1.0學(xué)生管理2.0課程管理3.0成績(jī)管理4.0統(tǒng)計(jì)分析D1D2D3查詢者管理者學(xué)生課程成績(jī) 圖7 學(xué)生成績(jī)管理系統(tǒng)1層數(shù)據(jù)流程圖2.3數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計(jì)。首先來(lái)做出學(xué)生成績(jī)管理系統(tǒng)的E-R圖，分析這個(gè)問(wèn)題的實(shí)體，從系統(tǒng)分析可以知道，學(xué)生的成績(jī)是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先，這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體，學(xué)生成績(jī)與教師沒(méi)有內(nèi)在聯(lián)系，教師必須通過(guò)課程實(shí)體才能與學(xué)生建立聯(lián)系，因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有

16、多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績(jī)是這兩個(gè)實(shí)體“學(xué)生”和“成績(jī)”共有的屬性，應(yīng)填在二者的聯(lián)系“學(xué)習(xí)”邊。因?yàn)槌煽?jī)既不是學(xué)生獨(dú)有的，也不是課程獨(dú)有的；“學(xué)生甲70分”或“英語(yǔ)70分”是不完全的，說(shuō)“學(xué)生甲英語(yǔ)70分”才是正確的，因?yàn)?0分是學(xué)生甲和英語(yǔ)課二者共有的。這個(gè)E-R圖可畫(huà)成下圖。學(xué)生課程成績(jī)學(xué)習(xí)mn 圖8 學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖教師與課程這兩個(gè)實(shí)體之間，是一對(duì)多聯(lián)系；一位教師可以都多門課程，而一門課程對(duì)于學(xué)生成績(jī)來(lái)說(shuō)只能有一位教師(英語(yǔ)、高等數(shù)學(xué)有多位教師教，但對(duì)某個(gè)固定的學(xué)生來(lái)說(shuō)只能有一位教師)。其E-R圖，如下所示。n教師課程教學(xué)l 圖9 E-R圖教師與課程的E-R圖組合

17、到一起，得到最后的E-R圖，有了E-R圖，就可以設(shè)計(jì)數(shù)據(jù)庫(kù)。下圖為數(shù)據(jù)模型圖。學(xué)生課程教師學(xué)習(xí)學(xué)習(xí)課程學(xué)生教師實(shí)體模型數(shù)據(jù)模型數(shù)據(jù)庫(kù)學(xué)習(xí)lnmm 圖10 數(shù)據(jù)模型圖2.4功能分析：功能層次圖學(xué)生信息管理系統(tǒng)登錄系統(tǒng)管理班級(jí)管理檔案管理打印報(bào)表課程管理成績(jī)管理基本課程設(shè)置學(xué)生繳費(fèi)瀏覽班級(jí)課程設(shè)置學(xué)生繳費(fèi)添加基本學(xué)費(fèi)設(shè)置學(xué)生繳費(fèi)查詢修改密碼添加班級(jí)檔案瀏覽添加用戶復(fù)新登錄班級(jí)瀏覽班級(jí)查詢檔案添加檔案查詢 圖11 功能層次圖第三章 系統(tǒng)設(shè)計(jì)3.1軟件模塊結(jié)構(gòu)設(shè)計(jì)3.1.1系統(tǒng)方案確定通過(guò)對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級(jí)管理、學(xué)生成績(jī)管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理、系統(tǒng)管理等功

18、能。3.1.2軟件結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。接受數(shù)據(jù)處理中心班級(jí)管理檔案管理交費(fèi)管理課程管理成績(jī)管理打印報(bào)表 圖12 軟件結(jié)構(gòu)圖3.2數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)采用了Microsoft推出的Access數(shù)據(jù)庫(kù)，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫(kù)，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的

19、時(shí)候，可以使用Microsoft的數(shù)據(jù)庫(kù)服務(wù)器軟件SQL Server，此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接（ADO的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。3.2.1 本系統(tǒng)中所涉及到的主要實(shí)體共有九個(gè)數(shù)據(jù)表：allkecheng表：課程名稱，教材cj表：學(xué)號(hào)，學(xué)期，類型，課程名稱，分?jǐn)?shù)class表：年級(jí)，班級(jí)，教室，年制，專業(yè)，班主任，備注classkecheng表：年級(jí)，專業(yè)，年制，學(xué)期，課程名稱jf表：學(xué)號(hào)，學(xué)期，交費(fèi)，欠費(fèi)，日期，操作員kaoshileixing表：類型use表：username,password,admin,readonly,qx1,qx2,qx3

20、,qx4xj表：學(xué)號(hào)，姓名，性別，班級(jí)，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時(shí)間，備注suefei表：年級(jí)，專業(yè)，年制，學(xué)期，學(xué)費(fèi)3.2.2 各表的物理結(jié)構(gòu)如下：allkecheng表：字段名稱類型寬度小數(shù)位課程名稱文本20教材文本30Cj表：字段名稱類型寬度小數(shù)位學(xué)號(hào)文本10學(xué)期文本50類型文本16課程名稱文本20分?jǐn)?shù)單精度型數(shù)字自動(dòng) Class表：字段名稱類型寬度小數(shù)位年級(jí)文本16班級(jí)文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注Classkecheng表：字段名稱類型寬度小數(shù)位年級(jí)文本16專業(yè)文本12年制文本8學(xué)期文本50課程名稱文本20Jf表：字段名稱類型寬度小數(shù)

21、位學(xué)號(hào)文本5學(xué)期文本50交費(fèi)貨幣自動(dòng)欠費(fèi)貨幣自動(dòng)日期日期/時(shí)間操作員文本10Kaosileixing表：字段名稱類型寬度小數(shù)位類型文本10Use表：字段名稱類型寬度小數(shù)位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名稱類型寬度小數(shù)位學(xué)號(hào)文本9姓名文本8性別文本2班級(jí)文本10出生年月日期/時(shí)間家庭住址文本30郵政編碼數(shù)字（長(zhǎng)整型）聯(lián)系電話數(shù)字（長(zhǎng)整型）入學(xué)時(shí)間日期/時(shí)間備注備注xuefei表：字段名稱類型寬度小數(shù)位年級(jí)文本16專業(yè)文本50年制文本20學(xué)期文本40學(xué)費(fèi)貨幣自動(dòng)第四章 系統(tǒng)代碼本部分

22、主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。41系統(tǒng)登陸界面：本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用909;909為用戶名和密碼來(lái)登陸本系統(tǒng)。 圖13 登陸界面Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Th

23、en MsgBox 用戶名錯(cuò)誤！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox 密碼錯(cuò)誤！, vbExclama

24、tion + vbOKOnly, 警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = select username from use where username= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用戶名稱和密碼不匹配！, vbExclamation + vbOKO

25、nly, 警告 Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)

26、If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub42系統(tǒng)主界面：本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有6個(gè)功能菜單和19個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從班級(jí)管理、檔案管理、繳費(fèi)管理、課程管理、成績(jī)管理等系統(tǒng)的具體功能，同時(shí)，在系統(tǒng)管理模塊中可以完成對(duì)本系統(tǒng)的安全性管理。 圖14 系統(tǒng)應(yīng)用界面Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X

27、As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongDim find1 As IntegerDim liulan1 As IntegerPrivate Sub add_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If

28、 Form1.Show modi = False Form1.ZOrder (0)End SubPrivate Sub cjadd_Click()fenshumodi = Falseqxstr = Executeqx(4)If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmcj2.Showfrmcj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxst

29、r = Executeqx(4)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmcj1.Showfrmcj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub

30、End If Form4.Show Form4.ZOrder (0) i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFormclass1.Show classmodi = False Formc

31、lass1.classload Formclass1.ZOrder (0)End SubPublic Sub clabrowse()txtsql = select * from classFormclass2.ZOrder (0)Formclass2.Caption = 瀏覽班級(jí)設(shè)置Formclass2.classshowtitleFormclass2.classshowdataEnd SubPrivate Sub classbrowse_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)

32、與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFormclass2.ShowEnd SubPrivate Sub classfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If Formclass3.Show Formclass3.ZOrder (0)End SubPrivate Sub find_Click() En

33、d SubPrivate Sub classkecheng_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEnd SubPrivate Sub denglu2_Click()Frmdenlu.ShowUnload MeEnd SubPrivate Sub jiaofeiadd_Click()qx

34、str = Executeqx(3)If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFrmjf1.ShowFrmjf1.ZOrder 0End SubPrivate Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformatio

35、n + vbOKOnly, 警告) Exit SubEnd Iffrmjf2.Showfrmjf2.ZOrder 0End SubPrivate Sub jiaofeifind_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFrmjf4.ShowEnd SubPrivate Sub jibenkecheng_Click()qxstr = Executeqx(4)If qxstr =

36、 false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmjiben.Showfrmjiben.ZOrder 0End SubPrivate Sub leixing_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFrmleixing.ShowFrm

37、leixing.ZOrder 0End SubPrivate Sub liulan_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If find = False Form3.ShowEnd SubPrivate Sub MDIForm_Load()username = 0001DataEnv1.Connection1.ConnectionString = connstringStatu

38、sBar1.Panels(2).Text = NowStatusBar1.Panels(3).Text = 當(dāng)前操作員： & usernameDim aa As StringSelect Case Executeqx(1)Case admin aa = 超級(jí)管理員Case readonly aa = 只讀管理員Case Else aa = 普通管理員End SelectStatusBar1.Panels(4).Text = 狀態(tài)： & aaEnd SubPrivate Sub useradd_Click()qxstr = Executeqx(1)If qxstr = false Or qxst

39、r = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmuser1.Showfrmuser1.ZOrder 0End SubPrivate Sub usermodi_Click()qxstr = Executeqx(1)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End Iffrmcpass.S

40、howEnd SubPrivate Sub xuefeiadd_Click()qxstr = Executeqx(3)If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If xuefeimodi = False Dim i As Integer For i = 0 To 3 frmxuefei1.Combo1(i).Enabled = True Next i Me.Caption = 添加班級(jí)設(shè)置 Fo

41、r i = 0 To 3 frmxuefei1.Combo1(i).Text = Next i frmxuefei1.Text1.Text = frmxuefei1.Show frmxuefei1.ZOrder 0End SubPublic Sub xfbrowse()txtsql = select * from xuefei order by 學(xué)期 desc, 年級(jí) desc,專業(yè) descFrmxuefei2.ZOrder (0)Frmxuefei2.Caption = 瀏覽學(xué)費(fèi)設(shè)置Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEnd

42、 SubPrivate Sub xuefeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If Frmxuefei2.ShowEnd SubPrivate Sub xuefeifind_Click()qxstr = Executeqx(3)If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInfor

43、mation + vbOKOnly, 警告) Exit SubEnd If Frmxuefei3.Show Frmxuefei3.ZOrder (0) i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3)End Sub4.3用戶管理模塊：本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門以及不同使用人員對(duì)本系統(tǒng)的要求和需要，從而實(shí)行了分級(jí)管理，對(duì)用戶的權(quán)限和類別進(jìn)行了分類管理。 圖15 用戶管理界面Private Sub Command1_Click()If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！,

44、 vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text)

45、 Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf aa = 0 Then MsgBox 普通用戶至少要有一項(xiàng)權(quán)限！, vbExclamation + vbOKOnly, 警告Exit

46、SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = select * from use where username= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Ift

47、xtsql = select * from useSet mrc = ExecuteSQL(txtsql)mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 mrc.Fields(admin) = y Case 1 mrc.Fields(readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value =

48、1 Then Select Case j Case 0 mrc.Fields(qx1) = y Case 1 mrc.Fields(qx2) = y Case 2 mrc.Fields(qx3) = y Case 3 mrc.Fields(qx4) = y End Select End If Next j End Select End If Next i mrc.Update MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Su

49、b Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Option1(2).Value = TrueEnd SubPrivate Sub Form_Resize()Text1(0).SetFocusEnd SubPrivate Sub Option1_Click(Index As Integer)If Index 2 ThenFor i = 0 To 3 Check1(i).Enabled = FalseNext iElseFor i = 0 To 3 Check1(i).Enabled = TrueNext iEnd IfEnd S

50、ub44學(xué)生繳費(fèi)管理模塊：因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 圖16 繳費(fèi)管理界面Public printstr As StringPrivate Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase(xs.mdb) dbSource.Execute (SELECT * INto 班級(jí)一覽表 IN 學(xué)生管理一覽表.xls EXCEL 5.0; FROM class) z = MsgBox(成功！, vbOKOnl

51、y, 查詢)End SubPublic Sub classshowtitle() Dim i As Integer MSF1.Clear With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年級(jí) .TextMatrix(0, 2) = 班級(jí) .TextMatrix(0, 3) = 教室 .TextMatrix(0, 4) = 年制 .TextMatrix(0, 5) = 專業(yè) .TextMatrix(0, 6) = 班主任 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(

52、2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End WithEnd SubPublic Sub clas

53、sshowdata()Dim j As IntegerDim i As IntegerDim mrc1 As ADODB.Recordset Set mrc1 = ExecuteSQL(Trim(txtsql) If mrc1.EOF = False Then mrc1.MoveFirst With MSF1 .Rows = 1 Do While Not mrc1.EOF .Rows = .Rows + 1 For i = 1 To mrc1.Fields.Count .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1) Next i mrc1.Move

54、Next Loop mrc1.Close End With Else If classfind = True Then Formclass2.Hide Formclass3.Show zzz = MsgBox(對(duì)不起，沒(méi)有此班級(jí)的檔案記錄！, vbOKOnly, 查詢) Formclass3.ZOrder (0) Formclass3.Text1(0).SetFocus End If End IfEnd SubPrivate Sub cmddel_Click()qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If Dim mrc As ADODB.Recordset Dim msgtext As String Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1