教学管理系统数据库课程设计Word下载.docx
- 文档编号:21101731
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:17
- 大小:101.60KB
教学管理系统数据库课程设计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、实验分工及总结
首先,在开始做课程设计时对整个模块的把握不够好,以至于浪费了好多时间而没能按想象中的顺利完成。
其次,在编写各个模块的程序代码时,真正感觉到了难度相当大,每次编写出来的代码都需要经过好几次修改才能顺利运行,而且在编写代码时常常会遇到一些很难解决的问题。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教学管理 系统 数据库 课程设计