學(xué)生信息管理信息系統(tǒng)分析與設(shè)計(共42頁)

1、PAGE PAGE 49 本科畢業(yè)論文（設(shè)計(shj)）模板學(xué)生(xu sheng)信息管理信息系統(tǒng)分析與設(shè)計 學(xué)生(xu sheng)姓名： 學(xué) 號： 專 業(yè)： 信息管理與信息系統(tǒng) 班 級： 指導(dǎo)教師： 完成日期： 2014 年 12月 30日學(xué)生信息(xnx)管理信息系統(tǒng)分析與設(shè)計內(nèi) 容 摘 要學(xué)生信息管理信息系統(tǒng)是一個教育單位不可缺少(qusho)的部分，在某種程度上體現(xiàn)了一個學(xué)校的教育現(xiàn)代化水平，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要。而傳統(tǒng)的學(xué)生管理系統(tǒng)大多由人工(rngng)操作，不僅效率低，且可靠性不高。本文介紹了學(xué)生信息管理系統(tǒng)的開發(fā)整個過程，詳盡討論了系統(tǒng)相關(guān)數(shù)據(jù)庫文

2、件的建立，登陸界面的設(shè)計，身份權(quán)限的識別，查找的過程設(shè)計，修改的過程設(shè)計等，具體模塊實施采用了原型法和面向?qū)ο笙到y(tǒng)開發(fā)方法。本系統(tǒng)具有學(xué)生檔案管理,班級管理,課程管理,成績管理，專業(yè)管理等模塊,可分別完成日常學(xué)生檔案，班級信息，課程信息，成績信息的添加、修改、刪除、查詢、打印等功能。使用方便，操作簡單，比較實用。關(guān)鍵詞：信息管理 系統(tǒng)分析 設(shè)計 目錄(ml)序言(xyn)緒論(xln)5 1.1 系統(tǒng)開發(fā)的背景及意義5系統(tǒng)規(guī)劃6 2.1 新系統(tǒng)的總體目標(biāo)規(guī)劃6 2.2 信息系統(tǒng)的功能規(guī)劃62.3 信息系統(tǒng)的結(jié)構(gòu)規(guī)劃62.4 規(guī)劃方案的可行性分析7系統(tǒng)分析83.1 組織結(jié)構(gòu)分析83.2 業(yè)務(wù)流程

3、分析83.3 數(shù)據(jù)流程分析93.4 數(shù)據(jù)字典10系統(tǒng)設(shè)計114.1 信息系統(tǒng)的總體架構(gòu)設(shè)計114.2 信息系統(tǒng)基礎(chǔ)設(shè)施的設(shè)計與選擇114.3 信息系統(tǒng)總體功能及詳細設(shè)計124.4 代碼設(shè)計124.5 數(shù)據(jù)庫設(shè)計124.6 系統(tǒng)輸入設(shè)計、處理過程設(shè)計及輸出設(shè)計16系統(tǒng)實施215.1 系統(tǒng)的物理配置設(shè)計215.2 程序設(shè)計225.3 系統(tǒng)測試28總結(jié)體會30參考文獻30附錄31 序言(xyn)隨著學(xué)校的規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對(min du)龐大的信息量需要有學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實現(xiàn)學(xué)生信息

4、關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計算機對學(xué)生各種信息進行日常管理，如查詢(chxn)、修改、增加、刪除，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)。第一章 緒論(xln)1.1開發(fā)背景(bijng)及意義學(xué)校學(xué)生信息管理系統(tǒng)軟件,是因為目前學(xué)校學(xué)生人數(shù)劇增,學(xué)生信息呈爆炸性增長的前提下,學(xué)校對學(xué)生信息管理的自動化與準(zhǔn)確(zhnqu)化的要求日益強烈的背景下構(gòu)思出來的,該軟件設(shè)計完成后可用于所有教育單位(包括學(xué)校,學(xué)院等等)的學(xué)生信息的管理。學(xué)生信息管理系統(tǒng)主要提供方便高效的管理功能

5、以及網(wǎng)上的信息查閱平臺，學(xué)生可以通過該系統(tǒng)查閱相關(guān)信息，管理員可以管理所有信息。第二章 系統(tǒng)(xtng)規(guī)劃2.1新系統(tǒng)(xtng)的總體目標(biāo)規(guī)劃（1）管理員能夠?qū)崿F(xiàn)對整個學(xué)生信息的添加，修改，刪除，查詢等操作(cozu)，對學(xué)校系別、專業(yè)、班級的管理操作。（2）可以將學(xué)生成績的數(shù)據(jù)庫發(fā)布到網(wǎng)上，方便學(xué)生教師進行查詢，達到資源共享的目的。（3）教師能夠在一定的權(quán)限內(nèi)對所有學(xué)生成績的查詢，所有教師信息的查詢，對學(xué)生成績的錄入，統(tǒng)計學(xué)生成績以及修改自己的密碼。（4）學(xué)生可以在自己的權(quán)限內(nèi)對自己的成績進行查詢，以及個人信息的查詢，登陸密碼的修改等操作。2.2功能規(guī)劃1.學(xué)生管理功能：為了方便學(xué)生信息

