學生成績管理系統(tǒng)畢業(yè)設計論文

1、本科畢業(yè)論文學生成績管理系統(tǒng)學院： 專業(yè)： 計算機科學與技術學號： 姓名： 指導教師： 【摘要】學生成績是教育單位不可或缺的一部分,應該能夠為用戶提供充足的信息和快捷的查詢方式。傳統(tǒng)的人工方式來管理學生的成績存在著許多缺點,如:保密性差而且效率低,產(chǎn)生大量的文件和數(shù)據(jù),對數(shù)據(jù)的查找、更新和維護帶來困難。   隨著計算機科學逐步成熟以及完善,其滲透到人類社會的各個領域并發(fā)揮著重要的作用。運用計算機對學生信息進行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高管理者對學生成績管理的效率,使學校的

2、管理科學化、正規(guī)化。 【關鍵詞】學生成績管理系統(tǒng)；數(shù)據(jù)庫；access；數(shù)據(jù)詞典。目 錄1.引 言1 1.1項目開發(fā)的背景 1 1.2項目開發(fā)的目標 1 1.3 項目開發(fā)的意義 1 2.可行性研究報告與需求分析1 2.1可行性研究1 2.2需求分析2 2.2.1 概述2 2.2.2 系統(tǒng)需求2 2.2.3 數(shù)據(jù)詞典2 2.2.4 數(shù)據(jù)流程圖23.系統(tǒng)總體設計3 3.1 系統(tǒng)結構設計3 3.2 數(shù)據(jù)庫結構設計6 3.3 系統(tǒng)E-R圖74.系統(tǒng)詳細設計9 4.1系統(tǒng)開發(fā)工具及運行環(huán)境9 4.2系統(tǒng)各功能模塊的設計及實現(xiàn)9 4.2.1系統(tǒng)管理模塊設計 12 4.2.2信息錄入模塊設計13 4.2.3

3、信息查詢模塊設計21 4.2.4信息打印模塊設計225.系統(tǒng)測試與維護24 5.1 系統(tǒng)測試24 5.1.1軟件測試的目的24 5.1.2系統(tǒng)的測試環(huán)境24 5.1.3測試方案設計25 5.1.4測試結果的評價25 5.2 系統(tǒng)維護266. 用戶手冊26 6.1 軟件的安裝26 6.2 登陸界面26 6.3 系統(tǒng)主界面26 6.4 信息的查詢27 6.5 各種信息的錄入29 6.6 相關資料的打印297. 總結298. 致謝29參考文獻 3031 / 33文檔可自由編輯打印1. 引 言1.1  項目開發(fā)的背境 幾年前，各個學校對于學生成績的管理還是停留在運用手工操作，隨著各個學校的規(guī)

4、模不斷壯大，學生人數(shù)逐年增加。關于學生成績管理工作所涉及的數(shù)據(jù)量越來越大，有的學校不得不靠增加人力、物力來進行學生成績管理。但人工管理又有著許多缺陷，比如：效率底、易出錯、檢索信息慢、對學校的管理提供決策信息較為困難等。學校不能完全掌握每一個學生的學習情況，這樣對學校的教學工作及其不利，使學校的教學質(zhì)量一直停滯不前，所以我想借本次畢業(yè)設計之際，開發(fā)一個不僅適用于各校的通用高校學生成績管理系統(tǒng)，使學校能夠充分掌握學生的學習情況，便于學校教學工作的進行和改革。1.2 項目開發(fā)的目標建立學生成績管理系統(tǒng)，采用計算機對學生成績進行管理，進一步提高辦學效率和現(xiàn)代化水平。使學校對學生的成績能夠快速并準確的

5、錄入、修改和查詢，更好地掌握每個學生的各科成績，便于教師的管理。使學生對個人的學習成績進行更快的查詢。讓老師能夠更好、更快的了解學生的學習情況，使學校的教學質(zhì)量進一步的提高。1.3 項目開發(fā)的意義現(xiàn)在我國的一些院校的學生成績管理水平普遍不高，有的還停留在紙介質(zhì)基礎上，這種管理手段已不能適應時代的進展，因為它浪費了太多的人力和物力。在當今的信息時代，這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理系統(tǒng)所取代。如果本系統(tǒng)能被學校所采用，將會改變以往靠手工管理學生成績的狀況，可以樹立良好的辦學形象，提高工作效率，節(jié)省人力和物力。2. 可行性研究與需求分析2.1 可行性研究隨著學校規(guī)模的不斷擴大，學生人

