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

《學(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ù)查詢(xún)，支持多條件查詢(xún)； (5) 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好； (6)

2、數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。 1.1.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ǔ)量、速度方面都能滿(mǎn)足數(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)題

3、，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(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)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專(zhuān)業(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

4、)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(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ì)用戶(hù)界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿(mǎn)意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界

5、面設(shè)計(jì)而編寫(xiě)大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(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)有

6、的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，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ǔ)言和人類(lèi)的邏輯思維方式。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ī)器指

7、令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(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)用戶(hù)單擊該按鈕時(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è)微小的子程

8、序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象，由用戶(hù)操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。 訪問(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功能，可通

9、過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶(hù)數(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)客戶(hù)/服務(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)原始

10、數(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ù)據(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ù)，可以方

11、便地建立復(fù)合式文檔(compound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(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í)

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

13、的全部班級(jí)的管理。 1.2.4學(xué)生檔案管理模塊（CTRL+T）： 該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢(xún)等功能，從而方便學(xué)校管理部門(mén)對(duì)學(xué)校的基本情況的快速查詢(xún)和了解。 1.2.5課程管理模塊（CTRL+R）： 該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門(mén)課程的教材選用情況，方便了學(xué)校教材管理部門(mén)和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。 1.2.6成績(jī)管理模塊（CTRL+F）： 學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考試類(lèi)型設(shè)置，共有期中考試和期未考試兩種類(lèi)型，還設(shè)置了成績(jī)添

14、加、成績(jī)游覽、成績(jī)查詢(xún)等功能模塊。 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ù)流程圖： 教務(wù)處 輸入計(jì)算機(jī) 班主任 教務(wù)處 學(xué)生 班級(jí) 班級(jí) 輸出 圖1 班級(jí)管理業(yè)務(wù)流程圖 檔案管理業(yè)務(wù)流程圖： 教務(wù)處 輸入計(jì)算機(jī) 班主任 教務(wù)處 學(xué)生 檔案 檔案 輸出

15、 圖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í) 輸出

16、 圖5 成績(jī)管理業(yè)務(wù)流程圖2 2.2數(shù)據(jù)流程分析： 2.2.1數(shù)據(jù)流程圖： 由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以學(xué)生成績(jī)管理模塊為例來(lái)進(jìn)行編制。 學(xué)籍管理部門(mén) 教師 學(xué)生成績(jī)管理系統(tǒng) 教務(wù)處 學(xué)生 教師 教師 學(xué)生情況 學(xué)生成績(jī) 查詢(xún) 統(tǒng)計(jì)分析 圖6 學(xué)生成績(jī)管理系統(tǒng)0層數(shù)據(jù)流程圖 管理 部門(mén) 教務(wù)處 教師 1.0 學(xué)生管理 2.0 課程管理 3.0 成績(jī)管理 4.0 統(tǒng)計(jì)分析 D1 D2

17、 D3 查詢(xún)者 管理者 學(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í)多門(mén)課程，一門(mén)課程有多位學(xué)生共

18、同學(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í) m n 圖8 學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖 教師與課程這兩個(gè)實(shí)體之間，是一對(duì)多聯(lián)系；一位教師可以都多門(mén)課程，而一門(mén)課程對(duì)于學(xué)生成績(jī)來(lái)說(shuō)只能有一位教師(英語(yǔ)、高等數(shù)學(xué)有多位教師教，但對(duì)某個(gè)固定的學(xué)生來(lái)說(shuō)只能有一位

19、教師)。其E-R圖，如下所示。 n 教師 課程 教學(xué) l 圖9 E-R圖教師與課程的E-R圖組合到一起，得到最后的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í) l n m m 圖10 數(shù)據(jù)模型圖 2.4功能分析：功能層次圖 學(xué)生信息管理系統(tǒng) 登錄 系統(tǒng)管理 班級(jí)管理 檔案管理

20、 打印報(bào)表 課程管理 成績(jī)管理 基本課程設(shè)置 學(xué)生繳費(fèi)瀏覽 班級(jí)課程設(shè)置 學(xué)生繳費(fèi)添加 基本學(xué)費(fèi)設(shè)置 學(xué)生繳費(fèi)查詢(xún) 修改密碼 添加班級(jí) 檔案瀏覽 添加用戶(hù) 復(fù)新登錄 班級(jí)瀏覽 班級(jí)查詢(xún) 檔案添加 檔案查詢(xún) 圖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)管理等功能。

21、 3.1.2軟件結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢(xú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的其他套件綜合使用。由

22、于Access具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(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表：{課程名稱(chēng)，教材} cj表：{學(xué)號(hào)，學(xué)期，類(lèi)型，課程名稱(chēng)，分?jǐn)?shù)} class表：{年級(jí)，班級(jí)，教室，年制，專(zhuān)業(yè)，班主任，備注} classkecheng表

