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

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

2、由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機(jī)都是piii以上的機(jī)器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運(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中文版開發(fā)成功的。數(shù)據(jù)庫是mis中的重要支持技術(shù)，在mis開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在

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

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

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

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

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

8、指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫visual basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理microsoft access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時，visual basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dbase，foxpro，paradox等，這些數(shù)據(jù)庫格式都可以用visual basic編輯和處理。visual basic提供開放式數(shù)據(jù)連接，即odbc功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如sql server，oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言sq

9、l數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的sql的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了sql網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動態(tài)數(shù)據(jù)交換(dde)利用動態(tài)數(shù)據(jù)交換(dynamic data exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。visual basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他windows應(yīng)用程序建立動態(tài)數(shù)

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

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

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

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

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

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

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

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

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

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

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

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

22、主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。41系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在use表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用909;909為用戶名和密碼來登陸本系統(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 用戶名錯誤！, 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 密碼錯誤！, 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個功能菜單和19個子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從班級管理、檔案管理、繳費(fèi)管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmcj1.showfrmcj1.zorder 0end subprivate sub claasfind_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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 = 瀏覽班級設(shè)置formclass2.classshowtitleformclass2.classshowdataend subprivate sub classbrowse_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請

32、與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend ifformclass2.showend subprivate sub classfind_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjf1.showfrmjf1.zorder 0end subprivate sub jiaofeibrowse_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjf4.showend subprivate sub jibenkecheng_click()qxstr = executeqx(4)if qxstr =

36、 false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if待添加的隱藏文字內(nèi)容2frmjiben.showfrmjiben.zorder 0end subprivate sub leixing_click()qxstr = executeqx(4)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmleix

37、ing.showfrmleixing.zorder 0end subprivate sub liulan_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if find = false form3.showend subprivate sub mdiform_load()username = 0001dataenv1.connection1.connectionstring = conn

38、stringstatusbar1.panels(2).text = nowstatusbar1.panels(3).text = 當(dāng)前操作員： & usernamedim aa as stringselect case executeqx(1)case admin aa = 超級管理員case readonly aa = 只讀管理員case else aa = 普通管理員end selectstatusbar1.panels(4).text = 狀態(tài)： & aaend subprivate sub useradd_click()qxstr = executeqx(1)if qxstr = fa

39、lse or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmuser1.showfrmuser1.zorder 0end subprivate sub usermodi_click()qxstr = executeqx(1)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sub end i

40、ffrmcpass.showend subprivate sub xuefeiadd_click()qxstr = executeqx(3)if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(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

41、= 添加班級設(shè)置 for 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, 年級 desc,專業(yè) descfrmxuefei2.zorder (0)frmxuefei2.caption = 瀏覽學(xué)費(fèi)設(shè)置frmxuefei2.xuefeishowtitlefrmxuefei2.xuefei

42、showdataend subprivate sub xuefeibrowse_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if frmxuefei2.showend subprivate sub xuefeifind_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)

43、系！, vbinformation + 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é)校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實(shí)行了分級管理，對用戶的權(quán)限和類別進(jìn)行了分類管理。 圖15 用戶管理界面private sub command1_click()if trim(text1(0).text) = then msgbo

44、x 用戶名不能為空！, 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(tex

45、t1(1).text) 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 + vbokon

46、ly, 警告exit 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

47、 subend iftxtsql = 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(

48、j).value = 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 su

49、bprivate sub 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 sub44學(xué)生繳費(fèi)管理模塊：因?yàn)楸鞠到y(tǒng)中有些功能