學(xué)生管理信息系統(tǒng) 《軟件工程課程設(shè)計》報告

華科學(xué)院計算機(jī)科學(xué)與技術(shù)系計算機(jī)專業(yè)軟件工程課程設(shè)計報告（2010/2011學(xué)年 第一學(xué)期）學(xué)生姓名： 強(qiáng)海榮學(xué)生班級： 計算機(jī)072202H學(xué)生學(xué)號：200722030217指導(dǎo)教師： 趙旭俊2010年12月27日目錄第一章系統(tǒng)概述 11.1 系統(tǒng)開發(fā)的背景 11.2 系統(tǒng)開發(fā)的意義 11.3 系統(tǒng)開發(fā)的目標(biāo) 1第二章需求分析 22.1 綜合要求 22.1.1 功能要求 22.1.2 性能需求 22.2 數(shù)據(jù)流圖 22.3 數(shù)據(jù)字典 52.4 系統(tǒng) E-R 圖 9第三章 概要設(shè)計 113.1 合理方案設(shè)計113.2 系統(tǒng)功能模塊設(shè)計113.3 數(shù)據(jù)庫設(shè)計12第四章 詳細(xì)設(shè)計 144.1 數(shù)據(jù)庫及表創(chuàng)建 144.1.1 新建表 144.1.2 設(shè)計表 164.2 結(jié)構(gòu)程序設(shè)計 174.2.1 添加信息程序流程圖 174.2.2 修改信息程序流程圖 174.2.3 刪除信息程序流程圖 184.2.4 查詢信息程序流程圖 194.2.5 系統(tǒng)程序流程圖 194.3 人機(jī)界面設(shè)計21第五章 系統(tǒng)編碼與實現(xiàn)215.1 創(chuàng)建工程項目 215.2 工程主窗體 215.3 用戶登陸窗體 225.4 學(xué)生信息窗體 235.4.1 學(xué)生信息添加窗體 235.4.2 學(xué)生信息刪改（刪除、修改）窗體 275.4.3 學(xué)生信息查詢窗體 31第六章 系統(tǒng)測試 336.1 測試方法 336.2 測試用例 336.2.1 用戶登陸 336.2.2 學(xué)生信息 33結(jié)束語 錯誤！未定義書簽。參考文獻(xiàn) 38第一章 系統(tǒng)概述1.1 系統(tǒng)開發(fā)的背景隨著學(xué)校規(guī)模的不斷擴(kuò)大，專業(yè)、班級、學(xué)生的數(shù)量急劇增加，有關(guān)學(xué)生各門課程的成績的各種信息量也成倍增長， 而目前許多高校的學(xué)生信息管理仍停留在復(fù)雜的人工操作上，重復(fù)工作較多，工作量大，效率低，因此，迫切需要開發(fā)學(xué)生管理信息系統(tǒng)來提高管理工作的效率。1.2 系統(tǒng)開發(fā)的意義學(xué)生管理信息系統(tǒng)，在學(xué)生信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢方面具有較大的實用意義。它提高了信息的開放性，大大地改善了學(xué)生、教師對其最新信息查詢的準(zhǔn)確性。為了能夠?qū)W以致用，通過對學(xué)生管理信息系統(tǒng)的簡單開發(fā)，不僅可以鞏固書本上所學(xué)知識，從而能夠?qū)λ鶎W(xué)內(nèi)容加以深化，拓寬自己的知識面。通過學(xué)習(xí)與實踐相結(jié)合，提高自己的編程能力，為今后的畢業(yè)設(shè)計和以后的軟件開發(fā)奠定了基礎(chǔ)。1.3 系統(tǒng)開發(fā)的目標(biāo)學(xué)生管理信息系統(tǒng)是面向教育部門的學(xué)生管理系統(tǒng)，包括學(xué)生基本信息管理，學(xué)生成績管理等工作， 是利用計算機(jī)進(jìn)行集中管理而開發(fā)的系統(tǒng)。 該系統(tǒng)是以 Visual Basic 6.0為開發(fā)環(huán)境，以 SQL 2000 為后臺數(shù)據(jù)庫進(jìn)行開發(fā)的管理系統(tǒng)，力求與實際相結(jié)合具有查詢、 管理等功能， 使教育的管理趨于計算機(jī)化， 使之更加方便、 快捷以提高工作效率。根據(jù)學(xué)生管理的需求和特點，該系統(tǒng)實施后，應(yīng)達(dá)到以下目標(biāo)：1. 靈活地運(yùn)用表格輸入數(shù)據(jù)，使信息傳遞更快捷；2. 系統(tǒng)采用人機(jī)對話方式，界面美觀友好、數(shù)據(jù)存儲安全可靠；3. 鍵盤操作，快速響應(yīng)；4. 實現(xiàn)各種信息的添加、刪除、修改、查詢等；5. 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。2.1 綜合要求2.1.1 功能要求 在學(xué)生管理信息系統(tǒng)中，主要有用戶登陸、學(xué)生信息管理、班級信息管理、學(xué)生成 績管理、課程信息管理、用戶信息管理等功能。1. 用戶登陸管理員登陸，普通用戶對信息的查詢登陸，管理員和普通用戶必須在登陸頁面輸入第二章 系統(tǒng)需求分析用戶名及密碼，只有驗證通過方可進(jìn)入其它操作。學(xué)生信息修改、班級信息修改、學(xué)生成績修改、2. 學(xué)生信息管理包括4 個功能模塊：學(xué)生信息添加、3. 班級信息管理包括4 個功能模塊：班級信息添加、4. 學(xué)生成績管理包括4 個功能模塊：學(xué)生成績添加、5. 課程信息管理包括4 個功能模塊：課程信息添加、6. 用戶信息管理包括2 個功能模塊：用戶信息添加和用戶密碼修改。2.1.2 性能需求要求該系統(tǒng)易操作、可維護(hù)、具有開放性，時刻保持?jǐn)?shù)據(jù)的有效性與安全性，并且學(xué)生信息刪除和學(xué)生信息查詢。班級信息刪除和班級信息查詢。學(xué)生成績刪除和學(xué)生成績查詢。課程信息修改、 課程信息刪除和課程信息查詢。用戶信息添加和用戶密碼修改?？删S護(hù)、具有開放性，時刻保持?jǐn)?shù)據(jù)的有效性與安全性，并且只有管理員才能對數(shù)據(jù)進(jìn)行修改。開發(fā)環(huán)境：Visual Basic 6.0.數(shù)據(jù)庫： SQL Server2000.操作系統(tǒng)：Windows XP.2.2 數(shù)據(jù)流圖分析學(xué)生管理信息系統(tǒng)的數(shù)據(jù)來源和去向，繪制出數(shù)據(jù)流圖的頂層數(shù)據(jù)流圖，如圖所示。2-1圖2-1學(xué)生管理信息系統(tǒng)的頂層數(shù)據(jù)流圖0層數(shù)據(jù)流圖,按自頂向下、逐層分解的方法對頂層數(shù)據(jù)流圖進(jìn)一步細(xì)化，繪制出 如圖2.2所示。圖2.2學(xué)生管理信息系統(tǒng)的0層數(shù)據(jù)流圖2.3數(shù)據(jù)字典該學(xué)生信息管理系統(tǒng)的數(shù)據(jù)字典如下：(1)、數(shù)據(jù)名稱：學(xué)生信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名：錄入學(xué)生的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：學(xué)號+姓名+性別+出生日期+班級編號+入學(xué)時間+住址+備注簡要說明：該學(xué)生信息管理系統(tǒng)的主要結(jié)構(gòu)，定義了一個學(xué)生的基本信息數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 學(xué)號存儲處：學(xué)生信息表數(shù)據(jù)元素：類型：字符型長度：50含義：學(xué)生的唯一標(biāo)識簡要說明：在學(xué)生信息表中可以唯一的標(biāo)識每一位學(xué)生數(shù)據(jù)名：入學(xué)時間存儲處：學(xué)生信息表數(shù)據(jù)元素：類型：datetime長度：8含義：學(xué)生的入學(xué)時間信息簡要說明：記錄每一位學(xué)生的入學(xué)時間數(shù)據(jù)加工數(shù)據(jù)字典項目名：添加學(xué)生信息輸入：學(xué)生信息輸出：簡要說明：可以添加學(xué)生信息項目名：修改學(xué)生信息輸入：學(xué)生信息(2)、數(shù)據(jù)名稱：班級信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名：錄入班級的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：班級編號+班級名稱+輔導(dǎo)員+系名稱+班主任簡要說明：該學(xué)生信息管理系統(tǒng)的主要結(jié)構(gòu)之一，定義了一個班級的基本信息數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名：班級編號存儲處：班級信息表數(shù)據(jù)元素：類型：字符型長度：50含義：班級的唯一標(biāo)識簡要說明：在班級信息表中可以唯一的標(biāo)識每一門課程數(shù)據(jù)名：班主任存儲處：班級信息表數(shù)據(jù)元素：類型：字符長度：50含義：該課程的負(fù)責(zé)人簡要說明：記錄每一個班級的班主任數(shù)據(jù)加工數(shù)據(jù)字典項目名：添加班級信息輸入：班級信息輸出：簡要說明：可以添加班級信息項目名：修改班級信息輸入：班級信息輸出：(3)、數(shù)據(jù)名稱：學(xué)生成績信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名：錄入學(xué)生成績信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：學(xué)號+課程編號+成績簡要說明：該學(xué)生信息管理系統(tǒng)的主要結(jié)構(gòu)之一數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 學(xué)號存儲處：成績信息表數(shù)據(jù)元素：類型：字符型長度：50含義：學(xué)生的唯一標(biāo)識簡要說明：在成績信息表中可以唯一的標(biāo)識每一位學(xué)生數(shù)據(jù)名：成績存儲處：成績信息表數(shù)據(jù)元素：類型：numeric長度：9含義：學(xué)生的成績信息簡要說明：記錄每一位學(xué)生的成績信息數(shù)據(jù)加工數(shù)據(jù)字典項目名：添加成績信息輸入：成績信息輸出：簡要說明：可以添加成績信息項目名：查詢成績信息輸入：輸出：成績信息簡要說明：可以查詢每一位學(xué)生的成績信息(4)、數(shù)據(jù)名稱：課程信息表數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名：錄入課程的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：課程編號+課程名稱+課程類型+開課時間+學(xué)時+學(xué)分簡要說明：該學(xué)生信息管理系統(tǒng)的主要結(jié)構(gòu)之一數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名：課程編號存儲處：課程信息表數(shù)據(jù)元素：類型：字符型長度：50含義：課程的唯一標(biāo)識簡要說明：在課程信息表中可以唯一的標(biāo)識每一門課程數(shù)據(jù)名：開課時間存儲處：課程信息表數(shù)據(jù)元素：類型：datetime長度：8含義：學(xué)生的開課時間信息簡要說明：記錄每一門的課程的開課時間數(shù)據(jù)加工數(shù)據(jù)字典項目名：添加課程信息輸入： 課程信息輸出：簡要說明：可以添加課程信息項目名：修改課程信息輸入： 課程信息輸出：2.4系統(tǒng)E-R圖繪制學(xué)生管理信息系統(tǒng)的E-R圖，如圖2-3所示圖2.3學(xué)生管理信息系統(tǒng)的E-R圖圖2.4學(xué)生實體圖圖2.5班級實體圖圖2.6課程實體圖圖2.7成績實體圖第三章系統(tǒng)概要設(shè)計3.1 合理方案設(shè)計在需求分析的基礎(chǔ)上，尋找實現(xiàn)學(xué)生管理信息系統(tǒng)的各種不同的方案，并選取若干 個合理方案，經(jīng)分析比較，從中選出一個最佳方案。本方案是在Visual Basic 6.0、SQL Server2000的環(huán)境下，實現(xiàn)對學(xué)生管理信息系統(tǒng) 的用戶登陸、學(xué)生信息管理、班級信息管理、學(xué)生成績管理、課程信息管理、用戶信息 管理等功能。3.2 系統(tǒng)功能模塊設(shè)計學(xué)生管理信息系統(tǒng)功能包括可視化窗口，對各種信息的添加、修改、刪除和查詢等 具體功能如圖3-1所示。學(xué)生管理信息系統(tǒng)用戶信息管理學(xué)生信息管理班級信息管理課程信息管理學(xué)生成績管理用戶信息添加學(xué)生成績查詢用戶密碼修改圖3.1學(xué)生管理信息系統(tǒng)功能模塊3.3 數(shù)據(jù)庫設(shè)計在需求分析階段所確定的學(xué)生管理信息系統(tǒng)數(shù)據(jù)需求的基礎(chǔ)上，進(jìn)一步設(shè)計數(shù)據(jù)庫。1 .系統(tǒng)用戶數(shù)據(jù)表（用戶信息表）記錄系統(tǒng)所有用戶名和密碼信息，表中的各個字 段以及各個字段的說明如表3-1所示：表3-1用戶信息表結(jié)構(gòu)歹U名數(shù)據(jù)類型長度說明用戶名varchar50允許空密碼varchar50允許空用戶類型char10允許空2 .學(xué)生信息表記錄學(xué)生學(xué)號、姓名等基本信息，表中的各個字段以及各個字段的說 明如表3-2所示：表3-2學(xué)生信息表結(jié)構(gòu)歹U名數(shù)據(jù)類型長度說明學(xué)號varchar50主鍵姓名varchar50允許空性別varchar10允許空出生日期datetime8允許空班級編號varchar50允許空電話號碼varchar50允許空入學(xué)時間datetime8允許空住址varchar100允許空備注varchar200允許空3 .班級信息表記錄班級編號、班級名稱及相關(guān)的信息，表中各個字段以及各個字段 的說明如表3-3所示：表3-3班級信息表結(jié)構(gòu)歹U名數(shù)據(jù)類型長度說明班級編號varchar50主鍵班級名稱varchar50允許空輔導(dǎo)員varchar50允許空系名稱varchar50允許空班主任varchar50允許空4 .課程信息表記錄課程編號、課程名稱等相關(guān)信息，表中各個字段以及各個字段的說明如表3-4所示：表3-4課程信息表結(jié)構(gòu)歹U名數(shù)據(jù)類型長度說明課程編號varchar50主鍵課程名稱varchar50允許空課程類型varchar50允許空開課時間carhar10允許空課時int4允許空學(xué)分int4允許空5 .學(xué)生成績表記錄學(xué)生學(xué)號、課程編號及相關(guān)的成績，表中各個字段以及各個字段 的說明如表3-5所示：表3-5學(xué)生成績表結(jié)構(gòu)歹U名數(shù)據(jù)類型長度說明學(xué)號varchar50主鍵課程編號varchar50主鍵成績numeric9允許空第四章系統(tǒng)詳細(xì)設(shè)計4.1 數(shù)據(jù)庫及表創(chuàng)建啟動SQL2000 Server,右擊“數(shù)據(jù)庫”點擊“新建數(shù)據(jù)庫”，在彈出的“數(shù)據(jù)庫屬性”對話框中可鍵入數(shù)據(jù)庫名及其它信息，如圖 4-1所示：圖4.1新建數(shù)據(jù)庫4.1.1 新建表數(shù)據(jù)庫創(chuàng)建完畢后，點擊可打開。右擊“表”選擇“新建表” ，可以進(jìn)行表的創(chuàng)建 以及進(jìn)行相關(guān)的表屬性設(shè)置。1 .用戶信息表如圖4-2所示：列名數(shù)據(jù)類型長度允許空目則總var ehar50爐codeyarchar50yraiigechar10爐圖4.2新建用戶信息表2 .學(xué)生信息表如圖4-3所示:列名數(shù)據(jù)類型長度允許空|隔學(xué)號varchar50姓名var char50V性別var rtiar10出生日期8V班級編號varchir507電話號碼var charSOV入學(xué)時間datetime8/住址varchar100備注var char200圖4.3新建學(xué)生信息表3 .班級信息表如圖4-4所示:列名數(shù)據(jù)類型長度允許空I鬧班級編號y.uhw50班皴名稱var char50V輔導(dǎo)員var char50系名稱varchar50V班主任var char50圖4.4新建班級信息表4 .課程信息表如圖4-5所示:列名數(shù)據(jù)莞型長度允許空|課程編號var char50課程名稱var char50饃程類型var char50V開課時間10課時int4V學(xué)分ini47圖4.5新建課程信息表5 .學(xué)成成績表如圖4-6所示:列名數(shù)據(jù)類型長度允許空I學(xué)號ver charso課程編號vai- char50成績numeric9圖4.6新建學(xué)生成績表4.1.2設(shè)計表創(chuàng)建完表后右擊對應(yīng)表名一一“打開表”一一“返回所有行”，可對表進(jìn)行添加、修改、插入、刪除等相應(yīng)編輯操作1 .設(shè)計用戶信息表如圖4-7所示:coderangeadminadmin營理員lijinglijiftg普通用戶圖4.7設(shè)計用戶信息表2 .設(shè)計學(xué)生信息表如圖4-8所示：學(xué)號 I姓名 I性別I出生日期斑圾編號 電話號碼 入學(xué)時間住址蓄汪2007220301012D0T22CJ301QZ200722030115白蔡李日蒲靖宏森男女女1987-05-1507220301136436020QT-Q9-01山西省大同市1989-05-14OT2203D11380343200T-09-01山西省永濟(jì)市1938-10-060722030115 8 3405200T-09-01山西省女同市好好好良良良圖4.8設(shè)計學(xué)生信息表3 .設(shè)計班級信息表如圖4-9所示:班級編號班級名稱輔導(dǎo)員系名稱班主任07220301討算機(jī)。叫201H劉故曜討算機(jī)科學(xué)與技術(shù)系武研OT2203U2討算機(jī)5rzz02H劉戰(zhàn)續(xù)計算機(jī)科學(xué)與技術(shù)系司城南圖4.9設(shè)計班級信息表4 .設(shè)計課程信息表如圖4-10所示：I課程編號I課程名稱I課程類型I開課時間I課時 ¥芬pigr“ 一 課謨課課課課 出出出出出出 3H 5 i 5 M- 基基基基專專3232&4S4X540001馬克思主義原理0002中國近現(xiàn)代史綱要0003大學(xué)英語0004大學(xué)物理0005數(shù)據(jù)結(jié)構(gòu)0006俎成原理圖4.10設(shè)計課程信息表5 .設(shè)計學(xué)生成績表如圖4-11所示:學(xué)號課程編號成最20072203011500017820C722030115000£802007220301150003952007220301150004932007220301150005的200TZ2030115000607圖4.11設(shè)計學(xué)生成績表4.2結(jié)構(gòu)程序設(shè)計4.2.1 添加信息程序流程圖繪制添加信息流程圖，如圖4-12所示圖4.12添加信息4.2.2 修改信息程序流程圖繪制修改信息流程圖如圖4-13所示。圖4.13修改信息4.2.3刪除信息程序流程圖繪制刪除信息流程圖如圖4-14所示。圖4.14刪除信息4.2.4 查詢信息程序流程圖繪制查詢信息流程圖如圖4-15所示圖4.15查詢信息4.2.5 系統(tǒng)程序流程圖3種基本控制采用自頂向下、逐步求精的程序設(shè)計方法，使用順序、選擇和循環(huán)這 結(jié)構(gòu)進(jìn)行連接，并且每個代碼塊只有一個入口和出口。4.3人機(jī)界面設(shè)計4個問題。然后根據(jù)認(rèn)真處理好系統(tǒng)響應(yīng)時間、用戶幫助設(shè)施、出錯信息處理和命令交互這 先創(chuàng)建設(shè)計模型，接下來用原型實現(xiàn)這個設(shè)計模型并由用戶調(diào)試和評估原型, 用戶意見修改原型。1 .系統(tǒng)響應(yīng)時間：穩(wěn)定在1秒。2 .用戶幫助設(shè)施：選擇附加的幫助設(shè)施。3 .出錯信息處理：1）當(dāng)輸入用戶名不存在時，給出提示；2）當(dāng)輸入密碼不正確時，給出提示；3）當(dāng)查詢信息不存在時，給出提示；4）其他出錯提示4 . 命令交互： 用戶既可以從菜單中選擇軟件功能， 也可以通過鍵盤命令序列調(diào)用軟件功能第五章系統(tǒng)編碼與實現(xiàn)5.1創(chuàng)建工程項目圖5.1 VB 6.0界面1 .啟動VB 6.0,出現(xiàn)VB 6.0運(yùn)行界面，如圖5-1所示:2 .點擊“文件”一一“保存工程”保存當(dāng)前工程文件5.2 工程主窗體在VB程序設(shè)計中，主界面負(fù)責(zé)應(yīng)用程序的主界面，由它調(diào)用其它模塊。因此，主 界面應(yīng)該具有操作性好、界面清晰、使用戶能夠很方便地找到所需功能的特點。本系統(tǒng) 的主界面部在相應(yīng)的系統(tǒng)菜單組成，用戶只需要點擊相應(yīng)的菜單使可調(diào)出對應(yīng)的系統(tǒng)模 塊。工程主窗體如圖5-2所示。圖5.2工程主窗體5.3 用戶登陸窗體本模塊用于用戶登陸窗體主要由文本框及命令按鈕組成，利用ADODC控件及DataGrid控件實現(xiàn)程序代碼與SQL數(shù)據(jù)的連接（如圖5-3所示）圖5.3用戶登陸窗體對應(yīng)代碼如下：Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cn_str As StringDim rs_str As String cn_str = "driver=sql server;server=.;uid=sa;pwd=;database=XSXX" cn.Open cn_strrs_str = "select * from mima where name='" & Trim(Text1.Text) & ""' rs.Open rs_str, cn, adOpenKeyset, adLockOptimisticIf Text1.Text <> "" And Text2.Text <> "" ThenIf rs.RecordCount > 0 ThenIf Text2.Text = Trim(rs.Fields("code") Then'MsgBox "成功登錄！ ", 64," 提示"MDIfrm_main.Show Unload Me'Me.HideElseMsgBox輸入的密碼不對，請重新輸入！", 64," 提示"Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len(Text2.Text)End IfElseMsgBox " 沒有該操作員！ ", 64, " 提示 "End IfElseIf Text1.Text = "" And Text2.Text <> "" ThenMsgBox " 請輸入操作員 !", 64, " 提示 "Text1.SetFocusElseIf Text1.Text <> "" And Text2.Text = "" ThenMsgBox " 請輸入密碼！ ", 64, " 提示 "Text2.SetFocusElseIf Text1.Text = "" And Text2.Text = "" ThenMsgBox " 請輸入操作員和密碼！ ", 64, " 提示 "Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Me.Icon = LoadPicture("")Label5.Caption = Year(Date)End SubPrivate Sub Text1_Change()End Sub5.4 學(xué)生信息窗體本窗體通過ADODC 控件連接數(shù)據(jù)庫的學(xué)生表， 可以實現(xiàn)對學(xué)生信息的添加、 修改刪除和查詢。5.4.1 學(xué)生信息添加窗體學(xué)生信息的添加窗體，如圖 5-4 所示。立添加學(xué)生信息工叵I區(qū)學(xué)生信息 + 口 - X添加 保存 取消 退出圖5.4學(xué)生信息添加窗體對應(yīng)代碼如下：Option ExplicitDim s, y, i, jDim rs As New ADODB.RecordsetPrivate Sub Form_Load()MSI.Rows = 2MS1.Cols = 10y = Array(" 序號","學(xué)號(*)"," 姓名","性別","出生日期","班級編號","電話號碼","入學(xué) 時間","住址","備注")For i = 0 To MS1.Cols - 1MS1.TextMatrix(0, i) = y(i)MS1.FixedAlignment(i) = 4MS1.ColAlignment(i) = 4NextMS1.FixedRows = 1: MS1.FixedCols = 1MS1.TextMatrix(1,0) = 1MS1.ColWidth(0) = 450Toolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(10).Enabled = FalseMS1.Enabled = FalseText1.Text = ""End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Resize()MS1.Width = Me.Width - 200MS1.Height = Me.HeightFor i = 1 To MS1.Cols - 1MS1.ColWidth(i) = MS1.Width / 9.3NextEnd SubPrivate Sub MS1_Click()If MS1.Row >= 1 And MS1.TextMatrix(MS1.Row - 1, MS1.Cols - 1) <> "" ThenText1.Visible = TrueText1.SetFocusEnd IfEnd SubPrivate Sub MS1_EnterCell()Module1.entercell MS1, Text1End SubPrivate Sub MS1_RowColChange()For i = 1 To MS1.Rows - 1MS1.TextMatrix(i, 0) = iNextEnd SubPrivate Sub Text1_Change()MS1.Text = Text1.TextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyUp ThenModule1.moveup MS1, Text1End IfIf KeyCode = vbKeyRight Or KeyCode = vbKeyReturn Then Module1.moveright MS1, Text1End IfIf KeyCode = vbKeyDown Then Module1.movedown MS1, Text1End IfIf KeyCode = vbKeyLeft Then Module1.moveleft MS1, Text1End IfEnd SubPrivate Sub MS1_Scroll()Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeightText1.Left = MS1.Left + MS1.CellLeft: Text1.Top = MS1.CellTop + MS1.Top End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase "add"Toolbar1.Buttons(8).Enabled = TrueToolbar1.Buttons(10).Enabled = TrueText1.Visible = True: Text1.Text = ""MS1.Enabled = TrueText1.SetFocusText1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeightText1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.TopCase "save"For i = 1 To MS1.Rows - 1If MS1.TextMatrix(i, 1) <> "" Thenrs.Open"select * from student_info", cnn, adOpenKeyset,adLockOptimisticrs.AddNewFor j = 1 To MS1.Cols - 1IfMS1.TextMatrix(i, j) <> "" Then rs.Fields(j - 1) =Trim(MS1.TextMatrix(i, j)Next jrs.Updaters.CloseEnd IfNextMsgBox " 添加成功！ ", 64, " 提示 "For i = 1 To MS1.Rows - 1For j = 1 To MS1.Cols - 1MS1.TextMatrix(i, j) = ""Next jNext iMS1.Rows = 2Text1.Visible = FalseMS1.Enabled = FalseToolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(10).Enabled = FalseCase "cancel"For i = 1 To MS1.Rows - 1For j = 1 To MS1.Cols - 1MS1.TextMatrix(i, j) = ""Next jNext iMS1.Rows = 2Text1.Visible = FalseMS1.Enabled = FalseToolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(10).Enabled = FalseCase "close"Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SelectEnd Sub5.4.2 學(xué)生信息刪改(刪除、修改)窗體學(xué)生信息的刪改窗體，如圖 5-5 所示。圖5.5學(xué)生信息刪改窗體對應(yīng)代碼如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()AdodcI.RecordSource = "select * from student_info where student_info." & Combo1.Text & like + '" & Text1.Text & "' + '%'"Adodc1.RefreshEnd SubPrivate Sub Command2_Click()If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()If Adodc1.Recordset.RecordCount <> 0 ThenIf Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.RecordCount <> 0 ThenIf Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command5_Click()If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command6_Click()DataGrid1.AllowUpdate = TrueCommand9.Enabled = TrueEnd SubPrivate Sub Command7_Click()'DataGrid1.AllowDelete = TrueDim iOn Error Resume Nexti = MsgBox(" 是否確定刪除該記錄？ ", 64, " 提示 ")If i = vbOK ThenAdodc1.Recordset.DeleteAdodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()MDIfrm_main.Picture1.Visible = TrueUnload MeEnd SubPrivate Sub Command9_Click()DataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = FalseDataGrid1.RefreshMsgBox "操作成功！ ", 64, " 提示 "Command9.Enabled = FalseEnd SubPrivate Sub Form_Activate()Combo1.AddItem " 學(xué)號 "Combo1.AddItem " 姓名 "Combol.ListIndex = 0Textl.Text =""Command9.Enabled = FalseEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) MDIfrm_main.Picture1.Visible = True End SubPrivate Sub Form_Resize()Frame1.Width = Me.Width - 300DataGrid1.Width = Me.Width - 300DataGrid1.Height = Me.HeightFori = 0 To 8DataGrid1.Columns(i).Width = (DataGrid1.Width - 450) / 9NextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocusEnd Sub5.4.3 學(xué)生信息查詢窗體學(xué)生信息的查詢窗體，如圖5-6所示。5.6 學(xué)生信息查詢窗體對應(yīng)代碼如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()Select Case Combo2.TextCase Is = "like"Adodc1.RecordSource = "select * from student_info where student_info." &Combo1.Text & " like '%' + '" & Text1.Text & "' + '%' "Adodc1.RefreshCase Is = "="Adodc1.RecordSource = "select * from student_info where student_info." &Combo1.Text & " = '" & Text1.Text & "'"Adodc1.RefreshEnd SelectEnd SubPrivate Sub Command2_Click()Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Activate()Combo1.AddItem (" 學(xué)號 ")Combo1.AddItem (" 姓名 ")Combo1.AddItem (" 班級編號 ")Combo1.ListIndex = 0Combo2.AddItem ("like")Combo2.AddItem ("=")Combo2.ListIndex = 1Text1.Text = ""End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)MDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Resize()Shape1.Width = Me.Width - 300DataGrid1.Width = Me.Width - 300DataGrid1.Height = Me.HeightFor i = 0 To 8DataGrid1.Columns(i).Width = (DataGrid1.Width - 450) / 9NextEnd Sub第六章系統(tǒng)測試6.1 測試方法進(jìn)行系統(tǒng)測試主要有兩種方法：靜態(tài)測試和動態(tài)測試，我們主要采用動態(tài)測試的方 法。動態(tài)測試是通過運(yùn)行程序來檢驗軟件的動態(tài)特性和運(yùn)行結(jié)果的正確性，并根據(jù)程序 的運(yùn)行過程對程序進(jìn)行評價的過程。動態(tài)測試包括運(yùn)行、解釋和模擬。具體的測試方法 有：黑盒子測試。一種以需求和功能規(guī)范及界面為基礎(chǔ)的測試方法。它無需了解軟件的 內(nèi)容結(jié)構(gòu)。白盒子測試。一種以程序為基礎(chǔ)的或以程序和需求相結(jié)合為基礎(chǔ)的測試方法。它必 須了解程序的結(jié)構(gòu)而不考慮程序的功能。灰盒子測試。上述兩種測試方法的結(jié)合。通常先用黑盒子方法設(shè)計測試案例，然后 盡可能多地用白盒子方法完成測試。采用以下數(shù)據(jù)測試軟件，對于測試過程中發(fā)現(xiàn)的問題，包括語法錯誤、邏輯錯誤等, 通過分析，都進(jìn)行了一一的排除。最后系統(tǒng)能夠正確運(yùn)行。6.2 測試用例6.2.1 用戶登陸用戶登陸界面如圖6-1所示：登錄區(qū)學(xué)生信息管理系統(tǒng)用戶名：密碼二確定退出CopyRi ght ： 2010 2010圖6.1登陸界面6.2.2學(xué)生信息管理員可以對學(xué)生信息進(jìn)行添加、修改、刪除、查詢等操作，而普通用戶只能實現(xiàn)學(xué)生信息的查詢功能。當(dāng)管理員進(jìn)行添加學(xué)生信息時，首先點擊添加，然后輸入信息，當(dāng)點擊保存時，如果系統(tǒng)判斷輸入無誤，則顯示添加成功！如圖6-2所示:學(xué)生信息所-U<i|Ml©劃I0:QT3Q30-IZ-3B圖6.2學(xué)生信息的添加當(dāng)管理員進(jìn)行學(xué)生信息的刪除時， 系統(tǒng)會提示是否確定刪除該記錄？點擊確定則刪除所選學(xué)生信息，如圖6-3所示:圖6.3學(xué)生信息的刪除如果查詢信息是數(shù)據(jù)庫中的信息時，則顯示該學(xué)生的信息，如圖 6-4所示:圖6.4查詢信息存在幺士擊:五結(jié)束語通過本系統(tǒng)的開發(fā)使我所學(xué)的專業(yè)知識得到了綜合的運(yùn)用，對以前很多抽象、枯燥的理論知識加深了理解，同時也使我學(xué)會了利用結(jié)構(gòu)化程序設(shè)計思想開發(fā)管理信息系統(tǒng)，并用模塊化方法加以實現(xiàn)。雖然以前也曾經(jīng)參與過其他項目的系統(tǒng)開發(fā)，但畢竟只是接觸，而沒有像這次畢業(yè)設(shè)計那樣非常系統(tǒng)地去完成，也沒有系統(tǒng)開發(fā)設(shè)計的經(jīng)驗，而且畢業(yè)設(shè)計的時間有限，這些都使得本系統(tǒng)在某些方面表現(xiàn)得并不是非常的完善。但是，通過這次系統(tǒng)開發(fā)，將學(xué)習(xí)的理論與實踐相結(jié)合，使我對學(xué)生檔案管理系統(tǒng)和數(shù)據(jù)庫的設(shè)計與開發(fā)有了更真實、具體的體會，使我得到了一次很有價值的實踐。通過對該信息系統(tǒng)的分析，雖說具有相對完善的功能應(yīng)用，但也存在一些缺陷。該信息系統(tǒng)的不足主要有以下幾點：1 、信息內(nèi)容和形式過于單一2 、信息的流向基本是由下向上單項流動。3 、信息系統(tǒng)仍多為模擬手工系統(tǒng)的數(shù)據(jù)處理流程。4 、信息系統(tǒng)應(yīng)用缺乏彈性雖說存在一些問題，但在系統(tǒng)設(shè)計過程中，從用戶的角度出發(fā)，在系統(tǒng)的可用性和易用性上做了很多功夫，力求能達(dá)到最好的效果。由于我的編程實現(xiàn)能力和畢業(yè)設(shè)計的時間都有限，我對學(xué)生信息管理這一系列工作的具體內(nèi)容也不是特別地了解，所以目前我還不能把學(xué)生檔案管理這個系統(tǒng)較為完善地實現(xiàn)出來， 希望以后有機(jī)會能夠彌補(bǔ)這個遺憾。在系統(tǒng)開發(fā)過程中，問題不斷的出現(xiàn)，又不斷的得到解決，一步一步地前進(jìn)，隨著系統(tǒng)的逐步完善，我對以前所學(xué)知識的領(lǐng)悟程度得到了提升，編程能力得到了提高，所學(xué)的知識得到了綜合運(yùn)用。通過這次系統(tǒng)的開發(fā)，我對專業(yè)知識的運(yùn)用得到了一次升華。參考文獻(xiàn)1 薩師煊，王珊. 數(shù)據(jù)庫系統(tǒng)概論（第 4 版） . 北京：高等教育出版社，2006 年 .2 張海藩 . 軟件工程導(dǎo)論（第 5 版） . 北京：清華大學(xué)出版社， 2008 年 .3 劉志銘，高春燕. 數(shù)據(jù)庫開發(fā)實例解析VB. 北京：機(jī)械工業(yè)出版社， 1999年.4 龔沛曾 ,陸慰民 .VB 程序設(shè)計簡明教程（第二版）.北京：高等教育出版社，2003年.5夏邦貴，劉凡馨.SQL Server數(shù)據(jù)庫開發(fā)經(jīng)典實例精解.北京：機(jī)器工業(yè)出版社，2006