教学管理系统数据库课程设计Word下载.docx

教学管理系统数据库课程设计Word下载.docx

《教学管理系统数据库课程设计Word下载.docx》由会员分享，可在线阅读，更多相关《教学管理系统数据库课程设计Word下载.docx（17页珍藏版）》请在冰豆网上搜索。

课程信息

选课审核信息

图1教学管理系统的基本数据流图

学生成绩信息

学生考试信息

学生信息管理

个人考试信息

成绩确认信息

图2教学管理系统的基本数据流图

排课信息

个人考试成绩

排课信息排课信息

图3教学管理系统的基本数据流图

2、系统功能模块

本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。

其示意图如下：

3、业务流图

4、系统数据模型设计

（1）系统ER图

各实体E-R图：

学生信息：

课程信息：

教师信息：

学生成绩：

（2）关系模式

学生信息（姓名，学号，登录密码）

课程信息（课程号，课程名，上课教室，登录密码，）

教师信息（教师编号，姓名，登录密码）

学生成绩（学号，课程号，课程名，成绩）

（3）数据表

课程信息表

教师信息表

个人成绩表

学生成绩表

学生课表

五、代码实现

1.登录界面

PrivateSubForm1_Load（ByValsenderAs,ByValeAsHandles

Dimmin,max,rndnum,iAsInteger

min=10

max=99

="

"

Fori=0To1

rndnum=CStr（CInt（min+Rnd（）*（max-min）））

=&

"

&

rndnum

Next

EndSub

PrivateSubButton2_Click（ByValsenderAs,ByValeAsHandles

DimConnStrAsString="

Server=（local）;

uid=sa;

pwd=1234;

database=shiy"

DimcnAs=New（ConnStr）'

建¡

§

立¢

¡

é

连¢

接¨

®

对象¨

，ê

同ª

时º

À

说¦

Ì

明¡

Â

字Á

符¤

串ä

DimcmdAsNew'

生¦

¨

²

成¨

¦

命¨

¹

令¢

用®

于®

执¡

ä

行DSQL语®

句

DimdrAsIDataReader'

来¤

临¢

´

存ä

放¤

行D语®

句后¨

的Ì

结¨

¢

果

DimSQLStrAsString

If=TrueThen

SQLStr="

select*fromteacherwheretusernum="

+"

'

++"

=cn

（）

=SQLStr

dr=（）

If（）Then

Ifdr!

（）.Trim=Then

If=Then

MsgBox（"

登Ì

录成¨

功|"

）

DimjiaoshiAsNewForm3

Hide（）

Else

验¨

证¡

è

码错ä

ª

误¨

EndIf

密¨

码不正y确¨

¤

该用®

户¡

ì

不存ä

在¨

select*fromstudentwheresnum="

DimxueshengAsNewForm6

PrivateSubButton1_Click（ByValsenderAs,ByValeAsHandles

DimzhuceAsNewForm2

2.注册界面

PublicClassForm2

DimobjDSAsNewDataSet

DimobjXSTableAsDataTable

DimobjdaAsNew

DimcnAsNew（"

server=（local）;

PublicSubrefreshdata（）

（objDS,"

teacher"

）'

第Ì

二t个参数º

y为a需¨

要°

a更¨

新数º

y据Y库a表À

名

（Nothing,Nothing）

PrivateSubzhuce_Click（ByValsenderAs,ByValeAsHandles

DimcmdAsNew

=cn'

数º

y据Y从ä

当Ì

前¡

ã

cn中D进入¨

DimbuilderAs=New（objda）

Try

select*fromteacher"

=cmd

objXSTable=（"

DimresponseAsMsgBoxResult

response=MsgBox（"

确¨

实º

a注Á

册¨

吗eê

vbOKCancel+vbQuestion,"

系¦

统ª

3提¬

示º

Ifresponse=Then

DimmyRowAsDataRow

myRow=

myRow（"

tusernum"

）=

tusername"

tpwd"

refreshdata（）

CatchexAsException

EndTry

select*fromstudent"

student"

snum"

sname"

spwd"

DimdengluAsNewForm1

PrivateSubchongzhi_Click（ByValsenderAs,ByValeAsHandles

EndClass

3.教师界面

PublicClassForm3

DimkebiaoAsNewForm4

PrivateSubButton4_Click（ByValsenderAs,ByValeAsHandles

PrivateSubButton5_Click（ByValsenderAs,ByValeAs

DimchengjigAsNewForm5

PrivateSubButton3_Click（ByValsenderAs,ByValeAs

4.课表管理

DimconnAsNewSqlConnection

DimcommAsNewSqlCommand

uid=sa;

select*fromcoursewherecoursenum='

andcourxseclass='

=conn

selectcoursenamefromcoursewherecoursenum='

=

selectcoursetimefromcoursewherecoursenum='

selectcourseaddressfromcoursewherecoursenum='

DimjiaoshijiemianAsNewForm3

5.成绩管理

ImportsClassForm5

PrivateSubButton5_Click（ByValsenderAs,ByValeAsHandles

select*fromchengji"

DimdaAsNewSqlDataAdapter,conn）

DimdsAsNewDataSet

（ds,"

chengji"

=（0）

insertintochengjivalues（'

'

）"

PrivateSubButton3_Click（ByValsenderAs,ByValeAsHandles

updatechengjisetsnum='

coursenum="

coursename='

coursegrade='

wheresnum='

deletefromchengjiwheresnum="

6.学生界面

PrivateSubButton6_Click（ByValsenderAs,ByValeAsHandles

select*fromscourse"

scourse"

select*fromgrchengji"

grchengji"

DimpingjiaoAsNewForm7

7.网上评教

PublicClassForm7

DimdengluAsNewForm6

提¬

交成¨

六、系统实现结果

7、实验分工及总结

首先，在开始做课程设计时对整个模块的把握不够好，以至于浪费了好多时间而没能按想象中的顺利完成。

其次，在编写各个模块的程序代码时，真正感觉到了难度相当大，每次编写出来的代码都需要经过好几次修改才能顺利运行，而且在编写代码时常常会遇到一些很难解决的问题。