學生管理信息系統(tǒng)

1、 華科學院計算機科學與技術(shù)系計算機專業(yè) 軟件工程課程設(shè)計報告 （2010/2011學年 第一學期）學生姓名： 強海榮學生班級： 計算機072202H學生學號： 200722030217指導教師： 趙旭俊 2010年12月27日目錄第一章 系統(tǒng)概述11.1 系統(tǒng)開發(fā)的背景11.2 系統(tǒng)開發(fā)的意義11.3 系統(tǒng)開發(fā)的目標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第四章 詳細設(shè)計144.1 數(shù)據(jù)庫及表創(chuàng)建144.

2、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 人機界面設(shè)計21第五章 系統(tǒng)編碼與實現(xiàn)225.1 創(chuàng)建工程項目225.2 工程主窗體225.3 用戶登陸窗體235.4 學生信息窗體255.4.1 學生信息添加窗體255.4.2 學生信息刪改（刪除、修改）窗體295.4.3 學生信息查詢窗體31第六章 系統(tǒng)測試346.1 測試方法346.2測試用例346.2.1 用戶登陸346.2.2 學生信息35結(jié)束語37

3、參考文獻38第一章 系統(tǒng)概述1.1 系統(tǒng)開發(fā)的背景隨著學校規(guī)模的不斷擴大，專業(yè)、班級、學生的數(shù)量急劇增加，有關(guān)學生各門課程的成績的各種信息量也成倍增長，而目前許多高校的學生信息管理仍停留在復雜的人工操作上，重復工作較多，工作量大，效率低，因此，迫切需要開發(fā)學生管理信息系統(tǒng)來提高管理工作的效率。1.2 系統(tǒng)開發(fā)的意義學生管理信息系統(tǒng)，在學生信息的規(guī)范管理、科學統(tǒng)計和快速查詢方面具有較大的實用意義。它提高了信息的開放性，大大地改善了學生、教師對其最新信息查詢的準確性。為了能夠?qū)W以致用，通過對學生管理信息系統(tǒng)的簡單開發(fā)，不僅可以鞏固書本上所學知識，從而能夠?qū)λ鶎W內(nèi)容加以深化，拓寬自己的知識面。通過學

4、習與實踐相結(jié)合，提高自己的編程能力，為今后的畢業(yè)設(shè)計和以后的軟件開發(fā)奠定了基礎(chǔ)。1.3 系統(tǒng)開發(fā)的目標學生管理信息系統(tǒng)是面向教育部門的學生管理系統(tǒng)，包括學生基本信息管理，學生成績管理等工作，是利用計算機進行集中管理而開發(fā)的系統(tǒng)。該系統(tǒng)是以Visual Basic 6.0為開發(fā)環(huán)境，以SQL 2000為后臺數(shù)據(jù)庫進行開發(fā)的管理系統(tǒng)，力求與實際相結(jié)合具有查詢、管理等功能，使教育的管理趨于計算機化，使之更加方便、快捷以提高工作效率。根據(jù)學生管理的需求和特點，該系統(tǒng)實施后，應(yīng)達到以下目標：1. 靈活地運用表格輸入數(shù)據(jù)，使信息傳遞更快捷；2. 系統(tǒng)采用人機對話方式，界面美觀友好、數(shù)據(jù)存儲安全可靠；3.

5、鍵盤操作，快速響應(yīng)；4. 實現(xiàn)各種信息的添加、刪除、修改、查詢等；5. 系統(tǒng)運行穩(wěn)定、安全可靠。第二章 系統(tǒng)需求分析2.1 綜合要求2.1.1 功能要求在學生管理信息系統(tǒng)中，主要有用戶登陸、學生信息管理、班級信息管理、學生成績管理、課程信息管理、用戶信息管理等功能。1. 用戶登陸管理員登陸，普通用戶對信息的查詢登陸，管理員和普通用戶必須在登陸頁面輸入用戶名及密碼，只有驗證通過方可進入其它操作。2. 學生信息管理包括4個功能模塊：學生信息添加、學生信息修改、學生信息刪除和學生信息查詢。3. 班級信息管理包括4個功能模塊：班級信息添加、班級信息修改、班級信息刪除和班級信息查詢。4. 學生成績管理包

