教学管理系统数据库课程设计

数据库课程设计报告教学管理系统实验题目：教学管理系统教学管理系统目录一、概述.........................................错误!未定义书签。二、总体设计........................................错误!未定义书签。1、软件环境：.....................................错误!未定义书签。2、硬件环境：.....................................错误!未定义书签。三、实验主要内容....................................错误!未定义书签。1、主要数据表.....................................错误!未定义书签。2、功能模块.......................................错误!未定义书签。四、系统分析报告....................................错误!未定义书签。1、数据流图.......................................错误!未定义书签。2、系统功能模块...................................错误!未定义书签。3、业务流图.......................................错误!未定义书签。4、系统数据模型设计...............................错误!未定义书签。五、代码实现........................................错误!未定义书签。1.登录界面........................................错误!未定义书签。2.注册界面........................................错误!未定义书签。3.教师界面........................................错误!未定义书签。4.课表管理........................................错误!未定义书签。5.成绩管理........................................错误!未定义书签。6.学生界面........................................错误!未定义书签。7.网上评教........................................错误!未定义书签。六、系统实现结果....................................错误!未定义书签。七、实验分工及总结..................................错误!未定义书签。一、概述数据库课程设计是集中实践性环节之一，是学习完《数据库原理及应用》课程后进行的一次全面的综合的实践练习，主要目的在于加深学生对数据库基础理论和基本知识的理解，熟悉数据库的设计方法，掌握基于数据库的信息管理系统的开发方法，进一步加强学生综合运用知识和实践动手的能力。学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。二、总体设计1、软件环境：VisualStudio2010、SQLServerManagementStudio2、硬件环境：PC机三、实验主要内容1、主要数据表课程信息表，学生信息表单，教师信息表，学生成绩表等。2、功能模块（1）课程设置，包括：查询、添加、删除、查询和修改课程信息（2）学生成绩查询，网上评教。（3）教师查询课程时间和教室的安排。（4）教师管理学生成绩查询，添加，修改，删除。（5）学生和教师信息的注册。四、系统分析报告1、数据流图教学管理系统的基本数据流图如下所示：学生选课信息课程信息选课审核信息图1教学管理系统的基本数据流图学生成绩信息学生考试信息学生信息管理个人考试信息成绩确认信息图2教学管理系统的基本数据流图排课信息个人考试成绩排课信息排课信息排课信息图3教学管理系统的基本数据流图2、系统功能模块学生教师选课管理新增课程成绩管理管理员任课老师学生考试成绩管理员教学安排任课教师学生课表信息本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。其示意图如下：3、业务流图4、系统数据模型设计（1）系统ER图各实体E-R图：选修修考试授课学生课程成绩教师学生信息管理教师信息管理信息注册查询信息课表管理课名查询教室查询成绩管理查询添加教师信息注册学生信息注册教学管理系统课程信息成绩查询网上评教删除学生信息：课程信息：教师信息：学生成绩：课程号学生学号姓名登录密码课程信息课程号课程名上课时间上课教室登录密码教师教师编号姓名登录密码（2）关系模式学生信息（姓名，学号，登录密码）课程信息（课程号，课程名，上课教室，登录密码，）教师信息（教师编号，姓名，登录密码）学生成绩（学号，课程号，课程名，成绩）（3）数据表课程信息表教师信息表个人成绩表学生成绩表学生课表五、代码实现1.登录界面PrivateSubForm1_Load(ByValsenderAs,ByValeAsHandlesDimmin,max,rndnum,iAsIntegermin=10max=99=Fori=0To1rndnum=CStr(CInt(min+Rnd()*(max-min)))=&&rndnumNextEndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAsHandles学生成绩学号成绩课程名DimConnStrAsString=Server=(local);uid=sa;pwd=1234;database=shiyDimcnAs=New(ConnStr)'建¡§立¢¡é连¢接¨®对象¨®，ê同ª时º¡À说¦Ì明¡Â连¢接¨®字Á符¤串äDimcmdAsNew'生¦¨²成¨¦命¨¹令¢对象¨®，ê用®于®¨²执¡ä行DSQL语®句DimdrAsIDataReader'用®来¤¡ä临¢¨´时º¡À存ä放¤执¡ä行D语®句后¨®的Ì结¨¢果DimSQLStrAsStringIf=TrueThenSQLStr=select*fromteacherwheretusernum=+'++'=cn()=SQLStrdr=()If()ThenIfdr!().Trim=ThenIf=ThenMsgBox(登Ì录成¨¦功|)DimjiaoshiAsNewForm3()Hide()ElseMsgBox(验¨¦证¡è码错䨪误¨®)EndIfElseMsgBox(密¨¹码不正y确¨¡¤)EndIfElseMsgBox(该用®户¡ì不存ä在¨²)EndIf()()ElseSQLStr=select*fromstudentwheresnum=+'++'=cn()=SQLStrdr=()If()ThenIfdr!().Trim=ThenIf=ThenMsgBox(登Ì录成¨¦功|)DimxueshengAsNewForm6()()ElseMsgBox(验¨¦证¡è码错䨪误¨®)EndIfElseMsgBox(密¨¹码不正y确¨¡¤)EndIfElseMsgBox(该用®户¡ì不存ä在¨²)EndIf()()EndIfEndSubPrivateSubButton1_Click(ByValsenderAs,ByValeAsHandlesDimzhuceAsNewForm2()()EndSub2.注册界面PublicClassForm2DimobjDSAsNewDataSetDimobjXSTableAsDataTableDimobjdaAsNewDimcnAsNew(server=(local);uid=sa;pwd=1234;database=shiy)PublicSubrefreshdata()(objDS,teacher)'第̨²二t个参数ºy为a需¨¨要°a更¨¹新数ºy据Y库a表À¨ª名()(Nothing,Nothing)()EndSubPrivateSubzhuce_Click(ByValsenderAs,ByValeAsHandlesDimcmdAsNew=cn'数ºy据Y从䨮当Ì¡À前¡ã建¡§立¢¡é的Ì连¢接¨®cn中D进入¨If=TrueThenDimbuilderAs=New(objda)Try()=select*fromteacher=cmd(objDS,teacher)objXSTable=(teacher)()DimresponseAsMsgBoxResultresponse=MsgBox(确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗eê,vbOKCancel+vbQuestion,系¦Ì统ª3提¬¨¢示º)Ifresponse=ThenDimmyRowAsDataRowmyRow=myRow(tusernum)=myRow(tusername)=myRow(tpwd)=(objDS,teacher)()refreshdata()EndIfCatchexAsExceptionEndTryElseDimbuilderAs=New(objda)()=select*fromstudent=cmd(objDS,student)objXSTable=(student)()DimresponseAsMsgBoxResultresponse=MsgBox(确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗eê,vbOKCancel+vbQuestion,系¦Ì统ª3提¬¨¢示º)Ifresponse=ThenDimmyRowAsDataRowmyRow=myRow(snum)=myRow(sname)=myRow(spwd)=(objDS,student)()refreshdata()EndIfEndIfDimdengluAsNewForm1()()EndSubPrivateSubchongzhi_Click(ByValsenderAs,ByValeAsHandles===EndSubEndClass3.教师界面PublicClassForm3PrivateSubButton1_Click(ByValsenderAs,ByValeAsHandlesDimkebiaoAsNewForm4()()EndSubPrivateSubButton4_Click(ByValsenderAs,ByValeAsHandlesDimdengluAsNewForm1()()EndSubPrivateSubButton5_Click(ByValsenderAs,ByValeAsEndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAsHandlesDimchengjigAsNewForm5()()EndSubPrivateSubButton3_Click(ByValsenderAs,ByValeAsEndSub4.课表管理PrivateSubButton1_Click(ByValsenderAs,ByValeAsHandlesDimconnAsNewSqlConnectionDimcommAsNewSqlCommand=server=(local);uid=sa;pwd=1234;database=shiy()=select*fromcoursewherecoursenum='&&'andcourxseclass='&&'=conn=selectcoursenamefromcoursewherecoursenum='&&'andcourxseclass='&&'==conn=selectcours