學(xué)生檔案管理系統(tǒng)的設(shè)計(jì)與開發(fā)

PAGE.PAGE.摘要隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用,管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科,任何一個(gè)單位要生存要發(fā)展,要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來,就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本文介紹了在VisualBasic6.0環(huán)境下采用"自上而下地總體規(guī)劃,自下而上地應(yīng)用開發(fā)"的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析某一學(xué)校學(xué)生管理的不足,創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分,包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說明了幾個(gè)主要模塊的算法,本系統(tǒng)界面友好,操作簡(jiǎn)單,比較實(shí)用。關(guān)鍵字：管理信息系統(tǒng)、學(xué)生管理、VisualS+SQLServer/Access。ABSTRACTAsinformationtechnologyapplyinginmanagementmoreandmoreextensiveanddeep,theimplementationofmanagementinformationsystemhasgraduallymaturedintechnology.Managementinformationsystemisanewsubjectthatisgrowing,anyoneunitmustestablishmanagementinformationsystemaccordingtoitsowncharacteristics,iftheunitwantstosurviveanddevelop,wantstoorganizeinternalactivitiesorganiclyandefficiently.Thisthesisintroducesaprocessthatexploitamanagementinformationsysteminthestrategyof"up-downmasterplan,bottom-upapplicationdevelopment"intheenvironmentofVisualbasic6.0.Byanalyzingthelackofstudentsmanagementinonecollege,wecreatedasetofeffectiveprogramthatmanagingstudentsbycomputer.Thethesisintroducessystemanalysispartofstudentsmanagementinformationsystem,includingfeasibilityanalysis,businessprocessanalysis.Systemdesignpartmainlyintroducessystemfunctiondesignanddatabasedesignandthecodedesign.Systemimplementpartintroducesalgorithmofseveralmainmodule.Thissystemhasfriendlyinterface,simpleoperation,quitepractical.Keywords:managementinformationsystem;studentmanagement;VisualS+SQLServer/Access。目錄摘要IABSTRACTII第1章系統(tǒng)概述11.1系統(tǒng)及需求分析21.1.1系統(tǒng)需求2可行性分析21.2系統(tǒng)設(shè)計(jì)的背景21.3系統(tǒng)的功能簡(jiǎn)介61.3.1項(xiàng)目規(guī)劃6系統(tǒng)管理模塊<CTRL+O>6班級(jí)管理模塊〔CTRL+P6學(xué)生檔案管理模塊〔CTRL+T7課程管理模塊〔CTRL+R7成績(jī)管理模塊〔CTRL+F71.4系統(tǒng)開發(fā)的目標(biāo)7第2章系統(tǒng)分析82.1業(yè)務(wù)流程分析8班級(jí)管理業(yè)務(wù)流程圖8檔案管理業(yè)務(wù)流程圖82.2數(shù)據(jù)流程分析102.3數(shù)據(jù)存儲(chǔ)分析實(shí)體聯(lián)系圖112.4功能分析功能層次圖13第3章系統(tǒng)設(shè)計(jì)143.1軟件模塊結(jié)構(gòu)設(shè)計(jì)14系統(tǒng)方案確定14軟件結(jié)構(gòu)設(shè)計(jì)143．2數(shù)據(jù)庫設(shè)計(jì)143.2.1本系統(tǒng)中所涉及到的主要實(shí)體共有九個(gè)數(shù)據(jù)表15表的物理結(jié)構(gòu)15第4章系統(tǒng)的功能194．1系統(tǒng)登陸界面194．2系統(tǒng)主界面224．3用戶管理模塊33第5章總結(jié)與展望39致謝40參考文獻(xiàn)41..第1章系統(tǒng)概述本學(xué)生信息管理系統(tǒng)可以說是一個(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)需求通過調(diào)查,要求系統(tǒng)需要有以下功能=1\*GB2⑴由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面=2\*GB2⑵由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理=3\*GB2⑶原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改=4\*GB2⑷方便的數(shù)據(jù)查詢,支持多條件查詢=5\*GB2⑸在相應(yīng)的權(quán)限下,刪除數(shù)據(jù)方便簡(jiǎn)單,數(shù)據(jù)穩(wěn)定性好=6\*GB2⑹數(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ì)算過程不是很復(fù)雜。因此,比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)器,在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面,由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn),特別是網(wǎng)上資料,特別是參考其它程序的功能,因此完全可以實(shí)現(xiàn)。1.2系統(tǒng)設(shè)計(jì)的背景本系統(tǒng)的設(shè)計(jì)是在WindowsXP操作系統(tǒng)環(huán)境下,使用VisualBasic6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù),在MIS開發(fā)過程中,如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題,目前,數(shù)據(jù)庫產(chǎn)品較多,每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍,因此,在選擇數(shù)據(jù)庫時(shí),應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍,本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：VisualBasic語言VisualBasic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì),可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下,利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具,使用Windows內(nèi)部的應(yīng)用程序接口<API>函數(shù),以及動(dòng)態(tài)鏈接庫<DLL>、動(dòng)態(tài)數(shù)據(jù)交換<DDE>、對(duì)象的鏈接與嵌入<OLE>、開放式數(shù)據(jù)訪問<ODBC>等技術(shù),可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f,VisualBasic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí),都是通過編寫程序代碼來設(shè)計(jì)用戶界面,在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果,必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意,還要回到程序中修改。有時(shí)候,這種編程-編譯-修改的操作可能要反復(fù)多次,大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計(jì)工具,把Windows界面設(shè)計(jì)的復(fù)雜性"封裝"起來,開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局,用系統(tǒng)提供的工具,在屏幕上畫出各種"部件",即圖形對(duì)象,并設(shè)置這些圖形對(duì)象的屬性。VisualBasic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼,程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼,從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計(jì),但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言<C++>不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中,對(duì)象由程序代碼和數(shù)據(jù)組成,是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法<OOP>,把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象,并為每個(gè)對(duì)象賦予應(yīng)有的屬性,使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí),不必編寫建立和描述每個(gè)對(duì)象的程序代碼,而是用工具畫在界面上,VisualBasic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上,都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言VisualBasic是在BASIC語言的基礎(chǔ)上發(fā)展起來的,具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu),接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡(jiǎn)單易懂,其編輯器支持彩色代碼,可自動(dòng)進(jìn)行語法錯(cuò)誤檢查,同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言,在輸入代碼的同時(shí),解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令,并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)VisualBasic程序的過程中,隨時(shí)可以運(yùn)行程序,而在整個(gè)程序設(shè)計(jì)好之后,可以編譯生成可執(zhí)行文件<.EXE>,脫離VisualBasic環(huán)境,直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制VisualBasic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件,每個(gè)事件都可以通過一段程序來響應(yīng)。例如,命令按鈕是一個(gè)對(duì)象,當(dāng)用戶單擊該按鈕時(shí),將產(chǎn)生一個(gè)"單擊"<CLICK>事件,而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序,用來實(shí)現(xiàn)指定的操作。在用VisualBasic設(shè)計(jì)大型應(yīng)用軟件時(shí),不必建立具有明顯開始和結(jié)束的程序,而是編寫若干個(gè)微小的子程序,即過程。這些過程分別面向不同的對(duì)象,由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能,或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作,這樣可以方便編程人員,提高效率。訪問數(shù)據(jù)庫VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能,利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口,可以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫,并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí),VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫,如dBASE,FoxPro,Paradox等,這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接,即ODBC功能,可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫,如SQLServer,Oracle等。在應(yīng)用程序中,可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn),直接訪問服務(wù)器上的數(shù)據(jù)庫,并提供了簡(jiǎn)單的面向?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>方案。動(dòng)態(tài)數(shù)據(jù)交換<DDE>利用動(dòng)態(tài)數(shù)據(jù)交換<DynamicDataExchange>技術(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ù)。VisualBasic提供了動(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>起來,再嵌入<embed>某個(gè)應(yīng)用程序中,從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略,它把多個(gè)應(yīng)用程序合為一體,將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入,是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù),可以方便地建立復(fù)合式文檔<compounddocument>,這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成,文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫<DLL>VisualBasic是一種高級(jí)程序設(shè)計(jì)語言,不具備低級(jí)語言的功能,對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外,通過動(dòng)態(tài)鏈接庫,還可以調(diào)用Windows應(yīng)用程序接口<API>函數(shù),實(shí)現(xiàn)SDK所具有的功能。1.3系統(tǒng)的功能簡(jiǎn)介本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：班級(jí)管理、學(xué)生檔案管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理等等。1.3.1項(xiàng)目規(guī)劃學(xué)生信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序,由班級(jí)管理、學(xué)生檔案管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理等模塊組成,特規(guī)劃如下:系統(tǒng)管理模塊<CTRL+O>該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶<快捷鍵：CTRL+A>、修改密碼<快捷鍵：CTRL+B>、重新登錄<快捷鍵：CTRL+F1>等等。班級(jí)管理模塊〔CTRL+P該模塊的功能是實(shí)現(xiàn)對(duì)全校班級(jí)的管理工作,包括：班級(jí)游覽、班級(jí)添加、班級(jí)查詢等,這三個(gè)功能模塊各自獨(dú)立,完成學(xué)校的全部班級(jí)的管理。學(xué)生檔案管理模塊〔CTRL+T該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作,包括檔案添加、檔案瀏覽、檔案查詢等功能,從而方便學(xué)校管理部門對(duì)學(xué)校的基本情況的快速查詢和了解。課程管理模塊〔CTRL+R該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置,并可在其中設(shè)置各門課程的教材選用情況,方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。成績(jī)管理模塊〔CTRL+F學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段,本模塊包括考試類型設(shè)置,共有期中考試和期未考試兩種類型,還設(shè)置了成績(jī)添加、成績(jī)游覽、成績(jī)查詢等功能模塊。1.4系統(tǒng)開發(fā)的目標(biāo)出于本系統(tǒng)是學(xué)校學(xué)生管理的一個(gè)綜合性的系統(tǒng),本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。第2章系統(tǒng)分析2.1業(yè)務(wù)流程分析輸出輸出輸入計(jì)算機(jī)教務(wù)處輸入計(jì)算機(jī)教務(wù)處班級(jí)學(xué)生班級(jí)學(xué)生班級(jí)班級(jí)教務(wù)處班主任教務(wù)處班主任圖2.1班級(jí)管理業(yè)務(wù)流程圖輸出輸出輸入計(jì)算機(jī)教務(wù)處輸入計(jì)算機(jī)教務(wù)處檔案學(xué)生檔案學(xué)生檔案檔案教務(wù)處班主任教務(wù)處班主任圖2.2檔案管理業(yè)務(wù)流程圖輸出輸入計(jì)算機(jī)教務(wù)處課程輸出輸入計(jì)算機(jī)教務(wù)處課程課程學(xué)生課程學(xué)生教務(wù)處教師教務(wù)處教師圖2.3課程管理業(yè)務(wù)流程圖輸出輸出輸入計(jì)算機(jī)教務(wù)處輸入計(jì)算機(jī)教務(wù)處成績(jī)學(xué)生成績(jī)學(xué)生教師教師教務(wù)處教師教務(wù)處教師圖2.4成績(jī)管理業(yè)務(wù)流程圖輸出輸出輸入計(jì)算機(jī)教務(wù)處輸入計(jì)算機(jī)教務(wù)處學(xué)生班級(jí)學(xué)生班級(jí)班級(jí)班級(jí)教務(wù)處班主任教務(wù)處班主任圖2.52.2數(shù)據(jù)流程分析由于本系統(tǒng)的數(shù)據(jù)模塊較多,下面僅以學(xué)生成績(jī)管理模塊為例來進(jìn)行編制。學(xué)籍管理部門學(xué)籍管理部門教師學(xué)生成績(jī)管理系統(tǒng)教務(wù)處學(xué)生教師教師學(xué)生情況學(xué)生成績(jī)查詢統(tǒng)計(jì)分析圖2.6學(xué)生成績(jī)管理系統(tǒng)0層數(shù)據(jù)流程圖管理部門教務(wù)處管理部門教務(wù)處教師1.0學(xué)生管理2.0課程管理3.0成績(jī)管理4.0統(tǒng)計(jì)分析D1D2D3查詢者管理者學(xué)生學(xué)生課程課程成績(jī)成績(jī)圖2.7學(xué)生成績(jī)管理系統(tǒng)1層數(shù)據(jù)流程圖2.3數(shù)據(jù)存儲(chǔ)分析實(shí)體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計(jì)。首先來做出學(xué)生成績(jī)管理系統(tǒng)的E-R圖,分析這個(gè)問題的實(shí)體,從系統(tǒng)分析可以知道,學(xué)生的成績(jī)是由任課教師按照課程給出的,學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先,這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體,學(xué)生成績(jī)與教師沒有內(nèi)在聯(lián)系,教師必須通過課程實(shí)體才能與學(xué)生建立聯(lián)系,因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程,一門課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績(jī)是這兩個(gè)實(shí)體"學(xué)生"和"成績(jī)"共有的屬性,應(yīng)填在二者的聯(lián)系"學(xué)習(xí)"邊。因?yàn)槌煽?jī)既不是學(xué)生獨(dú)有的,也不是課程獨(dú)有的；"學(xué)生甲70分"或"英語70分"是不完全的,說"學(xué)生甲英語70分"才是正確的,因?yàn)?0分是學(xué)生甲和英語課二者共有的。這個(gè)E-R圖可畫成下圖。學(xué)生學(xué)生課程成績(jī)學(xué)習(xí)mn圖2.8學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖教師與課程這兩個(gè)實(shí)體之間,是一對(duì)多聯(lián)系；一位教師可以都多門課程,而一門課程對(duì)于學(xué)生成績(jī)來說只能有一位教師<英語、高等數(shù)學(xué)有多位教師教,但對(duì)某個(gè)固定的學(xué)生來說只能有一位教師>。其E-R圖,如下所示。nn教師教師課程教學(xué)l圖2.9教師與課程的E-R圖組合到一起,得到最后的E-R圖,有了E-R圖,就可以設(shè)計(jì)數(shù)據(jù)庫。下圖為數(shù)據(jù)模型圖。學(xué)生學(xué)生課程教師學(xué)習(xí)學(xué)習(xí)課程學(xué)生教師實(shí)體模型數(shù)據(jù)模型數(shù)據(jù)庫學(xué)習(xí)lnmm學(xué)習(xí)lnmm圖2.102.4功能分析功能層次圖學(xué)生信息管理系統(tǒng)學(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í)查詢檔案添加檔案查詢-+圖2.11第3章系統(tǒng)設(shè)計(jì)3.1軟件模塊結(jié)構(gòu)設(shè)計(jì)系統(tǒng)方案確定通過對(duì)系統(tǒng)的調(diào)研與分析,系統(tǒng)主要應(yīng)完成的功能有：班級(jí)管理、學(xué)生成績(jī)管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理、系統(tǒng)管理等功能。軟件結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)在執(zhí)行時(shí),先根據(jù)不同的操作人員的需要來進(jìn)行相應(yīng)的模塊,然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來說,本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。接受數(shù)據(jù)接受數(shù)據(jù)處理中心班級(jí)管理檔案管理交費(fèi)管理課程管理成績(jī)管理打印報(bào)表圖3.13．2數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫,這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫,能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡(jiǎn)易性和有效性,大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫。使用Access的好處還在于,如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(shí)候,可以使用Microsoft的數(shù)據(jù)庫服務(wù)器軟件SQLServer,此時(shí),程序只需要簡(jiǎn)單的修改一下鏈接〔ADO的數(shù)據(jù)源就可以,這樣,為程序的平滑擴(kuò)展提供了非常有力的條件。本系統(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,qx4}xj表：{學(xué)號(hào),姓名,性別,班級(jí),出生年月,家庭住址,郵政編碼,,入學(xué)時(shí)間,備注}suefei表：{年級(jí),專業(yè),年制,學(xué)期,學(xué)費(fèi)}表的物理結(jié)構(gòu)表3.1allkecheng表字段名稱類型寬度小數(shù)位課程名稱文本20教材文本30表3.2Cj表字段名稱類型寬度小數(shù)位學(xué)號(hào)文本10學(xué)期文本50類型文本16課程名稱文本20分?jǐn)?shù)單精度型數(shù)字自動(dòng)表3.2Class表字段名稱類型寬度小數(shù)位年級(jí)文本16班級(jí)文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注表3.3Classkecheng表字段名稱類型寬度小數(shù)位年級(jí)文本16專業(yè)文本12年制文本8學(xué)期文本50課程名稱文本20表3.4Jf表字段名稱類型寬度小數(shù)位學(xué)號(hào)文本5學(xué)期文本50交費(fèi)貨幣自動(dòng)欠費(fèi)貨幣自動(dòng)日期日期/時(shí)間操作員文本10表3.5Kaosileixing表字段名稱類型寬度小數(shù)位類型文本10表3.6Use表字段名稱類型寬度小數(shù)位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2表3.7xj表字段名稱類型寬度小數(shù)位學(xué)號(hào)文本9姓名文本8性別文本2班級(jí)文本10出生年月日期/時(shí)間家庭住址文本30郵政編碼數(shù)字〔長整型數(shù)字〔長整型入學(xué)時(shí)間日期/時(shí)間備注備注表3.8xuefei表字段名稱類型寬度小數(shù)位年級(jí)文本16專業(yè)文本50年制文本20學(xué)期文本40學(xué)費(fèi)貨幣自動(dòng)第4章系統(tǒng)的功能本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。4.1系統(tǒng)登陸界面本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理,本系統(tǒng)的用戶名和密碼保存在USE表中,本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限,可以用909;909為用戶名和密碼來登陸本系統(tǒng)。圖4.1系統(tǒng)登錄界面PrivateSubCommand1_Click<>DimmrcAsADODB.Recordsettxtsql="selectusernamefromusewhereusername='"&Trim<Text1.Text>&"'"Setmrc=ExecuteSQL<txtsql>Ifmrc.EOF=TrueThenMsgBox"用戶名錯(cuò)誤！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len<Text1.Text>ExitSubEndIfusername=mrc.Fields<0>txtsql2="selectusernamefromusewherepassword='"&Trim<Text2.Text>&"'"Setmrc=ExecuteSQL<txtsql2>Ifmrc.EOF=TrueThenMsgBox"密碼錯(cuò)誤！",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len<Text2.Text>ExitSubEndIftxtsql="selectusernamefromusewhereusername='"&Trim<Text1.Text>&"'andpassword='"&Trim<Text2.Text>&"'"Setmrc=ExecuteSQL<txtsql>Ifmrc.EOF=TrueThenMsgBox"用戶名稱和密碼不匹配！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfMDIForm1.Showfrmcpass.Text1.Text=Text1.TextUnloadMeEndSubPrivateSubCommand2_Click<>UnloadMeEndSubPrivateSubForm_Load<>EndSubPrivateSubText1_KeyPress<KeyAsciiAsInteger>IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_KeyPress<KeyAsciiAsInteger>IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub4.2系統(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)的安全性管理。圖4.2系統(tǒng)主界面PrivateDeclareFunctionSetWindowPosLib"user32"<ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong>AsLongDimfind1AsIntegerDimliulan1AsIntegerPrivateSubadd_Click<>qxstr=Executeqx<2>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfForm1.Showmodi=FalseForm1.ZOrder<0>EndSubPrivateSubcjadd_Click<>fenshumodi=Falseqxstr=Executeqx<4>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmcj2.Showfrmcj2.ZOrder0EndSubPrivateSubcjbrowse_Click<>qxstr=Executeqx<4>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmcj1.Showfrmcj1.ZOrder0EndSubPrivateSubclaasfind_Click<>qxstr=Executeqx<2>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfForm4.ShowForm4.ZOrder<0>i=SetWindowPos<Form4.hwnd,-1,0,0,0,0,3>EndSubPrivateSubclassapp_Click<>qxstr=Executeqx<2>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFormclass1.Showclassmodi=FalseFormclass1.classloadFormclass1.ZOrder<0>EndSubPublicSubclabrowse<>txtsql="select*fromclass"Formclass2.ZOrder<0>Formclass2.Caption="瀏覽班級(jí)設(shè)置"Formclass2.classshowtitleFormclass2.classshowdataEndSubPrivateSubclassbrowse_Click<>qxstr=Executeqx<2>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFormclass2.ShowEndSubPrivateSubclassfind_Click<>qxstr=Executeqx<2>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFormclass3.ShowFormclass3.ZOrder<0>EndSubPrivateSubfind_Click<>EndSubPrivateSubclasskecheng_Click<>qxstr=Executeqx<4>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEndSubPrivateSubdenglu2_Click<>Frmdenlu.ShowUnloadMeEndSubPrivateSubjiaofeiadd_Click<>qxstr=Executeqx<3>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmjf1.ShowFrmjf1.ZOrder0EndSubPrivateSubjiaofeibrowse_Click<>qxstr=Executeqx<3>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmjf2.Showfrmjf2.ZOrder0EndSubPrivateSubjiaofeifind_Click<>qxstr=Executeqx<3>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmjf4.ShowEndSubPrivateSubjibenkecheng_Click<>qxstr=Executeqx<4>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmjiben.Showfrmjiben.ZOrder0EndSubPrivateSubleixing_Click<>qxstr=Executeqx<4>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmleixing.ShowFrmleixing.ZOrder0EndSubPrivateSubliulan_Click<>qxstr=Executeqx<2>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffind=FalseForm3.ShowEndSubPrivateSubMDIForm_Load<>'username="0001"DataEnv1.Connection1.ConnectionString=connstringStatusBar1.Panels<2>.Text=NowStatusBar1.Panels<3>.Text="當(dāng)前操作員："&usernameDimaaAsStringSelectCaseExecuteqx<1>Case"admin"aa="超級(jí)管理員"Case"readonly"aa="只讀管理員"CaseElseaa="普通管理員"EndSelectStatusBar1.Panels<4>.Text="狀態(tài)："&aaEndSubPrivateSubuseradd_Click<>qxstr=Executeqx<1>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmuser1.Showfrmuser1.ZOrder0EndSubPrivateSubusermodi_Click<>qxstr=Executeqx<1>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIffrmcpass.ShowEndSubPrivateSubxuefeiadd_Click<>qxstr=Executeqx<3>Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=0To3frmxuefei1.Combo1<i>.Enabled=TrueNextiMe.Caption="添加班級(jí)設(shè)置"Fori=0To3frmxuefei1.Combo1<i>.Text=""Nextifrmxuefei1.Text1.Text=""frmxuefei1.Showfrmxuefei1.ZOrder0EndSubPublicSubxfbrowse<>txtsql="select*fromxuefeiorderby學(xué)期desc,年級(jí)desc,專業(yè)desc"Frmxuefei2.ZOrder<0>Frmxuefei2.Caption="瀏覽學(xué)費(fèi)設(shè)置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEndSubPrivateSubxuefeibrowse_Click<>qxstr=Executeqx<3>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmxuefei2.ShowEndSubPrivateSubxuefeifind_Click<>qxstr=Executeqx<3>Ifqxstr="false"Thenss=MsgBox<"對(duì)不起,你沒有管理本功能的權(quán)限,請(qǐng)與管理員聯(lián)系！",vbInformation+vbOKOnly,"警告">ExitSubEndIfFrmxuefei3.ShowFrmxuefei3.ZOrder<0>i=SetWindowPos<Frmxuefei3.hwnd,-1,0,0,0,0,3>EndSub4.3用戶管理模塊本模塊是本系統(tǒng)的安全性設(shè)置模塊,根據(jù)學(xué)校不同部門以及不同使用人員對(duì)本系統(tǒng)的要求和需要,從而實(shí)行了分級(jí)管理,對(duì)用戶的權(quán)限和類別進(jìn)行了分類管理。圖4.3新曾用戶界面PrivateSubCommand1_Click<>IfTrim<Text1<0>.Text>=""ThenMsgBox"用戶名不能為空！",vbExclamation+vbOKOnly,"警告"Text1<0>.SetFocusExitSubEndIfIfTrim<Text1<1>.Text>=""ThenMsgBox"密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1<1>.SetFocusExitSubEndIfIfTrim<Text1<2>.Text>=""ThenMsgBox"確認(rèn)密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1<2>.SetFocusExitSubEndIfIfTrim<Text1<1>.Text><>Trim<Text1<2>.Text>ThenMsgBox"確認(rèn)密碼不正確！",vbExclamation+vbOKOnly,"警告"Text1<2>.SetFocusExitSubEndIfDimaaAsIntegeraa=0IfOption1<2>.Value=TrueThenFori=0To3IfCheck1<i>.Value=1Thenaa=1ExitForEndIfNextiIfaa=0ThenMsgBox"普通用戶至少要有一項(xiàng)權(quán)限！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfEndIfDimmrcAsADODB.Recordsettxtsql="select*fromusewhereusername='"&Trim<Text1<0>.Text>&"'"Setmrc=ExecuteSQL<txtsql>Ifmrc.EOF=FalseThenMsgBox"已存在該用戶！",vbExclamation+vbOKOnly,"警告"Text1<0>.SetFocusText1<0>.SelStart=0Text1<0>.SelLength=Len<Text1<0>.Text>ExitSubEndIftxtsql="select*fromuse"Setmrc=ExecuteSQL<txtsql>mrc.AddNewmrc.Fields<0>=Trim<Text1<0>.Text>mrc.Fields<1>=Trim<Text1<1>.Text>Fori=0To2IfOption1<i>.Value=TrueThenSelectCaseiCase0mrc.Fields<"admin">="y"Case1mrc.Fields<"readonly">="y"Case2Forj=0To3IfCheck1<j>.Value=1ThenSelectCasejCase0mrc.Fields<"