6、括4個功能模塊：學生成績添加、學生成績修改、學生成績刪除和學生成績查詢。5. 課程信息管理包括4個功能模塊：課程信息添加、課程信息修改、課程信息刪除和課程信息查詢。6. 用戶信息管理包括2個功能模塊：用戶信息添加和用戶密碼修改。2.1.2 性能需求要求該系統(tǒng)易操作、可維護、具有開放性，時刻保持數(shù)據(jù)的有效性與安全性，并且只有管理員才能對數(shù)據(jù)進行修改。開發(fā)環(huán)境：Visual Basic 6.0.數(shù)據(jù)庫：SQL Server2000.操作系統(tǒng)：Windows XP.2.2 數(shù)據(jù)流圖分析學生管理信息系統(tǒng)的數(shù)據(jù)來源和去向，繪制出數(shù)據(jù)流圖的頂層數(shù)據(jù)流圖，如圖2-1所示。學生信息班級信息顯示信息顯示信息顯示

7、信息顯示信息學生信息D1管理員普通用戶登 陸1學生信息管 理顯 示用戶2班級信息管 理3課程信息管 理4學生成績管 理成績信息班級信息班級信息D2課程信息D3成績信息D4成績信息課程信息課程信息圖2-1 學生管理信息系統(tǒng)的頂層數(shù)據(jù)流圖按自頂向下、逐層分解的方法對頂層數(shù)據(jù)流圖進一步細化，繪制出0層數(shù)據(jù)流圖，如圖2.2所示。用戶學生信息成績信息成績信 息顯示顯示課程信息顯示成績信息顯示班級信息用戶信息用戶信息用戶信息課程信息課程信息班級信息學生信息用戶顯示學生信息1.1學生信息管 理1.2添加刪除修改記 錄用戶信息更新學生信息D1D1學生信息2.1班級信息管 理2.2添加刪除修改記 錄D2學生信息

8、D2更新班級信息班級信息3.1課程信息管 理3.2添加刪除修改記 錄D3課程信息D3更新課程信息4.1成績信息管 理4.2添加刪除修改記 錄D4成績信息D4更新成績信息圖2.2 學生管理信息系統(tǒng)的0層數(shù)據(jù)流圖2.3 數(shù)據(jù)字典該學生信息管理系統(tǒng)的數(shù)據(jù)字典如下：（1）、數(shù)據(jù)名稱：學生信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名： 錄入學生的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：學號+姓名+性別+出生日期+班級編號+入學時間+住址+備注簡要說明：該學生信息管理系統(tǒng)的主要結(jié)構(gòu)，定義了一個學生的基本信息 數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 學號存儲處： 學生信息表數(shù)據(jù)元素：類型：字符型 長度：50 含義：學生的唯一標識簡要說明：在學生信息表

9、中可以唯一的標識每一位學生數(shù)據(jù)名： 入學時間存儲處： 學生信息表數(shù)據(jù)元素：類型：datetime 長度：8 含義：學生的入學時間信息簡要說明：記錄每一位學生的入學時間 數(shù)據(jù)加工數(shù)據(jù)字典項目名： 添加學生信息輸入： 學生信息輸出：簡要說明：可以添加學生信息項目名： 修改學生信息輸入： 學生信息（2）、數(shù)據(jù)名稱：班級信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名： 錄入班級的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：班級編號+班級名稱+輔導員+系名稱+班主任簡要說明：該學生信息管理系統(tǒng)的主要結(jié)構(gòu)之一，定義了一個班級的基本信息 數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 班級編號存儲處： 班級信息表數(shù)據(jù)元素：類型：字符型 長度：50 含義：班級的唯一

10、標識簡要說明：在班級信息表中可以唯一的標識每一門課程數(shù)據(jù)名： 班主任存儲處： 班級信息表數(shù)據(jù)元素：類型：字符 長度：50 含義：該課程的負責人簡要說明：記錄每一個班級的班主任 數(shù)據(jù)加工數(shù)據(jù)字典項目名： 添加班級信息輸入： 班級信息輸出：簡要說明：可以添加班級信息項目名： 修改班級信息輸入： 班級信息輸出：簡要說明：可以修改錯誤的班級信息（3）、數(shù)據(jù)名稱：學生成績信息數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名： 錄入學生成績信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：學號+課程編號+成績簡要說明：該學生信息管理系統(tǒng)的主要結(jié)構(gòu)之一 數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 學號存儲處： 成績信息表數(shù)據(jù)元素：類型：字符型 長度：50 含義：學生的唯一標識

