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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上 本科畢業(yè)論文（設(shè)計）模板學(xué)生信息管理信息系統(tǒng)分析與設(shè)計 學(xué)生姓名： 學(xué) 號： 專 業(yè)： 信息管理與信息系統(tǒng) 班 級： 指導(dǎo)教師： 完成日期： 2014 年 12月 30日專心-專注-專業(yè)學(xué)生信息管理信息系統(tǒng)分析與設(shè)計內(nèi) 容 摘 要學(xué)生信息管理信息系統(tǒng)是一個教育單位不可缺少的部分，在某種程度上體現(xiàn)了一個學(xué)校的教育現(xiàn)代化水平，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要。而傳統(tǒng)的學(xué)生管理系統(tǒng)大多由人工操作，不僅效率低，且可靠性不高。本文介紹了學(xué)生信息管理系統(tǒng)的開發(fā)整個過程，詳盡討論了系統(tǒng)相關(guān)數(shù)據(jù)庫文件的建立，登陸界面的設(shè)計，身份權(quán)限的識別，查找的過程設(shè)計，修改的過程設(shè)

2、計等，具體模塊實施采用了原型法和面向?qū)ο笙到y(tǒng)開發(fā)方法。本系統(tǒng)具有學(xué)生檔案管理,班級管理,課程管理,成績管理，專業(yè)管理等模塊,可分別完成日常學(xué)生檔案，班級信息，課程信息，成績信息的添加、修改、刪除、查詢、打印等功能。使用方便，操作簡單，比較實用。關(guān)鍵詞：信息管理 系統(tǒng)分析 設(shè)計 目錄序言第一章 緒論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ù)流程分析83.3 數(shù)據(jù)流程分析93.4 數(shù)據(jù)字典10第四章 系統(tǒng)設(shè)計114.1

3、 信息系統(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 序言隨著學(xué)校的規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量需要有學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計算機對學(xué)生各種信息進行日常管理

4、，如查詢、修改、增加、刪除，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)。第一章 緒論1.1開發(fā)背景及意義學(xué)校學(xué)生信息管理系統(tǒng)軟件,是因為目前學(xué)校學(xué)生人數(shù)劇增,學(xué)生信息呈爆炸性增長的前提下,學(xué)校對學(xué)生信息管理的自動化與準(zhǔn)確化的要求日益強烈的背景下構(gòu)思出來的,該軟件設(shè)計完成后可用于所有教育單位(包括學(xué)校,學(xué)院等等)的學(xué)生信息的管理。學(xué)生信息管理系統(tǒng)主要提供方便高效的管理功能以及網(wǎng)上的信息查閱平臺，學(xué)生可以通過該系統(tǒng)查閱相關(guān)信息，管理員可以管理所有信息。第二章 系統(tǒng)規(guī)劃2.1新系統(tǒng)的總體目標(biāo)規(guī)劃（1

5、）管理員能夠?qū)崿F(xiàn)對整個學(xué)生信息的添加，修改，刪除，查詢等操作，對學(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é)生信息的增加、刪除、修改、查詢。2.課程管理功能：管理員可以通過填寫表格的形式修改課程等相關(guān)信息。3.成績管理功能：管理員可以對數(shù)據(jù)庫中的學(xué)生成績信息進行增加、修改。4

6、.班級管理功能：管理員可以通過此功能對班級信息進行增加、刪除、修改、查詢。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)界面直觀，操作簡單；界面友好而且使用方便，做到了盡量使用戶的數(shù)據(jù)輸入最少；具有人機親和力，做到了輸入畫面盡可能接近實際；界面保 持一致，讓用戶始終用同一種方式思考與操作； 界面應(yīng)該使用戶隨時能夠掌握任 務(wù)的進展情

7、況；界面具有較強的容錯功能，避免因為誤操作、按鍵連擊等可能導(dǎo) 致的數(shù)據(jù)誤錄。 但仍存在文章所述第二部分的諸多問題。所以在此對相關(guān)問題進行分析，以期解決。（二）目標(biāo)客戶分析我校學(xué)生管理信息系統(tǒng)主要的目標(biāo)客戶主要有三類，具體如下：我校教務(wù)系統(tǒng)管理人員， 簡稱后臺管理； 教務(wù)處以及教師；還有就是我校各院系學(xué)生。2.4可行性分析由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻，特別是網(wǎng)上資料，特別是參考