6、數(shù)逐年增加，學校對學生成績管理的工作量也越來越大。學生成績管理涉及大量的數(shù)據(jù)處理，如果用手工來完成龐大的數(shù)據(jù)處理，將費時費力，還容易出錯，為了滿足學校對學生成績管理的需要，急需要一套學生成績管理系統(tǒng)來完成這項工作。作為計算機應用的一部分,使用計算機對學生成績信息加以管理,將擁有著手工管理所無法比擬的優(yōu)點.例如:輸入迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生成績管理的效率,也是學生成績的科學化、正規(guī)化管理的重要條件。同時還要注意下列幾點：1 由于各方面的限制，如人員不夠、技術缺乏等原因，開發(fā)時應本著循序漸進，逐步完善的原則，不能貪大求全，盲目開發(fā)。

7、2 要注意信息的準確、及時、適用、經(jīng)濟，只有及時、準確的信息才能保證系統(tǒng)開發(fā)的質(zhì)量和效率。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.2 需求分析2.2.1 概述1系統(tǒng)分析的原則分析高校成績管理的要求，確定管理系統(tǒng)的邏輯功能，以滿足高校成績的要求。第一階段完成后，該系統(tǒng)應具備較高的可擴充性，便于在此基礎

8、上完成第二階段。2 分析方法采用結構化分析方法，建立新系統(tǒng)的邏輯模型，這個邏輯模型盡可能避免計算機的專業(yè)術語。 2.2.2 系統(tǒng)需求經(jīng)過一段時間對學校學生成績管理的調(diào)研與分析，以及認真研究了幾位老師的意見，所開發(fā)的學生成績管理系統(tǒng)應分成以下幾個階段開發(fā)：第一階段建立的成績管理系統(tǒng)由以下5個子系統(tǒng)組成： 1系統(tǒng)信息的管理，能添加用戶、修改用戶信息、刪除用戶。2學生基本信息的管理，能對學生基本信息進行添加、刪除、修改。3班級信息的管理，能對班級基本信息進行添加、刪除、修改。4學生成績信息的管理，能對學生成績基本信息進行添加、刪除、修改。5對數(shù)據(jù)的備份、恢復，對學生數(shù)據(jù)的及時備份。第二階段建立的成績

9、管理系統(tǒng)主要在上次基礎上對其功能進行修改以及擴充。在功能擴充上應該使系統(tǒng)更具實用性。2.2.3 數(shù)據(jù)詞典 經(jīng)過分析，所開發(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.4 數(shù)據(jù)流程圖學生成績管理系統(tǒng)數(shù)據(jù)

10、流程圖如下： 用戶主界面歡迎界面用戶登陸 管理系統(tǒng)系統(tǒng)管理信息打印信息錄入信息查詢用戶登陸退出管理系統(tǒng)打印信息表查詢信息錄入信息圖2-1 系統(tǒng)數(shù)據(jù)流程圖3. 系統(tǒng)的總體設計3.1系統(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)能達到以

11、下的目標：1) 用戶使用，具有較高的用戶友好性。2） 有較高的可靠性，將系統(tǒng)發(fā)生故障的概率控制在2.0以下，并具有快速恢復的能力3) 具有較高的運行效率，應比人工作業(yè)提高效率10倍以上。4）具有較強的可維護性和擴充性，能夠適應用戶的業(yè)務要求變化。(3)設計策略本系統(tǒng)的結構是自頂向下擴展的，層次化的暗盒模塊結構。對高層模塊，將運用以事務為中心的設計策略，將一個復雜的系統(tǒng)逐步分解成為幾個較小的相對簡單的暗合模塊；對低層模塊，采用以變換為中心的設計策略。此外，為了提高模塊的內(nèi)聚性，降低模塊間的偶合程度，數(shù)據(jù)庫 的設計原則是把他作為模塊間的郵政信箱，從而既實現(xiàn)數(shù)據(jù)共享有提高模塊的獨立性，使系統(tǒng)具有很高

12、的可修改性。12系統(tǒng)總體功能本說明主要是為了對學生成績管理系統(tǒng)進行使用和維護。該系統(tǒng)充分利用計算機的現(xiàn)有的功能來實現(xiàn)對系統(tǒng)管理、信息錄入、信息查詢，信息打印等的自動化控制，將會使學生成績管理工作大大減輕，方便友好的信息管理用戶界面，簡便的操作，完善的數(shù)據(jù)庫管理，將會使得信息管理系統(tǒng)極大限度地應用于現(xiàn)代化學生成績管理，成為管理人員的得力助手。對系統(tǒng)信息的修改、添加、刪除對學生基本信息的修改、添加、刪除、查詢對班級信息的添加、修改、查詢對學籍信息的添加、修改、查詢對學生成績信息的添加，修改，查詢對數(shù)據(jù)的備份、恢復3系統(tǒng)結構圖 學生成績管理系統(tǒng)結構圖，以下所示，這些結構圖是根據(jù)系統(tǒng)分析說明書的數(shù)據(jù)流

