班級(jí)成績管理

成績管理系統(tǒng)設(shè)計(jì)報(bào)告摘要：本文是對(duì)一個(gè)直接面向教師的班級(jí)成績系統(tǒng)的論述，班級(jí)成績管理系統(tǒng)實(shí)現(xiàn)了對(duì)于一個(gè)班的學(xué)生基本信息的添加、修改、查詢、成績的錄入，最后將這些記錄數(shù)值化直接的反映給教師。為每一個(gè)大學(xué)教師，對(duì)于自己每學(xué)期所帶的大學(xué)生的平時(shí)成績管理開發(fā)出一個(gè)專用管理系統(tǒng)。本系統(tǒng)是采用VisualBasic6.0作為開發(fā)工具，Access2003作為后臺(tái)數(shù)據(jù)庫，系統(tǒng)中的添加、修改、和查詢?nèi)咧g的關(guān)系，每個(gè)表的修改都要聯(lián)動(dòng)的影響其它的表，當(dāng)完成添加操作時(shí)系統(tǒng)會(huì)自動(dòng)地完成學(xué)生成績的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)主要根據(jù)學(xué)生姓名進(jìn)行成績查詢，其目的是為了方便用戶使用。這是經(jīng)典的單機(jī)版數(shù)據(jù)庫管理開發(fā)組合，極大地提高了對(duì)班級(jí)學(xué)生成績管理的效率。關(guān)鍵詞：班級(jí)成績管理系統(tǒng)，添加，查詢，access,VB1緒論1.1成績管理系統(tǒng)開發(fā)背景介紹當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代，在各行各業(yè)中離不開信息管理處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于管理系統(tǒng)的原因。而班級(jí)成績管理系統(tǒng)是典型的面向班級(jí)的信息管理系統(tǒng)，使用計(jì)算機(jī)對(duì)班級(jí)成績管理控制，不僅可以存儲(chǔ)大量的信息還可以方便查詢從而大大的提高了工作效率。因此，開發(fā)這樣一套成績管理系統(tǒng)成為很有必要的事情。1.2項(xiàng)目開發(fā)的目的和意義采用計(jì)算機(jī)對(duì)學(xué)生成績進(jìn)行管理幫助廣大教師提高工作效率，方便用戶的操作，盡量減少用戶的操作。1.3可行性分析可行性研究的目的是用最小的代價(jià)在盡可能的時(shí)間內(nèi)確定問題是否能夠解決2系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)2.1系統(tǒng)開發(fā)及運(yùn)行環(huán)境運(yùn)行平臺(tái)：MicrosoftWindowsXP/Windows2003/Windows2000系統(tǒng)開發(fā)平臺(tái)：VisualBasic6.0后臺(tái)數(shù)據(jù)庫系統(tǒng)軟件：Access20032.2系統(tǒng)功能分析本項(xiàng)目采用VisualBasic6.0+Access2003實(shí)現(xiàn)。