6、的增加、刪除、修改、查詢。2.課程管理功能：管理員可以通過填寫表格的形式修改課程等相關(guān)信息。3.成績管理功能：管理員可以對數(shù)據(jù)庫中的學(xué)生成績信息進行增加、修改。4.班級管理功能：管理員可以通過此功能對班級信息進行增加、刪除、修改、查詢。5.用戶管理功能：可以增加、刪除、修改、查看該程序的登陸用戶，超級管理員并可以設(shè)置用戶的權(quán)限。2.3結(jié)構(gòu)規(guī)劃一）目標(biāo)系統(tǒng)定位對現(xiàn)有的正方教務(wù)管理系統(tǒng)進行相關(guān)業(yè)務(wù)分析， 針對學(xué)生管理部分進行優(yōu)化 與整合，以更好地完成校方對學(xué)生的管理，和方便學(xué)生更好地使用該系統(tǒng)完成較為完善的自主管理機制下的良好教學(xué)管理。 現(xiàn)有的系統(tǒng)界面直觀，操作簡單；界面友好而且使用方便，做到了盡

7、量使用戶的數(shù)據(jù)輸入最少；具有人機親和力，做到了輸入畫面盡可能接近實際；界面保 持一致，讓用戶始終用同一種方式思考與操作； 界面應(yīng)該使用戶隨時能夠掌握任 務(wù)的進展情況；界面具有較強的容錯功能，避免因為誤操作、按鍵連擊等可能導(dǎo) 致的數(shù)據(jù)誤錄。 但仍存在文章所述第二部分的諸多問題。所以在此對相關(guān)問題進行分析，以期解決。（二）目標(biāo)客戶分析我校學(xué)生管理信息系統(tǒng)主要的目標(biāo)客戶主要有三類，具體如下：我校教務(wù)系統(tǒng)管理人員， 簡稱后臺管理； 教務(wù)處以及教師；還有就是我校各院系學(xué)生。2.4可行性分析(fnx)由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比

8、較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻，特別是網(wǎng)上資料(zlio)，特別是參考其它程序的功能，因此完全可以實現(xiàn)。第三章 系統(tǒng)分析3.1組織(zzh)結(jié)構(gòu)分析由于系統(tǒng)的局限性，以及使用者的單一性，所以系統(tǒng)只有后臺操作，即描述的是管理員與數(shù)據(jù)庫的相互(xingh)關(guān)系圖3.1學(xué)生(xu sheng)信息管理系統(tǒng)組織結(jié)構(gòu)圖3.2業(yè)務(wù)流程分析學(xué)生管理系統(tǒng)主要是以先進的管理理念和科學(xué)的計算機技術(shù)來取代原始的手工操作。在新系統(tǒng)開發(fā)前，我們對這個管理系統(tǒng)業(yè)務(wù)流程進行了系統(tǒng)的調(diào)查，得出了下面的業(yè)務(wù)流程圖，

9、如圖4-1所示：圖3.2學(xué)生管理(gunl)信息業(yè)務(wù)流程圖主要(zhyo)業(yè)務(wù)分析：（1）可以隨時錄入修改和刪除學(xué)生(xu sheng)信息，對學(xué)校每年新招收的學(xué)生可以在系統(tǒng)中實現(xiàn)添加管理，對于出錯的學(xué)生信息可以及時進行修改，對半途離開學(xué)校和畢業(yè)出去的學(xué)生信息可以及時刪除。做到及時有效管理在校學(xué)生的相關(guān)信息。（2）可以通過學(xué)號輸入和姓名輸入，查詢學(xué)生的基本信息和選課情況以及成績分布。簡單清晰地展現(xiàn)出用戶所需要查詢的信息。方便快捷。（3）可以打印出課程表，學(xué)生名單和學(xué)生成績表。3.3數(shù)據(jù)流程分析3.4數(shù)據(jù)(shj)字典數(shù)據(jù)字典是指對數(shù)據(jù)的數(shù)據(jù)項、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲、處理邏輯、外部實體等進

10、行(jnxng)定義和描述，其目的是對數(shù)據(jù)流程圖中的各個元素做出詳細的說明。學(xué)生管理系統(tǒng)的數(shù)據(jù)字典的編寫。由數(shù)據(jù)流程圖可以(ky)得到數(shù)據(jù)字典的內(nèi)容，在數(shù)據(jù)字典中，僅給出了學(xué)生學(xué)號一個數(shù)據(jù)元素，在外部項中給出學(xué)生，在數(shù)據(jù)存儲中給出學(xué)生基本信息表，在加工中給出學(xué)籍管理，在數(shù)據(jù)流中給出錄入數(shù)據(jù)。 HYPERLINK /retype/zoom/d4b77179a417866fb84a8ea3?pn=13&x=0&y=604&raww=602&rawh=275&o=png_6_0_0_135_119_622_235_892.979_1262.879&type=pic&fr=color&md5sum=2