11、簡要說明：在成績信息表中可以唯一的標識每一位學生數(shù)據(jù)名： 成績存儲處： 成績信息表數(shù)據(jù)元素：類型：numeric 長度：9 含義：學生的成績信息簡要說明：記錄每一位學生的成績信息 數(shù)據(jù)加工數(shù)據(jù)字典項目名： 添加成績信息輸入： 成績信息輸出：簡要說明：可以添加成績信息項目名： 查詢成績信息輸入： 輸出： 成績信息簡要說明：可以查詢每一位學生的成績信息（4）、數(shù)據(jù)名稱：課程信息表數(shù)據(jù)流數(shù)據(jù)字典數(shù)據(jù)名： 錄入課程的基本信息來源： 管理員數(shù)據(jù)結(jié)構(gòu)：課程編號+課程名稱+課程類型+開課時間+學時+學分簡要說明：該學生信息管理系統(tǒng)的主要結(jié)構(gòu)之一 數(shù)據(jù)項數(shù)據(jù)字典數(shù)據(jù)名： 課程編號存儲處： 課程信息表數(shù)據(jù)元素：

12、類型：字符型 長度：50 含義：課程的唯一標識簡要說明：在課程信息表中可以唯一的標識每一門課程數(shù)據(jù)名： 開課時間存儲處： 課程信息表數(shù)據(jù)元素：類型：datetime 長度：8 含義：學生的開課時間信息簡要說明：記錄每一門的課程的開課時間 數(shù)據(jù)加工數(shù)據(jù)字典項目名： 添加課程信息輸入： 課程信息輸出：簡要說明：可以添加課程信息項目名： 修改課程信息輸入： 課程信息輸出：簡要說明：可以修改錯誤的課程信息2.4 系統(tǒng)E-R圖繪制學生管理信息系統(tǒng)的E-R圖，如圖2-3所示。成 績課 程選修考試選修111nnm學 生考試n1班 級圖2.3學生管理信息系統(tǒng)的E-R圖學 生姓名學號性別出生日期班級編號電話號碼

13、入學時間備注住址圖2.4 學生實體圖班 級班級編號班級名稱輔導員系名稱班主任圖2.5 班級實體圖課 程課程編號課程名稱課程類型開課時間學時學分 圖2.6課程實體圖成 績學號課程編號成績圖2.7 成績實體圖第三章 系統(tǒng)概要設(shè)計3.1 合理方案設(shè)計在需求分析的基礎(chǔ)上，尋找實現(xiàn)學生管理信息系統(tǒng)的各種不同的方案，并選取若干個合理方案，經(jīng)分析比較，從中選出一個最佳方案。本方案是在Visual Basic 6.0、SQL Server2000的環(huán)境下，實現(xiàn)對學生管理信息系統(tǒng)的用戶登陸、學生信息管理、班級信息管理、學生成績管理、課程信息管理、用戶信息管理等功能。3.2 系統(tǒng)功能模塊設(shè)計學生管理信息系統(tǒng)功能包

14、括可視化窗口，對各種信息的添加、修改、刪除和查詢等具體功能如圖3-1所示。學生管理信息系統(tǒng)學生信息管理課程信息管理用戶信息管理用戶信息添加用戶密碼修改學生信息添加學生信息修改學生信息刪除學生信息查詢班級信息管理班級信息添加班級信息修改班級信息刪除班級信息查詢課程信息添加課程信息修改課程信息刪除課程信息查詢學生成績管理學生成績添加學生成績修改學生成績刪除學生成績查詢圖3.1 學生管理信息系統(tǒng)功能模塊3.3數(shù)據(jù)庫設(shè)計在需求分析階段所確定的學生管理信息系統(tǒng)數(shù)據(jù)需求的基礎(chǔ)上，進一步設(shè)計數(shù)據(jù)庫。1. 系統(tǒng)用戶數(shù)據(jù)表（用戶信息表）記錄系統(tǒng)所有用戶名和密碼信息，表中的各個字段以及各個字段的說明如表3-1所示