8、其它程序的功能，因此完全可以實現(xiàn)。第三章 系統(tǒng)分析3.1組織結(jié)構(gòu)分析由于系統(tǒng)的局限性，以及使用者的單一性，所以系統(tǒng)只有后臺操作，即描述的是管理員與數(shù)據(jù)庫的相互關(guān)系圖3.1學(xué)生信息管理系統(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ù)流程圖，如圖4-1所示：圖3.2學(xué)生管理信息業(yè)務(wù)流程圖主要業(yè)務(wù)分析：（1）可以隨時錄入修改和刪除學(xué)生信息，對學(xué)校每年新招收的學(xué)生可以在系統(tǒng)中實現(xiàn)添加管理，對于出錯的學(xué)生信息可以及時進行修改，對半途離開學(xué)校和畢業(yè)出去的學(xué)生信息可以及時刪除

9、。做到及時有效管理在校學(xué)生的相關(guān)信息。（2）可以通過學(xué)號輸入和姓名輸入，查詢學(xué)生的基本信息和選課情況以及成績分布。簡單清晰地展現(xiàn)出用戶所需要查詢的信息。方便快捷。（3）可以打印出課程表，學(xué)生名單和學(xué)生成績表。3.3數(shù)據(jù)流程分析3.4數(shù)據(jù)字典數(shù)據(jù)字典是指對數(shù)據(jù)的數(shù)據(jù)項、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲、處理邏輯、外部實體等進行定義和描述，其目的是對數(shù)據(jù)流程圖中的各個元素做出詳細的說明。學(xué)生管理系統(tǒng)的數(shù)據(jù)字典的編寫。由數(shù)據(jù)流程圖可以得到數(shù)據(jù)字典的內(nèi)容，在數(shù)據(jù)字典中，僅給出了學(xué)生學(xué)號一個數(shù)據(jù)元素，在外部項中給出學(xué)生，在數(shù)據(jù)存儲中給出學(xué)生基本信息表，在加工中給出學(xué)籍管理，在數(shù)據(jù)流中給出錄入數(shù)據(jù)。第四章 系統(tǒng)

10、設(shè)計4.1信息系統(tǒng)的總體架構(gòu)設(shè)計1）層次圖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)總體功能及詳細設(shè)計1）學(xué)生信息管理模塊主要是對學(xué)生信息（如學(xué)號，姓名，性別，家庭住址等）進行管理。本模塊又分為五個子模塊：錄入學(xué)生信息；查詢學(xué)生信息；修改/刪除學(xué)生信息；打印學(xué)生信息；班級管理。2）學(xué)生成績管理模塊主要是對學(xué)生成績進行管理。本模塊分為四個子模塊：錄入學(xué)生成績；查詢學(xué)生成績；修改/刪除學(xué)生成績；打印學(xué)生成績。3）用戶管理模塊主要對使用本系

11、統(tǒng)的用戶進行如下管理：添加新用戶；刪除用戶。本模塊只有管理員才能使用，普通用戶不能進入。4.4代碼設(shè)計1）代碼的概念代碼設(shè)計在系統(tǒng)分析階段就應(yīng)開始。由于編制代碼要仔細調(diào)查和多方協(xié)調(diào)，所以是件很費事的工作，到系統(tǒng)設(shè)計階段才能定下來。代碼是代表事物名稱、屬性、狀態(tài)等符號。代碼在信息系統(tǒng)中是人與計算機的共同語言，是兩者交換的工具。2）代碼的作用代碼為事物提供一個概要而不含糊的認定，便于數(shù)據(jù)的存儲和檢索，使用代碼可以提高處理的效率和精度。（2.1）標(biāo)識作用：可以標(biāo)識和確定某個具體對象，以便于計算機的識別。（2.2）統(tǒng)計和檢索作用：當(dāng)按對象的屬性或類別進行編碼時，易于優(yōu)化對象的統(tǒng)計和檢索。（2.3）對象

12、狀態(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ù)庫概念結(jié)構(gòu)設(shè)計應(yīng)在系統(tǒng)分析階段進行，任務(wù)是根據(jù)用戶需求設(shè)計出概念數(shù)據(jù)模型。概念結(jié)構(gòu)設(shè)計所得的ER模型對用戶需求的一種抽象表達形式。為了能夠建立起最終的物理系統(tǒng)，需要將概念結(jié)構(gòu)轉(zhuǎn)化為DBMS所支持的數(shù)據(jù)模型。2）學(xué)生信息管理系統(tǒng)數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)在學(xué)生管理系統(tǒng)的數(shù)據(jù)庫概念設(shè)計中