13、程圖畫出的。實際上它有 四個模塊組成。學生成績管理系統(tǒng)系統(tǒng)管理信息錄入信息查詢信息打印圖3-1 學生成績管理系統(tǒng)系統(tǒng)管理用戶權限設置數(shù)據(jù)備份 圖3-2 系統(tǒng)管理信息錄入班級信息錄入學生信息錄入課程信息錄入成績錄入補考信息錄入圖3-3 信息錄入信息查詢按學號查詢學生成績班級課程成績查詢 班級學期成績查詢補考學生查詢圖3-4 信息查詢信息打印學生成績打印班級課程成績打印班級學期成績打印補考學生名單打印圖3-5 信息打印3.2數(shù)據(jù)庫結構設計1 數(shù)據(jù)庫總體結構本系統(tǒng)采用關系型數(shù)據(jù)庫Acess實現(xiàn),數(shù)據(jù)庫由、若干個二維表構成。本系統(tǒng)的表分為兩類。一類是目錄，即索引。另一類是實際數(shù)據(jù)。其中數(shù)據(jù)表包括：學生

14、信息表、 班級信息表、課程信息表、成績信息表和用戶信息表。22數(shù)據(jù)庫表表3-1 學生信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允許為空學號int4否姓名Char 10否性別char2是生日datetime8是本人成分Int 4是文化程度char10是籍貫Varchar8是民族varchar50是入學注冊varchar200是身份證號Varchar200是郵政編碼varchar18是工作單位及地址Varchar200是單位電話Varchar200是家庭住址Varchar200是家庭電話Varchar20是畢業(yè)時間Datatime5是成績畢業(yè)Int4是表3-2 班級信息表數(shù)據(jù)字段名數(shù)據(jù)類型數(shù)據(jù)長度是否允

15、許為空班號 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圖 課程實

16、體課程圖3-6 課程E-R圖班級班級實體圖3-7 班級E-R圖成績實體學期考勤成績隨堂成績期末成績總評成績平時成績課程班級姓名學號圖3-8 成績E-R圖學生信息實體姓名學號學制性別出生年月文化程度籍貫民族入學時間身份證號郵編工作單位單位電話家庭住址家庭電話成績記錄編號答辯日期指導教師設計題目畢業(yè)證編號畢業(yè)時間家庭成員學習工作經(jīng)歷答辯評語圖3-9 學生信息E-R圖2.系統(tǒng)全局E-R圖班級班級就讀學號學生信息選課課程課程總評總評成績11n11姓名學期平時隨堂期末考勤性別籍貫入學時間指導老師身份證民族家庭住址姓名設計題目圖3-10 系統(tǒng)全局E-R圖4. 系統(tǒng)詳細設計4.1系統(tǒng)開發(fā)工具及運行環(huán)境 1.