23、：{年級(jí)，專(zhuān)業(yè)，年制，學(xué)期，課程名稱(chēng)} jf表：{學(xué)號(hào)，學(xué)期，交費(fèi)，欠費(fèi)，日期，操作員} kaoshileixing表：{類(lèi)型} use表：{username,password,admin,readonly,qx1,qx2,qx3,qx4} xj表：{學(xué)號(hào)，姓名，性別，班級(jí)，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時(shí)間，備注} suefei表：{年級(jí)，專(zhuān)業(yè)，年制，學(xué)期，學(xué)費(fèi)} 3.2.2 各表的物理結(jié)構(gòu)如下： allkecheng表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 課程名稱(chēng) 文本 20 教材 文本 30 Cj表： 字段名稱(chēng) 類(lèi)型 寬度

24、 小數(shù)位 學(xué)號(hào) 文本 10 學(xué)期 文本 50 類(lèi)型 文本 16 課程名稱(chēng) 文本 20 分?jǐn)?shù) 單精度型數(shù)字 自動(dòng) Class表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 年級(jí) 文本 16 班級(jí) 文本 20 教室 文本 5 年制 文本 8 專(zhuān)業(yè) 文本 16 班主任 文本 8 備注 備注 Classkecheng表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 年級(jí) 文本 16 專(zhuān)業(yè) 文本 12 年制 文本 8

25、 學(xué)期 文本 50 課程名稱(chēng) 文本 20 Jf表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 學(xué)號(hào) 文本 5 學(xué)期 文本 50 交費(fèi) 貨幣 自動(dòng) 欠費(fèi) 貨幣 自動(dòng) 日期 日期/時(shí)間 操作員 文本 10 Kaosileixing表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 類(lèi)型 文本 10 Use表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1

26、 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 學(xué)號(hào) 文本 9 姓名 文本 8 性別 文本 2 班級(jí) 文本 10 出生年月 日期/時(shí)間 家庭住址 文本 30 郵政編碼 數(shù)字（長(zhǎng)整型） 聯(lián)系電話 數(shù)字（長(zhǎng)整型） 入學(xué)時(shí)間 日期/時(shí)間 備注 備注 xuefei表： 字段名稱(chēng) 類(lèi)型 寬度 小數(shù)位 年級(jí) 文本 16 專(zhuān)業(yè) 文本 50 年制 文本

27、20 學(xué)期 文本 40 學(xué)費(fèi) 貨幣 自動(dòng) 第四章 系統(tǒng)代碼 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。 4．1系統(tǒng)登陸界面： 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶(hù)名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶(hù)而設(shè)置了不同的權(quán)限，可以用909;909為用戶(hù)名和密碼來(lái)登陸本系統(tǒng)。 圖13 登陸界面 Private Sub Command1_Click() Dim mrc As ADODB.Recordset txtsql = "select username from

28、 use where username=" & Trim(Text1.Text) & "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox " 用戶(hù)名錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub End If username = mrc.Fields(0) txtsql2 = "select userna

29、me from use where password=" & Trim(Text2.Text) & "" Set mrc = ExecuteSQL(txtsql2) If mrc.EOF = True Then MsgBox " 密碼錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit Sub End If txtsql = "select username from use where us

30、ername=" & Trim(Text1.Text) & "and password=" & Trim(Text2.Text) & "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox "用戶(hù)名稱(chēng)和密碼不匹配！", vbExclamation + vbOKOnly, "警告" Exit Sub End If MDIForm1.Show frmcpass.Text1.Text = Text1.Text Unload Me End Sub Private Sub Command2_Click()

31、 Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub 4．2系統(tǒng)主界面： 本模塊是本

32、系統(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 As Long, ByVal Y As Long, ByVa

33、l cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private 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 Sub End I

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

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

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

37、 Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Formclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0) End Sub Public Sub clabrowse() txtsql = "select * from class" Formclass2.ZOrder (0) Formclass2.Caption =

38、 "瀏覽班級(jí)設(shè)置" Formclass2.classshowtitle Formclass2.classshowdata End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Formclass2.Show End Sub Private Sub class

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

40、uteqx(4) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Frmclasskecheng1.Show Frmclasskecheng1.ZOrder End Sub Private Sub denglu2_Click() Frmdenlu.Show Unload Me End Sub Private Sub jiaofeiadd_Click() qxstr

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

42、起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If frmjf2.Show frmjf2.ZOrder 0 End Sub Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Frmjf

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

44、xstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Frmleixing.Show Frmleixing.ZOrder 0 End Sub Private Sub liulan_Click() qxstr = Executeqx(2) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation +

