數(shù)據(jù)庫課程設(shè)計(學(xué)生成績管理系統(tǒng))

2222號：計目院 業(yè) 與技班 級 05級二班姓 名指導(dǎo)師2008 年 1 月 18 日錄一概述.....................................................................1二3三4四序的調(diào)試與運行結(jié)果說明.................................................18五總結(jié)19參考文獻(xiàn) 20一 概述21算機的應(yīng)用已普及到經(jīng)濟(jì)和社會生活的各個領(lǐng)域.算機雖然與人類的關(guān)系愈來愈密切,還有人由于算機操作不方便繼續(xù)用手工勞動.為了適應(yīng)現(xiàn)代社會人們高度強烈的時間觀念,學(xué)生成績管理系統(tǒng)為教學(xué)辦公帶來了極大的方便.該學(xué)生成績管理系統(tǒng)是以VisualBasic+Access+SQL查.,,,.,,.序論知識和應(yīng)水平；在論和實驗礎(chǔ)上步鞏固已論及應(yīng)知識并加綜合提高；會將知識應(yīng)于實際方法，提高分析和決問題能力，增強動手能力；為畢業(yè)和后打下必礎(chǔ)。和掌握該中，序和方法。(6)綜合知識題能力。于、、實、必，實驗論，方問題科技術(shù)人應(yīng)具素質(zhì)。掌握實驗中知識驗中決問題，步識和能力。求論與應(yīng)知識，在微機 SQLserver環(huán)境上建個應(yīng)。把現(xiàn)實世界物及物之間復(fù)雜抽象為信息世界實體及實體之間聯(lián)信息模型，再轉(zhuǎn)換為機器世界模型和文，并文實施、更新和控制。e-r圖指定題信息模型；相應(yīng)模型，確定結(jié)構(gòu)；分析模式各屬于第幾范式，闡明由；應(yīng)結(jié)構(gòu)圖，確定功能；主碼約束、外碼約束實現(xiàn)整性控制；實現(xiàn)應(yīng)序、、優(yōu)化功能；應(yīng)序和步系界面實驗指定各項；分析遇問題，總結(jié)并出；我評價一 學(xué)生成績管理系統(tǒng)的目標(biāo)的分析1,管理員能夠?qū)崿F(xiàn)對整個學(xué)生信息的添加,修改,刪除,查詢等操作,對教師用戶的添加,刪除,修改等操作,對留言信息的添加,刪除,修改查詢等操作.2,可以將學(xué)生成績的發(fā)布到網(wǎng)上,教師的信息發(fā)布的網(wǎng)上,便學(xué)生3,教師能夠在一定的權(quán)限對所有學(xué)生成績的查詢,所有教師信息的查詢,留言信息的添加,刪除,修改是,查看等,對的自己的聯(lián)系信息進(jìn)行更新,登錄密4,學(xué)生可以在自己的權(quán)限對對自己成績的查詢,以及個人信息的查詢,學(xué)生成績管理系統(tǒng)的功能需求分析學(xué)生成績管理系統(tǒng)主要提供成績查詢,便管理的網(wǎng)上的信息查閱平查看留言,提交留言.教師可以通過成績管理系統(tǒng)查閱學(xué)生成績信息,教師信息,查看教師留言,學(xué)生留言,提交留言,留言的管理等相關(guān)操作.系統(tǒng)管理員可以學(xué)生可以通過該系統(tǒng)查閱與自己相關(guān)信息實現(xiàn)以上的所有功能,還有對學(xué)生的添加,刪除,修改,教師的添加,刪除,修改,的備份,的還原等相關(guān)操作.三系統(tǒng)的功能分析該學(xué)生成績管理系統(tǒng)是用VisualBasic+Access+SQL查詢語言編句,系統(tǒng)是基于網(wǎng)絡(luò)在線的學(xué)生成績管理系統(tǒng),在系統(tǒng)中分為大的個面:一是教師登錄是學(xué)生登錄系統(tǒng)管理員進(jìn)入學(xué)生成績管理系統(tǒng)的主要功能是:實現(xiàn)教師添加,教師的恢復(fù),的備份,學(xué)生的添加,學(xué)生的修改,學(xué)生的查詢,學(xué)生成績的錄入,學(xué)生成績的添加,學(xué)生成績的修改,學(xué)生成績教師進(jìn)入學(xué)生成績管理系統(tǒng)的主要功能是:實現(xiàn)學(xué)生的查詢,學(xué)生成績的查詢,留言的刪除,留言的查詢,留言的查詢,密碼的修改,教師的查詢,教師登學(xué)生進(jìn)行學(xué)生成績管量系統(tǒng)的主要功能是:實現(xiàn)學(xué)生自己怕成績查詢,22221 1 。管理模塊22222 1. 代碼：PrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetsql=""IfTrim(NoEdit.TextAndTrim(NameEdit.TextThenMsgBox的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql = "select Student.Sno,Sname,Cname,Grade from=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=EndIfEndIfIfrs.EOFThenMsgBox"Sorry,ElseSno=rs("Sno")Sname=rs("Sname")Sc=""Fori=1Tors.RecordCountSc=Sc+rs("Cname")&"："&rs("Grade")&rs.MoveNextNextFrmGrade_Show.Label8.Caption=Scsql1="selectSUM(Grade)asSum_Grade,AVG(Grade)asAvg_GradefromScwhereSc.Sno='"&Sno&"'"Setrs1=TransactSQL(sql1)FrmGrade_Show.Text1.TextFrmGrade_Show.Text2.Text==SnoSnameFrmGrade_Show.Text3.Text=rs1("Sum_Grade")FrmGrade_Show.Text4.Textrs1.CloseSetrs1=Nothing=rs1("Avg_Grade")FrmGrade_Show.ShowEndIfrs.CloseSetrs=NothingEndSubPrivateSubCommand2_Click()UnloadMeEndSub代碼：PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubcmdAdd_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewIfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""ThenMsgBoxvbOKOnlyvbExclamation,

Text1.SetFocusElsesql="select*fromCoursewhereCno='"&Trim(Text1.Text)sql=sql&"'andCname='"&Trim(Text2.Text)&"'andCteacher='"sql=sql&Trim(Text3.Text)&"'andCcredit='"&Trim(Text4.Text)sql=sql&"'"Setrs=TransactSQL(sql)Ifrs.EOF=FalseThenMsgBox已經(jīng)存在，請核實后再添加！",vbOKOnly+vbExclamation,！"Text1.SetFocusrs.CloseElsesql="select*fromCourse"Setrs=TransactSQL(sql)rs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Trim(Text2.Text)rs.Fields(2)=Trim(Text3.Text)rs.Fields(3)=Trim(Text4.Text)IfOption1(0).Value=TrueThencourse_select="專業(yè)"Elsecourse_select="選修"EndIfrs.Fields(4)=rs.Updaters.CloseMsgBox"該記錄已經(jīng)成功添加！",vbOKOnly+vbExclamation,"添加成功！"CallinitEndIfEndIfEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubinit()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=Newsql=""IfTrim(NoEdit.Text)AndTrim(NameEdit.Text)ThenMsgBox你要查詢的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql="select*fromCourse"sql=sql&"whereCno='"&Trim(NoEdit.Text)&"'and Cnamelike'%"&Trim(NameEdit.Text)&"%'"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="select*fromCourse"sql=sql&"whereCno='"&Trim(NoEdit.Text)&"'"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="select*fromCourse"sql=sql&"whereCnamelike'%"&Trim(NameEdit.Text)&"%'"Setrs=TransactSQL(sql)EndIfEndIfIfrs.EOFThenMsgBox"Sorry,無法找到你要想查詢的ElseFrmInfo_Course.Text1.Text=rs("Cno")FrmInfo_Course.Text2.Text=rs("Cname")FrmInfo_Course.Text3.Text=rs("Cteacher")FrmInfo_Course.Text4.Text=rs("Ccredit")Ifrs("Cselect")="專業(yè)"ThenFrmInfo_Course.Option1(0).Value=TrueElseFrmInfo_Course.Option1(1).Value=EndIfFrmInfo_Course.ShowEndIfrs.CloseSetrs=EndSubPrivateSubCommand2_Click()UnloadMeEndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdAdd_Click()Setrs=NewADODB.RecordsetIfText1.Text=""OrCombo1.Text=""OrText2.Text=""ThenMsgBox"請輸入成績的所有信息！",vbOKOnly+vbExclamation,"警&

Text1.SetFocusElse=&==rs.Close=*&&=Ifrs.EOF=TrueThenMsgBox&Trim(Text1.Text&的不存在，請核vbOKOnlyvbExclamation！"Text1.SetFocusrs.CloseElse=*&&&&==MsgBox的成績已經(jīng)存在，請核實后再添加！",vbOKOnly+vbExclamationText1.SetFocusrs.CloseElsesql="select*fromSc"Setrs=TransactSQL(sql)rs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Cnors.Fields(2)=Trim(Text2.Text)rs.Updaters.CloseMsgBox"該記錄已經(jīng)成功添加！",vbOKOnly+vbExclamation,"添加成功！"CallinitEndIfEndIfEndIfSetrs=NothingEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubForm_Load()Setrs=NewADODB.Recordsetsql="selectCno,CnamefromCourse"Setrs=TransactSQL(sql)Fori=1Tors.RecordCountCombo1.AddItemrs("Cname")rs.MoveNextNextCombo1.ListIndex=rs.CloseSetrs=EndSubPrivateSubinit()Text2.Text=""IfCombo1.ListIndex>=Combo1.ListCount-1ThenCombo1.ListIndex=0ElseCombo1.ListIndex=Combo1.ListIndex+EndIfEndSubPrivateSubcmdfind_Click()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=Newsql=""IfTrim(NoEdit.Text)AndTrim(NameEdit.Text)ThenMsgBox你要查詢的vbOKOnlyvbExclamation,"ExitSubElseIfNoEdit.Text<>""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text<>""AndNameEdit.Text=""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=TransactSQL(sql)ElseIfNoEdit.Text=""AndNameEdit.Text<>""Thensql="selectStudent.Sno,Sname,Cname,Gradefrom=&&"'Snamelike'%"&Trim(NameEdit.Text)&"%'andSc.Sno=Student.SnoCourse.Cno=Sc.Cno"Setrs=EndIfEndIfIfrs.EOFThenMsgBox"Sorry,ElseSno=rs("Sno")Sname=rs("Sname")Sc=""Fori=1Tors.RecordCountSc=Sc+rs("Cname")&"："&rs("Grade")&rs.MoveNextNextFrmGrade_Show.Label8.Caption=Scsql1="selectSUM(Grade)asSum_Grade,AVG(Grade)asAvg_GradefromScwhereSc.Sno='"&Sno&"'"Setrs1=TransactSQL(sql1)FrmGrade_Show.Text1.Text=FrmGrade_Show.Text2.Text=SnameFrmGrade_Show.Text3.Text=rs1("Sum_Grade")FrmGrade_Show.Text4.Text=rs1("Avg_Grade")rs1.CloseSetrs1=NothingFrmGrade_Show.ShowEndIfrs.CloseSetrs=EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubLabel8_Click()EndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdDel_Click()Setrs=NewIfText1.Text=""ThenMsgBox你輸入要刪除的vbOKOnlyvbExclamation"Text1.SetFocusExitSubEndIfsql=* &&"'"

Setrs=TransactSQL(sql)Ifrs.EOFThenx ，請確認(rèn)之后再刪除",y+,""Text1.SetFocusrs.CloseExitSubEndIf=&&"If&&l,"提示KTransactSQL(sql)xy""UnloadMeEndIfEndSubrs=IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""Thenx"請你輸入要想修改的編號以及相關(guān)的所有信息y"Text1.SetFocusExitSubEndIfsql="select* fromCoursewhereCno='"&Trim(Text1.Text)&"'"Setrs=TransactSQL(sql)Ifrs.EOFThenMsgBoxy,""Text1.SetFocusrs.CloseExitSubEndIfIf"&&"",vbOKCancelvbOKThensql="updateCoursesetCname='"&Trim(Text2.Text)&"'"IfOption1(0).Value=TrueThencourse_select="專業(yè)"Elsecourse_select"EndIfsql=sql&'"&&"&&&&sql=sql&"&&xy"UnloadMeEndIfEndSubPrivateSubCommand1_Click()UnloadMeEndSubDimsqlAsStringDimrsAsADODB.RecordsetPrivateSubcmdDel_Click()Setrs=NewADODB.RecordsetIfText1.Text=""ThenMsgBoxvbOKOnlyvbExclamation,""Text1.SetFocusExitSubEndIf=* &&"'"

=x ",y+,""Text1.SetFocusrs.CloseExitSubEndIfsqlfromStudent&&IfMsgBox("確定&Text1.Text&所有信息嗎？",vbOKCancel+vbExclamation")=vbOKThenTransactSQL(sql)xy""UnloadMeEndIfEndSubPrivateSubcmdMod_Click()Setrs=NewADODB.RecordsetIf=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""OrText7.Text""OrText8.Text=""ThenMsgB