米用VisualBasic建立客戶端，實(shí)現(xiàn)簡單易懂的圖形用戶界面，并完成以下幾個(gè)功能：學(xué)生管理：該功能包括添加學(xué)生的功能。課程管理：該功能包括添加課程信息的功能。成績管理：這是程序的核心部分，該功能包括學(xué)生成績的查詢和輸入2.3系統(tǒng)設(shè)計(jì)分析針對(duì)系統(tǒng)的要求設(shè)計(jì)了如下數(shù)據(jù)字段與表：學(xué)生表，包括的數(shù)據(jù)字段有：學(xué)號(hào)和姓名兩個(gè)字段。課程表，包括的數(shù)據(jù)字段有：課程編號(hào)，課程名稱，開課學(xué)期三個(gè)字段。成績表，包括的數(shù)據(jù)字段有：學(xué)號(hào)，姓名，課程編號(hào)，課程名稱，成績。3成績管理界面設(shè)計(jì)用代碼3.1VB界面的文件列表Form3(成績查詢主窗體)Form2Form4Form5Forml(添加學(xué)生信息)(成績查詢主窗體)Form2Form4Form5Forml(添加課程信息)(添加學(xué)生成績信息)(查詢學(xué)生成績信息)3.2添加學(xué)生信息設(shè)計(jì)圖3.3.2添加學(xué)生信息設(shè)計(jì)圖3.3添加學(xué)生信息代碼PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Click()IfTextl.Text=〃〃OrText2.Text=""ThenMsgBox〃學(xué)號(hào)或姓名不能為空〃ExitSubEndIfDimstrSQLAsStringDimobjRecordsetAsADODB.RecordsetstrSQL="select*fromxueshengwhere學(xué)號(hào)='〃&Textl&〃’〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"這個(gè)學(xué)生號(hào)已經(jīng)存在，請(qǐng)重新輸入學(xué)生號(hào)",vbOKOnly+vbExclamation,〃警告〃Text1.SetFocusTextl.Text=〃〃Text2.Text=""ExitSubElselfTrim(Text2.Text)=""ThenMsgBox〃密碼不能為空〃，vbOKOnly+vbExclamation,〃警告〃Text2.Text=""Text3.Text=〃〃Text2.SetFocusElseobjRecordset.AddNewobjRecordset.Fields(O)=Textl.TextobjRecordset.Fields(1)=Text2.TextobjRecordset.UpdateMsgBox〃添加成功〃，vbOKOnly+vbExclamation,〃添加結(jié)束Textl.Text=""Text2.Text=〃〃Textl.SetFocusEndIfEndSub3.4添加課程信息設(shè)計(jì)圖3.3.4添加課程信息圖3.5添加課程信息代碼PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=〃〃Text2.Text=〃〃Text3.Text=〃〃EndSubPrivateSubCommand1_Click()IfTextl.Text=〃〃OrText2.Text=〃〃OrText3.Text=〃〃ThenMsgBox〃文本不為空〃ExitSubEndIfstrSQL="select*fromkechengwhere課程編號(hào)二'〃&Textl&〃'〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"這個(gè)課程編號(hào)經(jīng)存在，請(qǐng)重新輸入課程編號(hào)"，vbOKOnly+vbExclamation,"警告"Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""ExitSubElseobjRecordset.AddNewobjRecordset.Fields(1)=Text1.TextobjRecordset.Fields(2)=Text2.TextobjRecordset.Fields(3)=Text3.TextobjRecordset.UpdatestrSQL="insertintochengjiselect學(xué)號(hào)，姓名fromxuesheng"SetobjRecordset=ExecuteSQL(strSQL)SetobjRecordset=NothingstrSQL="updatechengjiset課程編號(hào)='"&Text1.Text&"'where課程編號(hào)二'新,〃SetobjRecordset=ExecuteSQL(strSQL)strSQL="updatechengjiset課程名稱二'"&Text2.Text&"'where課程名稱二'新，〃SetobjRecordset=ExecuteSQL(strSQL)MsgBox"添加成功"，vbOKOnly+vbExclamation,"添加結(jié)束"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndIfEndSub3.6添加學(xué)生成績設(shè)計(jì)Source二cjgl.mdb;"&"PersistSecurityInfo二False”strSQL="select姓名，課程名稱，成績fromchengjiwhere課程名稱='"&Combol.Text&"'"Adodcl.RecordSource=strSQLAdodcl.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimobjRecordsetAsADODB.Recordset'查詢課程strSQL="select課程名稱fromkecheng"SetobjRecordset=ExecuteSQL(strSQL)objRecordset.MoveFirstCombol.ClearDoWhileNotobjRecordset.EOFCombol.AddItemobjRecordset.Fields(O)objRecordset.MoveNext

LoopCombol.ListIndex=0SetobjRecordset=NothingEndSub3.8查詢學(xué)生成績界面PrivateconnAsNewADODB.ConnectionPrivatersAsNewADODB.RecordsetPrivateSubCommand1_Click()IfText1.Text=ThenMsgBox（〃請(qǐng)輸入您的姓名！"）ExitSubElseDimcmdSqlAsStringcmdSql="select*fromchaxunwhere姓名='〃&Trim(Text1.Text)&conn.OpenConnectStringrs.CursorLocation=adUseClientrs.OpencmdSql,conn,adOpenDynamic,adLockPessimisticIfrs.EOFAndrs.BOFThenrs.Closeconn.CloseMsgBox〃對(duì)不起，沒有你要查找的人，請(qǐng)重新輸〃Textl.Text=〃〃Textl.SetFocusExitSubElseSetMSHFlexGridl.DataSource=rsMSHFlexGridl.RefreshEndIfEndIfrs.Closeconn.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)SetMSHFlexGrid1.DataSource=NothingIfrs.State=1Thenrs.Closeconn.CloseEndIfEndSub經(jīng)過一個(gè)多月的設(shè)計(jì)和研究，本系統(tǒng)基本開發(fā)完畢。其功能基本符合需求，可以完成班級(jí)學(xué)生成績的輸入和成績的查詢以及班級(jí)課程和班級(jí)學(xué)生的添加。但是由于時(shí)間與技能的原因，所以