11、261efc65f53c5651394d4469850475b&sign=a6082fb1b7&png=198309-327115&jpg=167013-167013 第四章 系統(tǒng)(xtng)設(shè)計4.1信息系統(tǒng)的總體(zngt)架構(gòu)設(shè)計1）層次(cngc)圖2）結(jié)構(gòu)圖4.2信息系統(tǒng)基礎(chǔ)設(shè)施的設(shè)計與選擇開發(fā)平臺層: VisualBasic6.0數(shù)據(jù)管理層：MicrosoftAccess2007系統(tǒng)軟件層：windows硬件層：筆記本網(wǎng)絡(luò)層：路由器4.3信息系統(tǒng)總體功能及詳細(xingx)設(shè)計1）學(xué)生(xu sheng)信息管理模塊主要是對學(xué)生(xu sheng)信息（如學(xué)號，姓名，性別，家庭住址

12、等）進行管理。本模塊又分為五個子模塊：錄入學(xué)生信息；查詢學(xué)生信息；修改/刪除學(xué)生信息；打印學(xué)生信息；班級管理。2）學(xué)生成績管理模塊主要是對學(xué)生成績進行管理。本模塊分為四個子模塊：錄入學(xué)生成績；查詢學(xué)生成績；修改/刪除學(xué)生成績；打印學(xué)生成績。3）用戶管理模塊主要對使用本系統(tǒng)的用戶進行如下管理：添加新用戶；刪除用戶。本模塊只有管理員才能使用，普通用戶不能進入。4.4代碼設(shè)計1）代碼的概念代碼設(shè)計在系統(tǒng)分析階段就應(yīng)開始。由于編制代碼要仔細調(diào)查和多方協(xié)調(diào)，所以是件很費事的工作，到系統(tǒng)設(shè)計階段才能定下來。代碼是代表事物名稱、屬性、狀態(tài)等符號。代碼在信息系統(tǒng)中是人與計算機的共同語言，是兩者交換的工具。2）

13、代碼的作用代碼為事物提供一個概要而不含糊的認定，便于數(shù)據(jù)的存儲和檢索，使用代碼可以提高處理的效率和精度。（2.1）標(biāo)識作用：可以標(biāo)識和確定某個具體對象，以便于計算機的識別。（2.2）統(tǒng)計和檢索作用：當(dāng)按對象的屬性或類別進行編碼時，易于優(yōu)化對象的統(tǒng)計和檢索。（2.3）對象狀態(tài)的描述作用：代碼可以用來表明事物所處的狀態(tài)，便于對象的動態(tài)管理。4.5數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞直接對應(yīng)系統(tǒng)的效率和實現(xiàn)的效果。合理的數(shù)據(jù)庫結(jié)構(gòu)的設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。同時，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實現(xiàn)。1）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計：數(shù)據(jù)庫概

14、念結(jié)構(gòu)設(shè)計應(yīng)在系統(tǒng)分析階段進行，任務(wù)是根據(jù)用戶需求設(shè)計出概念數(shù)據(jù)模型。概念結(jié)構(gòu)設(shè)計所得的ER模型對用戶需求的一種抽象表達形式。為了能夠(nnggu)建立起最終的物理系統(tǒng)，需要將概念結(jié)構(gòu)轉(zhuǎn)化為DBMS所支持的數(shù)據(jù)模型。2）學(xué)生(xu sheng)信息管理系統(tǒng)數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)在學(xué)生管理系統(tǒng)(xtng)的數(shù)據(jù)庫概念設(shè)計中，從系統(tǒng)分析階段的數(shù)據(jù)詞典中分析出，數(shù)據(jù)存儲之間的關(guān)系，也就是系統(tǒng)的關(guān)系模式。學(xué)生管理系統(tǒng)用關(guān)聯(lián)圖來描述概念模型，簡稱E-R圖（實體聯(lián)系圖），E-R圖由三部分組成：實體、屬性、聯(lián)系。所用符號如下所示：針對一般學(xué)生管理系統(tǒng)的需求，通過對學(xué)生學(xué)習(xí)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下所示的數(shù)

