商丘職業(yè)技術學院畢業(yè)論畢業(yè)論文（文（設計設計） ）題題目：目：學生成學生成績績管理系管理系統(tǒng)統(tǒng)姓姓 名：名： 系系 別別： ： 計計算機系算機系 專專 業(yè)業(yè)： ： 計計算機算機應應用技用技術術 學學 號：號： 1101010126 指指導導教教師師： ： XXXX 年年 XX 月月 XX 日日 目 錄第第 1 1 章章 引言引言 .1 11.11.1 項目開發(fā)的背景項目開發(fā)的背景.11.21.2 項目開發(fā)的目標項目開發(fā)的目標.11.31.3 項目開發(fā)的意義項目開發(fā)的意義.1第第 2 2 章章 可行性研究與需求分析可行性研究與需求分析 .2 22.12.1 可行性研究可行性研究.22.22.2 需求分析需求分析.22.2.12.2.1 概述概述.22.2.22.2.2系統(tǒng)需求系統(tǒng)需求.22.2.32.2.3數(shù)據(jù)詞典數(shù)據(jù)詞典.32.2.42.2.4數(shù)據(jù)流程圖數(shù)據(jù)流程圖.3第第 3 3 章章 系統(tǒng)的總體設計系統(tǒng)的總體設計 .5 53.13.1 系統(tǒng)結構設計系統(tǒng)結構設計.53.23.2 數(shù)據(jù)庫結構設計數(shù)據(jù)庫結構設計.7INTINT .8 8CHARCHAR .8 83.3 系統(tǒng) E-R 圖.8第第 4 4 章章 系統(tǒng)詳細設計系統(tǒng)詳細設計 .12124.14.1 系統(tǒng)開發(fā)工具及運行環(huán)境系統(tǒng)開發(fā)工具及運行環(huán)境.124.24.2 系統(tǒng)各功能模塊的設計及實現(xiàn)系統(tǒng)各功能模塊的設計及實現(xiàn).124.2.14.2.1 系統(tǒng)管理模塊設計系統(tǒng)管理模塊設計.154.2.24.2.2 信息錄入信息錄入模塊設計模塊設計.164.2.34.2.3 信息查詢模塊設計信息查詢模塊設計.264.2.44.2.4 信息打印模塊設計信息打印模塊設計.28總結總結 .3131致謝致謝 .3232參考文獻參考文獻 .3333 I摘摘 要要學生成績是教育單位不可或缺的一部分,應該能夠為用戶提供充足的信息和快捷的查詢方式。傳統(tǒng)的人工方式來管理學生的成績存在著許多缺點,如:保密性差而且效率低,產生大量的文件和數(shù)據(jù),對數(shù)據(jù)的查找、更新和維護帶來困難。 隨著計算機科學逐步成熟以及完善,其滲透到人類社會的各個領域并發(fā)揮著重要的作用。運用計算機對學生信息進行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高管理者對學生成績管理的效率,使學校的管理科學化、正規(guī)化。 關鍵詞關鍵詞學生成績管理系統(tǒng)；數(shù)據(jù)庫；access；數(shù)據(jù)詞典。 0第第 1 1 章章 引言引言1.11.1 項目開發(fā)的背景項目開發(fā)的背景 幾年前，各個學校對于學生成績的管理還是停留在運用手工操作，隨著各個學校的規(guī)模不斷壯大，學生人數(shù)逐年增加。關于學生成績管理工作所涉及的數(shù)據(jù)量越來越大，有的學校不得不靠增加人力、物力來進行學生成績管理。但人工管理又有著許多缺陷，比如：效率底、易出錯、檢索信息慢、對學校的管理提供決策信息較為困難等。學校不能完全掌握每一個學生的學習情況，這樣對學校的教學工作及其不利，使學校的教學質量一直停滯不前，所以我想借本次畢業(yè)設計之際，開發(fā)一個不僅適用于各校的通用高校學生成績管理系統(tǒng)，使學校能夠充分掌握學生的學習情況，便于學校教學工作的進行和改革。1.21.2 項目開發(fā)的目標項目開發(fā)的目標建立學生成績管理系統(tǒng)，采用計算機對學生成績進行管理，進一步提高辦學效率和現(xiàn)代化水平。使學校對學生的成績能夠快速并準確的錄入、修改和查詢，更好地掌握每個學生的各科成績，便于教師的管理。使學生對個人的學習成績進行更快的查詢。讓老師能夠更好、更快的了解學生的學習情況，使學校的教學質量進一步的提高。1.31.3 項目開發(fā)的意義項目開發(fā)的意義現(xiàn)在我國的一些院校的學生成績管理水平普遍不高，有的還停留在紙介質基礎上，這種管理手段已不能適應時代的進展，因為它浪費了太多的人力和物力。在當今的信息時代，這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理系統(tǒng)所取代。如果本系統(tǒng)能被學校所采用，將會改變以往靠手工管理學生成績的狀況，可以樹立良好的辦學形象，提高工作效率，節(jié)省人力和物力。 1第第 2 2 章章 可行性研究與需求分析可行性研究與需求分析2.12.1 可行性研究可行性研究隨著學校規(guī)模的不斷擴大，學生人數(shù)逐年增加，學校對學生成績管理的工作量也越來越大。學生成績管理涉及大量的數(shù)據(jù)處理，如果用手工來完成龐大的數(shù)據(jù)處理，將費時費力，還容易出錯，為了滿足學校對學生成績管理的需要，急需要一套學生成績管理系統(tǒng)來完成這項工作。作為計算機應用的一部分,使用計算機對學生成績信息加以管理,將擁有著手工管理所無法比擬的優(yōu)點.例如:輸入迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生成績管理的效率,也是學生成績的科學化、正規(guī)化管理的重要條件。同時還要注意下列幾點：1 由于各方面的限制，如人員不夠、技術缺乏等原因，開發(fā)時應本著循序漸進，逐步完善的原則，不能貪大求全，盲目開發(fā)。2要注意信息的準確、及時、適用、經濟，只有及時、準確的信息才能保證系統(tǒng)開發(fā)的質量和效率。3 從全局出發(fā)注意系統(tǒng)開發(fā)的整體優(yōu)化性，同時還要注意系統(tǒng)的可擴展性和可延伸性。4 盡量采用學?，F(xiàn)有的軟硬件環(huán)境,及先進的管理系統(tǒng)開發(fā)方案,從而達到充分利用學校現(xiàn)有資源、提高系統(tǒng)開發(fā)水平和應用效果的以及減少開發(fā)成本的目的。5 系統(tǒng)應符合學校對學生成績管理的規(guī)定,滿足學生成績管理的工作需要,并達到操作過程中的直觀、方便、實用、安全等要求。2.22.2 需求分析需求分析2.2.12.2.1 概述概述1、系統(tǒng)分析的原則分析高校成績管理的要求，確定管理系統(tǒng)的邏輯功能，以滿足高校成績的要求。第一階段完成后，該系統(tǒng)應具備較高的可擴充性，便于在此基礎上完成第二階段。2、分析方法采用結構化分析方法，建立新系統(tǒng)的邏輯模型，這個邏輯模型盡可能避免計算機的專業(yè)術語。2.2.22.2.2系統(tǒng)需求系統(tǒng)需求經過一段時間對學校學生成績管理的調研與分析，以及認真研究了幾位老師的意見，所開發(fā)的學生成績管理系統(tǒng)應分成以下幾個階段開發(fā)：第一階段建立的成績管理系統(tǒng)由以下 5 個子系統(tǒng)組成： 21系統(tǒng)信息的管理，能添加用戶、修改用戶信息、刪除用戶。2學生基本信息的管理，能對學生基本信息進行添加、刪除、修改。3班級信息的管理，能對班級基本信息進行添加、刪除、修改。4學生成績信息的管理，能對學生成績基本信息進行添加、刪除、修改。5對數(shù)據(jù)的備份、恢復，對學生數(shù)據(jù)的及時備份。第二階段建立的成績管理系統(tǒng)主要在上次基礎上對其功能進行修改以及擴充。在功能擴充上應該使系統(tǒng)更具實用性。2.2.32.2.3數(shù)據(jù)詞典數(shù)據(jù)詞典 經過分析，所開發(fā)的學生成績管理系統(tǒng)應有五個數(shù)據(jù)表，分別是：1系統(tǒng)用戶數(shù)據(jù)：高校老師以及管理人員使用成績管理系統(tǒng)的身份數(shù)據(jù)，包含的數(shù)據(jù)項有用戶編號、登錄口令、權限代碼。2學生基本信息數(shù)據(jù)：學生基本信息數(shù)據(jù)，包含的數(shù)據(jù)項有學號、姓名、性別、出生日期、文化程度、籍貫、民族、入學日期、身份證號等。3課程數(shù)據(jù)：課程信息數(shù)據(jù)。4班級數(shù)據(jù)：用于班級信息記錄數(shù)據(jù)。5學生成績數(shù)據(jù)：學生的成績數(shù)據(jù)，包含的數(shù)據(jù)項考試編號、選擇班號、選擇學號姓名、選擇課程以及輸入分數(shù)等。2.2.42.2.4數(shù)據(jù)流程圖數(shù)據(jù)流程圖學生成績管理系統(tǒng)數(shù)據(jù)流程圖如下： 3用戶主界面歡迎界面用戶登陸 管理系統(tǒng)系統(tǒng)管理信息打印信息錄入信息查詢用戶登陸退出管理系統(tǒng)打印信息表查詢信息錄入信息圖 2-1 系統(tǒng)數(shù)據(jù)流程圖 4第第 3 3 章章 系統(tǒng)的總體設計系統(tǒng)的總體設計3.13.1 系統(tǒng)結構設計系統(tǒng)結構設計1系統(tǒng)設計目標本系統(tǒng)既要滿足用戶的設計目標，也要滿足設計員的設計目標。(1) 用戶的觀點看，要求系統(tǒng)能夠達到以下目標1) 對信息的收集和保存信息。例如：輸入學生的成績信息,學生的基本信息等.2）速的傳遞信息，對那些共享的數(shù)據(jù)進行快速的傳遞。3）供準確的信息，要求比手工作業(yè)提供的更加準確和細致的數(shù)據(jù)，例如學生的各科分數(shù).4）現(xiàn)有的報表自動生成。5）共享現(xiàn)有的數(shù)據(jù)(2) 設計員從技術觀點看，要求系統(tǒng)能達到以下的目標：1) 用戶使用，具有較高的用戶友好性。2）有較高的可靠性，將系統(tǒng)發(fā)生故障的概率控制在 2.0以下，并具有快速恢復的能力3) 具有較高的運行效率，應比人工作業(yè)提高效率 10 倍以上。4）具有較強的可維護性和擴充性，能夠適應用戶的業(yè)務要求變化。(3)設計策略本系統(tǒng)的結構是自頂向下擴展的，層次化的暗盒模塊結構。對高層模塊，將運用以事務為中心的設計策略，將一個復雜的系統(tǒng)逐步分解成為幾個較小的相對簡單的暗合模塊；對低層模塊，采用以變換為中心的設計策略。此外，為了提高模塊的內聚性，降低模塊間的偶合程度，數(shù)據(jù)庫 的設計原則是把他作為模塊間的郵政信箱，從而既實現(xiàn)數(shù)據(jù)共享有提高模塊的獨立性，使系統(tǒng)具有很高的可修改性。12系統(tǒng)總體功能本說明主要是為了對學生成績管理系統(tǒng)進行使用和維護。該系統(tǒng)充分利用計算機的現(xiàn)有的功能來實現(xiàn)對系統(tǒng)管理、信息錄入、信息查詢，信息打印等的自動化控制，將會使學生成績管理工作大大減輕，方便友好的信息管理用戶界面，簡便的操作，完善的數(shù)據(jù)庫管理，將會使得信息管理系統(tǒng)極大限度地應用于現(xiàn)代化學生成績管理，成為管理人員的得力助手。對系統(tǒng)信息的修改、添加、刪除對學生基本信息的修改、添加、刪除、查詢對班級信息的添加、修改、查詢 5對學籍信息的添加、修改、查詢對學生成績信息的添加，修改，查詢對數(shù)據(jù)的備份、恢復3系統(tǒng)結構圖 學生成績管理系統(tǒng)結構圖，以下所示，這些結構圖是根據(jù)系統(tǒng)分析說明書的數(shù)據(jù)流程圖畫出的。實際上它有 四個模塊組成。學生成績管理系統(tǒng)系統(tǒng)管理信息錄入信息查詢信息打印圖 3-1 學生成績管理系統(tǒng) 系統(tǒng)管理用戶權限設置數(shù)據(jù)備份圖 3-2 系統(tǒng)管理信息錄入班級信息錄入學生信息錄入課程信息錄入成績錄入補考信息錄入圖 3-3 信息錄入 6信息查詢按學號查詢學生成績班級課程成績查詢 班級學期成績查詢補考學生查詢圖 3-4 信息查詢信息打印學生成績打印班級課程成績打印班級學期成績打印補考學生名單打印圖 3-5 信息打印3.23.2 數(shù)據(jù)庫結構設計數(shù)據(jù)庫結構設計1、數(shù)據(jù)庫總體結構本系統(tǒng)采用關系型數(shù)據(jù)庫 Acess 實現(xiàn),數(shù)據(jù)庫由、若干個二維表構成。本系統(tǒng)的表分為兩類。一類是目錄，即索引。另一類是實際數(shù)據(jù)。其中數(shù)據(jù)表包括：學生信息表、 班級信息表、課程信息表、成績信息表和用戶信息表。22數(shù)據(jù)庫表表 3-1 學生信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空學號int4否姓名Char 10否性別char2是生日datetime8是本人成分Int 4是文化程度char10是籍貫Varchar8是民族varchar50是入學注冊varchar200是 7身份證號Varchar200是郵政編碼varchar18是工作單位及地址Varchar200是單位電話Varchar200是家庭住址Varchar200是家庭電話Varchar20是畢業(yè)時間Datatime5是成績畢業(yè)Int4是表 3-2 班級信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空班號 Int 4 否年級char10是班主任Char 10是教室char10是表 3-3 課程信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空課程編號Int 10否課程名稱 char10是課程類型Char 10是課程描述char50是表 3-4 成績信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空考試編號Char 10否選擇班號Int 4否選擇學號Int 4是姓名 Char 10是選擇課程char10是輸入分數(shù)float8是表 3-5 用戶信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空輸入用戶名Char 10否輸入密碼Char 10是確認密碼Char 10是3.3 系統(tǒng) E-R 圖1、局部 E-R 圖 課程實體課程 8圖 3-6 課程 E-R 圖班級實體圖 3-7 班級 E-R 圖成績實體學期考勤成績隨堂成績期末成績總評成績平時成績課程班級姓名學號圖 3-8 成績 E-R 圖學生信息實體姓名學號學制性別出生年月文化程度籍貫民族入學時間身份證號郵編工作單位單位電話家庭住址家庭電話成績記錄編號答辯日期指導教師設計題目畢業(yè)證編號畢業(yè)時間家庭成員學習工作經歷答辯評語班級 9圖 3-9 學生信息 E-R 圖2.系統(tǒng)全局 E-R 圖班級班級就讀學號學生信息選課課程課程總評總評成績11n11姓名學期平時隨堂期末考勤性別籍貫入學時間指導老師身份證民族家庭住址姓名設計題目圖 3-10 系統(tǒng)全局 E-R 圖 10第第 4 4 章章 系統(tǒng)詳細設計系統(tǒng)詳細設計4.14.1 系統(tǒng)開發(fā)工具及運行環(huán)境系統(tǒng)開發(fā)工具及運行環(huán)境1. 系統(tǒng)開發(fā)工具本系統(tǒng)利用 VB6.0 全套開發(fā)工具做程序開發(fā)，利用 Acess 數(shù)據(jù)庫作為學生成績管理系統(tǒng)的后臺數(shù)據(jù)庫。VB6.0 在數(shù)據(jù)庫開發(fā)方面功能很強大，大量使用可視化的界面操作工具，支持面向對象的程序設計，其以簡便、靈活、高效等優(yōu)點著稱。而 Acess 數(shù)據(jù)庫以功能比較強大，由于 VB6.0 中無需另外安裝其支持環(huán)境也能正常打開數(shù)據(jù)庫，具有很強的適應性，更重要的是利用 Acess 做數(shù)據(jù)庫開發(fā)，在數(shù)據(jù)備份方面很優(yōu)勢，方法簡單，可靠。3 2 系統(tǒng)運行環(huán)境軟件環(huán)境：系統(tǒng)環(huán)境 win2000 及以上 + Acess數(shù)據(jù)庫硬件環(huán)境：CPU P4 2.4G、256MB 內存、80G 硬盤4.24.2 系統(tǒng)各功能模塊的設計及實現(xiàn)系統(tǒng)各功能模塊的設計及實現(xiàn)執(zhí)行程序后，首先進入的是學生成績管理系統(tǒng)的登錄界面,用戶通過輸入正確的信息后,就進入系統(tǒng)主界面。 如圖 4-1 所示圖 4-1 登陸界面以下是登陸模塊的代碼：Private Sub Command1_Click() Text1.Text = DBCombo1.Text Data1.Recordset.FindFirst name= & & Text1.Text & 11 If Data1.Recordset.NoMatch Then MsgBox (沒有此用戶) DBCombo1.Text = Text2.Text = Exit Sub End If If Text4.Text = Text2.Text Then main.Show Unload denglu Exit Sub End IfIf Not (Text4.Text = Text2.Text) Then MsgBox (密碼錯誤) Text2.Text = Exit Sub End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEUSER1.mdbEnd Sub4進入主界面后，用戶可以進行學生信息添加、刪除、修改、查詢和打印以及對數(shù)據(jù)庫的備份等操作。如圖 4-2 所示 12圖 4-2 系統(tǒng)主界面下面是主界面模塊的代碼：Private Sub bklr_Click()bukao.ShowEnd SubPrivate Sub bkxshchx_Click()chaxun_bukao.ShowEnd SubPrivate Sub bkxshmddy_Click()dayin_bukao.ShowEnd SubPrivate Sub chjlr_Click()chengji.ShowEnd SubPrivate Sub gyrj_Click()frmAbout.ShowEnd SubPrivate Sub kchxxlr_Click()kecheng.ShowEnd SubPrivate Sub MDIForm_Load() 13End SubPrivate Sub shjbf_Click()beifen.ShowEnd SubPrivate Sub tch_Click()EndEnd SubPrivate Sub xshxxlr_Click()xuesheng.ShowEnd SubPrivate Sub yhqx_Click()quanxian.ShowEnd Sub4.2.14.2.1 系統(tǒng)管理模塊設計系統(tǒng)管理模塊設計在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖 4-3 所示圖 4-3 用戶權限設置用戶權限設置代碼如下：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True 14 Command4.Enabled = TrueEnd SubPrivate Sub Command2_Click() Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command4_Click() Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenData1.Recordset.Delete Data1.Refresh 15End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEuser1.mdbEnd Sub4.2.24.2.2 信息錄入信息錄入模塊設計模塊設計 包括對班級信息、學生基本信息、課程信息、學生成績信息、學生補考信息的錄入、修改和刪除1.班級信息錄入用戶在班級輸入框中輸入要添加的班級信息，點擊添加按鈕，如果班級信息出現(xiàn)在右側的表格中就說明信息添加成功。用戶也可以對已經添加的信息進行修改和刪除，具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應的操作，如果已經添加的班級信息很多，你可以通過模糊查找來幫你找出比較匹配的班級信息并將查詢結果顯示在右側的表格中，便于用戶進行修改或刪除。如圖 4-4 所示圖 4-4 班級信息班級信息錄入的代碼：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True 16End SubPrivate Sub Command2_Click()Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() Data1.Recordset.Update Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command4_Click() Data1.UpdateControls Data1.Refresh Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenData1.Recordset.DeleteData1.RefreshEnd If 17End SubPrivate Sub Command6_Click() Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 班級 Like & * & Text2.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub2. 學生基本信息錄入在此輸入學生的基本信息包含班級學號、姓名、性別、出生日期、文化程度、籍貫、民族、入學日期、身份證號等，主要是對學生信息的登記。管理員還可以在右側表格中對已經選中的學生信息進行修改或者刪除，如果學生信息比較多，而你要進行操作的學生的信息沒有顯示出來，你可以通過查找進行快速定位，查找分為按學號查找和按姓名查找。如圖 4-5 所示：圖 4-5 學生信息學生信息模塊的代碼： 18Private Sub Command1_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 學號 Like & * & Text27.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Command2_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindFirst 姓名 Like & * & Text28.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Command3_Click()Dim bm bm = Data1.Recordset.Bookmark Data1.Recordset.FindNext 姓名 Like & * & Text28.Text & * If Data1.Recordset.NoMatch Then MsgBox (沒有符合條件的記錄) Data1.Recordset.Bookmark = bm End IfEnd SubPrivate Sub Command4_Click()Data1.Recordset.AddNew Command4.Enabled = False Command5.Enabled = False 19 Command6.Enabled = True Command7.Enabled = TrueEnd SubPrivate Sub Command5_Click() Data1.Recordset.Edit Command4.Enabled = False Command5.Enabled = False Command6.Enabled = True Command7.Enabled = TrueEnd SubPrivate Sub Command6_Click() Data1.Recordset.Update Data1.Refresh Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = FalseEnd SubPrivate Sub Command7_Click() Data1.UpdateControls Data1.Refresh Command4.Enabled = True Command5.Enabled = True Command6.Enabled = False Command7.Enabled = FalseEnd SubPrivate Sub Command8_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenData1.Recordset.Delete 20Data1.RefreshEnd IfEnd SubPrivate Sub DBGrid1_Click()End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub3.課程信息錄入. 主要是對學生所學課程信息進行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱，點擊添加按鈕，如果課程信息出現(xiàn)在右側的表格中，就說明信息添加成功。在這里也可以選中右側表格中的信息對課程信息進行修改或者刪除，管理員也可以通過利用查找功能快速定位你想要操作的課程信息，便于管理。如圖 4-6 所示：圖 4-6 課程設置4.成績信息錄入管理員在此窗口輸入要輸入學生所屬班級，學生所學的課程和學期后，點擊“確定”按鈕，在下面的表格中就會列出班級所有學生的學號和姓名，如果某位學生這門學科已經輸入成績則顯示該學生的成績情況。選中要進行成績錄入的學生，在窗口下面就會顯示選中學生的“學號”和“姓名” ，在后面的輸入框中輸入相應的信息，點擊“確定并輸入下一成績”按鈕，該學生的成績就添加成功了。如果點擊“對已輸入成績進行刪除”按鈕，則將已經輸入的成績信息刪除。如圖 4-7 所示 21圖 4-7 成績信息錄入成績錄入代碼如下：Private Sub Command1_Click()MsgBox (注意，學期一定要輸入正確)SQLStr = SELECT 學號,姓名 FROM 學生 SQLStr = SQLStr + WHERE 班級 like & & DBCombo1.Text & SQLStr = SQLStr + order by 學號 Data3.RecordSource = SQLStr Data3.Refresh Text1.DataField = 學號 Text2.DataField = 姓名 sSQLStr = SELECT 學號,姓名,隨堂,平時,考勤,期末,總評,學期 from 成績 sSQLStr = sSQLStr + where 班級 like & & DBCombo1.Text & sSQLStr = sSQLStr + and 課程 like & & DBCombo2.Text & sSQLStr = sSQLStr + order by 學號 Data5.RecordSource = sSQLStr Data5.Refresh Label10.Caption = Str$(Data3.Recordset.RecordCount) Label11.Caption = Str$(Data5.Recordset.RecordCount)End SubPrivate Sub Command2_Click()If Data3.Recordset.EOF Then 22MsgBox (已輸入完成！)Exit SubEnd IfIf Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = ThenMsgBox (數(shù)據(jù)有誤)Exit SubEnd Ifsui = Val(Text3.Text)ping = Val(Text4.Text)kaoqin = Val(Text5.Text)qimo = Val(Text6.Text)zongping = sui * 0.05 + ping * 0.1 + kaoqin * 0.05 + qimo * 0.8Text7.Text = Str$(Int(zongping + 0.5)Data4.Recordset.AddNewText8.Text = Text1.TextText9.Text = Text2.TextText10.Text = DBCombo1.TextText11.Text = DBCombo2.TextText12.Text = Combo1.TextText13.Text = Text3.TextText14.Text = Text4.TextText15.Text = Text5.TextText16.Text = Text6.TextText17.Text = Text7.TextData4.Recordset.UpdateData3.Recordset.MoveNextData5.RefreshData5.Recordset.MoveLastLabel11.Caption = Str$(Data5.Recordset.RecordCount)Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub 23Private Sub Command3_Click()SQLStr = SELECT * FROM 成績 SQLStr = SQLStr + WHERE 學號 like & & Text1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & Data6.RecordSource = SQLStr Data6.Refreshanswer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenData6.Recordset.DeleteData6.RefreshData5.RefreshData4.RefreshLabel11.Caption = Str$(Data5.Recordset.RecordCount)End IfEnd SubPrivate Sub Command4_Click()Command3.Enabled = TrueCommand4.Enabled = FalseDBGrid2.AllowUpdate = FalseEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbData3.DatabaseName = App.Path & DATABASEstu1.mdbData4.DatabaseName = App.Path & DATABASEstu1.mdbData5.DatabaseName = App.Path & DATABASEstu1.mdbData6.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub5.補考信息的錄入 管理員在此主要是對參加補考的學生的補考成績進行錄入，主要操作步驟是：在學號一欄輸入要添加補考成績的的學生的學號，選擇其補考的科目，點擊“確定”按 24鈕，在窗口表格中就會顯示學生的成績信息，點擊“修改成績”按鈕，對成績進行修改，點擊“確定”按鈕，補考成績就添加成功。(如圖 4-8 所示)圖 4-8 補考成績重錄4.2.34.2.3 信息查詢模塊設計信息查詢模塊設計1. 學生成績查詢 用戶在“輸入學號”框中輸入要查詢的學生的學號，點擊“確定” 按鈕，下面表格中會顯示該學生的各科目成績。如圖 4-9 所示圖 4-9 學生成績查詢2. 班級課程成績查詢用戶輸入班級和課程信息，點擊“確定”按鈕，查詢的結果就會顯示自下面的表格中。如圖 4-10 所示 25圖 4-10 班級課程成績查詢圖3.班級學期成績查詢 用戶輸入班級和學期信息，點擊“確定”按鈕，查詢的結果就會顯示自阿下面的表格中。如圖 4-11 所示：圖 4-11 班級學期成績查詢圖4. 補考學生查詢 用戶輸入學號，點擊“確定”按鈕，查詢的結果就會顯示自阿下面的表格中，通過此功能，用戶可以查詢某一個學生的不及格科目。 如圖 4-12 所示：圖 4-12 補考名單查詢圖 264.2.44.2.4 信息打印模塊設計信息打印模塊設計1.班級課程成績打印用戶輸入班級和所要打印的課程，點擊“打印”按鈕，可以通過打印功能打印某一各班級的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-13 所示：圖 4-13 班級課程成績打印圖班級課程成績打印模塊代碼如下：Dim exlapp As New Excel.ApplicationDim exlbook As Excel.WorkbookDim exlsheet As Excel.WorksheetDim mydb As Database 定義數(shù)據(jù)庫Dim rs As Recordset 定義字段Private Sub Command1_Click()SQLStr = SELECT * FROM 成績SQLStr = SQLStr + WHERE 班級 like & & DBCombo1.Text & SQLStr = SQLStr + and 課程 like & & DBCombo2.Text & SQLStr = SQLStr + order by 學號Set exlapp = New Excel.Applicationexlapp.Workbooks.Open App.Path + dayinbanji.xlt Set mydb = Workspaces(0).OpenDatabase(App.Path + databasestu1.mdb) 打開數(shù)據(jù)庫 Set rs = mydb.OpenRecordset(SQLStr) 打開表 Dim rows As Integer rows = 4 If rs.RecordCount 0 Then 將數(shù)據(jù)庫信息添加到 Excel 表中 27 exlapp.Sheets(1).Cells(2, 2) = rs.Fields(班級) exlapp.Sheets(1).Cells(2, 4) = rs.Fields(課程) While Not rs.EOF With exlapp.Sheets(1) .Cells(rows, 1) = rs.Fields(學號) .Cells(rows, 2) = rs.Fields(姓名) .Cells(rows, 3) = rs.Fields(總評) .Cells(rows, 4) = rs.Fields(學期) rs.MoveNext rows = rows + 1 End With Wend exlapp.Visible = True Else MsgBox 沒有數(shù)據(jù)！ End IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & DATABASEstu1.mdbData2.DatabaseName = App.Path & DATABASEstu1.mdbEnd Sub 52. 班級學期成績打印 用戶輸入班級和所要打印的學期信息，點擊“打印”按鈕，可以通過打印功能打印某一各班級的成績。以 Excel 表格的形式打印出來，便于瀏覽。如圖 4-14 所示：圖 4-14 學期班級成績打印圖3.補考學生名單打印 28這里的主要功能可以以班級為單位將某各班級的不及格學生的信息打印出來，也可以將某一門科目的不及格的學生打印出來。如圖 4-15 所示：圖 4-15 補考名單打印圖 29總結系統(tǒng)運行時對數(shù)據(jù)的保密性要求不高,對一般的數(shù)據(jù)不要求進行加密。此外，對其它軟件幾乎沒有依賴性，程序健壯性較好。通過對系統(tǒng)的需求分析，讓我深深的意識到它的重要性，在老師的指導下，使我進一步增強了做需求分析的能力！把以前書本上學到的知識真正用到了實踐中去，開闊了思路，強化了思維。通過這次全面的系統(tǒng)設計，首先讓我感到非常有成就感！。在今后的工作的過程中，這樣的困難會常常遇到的，別人不會幫你的，只要靠自己來解決。學無止境，我們要學的知識很多。 30致謝 在本文完成之際，我由衷地感謝關懷、幫助、支持，鼓勵我完成學業(yè)的老師。首先我使我深深體會到有付出才有收獲，經過這么長時間的開發(fā)，我遇到許多難題，但是通過仔細研究查閱書籍許多問題都得到解決。再此要感謝我的導師，半年來她在學習、學習上一直對悉心指導，嚴格要求、熱情鼓勵，為我創(chuàng)造了很多鍛煉提高的機會。老師洞察全局、高屋建瓴，為我的論文的順利完成指出了很好的方向，老師淵博的知識、寬廣無私的胸懷、夜以繼日的工作態(tài)度、對事業(yè)的執(zhí)著追求、誨人不倦的教師風范和對問題的敏銳觀察力，都將使我畢生受益。在此我謹向敬愛的老師致以最誠摯的謝意！ 31參考文獻1Visual Basic 輕松入門M 李俊民 許波 編著，人民郵電出版社，2009 年 1 月2 數(shù)據(jù)庫系統(tǒng)概論M第四版 王珊、薩師煊 主編，高等教育出版社，2006 年 5月；3Visual Basic 畢業(yè)設計指南與項目實踐M 李玉林.北京科學出版社，2008，72-119.4Visual Basic 數(shù)據(jù)庫系統(tǒng)設計與開發(fā)M 李春葆、張植民 清華大學出版社；5Visual Basic 6.0 信息管理系統(tǒng)開發(fā)實例導航M 求是科技，北京人民郵電出版社，2005，1-51.