45、vbOKOnly, " 警告") Exit Sub End If find = False Form3.Show End Sub Private Sub MDIForm_Load() username = "0001" DataEnv1.Connection1.ConnectionString = connstring StatusBar1.Panels(2).Text = Now StatusBar1.Panels(3).Text = "當(dāng)前操作員： " & username Dim aa As String Select Case Execute

46、qx(1) Case "admin" aa = "超級(jí)管理員" Case "readonly" aa = "只讀管理員" Case Else aa = "普通管理員" End Select StatusBar1.Panels(4).Text = "狀態(tài)： " & aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系

47、！", vbInformation + vbOKOnly, " 警告") Exit Sub End If frmuser1.Show frmuser1.ZOrder 0 End Sub Private 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 If frmcpass.Show End Sub

48、 Private 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 Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 frmxuefei1.Combo1(i).Enabled = True Ne

49、xt i Me.Caption = "添加班級(jí)設(shè)置" For i = 0 To 3 frmxuefei1.Combo1(i).Text = "" Next i frmxuefei1.Text1.Text = "" frmxuefei1.Show frmxuefei1.ZOrder 0 End Sub Public Sub xfbrowse() txtsql = "select * from xuefei order by 學(xué)期 desc, 年級(jí) desc,專(zhuān)業(yè) desc" Frmxuefei2.ZOrder (0) Frmxuefei2

50、.Caption = "瀏覽學(xué)費(fèi)設(shè)置" Frmxuefei2.xuefeishowtitle Frmxuefei2.xuefeishowdata End Sub Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Frmxuefei2.Show End Sub Privat

51、e Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = "false" Then ss = MsgBox("對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If Frmxuefei3.Show Frmxuefei3.ZOrder (0) i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3) End Sub 4.3用戶(hù)管理模塊： 本模塊是

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

53、ox "密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = "" Then MsgBox "確認(rèn)密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBox "確認(rèn)密碼不正確！", vbExclamation + v

54、bOKOnly, "警告" Text1(2).SetFocus Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox " 普通用戶(hù)至少要有一項(xiàng)權(quán)限！", vbExclamation + vbOKOnly, "警告" Exit Sub End If End If

55、 Dim mrc As ADODB.Recordset txtsql = "select * from use where username=" & Trim(Text1(0).Text) & "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = False Then MsgBox " 已存在該用戶(hù)！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text)

56、 Exit Sub End If txtsql = "select * from use" Set 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

57、 mrc.Fields("readonly") = "y" Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 mrc.Fields("qx1") = "y" Case 1 mrc.Fields("qx2") = "y" Case 2 mrc.Fiel

58、ds("qx3") = "y" Case 3 mrc.Fields("qx4") = "y" End Select End If Next j End Select End If Next i mrc.Update MsgBox " 用戶(hù)添加成功！", vbExclamation + vbOKOnly, "警告" Text1(0).Text = "" Text1(1).Text = "" T

59、ext1(2).Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index <> 2 Then For i = 0 To 3 Check1(i).Enabl

60、ed = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 4．4學(xué)生繳費(fèi)管理模塊： 因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 圖16 繳費(fèi)管理界面 Public printstr As String Private Sub Command1_Click() Dim dbSource As Databas

61、e Set dbSource = OpenDatabase("xs.mdb") dbSource.Execute ("SELECT * INto 班級(jí)一覽表 IN 學(xué)生管理一覽表.xls EXCEL 5.0; FROM class") z = MsgBox("成功！", vbOKOnly, "查詢(xún)") End Sub Public Sub classshowtitle() Dim i As Integer MSF1.Clear With MSF1 .Cols = 8 .TextMatrix(0, 1) = "年級(jí)"

62、 .TextMatrix(0, 2) = "班級(jí)" .TextMatrix(0, 3) = "教室" .TextMatrix(0, 4) = "年制" .TextMatrix(0, 5) = "專(zhuān)業(yè)" .TextMatrix(0, 6) = "班主任" .TextMatrix(0, 7) = "備注" .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 8

63、00 .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 =

64、 1 End With End Sub Public Sub classshowdata() Dim j As Integer Dim i As Integer Dim 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

65、 For i = 1 To mrc1.Fields.Count .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1) Next i mrc1.MoveNext Loop mrc1.Close End With Else If classfind = True Then Formclass2.Hide Formclass3.Show zzz = MsgBox("對(duì)不起，沒(méi)有此班級(jí)的檔案記錄！", vbOKOnly, "查詢(xún)") Formcl

66、ass3.ZOrder (0) Formclass3.Text1(0).SetFocus End If End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = "readonly" Then ss = MsgBox("對(duì)不起，你是只讀用戶(hù)不能刪除記錄，請(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