班級成績管理

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

米用VisualBasic建立客戶端，實現簡單易懂的圖形用戶界面，并完成以下幾個功能：學生管理：該功能包括添加學生的功能。課程管理：該功能包括添加課程信息的功能。成績管理：這是程序的核心部分，該功能包括學生成績的查詢和輸入2.3系統(tǒng)設計分析針對系統(tǒng)的要求設計了如下數據字段與表：學生表，包括的數據字段有：學號和姓名兩個字段。課程表，包括的數據字段有：課程編號，課程名稱，開課學期三個字段。成績表，包括的數據字段有：學號，姓名，課程編號，課程名稱，成績。3成績管理界面設計用代碼3.1VB界面的文件列表Form3(成績查詢主窗體)Form2Form4Form5Forml(添加學生信息)(成績查詢主窗體)Form2Form4Form5Forml(添加課程信息)(添加學生成績信息)(查詢學生成績信息)3.2添加學生信息設計圖3.3.2添加學生信息設計圖3.3添加學生信息代碼PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand1_Click()IfTextl.Text=〃〃OrText2.Text=""ThenMsgBox〃學號或姓名不能為空〃ExitSubEndIfDimstrSQLAsStringDimobjRecordsetAsADODB.RecordsetstrSQL="select*fromxueshengwhere學號='〃&Textl&〃’〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"這個學生號已經存在，請重新輸入學生號",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,〃添加結束Textl.Text=""Text2.Text=〃〃Textl.SetFocusEndIfEndSub3.4添加課程信息設計圖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課程編號二'〃&Textl&〃'〃SetobjRecordset=ExecuteSQL(strSQL)IfobjRecordset.EOF=FalseThenMsgBox"這個課程編號經存在，請重新輸入課程編號"，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學號，姓名fromxuesheng"SetobjRecordset=ExecuteSQL(strSQL)SetobjRecordset=NothingstrSQL="updatechengjiset課程編號='"&Text1.Text&"'where課程編號二'新,〃SetobjRecordset=ExecuteSQL(strSQL)strSQL="updatechengjiset課程名稱二'"&Text2.Text&"'where課程名稱二'新，〃SetobjRecordset=ExecuteSQL(strSQL)MsgBox"添加成功"，vbOKOnly+vbExclamation,"添加結束"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndIfEndSub3.6添加學生成績設計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查詢學生成績界面PrivateconnAsNewADODB.ConnectionPrivatersAsNewADODB.RecordsetPrivateSubCommand1_Click()IfText1.Text=ThenMsgBox（〃請輸入您的姓名！"）ExitSubElseDimcmdSqlAsStringcmdSql="select*fromchaxunwhere姓名='〃&Trim(Text1.Text)&conn.OpenConnectStringrs.CursorLocation=adUseClientrs.OpencmdSql,conn,adOpenDynamic,adLockPessimisticIfrs.EOFAndrs.BOFThenrs.Closeconn.CloseMsgBox〃對不起，沒有你要查找的人，請重新輸〃Textl.Text=〃〃Textl.SetFocusExitSubElseSetMSHFlexGridl.DataSource=rsMSHFlexGridl.RefreshEndIfEndIfrs.Closeconn.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)SetMSHFlexGrid1.DataSource=NothingIfrs.State=1Thenrs.Closeconn.CloseEndIfEndSub經過一個多月的設計和研究，本系統(tǒng)基本開發(fā)完畢。其功能基本符合需求，可以完成班級學生成績的輸入和成績的查詢以及班級課程和班級學生的添加。但是由于時間與技能的原因，所以