教学管理系统数据库课程设计Word格式.docx
- 文档编号:20312054
- 上传时间:2023-01-21
- 格式:DOCX
- 页数:17
- 大小:100.84KB
教学管理系统数据库课程设计Word格式.docx
《教学管理系统数据库课程设计Word格式.docx》由会员分享,可在线阅读,更多相关《教学管理系统数据库课程设计Word格式.docx(17页珍藏版)》请在冰豆网上搜索。
二、总体设计
VisualStudio2010、SQLServerManagementStudio
PC机
三、实验主要内容
1、主要数据表
课程信息表,学生信息表单,教师信息表,学生成绩表等。
2、功能模块
(1)课程设置,包括:
查询、添加、删除、查询和修改课程信息
(2)学生成绩查询,网上评教。
(3)教师查询课程时间和教室的安排。
(4)教师管理学生成绩查询,添加,修改,删除。
(5)学生和教师信息的注册。
四、系统分析报告
1、数据流图
教学管理系统的基本数据流图如下所示:
学生选课信息
新增课程
课程信息
选课审核信息
图1教学管理系统的基本数据流图
学生成绩信息
学生考试信息
学生信息管理
个人考试信息
成绩确认信息
图2教学管理系统的基本数据流图
排课信息
个人考试成绩
排课信息排课信息
图3教学管理系统的基本数据流图
2、系统功能模块
本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块,另外还包括进行系统管理的一些辅助模块。
其示意图如下:
教师信息管理
3、业务流图
4、系统数据模型设计
(1)系统ER图
各实体E-R图:
学生信息:
课程信息:
教师信息:
学生成绩:
(2)关系模式
学生信息(姓名,学号,登录密码)
课程信息(课程号,课程名,上课教室,登录密码,)
教师信息(教师编号,姓名,登录密码)
学生成绩(学号,课程号,课程名,成绩)
(3)数据表
课程信息表
教师信息表
个人成绩表
学生成绩表
学生课表
五、代码实现
1.登录界面
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Dimmin,max,rndnum,iAsInteger
min=10
max=99
TextBox4.Text="
"
Fori=0To1
rndnum=CStr(CInt(min+Rnd()*(max-min)))
TextBox4.Text=TextBox4.Text&
"
&
rndnum
Next
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimConnStrAsString="
Server=(local);
uid=sa;
pwd=1234;
database=shiy"
DimcnAsSqlClient.SqlConnection=NewSqlClient.SqlConnection(ConnStr)'
建§
立¢é
连¢接¨
对象¨
,ê
同a时oà
说|ì
明连¢接¨
字á
符¤
串
DimcmdAsNewSqlClient.SqlCommand'
生|¨
2成¨
|命¨
1令¢对象¨
用于¨
2执行DSQL语句
DimdrAsIDataReader'
用来¤
临¢¨
′时oà
存放¤
执行D语句后¨
的ì
结¨
¢果
DimSQLStrAsString
IfRadioButton1.Checked=TrueThen
SQLStr="
select*fromteacherwheretusernum="
+"
'
+TextBox1.Text+"
cmd.Connection=cn
cn.Open()
cmd.CommandText=SQLStr
dr=cmd.ExecuteReader()
Ifdr.Read()Then
Ifdr!
tpwd.ToString().Trim=TextBox2.TextThen
IfTextBox3.Text=TextBox4.TextThen
MsgBox("
登ì
录成¨
|功|"
)
DimjiaoshiAsNewForm3
jiaoshi.ShowDialog()
Hide()
Else
验¨
|证è
码错¨
a误¨
EndIf
密¨
1码不正y确¨
¤
该用户ì
不存在¨
2"
dr.Close()
cn.Close()
select*fromstudentwheresnum="
spwd.ToString().Trim=TextBox2.TextThen
DimxueshengAsNewForm6
xuesheng.Show()
Me.Hide()
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimzhuceAsNewForm2
zhuce.Show()
2.注册界面
PublicClassForm2
DimobjDSAsNewDataSet
DimobjXSTableAsDataTable
DimobjdaAsNewSqlClient.SqlDataAdapter
DimcnAsNewSqlClient.SqlConnection("
server=(local);
PublicSubrefreshdata()
objda.Update(objDS,"
teacher"
)'
第ì
¨
2二t个参数oy为a需¨
要°
a更¨
1新数oy据Y库a表à
a名
objXSTable.Clear()
Me.zhuce_Click(Nothing,Nothing)
objDS.AcceptChanges()
PrivateSubzhuce_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleszhuce.Click
DimcmdAsNewSqlClient.SqlCommand
cmd.Connection=cn'
数oy据Y从¨
当ì
à
前建§
cn中D进入¨
DimbuilderAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(objda)
Try
cmd.CommandText="
select*fromteacher"
objda.SelectCommand=cmd
objda.Fill(objDS,"
objXSTable=objDS.Tables("
DimresponseAsMsgBoxResult
response=MsgBox("
确¨
实o|ì
a注á
é
册¨
¢吗e?
ê
vbOKCancel+vbQuestion,"
系|ì
统a3提¨
¢示o"
Ifresponse=MsgBoxResult.OkThen
DimmyRowAsDataRow
myRow=objXSTable.NewRow
myRow("
tusernum"
)=TextBox1.Text
tusername"
)=username1.Text
tpwd"
)=mima1.Text
refreshdata()
CatchexAsException
EndTry
select*fromstudent"
student"
snum"
sname"
spwd"
DimdengluAsNewForm1
denglu.Show()
PrivateSubchongzhi_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handleschongzhi.Click
username1.Text="
mima1.Text="
qmima1.Text="
EndClass
3.教师界面
PublicClassForm3
DimkebiaoAsNewForm4
kebiao.Show()
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
DimchengjigAsNewForm5
chengjig.Show()
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
4.课表管理
DimconnAsNewSqlConnection
DimcommAsNewSqlCommand
conn.ConnectionString="
uid=sa;
conn.Open()
comm.CommandText="
select*fromcoursewherecoursenum='
Me.TextBox1.Text&
andcourxseclass='
Me.TextBox2.Text&
comm.Connection=conn
selectcoursenamefromcoursewherecoursenum='
Me.TextBox3.Text=comm.ExecuteScalar
selectcoursetimefromcoursewherecoursenum='
Me.TextBox4.Text=comm.ExecuteScalar
selectcourseaddressfromcoursewherecoursenum='
Me.TextBox5.Text=comm.ExecuteScalar
conn.Close()
DimjiaoshijiemianAsNewForm3
jiaoshijiemian.Show()
5.成绩管理
Imports
PublicClassForm5
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
jiaoshi.Show()
select*fromchengji"
DimdaAsNewSqlDataAdapter(comm.CommandText,conn)
DimdsAsNewDataSet
da.Fill(ds,"
chengji"
Me.DataGridView1.DataSource=ds.Tables(0)
insertintochengjivalues('
'
Me.TextBox3.Text&
Me.TextBox4.Text&
Me.TextBox5.Text&
)"
comm.ExecuteNonQuery()
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
updatechengjisetsnum='
coursenum="
coursename='
coursegrade='
wheresnum='
uid=s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教学管理 系统 数据库 课程设计