教学管理系统数据库课程设计Word文档下载推荐.docx
《教学管理系统数据库课程设计Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《教学管理系统数据库课程设计Word文档下载推荐.docx（20页珍藏版）》请在冰豆网上搜索。
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='
DimconnAsNewSqlC
升级会员 