15、據(jù)項和數(shù)據(jù)結(jié)構(gòu)：（a）學(xué)生基本信息：包括的數(shù)據(jù)項有：學(xué)號、姓名、性別、出生日期、班號、聯(lián)系電話、入校日期、家庭住址、備注等。（b）班級信息：包括的數(shù)據(jù)項有：班號、所在班級、輔導(dǎo)員、所在教室等。（c）課程基本信息：包括的數(shù)據(jù)項有：課程編號、課程名稱、課程類別、課程描述等。（d）課程設(shè)置信息：包括的數(shù)據(jù)項有：年級信息、所學(xué)課程等。（e）學(xué)生成績信息：包括的數(shù)據(jù)項有：考試編號、所在班級、學(xué)生學(xué)號、學(xué)生姓名、所學(xué)課程、考試分數(shù)等。下面設(shè)計規(guī)劃出的實體有：學(xué)生實體、班級實體、年級實體、課程實體。下面是各個實體具體的描述，由此得出學(xué)生信息管理系統(tǒng)的ER圖：圖4-5-1學(xué)生(xu sheng)信息管理系統(tǒng)的

16、E-R圖學(xué)生(xu sheng)實體E-R圖：圖4-5-2學(xué)生(xu sheng)實體E-R圖班級實體E-R圖：圖4-5-3班級實體E-R圖 寢室實體E-R圖：圖4-5-4寢室實體E-R圖實體(sht)之間的關(guān)系E-R圖：圖4-5-5實體(sht)之間的關(guān)系E-圖3）數(shù)據(jù)庫邏輯(lu j)結(jié)構(gòu)設(shè)計：邏輯結(jié)構(gòu)設(shè)計的任務(wù)：把數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計階段的出的ER圖轉(zhuǎn)化成SQL Server2000中所支持的實際數(shù)據(jù)模型。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計分兩個步驟：首先將ER圖轉(zhuǎn)換成關(guān)系模型，然后對關(guān)系模型進行優(yōu)化。 ER圖轉(zhuǎn)換成的關(guān)系模式如下所示：學(xué)生（學(xué)號，姓名，性別，出生日期，班號，聯(lián)系電話，入校日期，家庭住址，

17、備注） 班級（班號，年級，輔導(dǎo)員，教室）課程（課程編號，課程名稱，課程類別，課程描述）年級課程設(shè)置（年級，年級名稱）學(xué)生成績（考試編號，學(xué)號，姓名，班號，課程名稱，考試分數(shù)）4）數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn) HYPERLINK /retype/zoom/d4b77179a417866fb84a8ea3?pn=23&x=0&y=104&raww=355&rawh=300&o=png_6_0_0_135_700_399_338_892.979_1262.879&type=pic&fr=color&md5sum=2261efc65f53c5651394d4469850475b&sign=a6082fb1b7&p

18、ng=578250-618042&jpg=332903-355603 經(jīng)過前面的需求分析和概念結(jié)構(gòu)分析以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。就可以在SQL Server 2000數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結(jié)構(gòu)。這是利用SQL Server 2000數(shù)據(jù)庫系統(tǒng)中的SQL查詢分析器實現(xiàn)的。SQL語句在SQL Server2000中的查詢分析器執(zhí)行后，將自動產(chǎn)生需要的所有表格。管理信息系統(tǒng)處理方式的合理選擇，就是一個處理過程的設(shè)計問題，選擇處理方式實際就是根據(jù)系統(tǒng)的任務(wù)、目標(biāo)和環(huán)境條件，合理的選擇信息活動的形態(tài)及具體方法。46系統(tǒng)輸入設(shè)計(shj)、處理過程設(shè)計及輸出設(shè)計把登陸界面設(shè)置為啟動項：選擇(xunz)菜

19、單“工程(gngchng)”“工程1屬性”，打開“工程1工程屬性”，選擇“啟動對象”，在“啟動對象”下拉菜單中選擇“Form1”。如圖：1登錄界面，運行.exe文件進入登錄界面。設(shè)置窗體的startposition屬性為centerscreen。讓登陸窗口在屏幕的中央顯示。2.用戶注冊界面說明(shumng)：用戶直接單擊“注冊(zhc)”按鈕進入(jnr)用戶注冊界面。3.主菜單界面說明：用戶直接單擊“登陸”按鈕進入主菜單界面。4.添加院系界面展示及代碼如果用戶類型是學(xué)生，“添加院系信息”菜單項呈灰色不可以狀態(tài)。5.修改院系界面(jimin)展示及代碼如果用戶類型(lixng)是學(xué)生，“修改

20、(xigi)院系信息”菜單項呈灰色不可以狀態(tài)6.查詢(chxn)院系界面展示及代碼7.設(shè)置年級課程界面展示(zhnsh)及代碼：如果用戶類型(lixng)是學(xué)生，“設(shè)置年級信息”菜單項呈灰色不可以狀態(tài)。第五章 系統(tǒng)實施5.1 系統(tǒng)(xtng)的物理配置設(shè)計數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計是為數(shù)據(jù)模型在設(shè)備商選定合適(hsh)的存儲結(jié)構(gòu)和存取方法，已獲得數(shù)據(jù)庫的最佳存取效率。學(xué)生信息系統(tǒng)數(shù)據(jù)庫中的各個表格設(shè)計(shj)結(jié)果如下，每個表格表示在數(shù)據(jù)庫中的一個表。 學(xué)生基本信息表Student_info班級信息表Class_info 課程信息表Course info年級課程設(shè)置表Gradecourse info