17、 系統(tǒng)開發(fā)工具本系統(tǒng)利用VB6.0全套開發(fā)工具做程序開發(fā)，利用Acess數(shù)據(jù)庫作為學生成績管理系統(tǒng)的后臺數(shù)據(jù)庫。VB6.0在數(shù)據(jù)庫開發(fā)方面功能很強大，大量使用可視化的界面操作工具，支持面向?qū)ο蟮某绦蛟O計，其以簡便、靈活、高效等優(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內(nèi)存、80G硬盤4.2系統(tǒng)各功能模塊的設計及實現(xiàn)執(zhí)行程

18、序后，首先進入的是學生成績管理系統(tǒng)的登錄界面,用戶通過輸入正確的信息后,就進入系統(tǒng)主界面。 如圖4-1所示圖4-1 登陸界面以下是登陸模塊的代碼：Private Sub Command1_Click() Text1.Text = DBCombo1.Text Data1.Recordset.FindFirst "name=" & "'" & Text1.Text & "'" If Data1.Recordset.NoMatch Then MsgBox ("沒有此用戶") DBC

19、ombo1.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

20、 Form_Load()Data1.DatabaseName = App.Path & "DATABASEUSER1.mdb"End Sub4進入主界面后，用戶可以進行學生信息添加、刪除、修改、查詢和打印以及對數(shù)據(jù)庫的備份等操作。如圖4-2所示圖4-2 系統(tǒng)主界面下面是主界面模塊的代碼：Private Sub bklr_Click()bukao.ShowEnd SubPrivate Sub bkxshchx_Click()chaxun_bukao.ShowEnd SubPrivate Sub bkxshmddy_Click()dayin_bukao.ShowEnd

21、SubPrivate Sub chjlr_Click()chengji.ShowEnd SubPrivate Sub gyrj_Click()frmAbout.ShowEnd SubPrivate Sub kchxxlr_Click()kecheng.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub shjbf_Click()beifen.ShowEnd SubPrivate Sub tch_Click()EndEnd SubPrivate Sub xshxxlr_Click()xuesheng.ShowEnd SubPrivate

22、 Sub yhqx_Click()quanxian.ShowEnd Sub4.2.1系統(tǒng)管理模塊設計在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖4-3所示圖4-3 用戶權限設置用戶權限設置代碼如下：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command2_Click() Data1.Re

23、cordset.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 C

24、ommand4_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.RefreshEnd

25、IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "DATABASEuser1.mdb"End Sub4.2.2信息錄入模塊設計 包括對班級信息、學生基本信息、課程信息、學生成績信息、學生補考信息的錄入、修改和刪除1. 班級信息錄入用戶在班級輸入框中輸入要添加的班級信息，點擊添加按鈕，如果班級信息出現(xiàn)在右側(cè)的表格中就說明信息添加成功。用戶也可以對已經(jīng)添加的信息進行修改和刪除，具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應的操作，如果已經(jīng)添加的班級信息很多，你可以通過模糊

26、查找來幫你找出比較匹配的班級信息并將查詢結果顯示在右側(cè)的表格中，便于用戶進行修改或刪除。如圖4-4所示圖4-4 班級信息班級信息錄入的代碼：Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command2_Click()Data1.Recordset.Edit Command1.Enabled = False

27、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 D

28、ata1.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 IfEnd SubPrivate Sub Command6_Click() D

29、im 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 =

30、App.Path & "DATABASEstu1.mdb"End Sub2. 學生基本信息錄入在此輸入學生的基本信息包含班級學號、姓名、性別、出生日期、文化程度、籍貫、民族、入學日期、身份證號等，主要是對學生信息的登記。管理員還可以在右側(cè)表格中對已經(jīng)選中的學生信息進行修改或者刪除，如果學生信息比較多，而你要進行操作的學生的信息沒有顯示出來，你可以通過查找進行快速定位，查找分為按學號查找和按姓名查找。如圖4-5所示：圖4-5 學生信息學生信息模塊的代碼：Private Sub Command1_Click()Dim bm bm = Data1.Recordset.Bo

31、okmark 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.R

32、ecordset.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.FindN

33、ext "姓名 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

34、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 Co

35、mmand5.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("確定刪除

36、數(shù)據(jù)嗎？", 305, "核對框")If answer = 1 ThenData1.Recordset.DeleteData1.RefreshEnd IfEnd SubPrivate Sub DBGrid1_Click()End SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "DATABASEstu1.mdb"Data2.DatabaseName = App.Path & "DATABASEstu1.mdb"End Sub3.課程信息錄入.

37、 主要是對學生所學課程信息進行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱，點擊添加按鈕，如果課程信息出現(xiàn)在右側(cè)的表格中，就說明信息添加成功。在這里也可以選中右側(cè)表格中的信息對課程信息進行修改或者刪除，管理員也可以通過利用查找功能快速定位你想要操作的課程信息，便于管理。如圖4-6所示：圖4-6 課程設置4.成績信息錄入管理員在此窗口輸入要輸入學生所屬班級，學生所學的課程和學期后，點擊“確定”按鈕，在下面的表格中就會列出班級所有學生的學號和姓名，如果某位學生這門學科已經(jīng)輸入成績則顯示該學生的成績情況。選中要進行成績錄入的學生，在窗口下面就會顯示選中學生的“學號”和“姓名”，在后面

38、的輸入框中輸入相應的信息，點擊“確定并輸入下一成績”按鈕，該學生的成績就添加成功了。如果點擊“對已輸入成績進行刪除”按鈕，則將已經(jīng)輸入的成績信息刪除。如圖4-7所示圖4-7 成績信息錄入成績錄入代碼如下：Private Sub Command1_Click()MsgBox ("注意，學期一定要輸入正確")SQLStr = "SELECT 學號,姓名 FROM 學生" SQLStr = SQLStr + " WHERE 班級 like " & "'" & DBCombo1.Text &

39、 "'" SQLStr = SQLStr + "order by 學號" Data3.RecordSource = SQLStr Data3.Refresh Text1.DataField = "學號" Text2.DataField = "姓名" sSQLStr = "SELECT 學號,姓名,隨堂,平時,考勤,期末,總評,學期 from 成績" sSQLStr = sSQLStr + " where 班級 like " & "'"

40、; & DBCombo1.Text & "'" sSQLStr = sSQLStr + " and 課程 like " & "'" & DBCombo2.Text & "'" sSQLStr = sSQLStr + "order by 學號" Data5.RecordSource = sSQLStr Data5.Refresh Label10.Caption = Str$(Data3.Recordset.RecordCount) L

41、abel11.Caption = Str$(Data5.Recordset.RecordCount)End SubPrivate Sub Command2_Click()If Data3.Recordset.EOF ThenMsgBox ("已輸入完成！")Exit SubEnd IfIf Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" ThenMsgBox ("數(shù)據(jù)有誤")Ex

42、it 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.TextText

43、11.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.RecordCoun

44、t)Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""End SubPrivate Sub Command3_Click()SQLStr = "SELECT * FROM 成績" SQLStr = SQLStr + " WHERE 學號 like " & "'" & Text1.Text & "'" SQLStr = SQLSt

45、r + " and 課程 like " & "'" & DBCombo2.Text & "'" Data6.RecordSource = SQLStr Data6.Refreshanswer = MsgBox("確定刪除數(shù)據(jù)嗎？", 305, "核對框")If answer = 1 ThenData6.Recordset.DeleteData6.RefreshData5.RefreshData4.RefreshLabel11.Caption = Str$(

46、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.mdb"Data2.DatabaseName = App.Path & "DATABASEstu1.mdb"

47、;Data3.DatabaseName = App.Path & "DATABASEstu1.mdb"Data4.DatabaseName = App.Path & "DATABASEstu1.mdb"Data5.DatabaseName = App.Path & "DATABASEstu1.mdb"Data6.DatabaseName = App.Path & "DATABASEstu1.mdb"End Sub5.補考信息的錄入 管理員在此主要是對參加補考的學生的補考成績進行錄入，

48、主要操作步驟是：在學號一欄輸入要添加補考成績的的學生的學號，選擇其補考的科目，點擊“確定”按鈕，在窗口表格中就會顯示學生的成績信息，點擊“修改成績”按鈕，對成績進行修改，點擊“確定”按鈕，補考成績就添加成功。(如圖4-8所示)圖4-8 補考成績重錄4.2.3信息查詢模塊設計1. 學生成績查詢 用戶在“輸入學號”框中輸入要查詢的學生的學號，點擊“確定” 按鈕，下面表格中會顯示該學生的各科目成績。如圖4-9所示圖4-9 學生成績查詢2. 班級課程成績查詢用戶輸入班級和課程信息，點擊“確定”按鈕，查詢的結果就會顯示自下面的表格中。如圖4-10所示圖4-10 班級課程成績查詢圖3. 班級學期成績查詢

49、用戶輸入班級和學期信息，點擊“確定”按鈕，查詢的結果就會顯示自阿下面的表格中。如圖4-11所示：圖4-11 班級學期成績查詢圖4. 補考學生查詢 用戶輸入學號，點擊“確定”按鈕，查詢的結果就會顯示自阿下面的表格中，通過此功能，用戶可以查詢某一個學生的不及格科目。 如圖4-12所示：圖4-12 補考名單查詢圖4.2.4信息打印模塊設計1. 班級課程成績打印 用戶輸入班級和所要打印的課程，點擊“打印”按鈕，可以通過打印功能打印某一各班級的成績。以Excel表格的形式打印出來，便于瀏覽。如圖4-13所示：圖4-13 班級課程成績打印圖班級課程成績打印模塊代碼如下：Dim exlapp As New

50、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 & &q

51、uot;'"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(A

52、pp.Path + "databasestu1.mdb") '打開數(shù)據(jù)庫 Set rs = mydb.OpenRecordset(SQLStr) '打開表 Dim rows As Integer rows = 4 If rs.RecordCount > 0 Then '將數(shù)據(jù)庫信息添加到Excel表中 exlapp.Sheets(1).Cells(2, 2) = rs.Fields("班級") exlapp.Sheets(1).Cells(2, 4) = rs.Fields("課程") While Not

53、 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.mdb"Data2.DatabaseName = App.Path & "DATABASEstu1.mdb"End Sub 52. 班級學期成績打