15、：表3-1 用戶信息表結(jié)構(gòu)列 名數(shù)據(jù)類型長 度說 明用戶名varchar50允許空密碼varchar50允許空用戶類型char10允許空2. 學生信息表記錄學生學號、姓名等基本信息，表中的各個字段以及各個字段的說明如表3-2所示：表3-2 學生信息表結(jié)構(gòu)列 名數(shù)據(jù)類型長 度說 明學號varchar50主 鍵姓名varchar50允許空性別varchar10允許空出生日期datetime8允許空班級編號varchar50允許空電話號碼varchar50允許空入學時間datetime8允許空住址varchar100允許空備注varchar200允許空3. 班級信息表記錄班級編號、班級名稱及相關(guān)的信

16、息，表中各個字段以及各個字段的說明如表3-3所示：列 名數(shù)據(jù)類型長 度說 明班級編號varchar50主 鍵班級名稱varchar50允許空輔導員varchar50允許空系名稱varchar50允許空班主任varchar50允許空表3-3 班級信息表結(jié)構(gòu) 4. 課程信息表記錄課程編號、課程名稱等相關(guān)信息，表中各個字段以及各個字段的說明如表3-4所示：列 名數(shù)據(jù)類型長 度說 明課程編號varchar50主 鍵課程名稱varchar50允許空課程類型varchar50允許空開課時間carhar10允許空課時int4允許空學分int4允許空表3-4 課程信息表結(jié)構(gòu)5. 學生成績表記錄學生學號、課程編

17、號及相關(guān)的成績，表中各個字段以及各個字段的說明如表3-5所示：表3-5 學生成績表結(jié)構(gòu)列 名數(shù)據(jù)類型長 度說 明學號varchar50主 鍵課程編號varchar50主 鍵成績numeric9允許空 第四章 系統(tǒng)詳細設(shè)計4.1 數(shù)據(jù)庫及表創(chuàng)建啟動SQL2000 Server，右擊“數(shù)據(jù)庫”點擊“新建數(shù)據(jù)庫”，在彈出的“數(shù)據(jù)庫屬性”對話框中可鍵入數(shù)據(jù)庫名及其它信息，如圖4-1所示：圖4.1 新建數(shù)據(jù)庫 新建表數(shù)據(jù)庫創(chuàng)建完畢后，點擊可打開。右擊“表”選擇“新建表”，可以進行表的創(chuàng)建以及進行相關(guān)的表屬性設(shè)置。1. 用戶信息表如圖4-2所示：圖4.2 新建用戶信息表2. 學生信息表如圖4-3所示：圖4

18、.3 新建學生信息表3. 班級信息表如圖4-4所示：圖4.4 新建班級信息表4. 課程信息表如圖4-5所示：圖4.5 新建課程信息表5. 學成成績表如圖4-6所示：圖4.6 新建學生成績表 設(shè)計表創(chuàng)建完表后右擊對應(yīng)表名“打開表”“返回所有行”，可對表進行添加、修改、插入、刪除等相應(yīng)編輯操作。1. 設(shè)計用戶信息表如圖4-7所示：圖4.7 設(shè)計用戶信息表2. 設(shè)計學生信息表如圖4-8所示：圖4.8 設(shè)計學生信息表3. 設(shè)計班級信息表如圖4-9所示： 圖4.9 設(shè)計班級信息表4. 設(shè)計課程信息表如圖4-10所示：圖4.10 設(shè)計課程信息表5. 設(shè)計學生成績表如圖4-11所示：圖4.11 設(shè)計學生成績

19、表4.2 結(jié)構(gòu)程序設(shè)計 添加信息程序流程圖繪制添加信息流程圖，如圖4-12所示。否是編輯信息輸入無誤添加成功結(jié)束開始圖4.12 添加信息 修改信息程序流程圖繪制修改信息流程圖如圖4-13所示。修改信息編輯信息輸入無誤是否結(jié)束開始圖4.13 修改信息 刪除信息程序流程圖繪制刪除信息流程圖如圖4-14所示。無法刪除開始否是否是是否刪除不刪除正在使用刪除成功結(jié)束圖4.14 刪除信息 查詢信息程序流程圖繪制查詢信息流程圖如圖4-15所示是提示不存在信息是否存在顯示信息如入查詢信息數(shù)據(jù)庫否開始結(jié)束圖4.15 查詢信息 系統(tǒng)程序流程圖采用自頂向下、逐步求精的程序設(shè)計方法，使用順序、選擇和循環(huán)這3種基本控制