21、學(xué)生(xu sheng)成績信息表Result info信息(xnx)用戶表User info5.2 程序設(shè)計(chn x sh j)1、登錄模塊代碼：Public yhm$, mm1$Dim num%Private Sub Command1_Click()Dim yh$, mm$, a%yh = Trim(Text1.Text)On Error Resume NextDim m As Stringm = select * from 用戶表 where 用戶名= & Trim(Text1.Text) & and 用戶身份= & Trim(Combo1.Text) & Me.Data1.Reco

22、rdSource = mMe.Data1.Refreshyh = Text1.Textmm = Text2.TextIf Me.Data1.Recordset.RecordCount = 0 ThenMsgBox 用戶名不存在或用戶身份錯誤，請重新輸入！, vbExclamation, 提示 num = num + 1Elsemm = Text2.TextIf mm = Data1.Recordset.Fields(密碼(m m) Thenyhm = yhmm1 = Text2.Textsys_lock = Falsenum = 0登錄(dn l).HideMDIForm1.ShowElseM

23、sgBox 密碼錯誤(cuw)，請重新輸入！, , 輸入錯誤num = num + 1Text2.Text = Text2.SetFocusEnd IfEnd IfIf num = 3 ThenMsgBox 登錄錯誤已達3次，請1分鐘后重新登錄, vbInformation, 錯誤a = Minute(Time) * 60 + Second(Time)Set fso = CreateObject(scripting.filesystemobject)Set txtfile = fso.createtextfile(App.Path & time.txt, True)txtfile.write

24、(a)txtfile.CloseEndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & 用戶表.mdbData1.RecordSource = 用戶表Combo1.Text = 學(xué)生On Error GoTo aOpen App.Path & time.txt For Input As #1Input #1, aClose #1b = Minute(Time) * 60 + Second(Time)c = b - CSng(a)If

25、c 60 ThenMsgBox 登錄(dn l)錯誤已經(jīng)鎖定系統(tǒng)， & 60 - c & 秒鐘后登錄, vbInformation, 提示 EndElseKill App.Path & time.txtEnd Ifa:End Sub2.主窗體代碼(di m)：Private Sub cjcx_Click()成績(chngj)查詢.ShowEnd SubPrivate Sub cjtj_Click()成績統(tǒng)計.ShowEnd SubPrivate Sub ckbb_Click()DataReport1.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1

26、.Panels(2).Text = 系統(tǒng)當(dāng)前用戶： & 登錄.yhmIf Trim(登錄.Combo1.Text) = 管理員 ThenMDIForm1.xsxxbj.Enabled = Truefrm基本情況.cmdAdd.Enabled = Truefrm基本情況.cmdCancel.Enabled = Truefrm基本情況.cmdDelete.Enabled = Truefrm基本情況.cmdEdit.Enabled = Truefrm基本情況.cmdUpdate.Enabled = Truefrm基本情況.cmdRefresh.Enabled = TrueElseMDIForm1.x

27、sxxbj.Enabled = Falsefrm基本情況.cmdAdd.Enabled = Falsefrm基本情況.cmdCancel.Enabled = Falsefrm基本情況.cmdDelete.Enabled = Falsefrm基本情況.cmdEdit.Enabled = Falsefrm基本情況.cmdUpdate.Enabled = Falsefrm基本情況.cmdRefresh.Enabled = FalseEnd IfEnd SubPrivate Sub rstj_Click()人數(shù)(rn sh)統(tǒng)計.ShowEnd SubPrivate Sub tc_Click()End

28、End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.KeyCase Tmm修改(xigi)密碼.ShowCase Tckfrm基本(jbn)情況.ShowEnd SelectEnd SubPrivate Sub xhcx_Click()X = MsgBox(請輸入要查詢的學(xué)號, , 查詢)End SubPrivate Sub xsxxbj_Click()信息管理.ShowEnd Sub3.成績查詢模塊代碼：Private Sub Command1_Click

29、()Dim c As Stringc = InputBox$(請輸入學(xué)號, 查找窗)Data1.RecordSource = select * from 成績情況 where 學(xué)號 like & c & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 無此學(xué)號！, , 提示Data1.RecordSource = 成績情況Data1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = A

30、pp.Path & stu.mdbEnd Sub4.人數(shù)統(tǒng)計模塊(m kui)代碼：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= & App.Path & stu.mdbAdodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select 專業(yè),count

31、(*) As 人數(shù)(rn sh) From 基本情況 Group By 專業(yè) Adodc1.RefreshEnd Sub5.學(xué)生信息編輯(binj)模塊代碼：Private Sub Command1_Click()Command2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = TrueIf Command1.Caption = 新增 ThenCommand1.Caption = 確認mbookmark = Data1.Recordset.BookmarkData1.

32、Recordset.AddNewText1.SetFocusElseCommand1.Caption = 新增Data1.Recordset.UpdateData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()i = MsgBox(確定刪除當(dāng)前信息嗎？, 4 + vbQuestion, 提示)If i = 6 ThenOn Error Resume NextData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Rec

33、ordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Command2.Enabled = Not Command2.EnabledCommand1.Enabled = Not Command1.EnabledCommand4.Enabled = TrueIf Command3.Caption = 修改(xigi) ThenCommand3.Caption = 確認(qurn)mbookmark = Data1.Recordset.BookmarkData1.Recordset.EditText1.SetFocusElseCommand

34、3.Caption = 修改(xigi)Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command4_Click()Command1.Caption = 新增: Command3.Caption = 修改Command1.Enabled = True: Command2.Enabled = TrueCommand3.Enabled = True: Command4.Enabled = Falsembookmark = Data1.Recordset.BookmarkData1.UpdateControlsData1.Recordset.Book

35、mark = mbookmarkEnd SubPrivate Sub Command5_Click()Dim m As Stringm = InputBox$(請輸入要查找的學(xué)生學(xué)號, 查找窗)Data1.Recordset.FindFirst 學(xué)號= & m & If Data1.Recordset.NoMatch Then MsgBox 無此學(xué)號！, , 提示 End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Data1_Reposition()Data1.Caption = 基本情況： & (Data1.Reco

36、rdset.AbsolutePosition + 1) End SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Info=False;Data Source= & App.Path & stu.mdbData1.DatabaseName = App.Path & stu.mdbData1.RecordSource = 基本(jbn)情況Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select

37、 * from 成績(chngj)情況 Adodc1.RefreshAdodc1.Recordset.Find (學(xué)號= & Text1.Text & )End Sub6.修改(xigi)密碼模塊代碼：Dim old$, nw$, rnew$Private Sub Command1_Click()old = Text1.Textnw = Text2.Textrnew = Text3.TextData1.Recordset.FindFirst 用戶名= & 登錄.yhm & SecurityIf old = 登錄.mm1 ThenIf nw = rnew ThenIf rnew = ThenMs

38、gBox 密碼不能為空, vbInformation, 系統(tǒng)Exit SubEnd If登錄.mm1 = nwOn Error Resume NextData1.Recordset.Fields(密碼) = 登錄.mm1Data1.Recordset.UpdateMsgBox 密碼已經(jīng)被修改！Unload MeElseMsgBox 兩次密碼不同！End IfElseMsgBox 密碼不對！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App

39、.Path & 用戶表.mdbData1.RecordSource = 用戶表End Sub5.3 系統(tǒng)(xtng)測試本次測試采用黑盒測試法，對學(xué)生信息管理系統(tǒng)進行測試。首先(shuxin)，進行對功能模塊進行劃分，明確功能測試的人員負責(zé)情況。其次，對各個模塊進行測試。在測試時，把程序看作一個不能打開的黑盒子，在完全不考慮內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測試者在程序接口進行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序能否適當(dāng)?shù)慕邮蛰斎霐?shù)據(jù)而產(chǎn)生(chnshng)正確的輸出信息，并且保證外部信息的完整性。第六章 總結(jié)(zngji)體會忙碌(mngl)了一段時間，學(xué)生信息管理系統(tǒng)