13、，從系統(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ù)據(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ù)項有：年級信息、

14、所學(xué)課程等。（e）學(xué)生成績信息：包括的數(shù)據(jù)項有：考試編號、所在班級、學(xué)生學(xué)號、學(xué)生姓名、所學(xué)課程、考試分數(shù)等。下面設(shè)計規(guī)劃出的實體有：學(xué)生實體、班級實體、年級實體、課程實體。下面是各個實體具體的描述，由此得出學(xué)生信息管理系統(tǒng)的ER圖：圖4-5-1學(xué)生信息管理系統(tǒng)的E-R圖學(xué)生實體E-R圖：圖4-5-2學(xué)生實體E-R圖班級實體E-R圖：圖4-5-3班級實體E-R圖 寢室實體E-R圖：圖4-5-4寢室實體E-R圖實體之間的關(guān)系E-R圖：圖4-5-5實體之間的關(guān)系E-圖3）數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計：邏輯結(jié)構(gòu)設(shè)計的任務(wù)：把數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計階段的出的ER圖轉(zhuǎn)化成SQL Server2000中所支持的實際數(shù)據(jù)

15、模型。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計分兩個步驟：首先將ER圖轉(zhuǎn)換成關(guān)系模型，然后對關(guān)系模型進行優(yōu)化。 ER圖轉(zhuǎn)換成的關(guān)系模式如下所示：學(xué)生（學(xué)號，姓名，性別，出生日期，班號，聯(lián)系電話，入校日期，家庭住址，備注） 班級（班號，年級，輔導(dǎo)員，教室）課程（課程編號，課程名稱，課程類別，課程描述）年級課程設(shè)置（年級，年級名稱）學(xué)生成績（考試編號，學(xué)號，姓名，班號，課程名稱，考試分數(shù)）4）數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn)經(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語句在

16、SQL Server2000中的查詢分析器執(zhí)行后，將自動產(chǎn)生需要的所有表格。管理信息系統(tǒng)處理方式的合理選擇，就是一個處理過程的設(shè)計問題，選擇處理方式實際就是根據(jù)系統(tǒng)的任務(wù)、目標(biāo)和環(huán)境條件，合理的選擇信息活動的形態(tài)及具體方法。46系統(tǒng)輸入設(shè)計、處理過程設(shè)計及輸出設(shè)計把登陸界面設(shè)置為啟動項：選擇菜單“工程”“工程1屬性”，打開“工程1工程屬性”，選擇“啟動對象”，在“啟動對象”下拉菜單中選擇“Form1”。如圖：1登錄界面，運行.exe文件進入登錄界面。設(shè)置窗體的startposition屬性為centerscreen。讓登陸窗口在屏幕的中央顯示。2.用戶注冊界面說明：用戶直接單擊“注冊”按鈕進入

17、用戶注冊界面。3.主菜單界面說明：用戶直接單擊“登陸”按鈕進入主菜單界面。4.添加院系界面展示及代碼如果用戶類型是學(xué)生，“添加院系信息”菜單項呈灰色不可以狀態(tài)。5.修改院系界面展示及代碼如果用戶類型是學(xué)生，“修改院系信息”菜單項呈灰色不可以狀態(tài)6.查詢院系界面展示及代碼7.設(shè)置年級課程界面展示及代碼：如果用戶類型是學(xué)生，“設(shè)置年級信息”菜單項呈灰色不可以狀態(tài)。第五章 系統(tǒng)實施5.1 系統(tǒng)的物理配置設(shè)計數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計是為數(shù)據(jù)模型在設(shè)備商選定合適的存儲結(jié)構(gòu)和存取方法，已獲得數(shù)據(jù)庫的最佳存取效率。學(xué)生信息系統(tǒng)數(shù)據(jù)庫中的各個表格設(shè)計結(jié)果如下，每個表格表示在數(shù)據(jù)庫中的一個表。 學(xué)生基本信息表Stud

18、ent_info班級信息表Class_info 課程信息表Course info年級課程設(shè)置表Gradecourse info 學(xué)生成績信息表Result info信息用戶表User info5.2 程序設(shè)計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 用戶身份

19、= & Trim(Combo1.Text) & Me.Data1.RecordSource = mMe.Data1.Refreshyh = Text1.Textmm = Text2.TextIf Me.Data1.Recordset.RecordCount = 0 ThenMsgBox 用戶名不存在或用戶身份錯誤，請重新輸入！, vbExclamation, 提示 num = num + 1Elsemm = Text2.TextIf mm = Data1.Recordset.Fields(密碼) Thenyhm = yhmm1 = Text2.Textsys_lock = Falsenum =

20、 0登錄.HideMDIForm1.ShowElseMsgBox 密碼錯誤，請重新輸入！, , 輸入錯誤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.tx

21、t, True)txtfile.write (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(T

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

23、ar1.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 = TrueElseMDIForm

24、1.xsxxbj.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ù)統(tǒng)計.ShowEnd SubPrivate Sub tc_Click()EndEnd

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

26、ngc = 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 = App.Path & stu.m

27、dbEnd Sub4.人數(shù)統(tǒng)計模塊代碼：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(*) As 人數(shù) From 基本情況 Gr

28、oup By 專業(yè) Adodc1.RefreshEnd Sub5.學(xué)生信息編輯模塊代碼：Private Sub Command1_Click()Command2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = TrueIf Command1.Caption = 新增 ThenCommand1.Caption = 確認mbookmark = Data1.Recordset.BookmarkData1.Recordset.AddNewText1.SetFocusElseC

29、ommand1.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.Recordset.MoveLastEnd IfEnd SubPrivate

30、 Sub Command3_Click()Command2.Enabled = Not Command2.EnabledCommand1.Enabled = Not Command1.EnabledCommand4.Enabled = TrueIf Command3.Caption = 修改 ThenCommand3.Caption = 確認mbookmark = Data1.Recordset.BookmarkData1.Recordset.EditText1.SetFocusElseCommand3.Caption = 修改Data1.Recordset.UpdateEnd IfEnd S

31、ubPrivate Sub Command4_Click()Command1.Caption = 新增: Command3.Caption = 修改Command1.Enabled = True: Command2.Enabled = TrueCommand3.Enabled = True: Command4.Enabled = Falsembookmark = Data1.Recordset.BookmarkData1.UpdateControlsData1.Recordset.Bookmark = mbookmarkEnd SubPrivate Sub Command5_Click()Di

32、m 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.Recordset.AbsolutePosition + 1) End SubPrivate Sub Form_L