20、結(jié)構(gòu)進行連接，并且每個代碼塊只有一個入口和出口。4.3 人機界面設(shè)計認真處理好系統(tǒng)響應(yīng)時間、用戶幫助設(shè)施、出錯信息處理和命令交互這4個問題。先創(chuàng)建設(shè)計模型，接下來用原型實現(xiàn)這個設(shè)計模型并由用戶調(diào)試和評估原型，然后根據(jù)用戶意見修改原型。1. 系統(tǒng)響應(yīng)時間：穩(wěn)定在1秒。2. 用戶幫助設(shè)施：選擇附加的幫助設(shè)施。3. 出錯信息處理：1）當輸入用戶名不存在時，給出提示；2）當輸入密碼不正確時，給出提示；3）當查詢信息不存在時，給出提示；4）其他出錯提示。4. 命令交互：用戶既可以從菜單中選擇軟件功能，也可以通過鍵盤命令序列調(diào)用軟件功能。第五章 系統(tǒng)編碼與實現(xiàn)5.1 創(chuàng)建工程項目圖5.1 VB 6.0界面

21、1. 啟動VB 6.0，出現(xiàn)VB 6.0運行界面，如圖5-1所示：2. 點擊“文件”“保存工程”保存當前工程文件。5.2 工程主窗體在VB程序設(shè)計中，主界面負責應(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)代碼如