40、的制作(zhzu)算是告一段落了，經(jīng)過這次系統(tǒng)設(shè)計課設(shè)，雖然有很多不足，不過收獲還是頗為豐富的，再有理論知識上結(jié)合實踐，使我學(xué)到了更多。首先是知識層面，更進一步的了解了系統(tǒng)分析與設(shè)計的基本操作，其實很多東西不是上課能解決的，必須要自己動手實踐。最直接的收獲就是系統(tǒng)的制作和報告的撰寫，這些東西都得靠自己在下面翻書看，或者查閱別人的優(yōu)秀案例，取人之長，補己之短。其實很東西都是在潛移默化的狀態(tài)下收獲的。在系統(tǒng)設(shè)計的過程中，我從中發(fā)現(xiàn)，學(xué)習(xí)系統(tǒng)分析與設(shè)計要細心和有耐性，并且要不斷地從外界學(xué)習(xí)更多的技術(shù)才能設(shè)計出一套完美的系統(tǒng)?？傊@次課設(shè)讓我學(xué)會了不少東西，也為以后的職場生涯打下了基礎(chǔ)。參考文獻：1

41、信息系統(tǒng)分析與設(shè)計黃孝章、劉鵬、蘇利祥 清華大學(xué)出版社2Visual Basic程序設(shè)計趙萬龍 中國鐵道出版社3數(shù)據(jù)庫系統(tǒng)概論薩師煊 王珊 高等教育出版社 4基礎(chǔ)會計學(xué)陳愛玲、劉曉玉、崔志敏 陜西科學(xué)技術(shù)出版社5SQL Server數(shù)據(jù)庫基礎(chǔ)教程與上機指導(dǎo)(zhdo)周緒 清華大學(xué)出版社6信息資源管理張凱 清華大學(xué)出版社7管理信息系統(tǒng)邢喜榮、黃軍倉、田喜群、楊芳齡 電子(dinz)工業(yè)出版社 8access數(shù)據(jù)庫應(yīng)用(yngyng)基礎(chǔ)教程梁燦、施興家 清華大學(xué)出版社附錄“登錄”按鈕代碼：PrivateSubCommand2_Click()DimconnAsNewADODB.Connectio