33、oad()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Info=False;Data Source= & App.Path & stu.mdbData1.DatabaseName = App.Path & stu.mdbData1.RecordSource = 基本情況Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select * from 成績情況 Adodc1.RefreshAdodc1.Recordset.Find (學(xué)號= & Te

34、xt1.Text & )End Sub6.修改密碼模塊代碼：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 = ThenMsgBox 密碼不能為空, vbInformation, 系統(tǒng)Exit SubEnd If登錄.mm1 = nwOn Error Resume

35、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.Path & 用戶表.mdbData1.RecordSource = 用戶表End Sub5.3 系統(tǒng)測試本次測試采用黑盒測試法，對學(xué)生信息

36、管理系統(tǒng)進行測試。首先，進行對功能模塊進行劃分，明確功能測試的人員負責(zé)情況。其次，對各個模塊進行測試。在測試時，把程序看作一個不能打開的黑盒子，在完全不考慮內(nèi)部結(jié)構(gòu)和內(nèi)部特性的情況下，測試者在程序接口進行測試，它只檢查程序功能是否按照需求規(guī)格說明書的規(guī)定正常使用，程序能否適當(dāng)?shù)慕邮蛰斎霐?shù)據(jù)而產(chǎn)生正確的輸出信息，并且保證外部信息的完整性。第六章 總結(jié)體會忙碌了一段時間，學(xué)生信息管理系統(tǒng)的制作算是告一段落了，經(jīng)過這次系統(tǒng)設(shè)計課設(shè)，雖然有很多不足，不過收獲還是頗為豐富的，再有理論知識上結(jié)合實踐，使我學(xué)到了更多。首先是知識層面，更進一步的了解了系統(tǒng)分析與設(shè)計的基本操作，其實很多東西不是上課能解決的，必