22、下：Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cn_str As StringDim rs_str As Stringcn_str = "driver=sql server;server=.;uid=sa;pwd=;database=XSXX"cn.Open cn_strrs_str = "select * from mima where name='" & Trim(T

23、ext1.Text) & "'"rs.Open rs_str, cn, adOpenKeyset, adLockOptimisticIf Text1.Text <> "" And Text2.Text <> "" Then If rs.RecordCount > 0 Then If Text2.Text = Trim(rs.Fields("code") Then 'MsgBox "成功登錄！", 64, "提示" MDIf

24、rm_main.Show Unload Me 'Me.Hide Else MsgBox "輸入的密碼不對，請重新輸入！", 64, "提示" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End If Else MsgBox "沒有該操作員！", 64, "提示" End IfElse If Text1.Text = "" And Text2.Text <> "" T

25、hen MsgBox "請輸入操作員!", 64, "提示" Text1.SetFocus ElseIf Text1.Text <> "" And Text2.Text = "" Then MsgBox "請輸入密碼！", 64, "提示" Text2.SetFocus ElseIf Text1.Text = "" And Text2.Text = "" Then MsgBox "請輸入操作員和密碼！",

26、 64, "提示" Text1.SetFocus End 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 學生信息窗體本窗體通過ADODC控件連接數(shù)據(jù)庫

27、的學生表，可以實現(xiàn)對學生信息的添加、修改刪除和查詢。 學生信息添加窗體學生信息的添加窗體，如圖5-4所示。圖5.4 學生信息添加窗體對應(yīng)代碼如下：Option ExplicitDim s, y, i, jDim rs As New ADODB.RecordsetPrivate Sub Form_Load()MS1.Rows = 2MS1.Cols = 10y = Array("序號", "學號(*)", "姓名", "性別", "出生日期", "班級編號", "電話

28、號碼", "入學時間", "住址", "備注")For i = 0 To MS1.Cols - 1 MS1.TextMatrix(0, i) = y(i) MS1.FixedAlignment(i) = 4 MS1.ColAlignment(i) = 4NextMS1.FixedRows = 1: MS1.FixedCols = 1MS1.TextMatrix(1, 0) = 1MS1.ColWidth(0) = 450Toolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(1

29、0).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 - 1 MS1.ColWidt

30、h(i) = MS1.Width / 9.3NextEnd SubPrivate Sub MS1_Click()If MS1.Row >= 1 And MS1.TextMatrix(MS1.Row - 1, MS1.Cols - 1) <> "" Then Text1.Visible = True Text1.SetFocusEnd IfEnd SubPrivate Sub MS1_EnterCell()Module1.entercell MS1, Text1End SubPrivate Sub MS1_RowColChange()For i = 1 To

31、 MS1.Rows - 1 MS1.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 Then Module1.moveup MS1, Text1End IfIf KeyCode = vbKeyRight Or KeyCode = vbKeyReturn Then Module1.moveright MS1,

32、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.TopEnd Sub

33、Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case "add" Toolbar1.Buttons(8).Enabled = True Toolbar1.Buttons(10).Enabled = True Text1.Visible = True: Text1.Text = "" MS1.Enabled = True Text1.SetFocus Text1.Width = MS1.CellWidth: Text1.

34、Height = MS1.CellHeight Text1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.Top Case "save" For i = 1 To MS1.Rows - 1 If MS1.TextMatrix(i, 1) <> "" Then rs.Open "select * from student_info", cnn, adOpenKeyset, adLockOptimistic rs.AddNew For j = 1 T

35、o MS1.Cols - 1 If MS1.TextMatrix(i, j) <> "" Then rs.Fields(j - 1) = Trim(MS1.TextMatrix(i, j) Next j rs.Update rs.Close End If Next MsgBox "添加成功！", 64, "提示" For i = 1 To MS1.Rows - 1 For j = 1 To MS1.Cols - 1 MS1.TextMatrix(i, j) = "" Next j Next i MS1.

36、Rows = 2 Text1.Visible = False MS1.Enabled = False Toolbar1.Buttons(8).Enabled = False Toolbar1.Buttons(10).Enabled = False Case "cancel" For i = 1 To MS1.Rows - 1 For j = 1 To MS1.Cols - 1 MS1.TextMatrix(i, j) = "" Next j Next i MS1.Rows = 2 Text1.Visible = False MS1.Enabled = F

37、alse Toolbar1.Buttons(8).Enabled = False Toolbar1.Buttons(10).Enabled = False Case "close" Unload Me MDIfrm_main.Picture1.Visible = TrueEnd SelectEnd Sub 學生信息刪改（刪除、修改）窗體學生信息的刪改窗體，如圖5-5所示。圖5.5 學生信息刪改窗體對應(yīng)代碼如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()Adodc1.RecordSource = &q

38、uot;select * from student_info where student_info." & Combo1.Text & " like + '" & Text1.Text & "' + '%'"Adodc1.RefreshEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()If Adodc1.Recordset.RecordCount <> 0 ThenEnd IfEn

39、d SubPrivate Sub Command4_Click()If Adodc1.Recordset.RecordCount <> 0 ThenEnd IfEnd SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()DataGrid1.AllowUpdate = TrueCommand9.Enabled = TrueEnd SubPrivate Sub Command7_Click()'DataGrid1.AllowDelete = TrueDim iOn Error Resume Next

40、i = MsgBox("是否確定刪除該記錄？", 64, "提示")If i = vbOK Then Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()MDIfrm_main.Picture1.Visible = TrueUnload MeEnd SubPrivate Sub Command9_Click()DataGrid1.AllowUpdate = FalseDataGrid1.AllowDelete = FalseDataGrid1.RefreshMsgBox "操作成功！&q

41、uot;, 64, "提示"Command9.Enabled = FalseEnd SubPrivate Sub Form_Activate()Combo1.AddItem "學號"Combo1.AddItem "姓名"Combo1.ListIndex = 0Text1.Text = ""Command9.Enabled = FalseEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)MDIfrm_main.Pi

42、cture1.Visible = TrueEnd SubPrivate Sub Form_Resize()Frame1.Width = Me.Width - 300DataGrid1.Width = Me.Width - 300DataGrid1.Height = Me.HeightFor i = 0 To 8 DataGrid1.Columns(i).Width = (DataGrid1.Width - 450) / 9NextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode =

43、vbKeyReturn Then Command1.SetFocusEnd Sub 學生信息查詢窗體學生信息的查詢窗體，如圖5-6所示。圖5.6 學生信息查詢窗體對應(yīng)代碼如下：Option ExplicitDim i As IntegerPrivate Sub Command1_Click()Select Case Combo2.Text Case Is = "like" Adodc1.RecordSource = "select * from student_info where student_info." & Combo1.Text &am

44、p; " like '%' + '" & Text1.Text & "' + '%' " Adodc1.Refresh Case Is = "=" Adodc1.RecordSource = "select * from student_info where student_info." & Combo1.Text & " = '" & Text1.Text & "'&quo

45、t; Adodc1.RefreshEnd SelectEnd SubPrivate Sub Command2_Click()Unload MeMDIfrm_main.Picture1.Visible = TrueEnd SubPrivate Sub Form_Activate()Combo1.AddItem ("學號")Combo1.AddItem ("姓名")Combo1.AddItem ("班級編號")Combo1.ListIndex = 0Combo2.AddItem ("like")Combo2.AddIt

46、em ("=")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 8 DataGrid1.