42、nDimrsAsNewADODB.RecordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用戶信息表whereIfTrim(Text1.Text)=Then如果用戶名為空MsgBox用戶名不能為空！,vbOKOnly+vbCritical,錯誤Text1.SetFocusmiCount=miCount+1累加輸入次數(shù)ExitSubEndIfIfTrim(Text2.Text)=Then如果密碼為空MsgBox密碼不能為空！,vbOKOn

43、ly+vbCritical,錯誤Text2.SetFocusExitSubEndIfIfTrim(Combo1.Text)=選擇類別Then如果密碼為空MsgBox請選擇用戶類別！,vbOKOnly+vbCritical,錯誤Combo1.SetFocusExitSubEndIfsql=sql+userName=&Text1.Text&sql=sql+ANDPwd=&Text2.Text&sql=sql+ANDType=&Combo1.Text&rs.Opensql,conn,1,1Ifrs.RecordCount=1Then找到記錄PName=rs(userName)PWord=rs(Pwd

44、)pType=rs(Type)UnloadMeform3.ShowquanxianElseMsgBox用戶名或密碼(m m)不對！,vbOKOnly+vbInformation,錯誤(cuw)UnloadMeEndIfrs.CloseSetrs=Nothingconn.CloseSetconn=NothingmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSub用戶注冊代碼(di m)如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.Rec

45、ordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用戶信息表whereIfTrim(Text1.Text)=Then如果用戶名為空MsgBox請輸入真實姓名,vbOKOnly+vbCritical,錯誤Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=Then如果密碼為空MsgBox請輸入用戶名,vbOKOnly+vbCritical,錯誤Text2.SetFocusExitSubEndIfIfT

46、ext2.TextText3.TextThenMsgBox新密碼與確認的密碼不相同,vbOKOnly+vbCritical,錯誤Text3.SetFocusExitSubEndIfIfCombo1.Text=選擇類別ThenMsgBox請選擇用戶類別,vbOKOnly+vbCritical,錯誤Combo1.SetFocusExitSubEndIfsql=sql+pwd=&Text1.Text&rs.Opensql,conn,1,3Ifrs.RecordCount0ThenMsgBox用戶名已存在(cnzi)+重新(chngxn)輸入用戶名,vbOKOnly+vbInformation,提示(

47、tsh)Text2.SetFocusExitSubElsers.AddNewrs(userName)=Text1.Textrs(pwd)=Text2.Textrs(Type)=Combo1.Textrs.UpdateMsgBox用戶成功添加,vbOKOnly+vbInformation,提示EndIfUnloadMers.CloseSetrs=Nothingconn.CloseSetconn=NothingEndSubPrivateSubCommand2_Click()Form1.ShowEndSubPrivateSubCommand3_Click()Text1.Text=Text2.Text

48、=Text3.Text=Combo1.Text=EndSubPrivateSubForm_Load()CallleibieEndSubPrivateSubleibie()Combo1.AddItem學(xué)生Combo1.AddItem管理員EndSub添加院系信息代碼如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringsql=Select*from院系信息表whereIfTrim(Text1.Text)=ThenMsgBox請輸入院系名稱,vbOKOnly+v

49、bCritical,錯誤Text1.SetFocusExitSubEndIfIfTrim(Text4.Text)=ThenMsgBox請輸入(shr)院系負責(zé)人,vbOKOnly+vbCritical,錯誤(cuw)Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)=ThenMsgBox請輸入(shr)院系電話,vbOKOnly+vbCritical,錯誤Text3.SetFocusExitSubEndIfsql=Select*from院系信息表conn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&Ap

50、p.Path&stu.mdbrs.Opensql,conn,1,3rs.AddNewrs.Fields(院系名稱)=Trim(Text1.Text)rs.Fields(院系編號)=Trim(Text2.Text)rs.Fields(院系電話)=Trim(Text3.Text)rs.Fields(院系負責(zé)人)=Trim(Text4.Text)rs.Fields(院系專業(yè))=Trim(Text5.Text)rs.UpdateText1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text1.SetFocusrs.Updaters.CloseSe