37、須要自己動手實踐。最直接的收獲就是系統(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信息系統(tǒng)分析與設(shè)計黃孝章、劉鵬、蘇利祥 清華大學(xué)出版社2Visual Basic程序設(shè)計趙萬龍 中國鐵道出版社3數(shù)據(jù)庫系統(tǒng)概論薩師煊 王珊 高等教育出版社 4基礎(chǔ)會計學(xué)陳愛玲、劉曉玉、崔志敏 陜西科學(xué)技術(shù)出版社5SQL Ser

38、ver數(shù)據(jù)庫基礎(chǔ)教程與上機指導(dǎo)周緒 清華大學(xué)出版社6信息資源管理張凱 清華大學(xué)出版社7管理信息系統(tǒng)邢喜榮、黃軍倉、田喜群、楊芳齡 電子工業(yè)出版社 8access數(shù)據(jù)庫應(yīng)用基礎(chǔ)教程梁燦、施興家 清華大學(xué)出版社附錄“登錄”按鈕代碼：PrivateSubCommand2_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用戶信息表whe

39、reIfTrim(Text1.Text)=Then如果用戶名為空MsgBox用戶名不能為空！,vbOKOnly+vbCritical,錯誤Text1.SetFocusmiCount=miCount+1累加輸入次數(shù)ExitSubEndIfIfTrim(Text2.Text)=Then如果密碼為空MsgBox密碼不能為空！,vbOKOnly+vbCritical,錯誤Text2.SetFocusExitSubEndIfIfTrim(Combo1.Text)=選擇類別Then如果密碼為空MsgBox請選擇用戶類別！,vbOKOnly+vbCritical,錯誤Combo1.SetFocusExitS

40、ubEndIfsql=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)pType=rs(Type)UnloadMeform3.ShowquanxianElseMsgBox用戶名或密碼不對！,vbOKOnly+vbInformation,錯誤UnloadMeEndIfrs.CloseSetrs=Nothingconn.CloseSet

41、conn=NothingmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSub用戶注冊代碼如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&stu.mdbsql=Select*from用戶信息表whereIfTrim(Text1.Text)=Then如果用戶名為空MsgB

42、ox請輸入真實姓名,vbOKOnly+vbCritical,錯誤Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=Then如果密碼為空MsgBox請輸入用戶名,vbOKOnly+vbCritical,錯誤Text2.SetFocusExitSubEndIfIfText2.TextText3.TextThenMsgBox新密碼與確認的密碼不相同,vbOKOnly+vbCritical,錯誤Text3.SetFocusExitSubEndIfIfCombo1.Text=選擇類別ThenMsgBox請選擇用戶類別,vbOKOnly+vbCritical,錯誤C

43、ombo1.SetFocusExitSubEndIfsql=sql+pwd=&Text1.Text&rs.Opensql,conn,1,3Ifrs.RecordCount0ThenMsgBox用戶名已存在+重新輸入用戶名,vbOKOnly+vbInformation,提示Text2.SetFocusExitSubElsers.AddNewrs(userName)=Text1.Textrs(pwd)=Text2.Textrs(Type)=Combo1.Textrs.UpdateMsgBox用戶成功添加,vbOKOnly+vbInformation,提示EndIfUnloadMers.CloseS

44、etrs=Nothingconn.CloseSetconn=NothingEndSubPrivateSubCommand2_Click()Form1.ShowEndSubPrivateSubCommand3_Click()Text1.Text=Text2.Text=Text3.Text=Combo1.Text=EndSubPrivateSubForm_Load()CallleibieEndSubPrivateSubleibie()Combo1.AddItem學(xué)生Combo1.AddItem管理員EndSub添加院系信息代碼如下：PrivateSubCommand1_Click()Dimconn

45、AsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringsql=Select*from院系信息表whereIfTrim(Text1.Text)=ThenMsgBox請輸入院系名稱,vbOKOnly+vbCritical,錯誤Text1.SetFocusExitSubEndIfIfTrim(Text4.Text)=ThenMsgBox請輸入院系負責(zé)人,vbOKOnly+vbCritical,錯誤Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)=ThenMsgBox請輸入院系電話,vbOKOnl

46、y+vbCritical,錯誤Text3.SetFocusExitSubEndIfsql=Select*from院系信息表conn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.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(院系

47、專業(yè))=Trim(Text5.Text)rs.UpdateText1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text1.SetFocusrs.Updaters.CloseSetrs=NothingEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=EndSubPrivateSubCommand3_Click()UnloadMeEndSub修改院系信息代碼如下：OptionExplicitDimconnAsNewADO