51、trs=NothingEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=EndSubPrivateSubCommand3_Click()UnloadMeEndSub修改院系信息代碼如下：OptionExplicitDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcnAsNewADODB.Connection定義書簽，用來(yn li)記載當(dāng)前記錄位置DimmyBookmarkAsVariant判斷是否修改(x

52、igi)記錄DimmccleanAsBooleanPrivateSubCommand1_Click()rs.MoveFirstCallviewDataEndSubPrivateSubCommand2_Click()rs.MovePreviousIfrs.BOFThenrs.MoveLastEndIfCallviewDataEndSubPrivateSubCommand3_Click()rs.MoveNextIfrs.EOFThenrs.MoveFirstEndIfCallviewDataEndSubPrivateSubCommand4_Click()rs.MoveLastCallviewDat

53、aEndSubPrivateSubCommand5_Click()DimtstSQLAsStringDimMsgTextAsString使移動(ydng)記錄按鈕失效Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=False記下當(dāng)前記錄位置myBookmark=rs.myBookmarkEndSubPrivateSubCommand6_Click()rs.Fields(院系名稱)=Combo1.Textrs.Fields(院系編號)=Combo2.Textrs.Fields(院

54、系專業(yè))=Combo3.Textrs.Fields(院系電話(dinhu)=Text1.Textrs.Fields(院系負責(zé)人)=Text2.Textrs.UpdateCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand7_Click()IfNotmccleanThenFrame3.Enabled=True使移動(ydng)記錄按鈕失效Command1.Enabled=TrueCommand2.Enabled=TrueCommand3

55、.Enabled=TrueCommand4.Enabled=True回到開始記錄(jl)位置rs.Bookmark=myBookmarkCallviewDataElseMsgBox什么都沒有修改！,vbOKOnly+vbExclamation,警告EndIfCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand8_Click()記下當(dāng)前記錄位置myBookmark=rs.Bookmarkstr2$=MsgBox(是否刪除當(dāng)前記錄？,vb

56、OKCancel,刪除當(dāng)前記錄！)Ifstr2$=vbOKThenrs.MoveNextIfrs.EOFThenrs.MoveFirstmyBookmark=rs.Bookmarkrs.MoveLastrs.Deleters.Bookmark=myBookmark調(diào)用函數(shù)顯示數(shù)據(jù)CallviewDataElsemyBookmark=rs.Bookmarkrs.MovePreviousrs.Deleters.Bookmark=myBookmark調(diào)用函數(shù)顯示數(shù)據(jù)CallviewDataElsemyBookmark=rs.Bookmarkrs.MovePreviousrs.Delete回到原來(y

57、unli)位置rs.Bookmark=myBookmark調(diào)用函數(shù)顯示(xinsh)數(shù)據(jù)CallviewDataEndIfElsers.Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringDimMsgTextAsStringtxtSQL=select*from院系信息(xnx)表Setrs=ExecuteSQL(txtSQL,MsgText)Whilers.EOF=FalseCombo1.AddItemrs.Fields(院系名稱)Combo2.AddItemrs.Fields(院系編號

58、)Combo3.AddItemrs.Fields(院系專業(yè))rs.MoveNextWendrs.ClosetxtSQL=select*from院系信息表Setrs=ExecuteSQL(txtSQL,MsgText)Ifrs.EOF=FalseThenrs.MoveFirstCallviewDatamyBookmark=rs.BookmarkElseMsgBox沒有記錄！,vbOKOnly+vbExclamation,警告ExitSubEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)rs.CloseEndSubPublicSubviewData

59、()Combo1.Text=rs!院系名稱Combo2.Text=rs!院系編號Combo3.Text=rs!院系專業(yè)Text1.Text=rs!院系電話Text2.Text=rs!院系負責(zé)人EndSub查詢院系信息代碼(di m)如下：PrivateSubCommand1_Click()DimtxtSQLAsStringDimMsgTextAsStringDimdd(3)AsBooleanDimmrcAsADODB.RecordsettxtSQL=select*from院系信息(xnx)表whereIfCheck1.ValueThenIfTrim(Text1.Text)=ThensMeg=院

60、系名稱(mngchng)不能為空MsgBoxsMeg,vbOKOnly+vbExclamation,警告Text1.SetFocusExitSubElsedd(0)=TrueIfdd(1)ThentxtSQL=txtSQL&and院系名稱=&Text1.Text&ElsetxtSQL=txtSQL&院系名稱=&Text1.Text&EndIfEndIfEndIfIfCheck2.ValueThenIfTrim(Text2.Text)=ThensMeg=院系編號不能為空MsgBoxsMeg,vbOKOnly+vbExclamation,警告Text2.SetFocusExitSubElseIfN