教学管理系统.docx
《教学管理系统.docx》由会员分享，可在线阅读，更多相关《教学管理系统.docx（14页珍藏版）》请在冰豆网上搜索。
教学管理系统
数据库实验报告
学生信息查询窗体及程序代码设计
姓名：
敖杰英
学号：
2012302550014
院系：
信管院12电商
指导老师：
谭学清
目录
1、前期准备
1、需求分析………………………………………………………………1
2、概念设计………………………………………………………………1
2.1、功能树……………………………………………………………1
2.2、综合ER图………………………………………………………………2
3、逻辑结构设计……………………………………………………………………3
3.1、学生基本信息表……………………………………………………………3
3.2、课程信息表…………………………………………………………………3
3.3、教师基本信息表……………………………………………………………3
3.4、讲授信息表…………………………………………………………………3
4、物理结构设计……………………………………………………………………4
4.1、学生基本信息表的建立……………………………………………………4
4.2、课程信息表的建立…………………………………………………………4
4.3、教师基本信息表的建立……………………………………………………4
4.4、讲授信息表的建立…………………………………………………………4
2、个人负责部分……………………………………………………………………5
1、实验目的…………………………………………………………………………5
2、实验环境…………………………………………………………………………5
3、实验步骤…………………………………………………………………………5
3.1、新增“学生信息查询”窗体………………………………………………5
3.2、添加控件……………………………………………………………………5
3.3、“学生信息查询”窗体程序代码编写…………………………………6
4、运行截图………………………………………………………………10
5、心得体会………………………………………………………………10
1、前期准备
1、需求分析：
在信息高速发展的当今时代，任何学校，企业都离不开信息化建设，信息化水平已经成为一个评价高校综合实力的一项重要指标。
近年来，高校都建设了自己的校园网，教学管理系统作为校园网建设的一个模块，主要是为了学校的教学教务，以及方便学生准时方便地获取更多的与学习生活有关的信息。
学校的公告网上公布，教师和学生信息网上查询，课程信息查询能使学生及时了解自己的选课信息，相关的表格资料可以网上下载，教师课件和学生作业可以通过网上上传下载实现教学的便捷。
BBS系统方便学生及老师间讨论自己的话题。
2、概念设计
2.1、功能树
2.2、综合ER图
3、逻辑结构设计
学生信息基本表（学号，姓名，性别，学院名称，班号，联系电话，入校日期，家庭住址），主码为学号，符合三范式。
课程信息表（课程编号，课程类型，分数）主码为课程编号，符合三范式。
教师信息表（教师编号，姓名，所在科室，联系电话）主码为教师编号，符合三范式。
讲授信息表（教师编号，课程编号）主码为教师编号，课程编号，符合BCNF。
3.1、学生基本信息表
列名
含义
长度
类型
NULL
DEFAULT
Sno
学号
8
Char（）
no
no
Uname
姓名
8
Char（）
no
no
Sex
性别
2
Char（）
yes
no
Sdept
学院名称
8
Char（）
no
no
Classno
班号
8
Char（）
no
no
Connecttel
联系电话
11
Char（）
no
no
Enterdate
入校日期
8
Char（）
no
no
Familyadd
家庭住址
50
Varchar
yes
no
3.2、课程信息表
列名
含义
长度
类型
NULL
DEFAULT
CourseCode
课程编号
20
Char（）
no
no
Coursetype
课程类型
8
Char（）
no
no
Coursegrade
课程分数
8
Char（）
no
no
3.3、教师信息表
列名
含义
长度
类型
NULL
DEFAULT
Tno
教师编号
8
Char（）
no
no
Tname
教师姓名
8
Char（）
no
no
Tdepartment
所在科室
8
Char（）
no
no
Tmoible
联系电话
11
Char（）
no
no
3.4、讲授信息表
列名
含义
长度
类型
NULL
DEFAULT
Tno
教师编号
8
Char（）
no
no
Coursecode
课程编号
20
Char（）
no
no
4、物理结构设计
4.1、学生信息基本表的建立：
CREATETABLEStudent
（SnoCHAR（8）PRIMARYKEY,
UnameCHAR（8）UNIQUE,
SexCHAR
（2）,
Sdept（8）,
Classno（8）,
Connecttel（11）,
Enterdate（8），
Familyadd（50）
）;
4.2、课程信息表的建立：
CREATETABLECourse
（CoursecodeCHAR（20）PRIMARYKEY,
CoursetypeCHAR（8）,
CoursegradeCHAR（8）
）;
4.3、教师信息表的建立：
CREATETABLETeacher
（TnoCHAR（8）PRIMARYKEY,
TnameCHAR（8）UNIQUE,
Tdepartment（8），
Tmoible（11）,
）；
4.4、讲授信息表的建立：
CREATETABLETeaching
（TnoCHAR（8）,
CoursecodeCHAR（20）,
PRIMARYKEY（Tno,Coursecode）,
FOREIGNKEY（Tno）REFERENCESTeacher（Tno）,
FOREIGNKEY（Coursecode）REFERENCESCourse（Coursecode）
）;
二、个人负责部分
1、实验目的：
建立一个窗体，实现通过专业代码对学生信息进行查询的功能。
这是见血管理数据库系统的一个重要部分。
2、实验环境：
SQLServer2005数据库管理软件、VisualStudio2005集成环境中的ADO.NET2.0数据库访问对象模型和VisualBasic.NET7.0可视化面向对象程序语言。
3、实验步骤：
3.1、新增“学生信息查询”窗体
单击菜单“项目”，选择“添加windows窗体”，打开一个新的窗体，并将该窗体命名为“学生信息查询”窗体。
“学生信息查询”可根据用户输入的专业代码查询该专业学生基本情况，在查询过程用SQL的游标实现。
3.2、添加控件
根据查询需求，在该窗体上添加一个Label控件（对应“专业代码”），一个TextBox控件（对应“专业代码”的输入），一个Button控件，（对应于“查询”），一个ListView控件（对应查询结果显示）。
各控件的属性设置：
控件
属性
属性值
备注
Form
名称
QueryGrade
窗体名称
Text
学生成绩查询
标题栏显示文字
StartPosition
CenterScreeen
指定窗体在屏幕中心出现
ListView
Name
ListView1
控件名称
GridLiness
True
在项和子项周围显示网络线
View
Details
选择可以显示项的5种不同视图中的一种
Label1
Text
专业代码
标签显示文字
Botton1
Text
查询
按钮显示文字
在表中，ListView控件用于显示学生信息，其设置方法为：
在窗体中选中ListView控件，单击右上角符号，就会出现“ListView”任务，选择“编辑列”，如图1所示。
进入“ColumnHeader集合编辑器”后，在左侧单击“添加”，这样就可以在ListView中添加一列。
在其右侧可以修改相应列的属性，例如修改Text值为“学号”，以改变在ListView中的显示文字，如图2所示。
最后，在ListView的属性中将GridLiness值改为True，以在项和子项之间显示格子线，View改为Details，以显示项，如图3所示。
各控件设置方法截图：
图1ListView控件设置方法
图2设置ColumnHeader的属性
图3设置ListView控件的属性
3.3、“学生信息查询”窗体程序代码编写
和其他窗体代码一样，首先需要在程序段前引用命名空间和在Form的Load事件中添加数据库连接信息，然后添加“查询”按钮的事件Button1_Click（）的代码。
完整代码为：
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PublicClassQueryStudent
PublicstrAsString="DataSource=PC201307191156;InitialCatalog=shuju;IntegratedSecurity=True;"
PublicconnAsNewSqlConnection（str）
PublicSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimscodeAsString=TextBox1.Text
Ifscode=""Then
MsgBox（"输入不能为空",MsgBoxStyle.Information,"提示"）
Else
DimsqlStringAsString
sqlString=""
sqlString=sqlString&"declarecc1cursor"
sqlString=sqlString&"forselect*fromSwherescode#='"&scode&"'"
sqlString=sqlString&"opencc1"
sqlString=sqlString&"fetchnextfromcc1"
sqlString=sqlString&"while@@fetch_status=0"
sqlString=sqlString&"begin"
sqlString=sqlString&"fetchnextfromcc1;"
sqlString=sqlString&"end"
sqlString=sqlString&"closecc1"
DimcomAsNewSqlCommand（sqlString,conn）
conn.Open（）
DimsreaderAsSqlDataReader=com.ExecuteReader（）
DimitemAsListViewItem
ListView1.Items.Clear（）
Dimsubitem1,subitem2,subitem3,subitem4,subitem5,subitem6AsListViewItem.ListViewSubItem
DoWhilesreader.Read（）
item=NewListViewItem（sreader（0）.ToString）
subitem1=NewListViewItem.ListViewSubItem（item,sreader
（1））
item.SubItems.Add（subItem1）
subitem2=NewListViewItem.ListViewSubItem（item,sreader
（2））
item.SubItems.Add（subItem2）
subitem3=NewListViewItem.ListViewSubItem（item,sreader（3））
item.SubItems.Add（subItem3）
subitem4=NewListViewItem.ListViewSubItem（item,sreader（4））
item.SubItems.Add（subItem4）
subitem5=NewListViewItem.ListViewSubItem（item,sreader（5））
item.SubItems.Add（subItem5）
subitem6=NewListViewItem.ListViewSubItem（item,sreader（6））
item.SubItems.Add（subItem6）
ListView1.Items.Add（item）
sreader.NextResult（）
Loop
sreader.Close（）
conn.Close（）
EndIf
EndSub
PrivateSubQueryStudent_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
Dimsel1AsString="select*fromS"
Dimcom1AsNewSqlCommand（sel1,conn）
conn.Open（）
Dimsreader1AsSqlDataReader=com1.ExecuteReader（）
DimitemAsListViewItem
ListView1.Items.Clear（）
Dimsubitem1,subitem2,subitem3,subitem4,subitem5,subitem6AsListViewItem.ListViewSubItem
DoWhilesreader1.Read（）
item=NewListViewItem（sreader1（0）.ToString）
subitem1=NewListViewItem.ListViewSubItem（item,sreader1
（1））
item.SubItems.Add（subItem1）
subitem2=NewListViewItem.ListViewSubItem（item,sreader1
（2））
item.SubItems.Add（subItem2）
subitem3=NewListViewItem.ListViewSubItem（item,sreader1（3））
item.SubItems.Add（subItem3）
subitem4=NewListViewItem.ListViewSubItem（item,sreader1（4））
item.SubItems.Add（subItem4）
subitem5=NewListViewItem.ListViewSubItem（item,sreader1（5））
item.SubItems.Add（subItem5）
subitem6=NewListViewItem.ListViewSubItem（item,sreader1（6））
item.SubItems.Add（subItem6）
ListView1.Items.Add（item）
Loop
sreader1.Close（）
conn.Close（）
EndSub
EndClass
4、运行截图：
5、心得体会
在实验过程中，安装实验所需的软件花费的很多时间，因为电脑的配置问题，这在很大程度上培养了我的耐心。
此次课程设计对于我来说不仅是做了数据库学生信息系统，最为珍贵的是在我准备这次课程设计所学道的以前不熟悉的知识。
以前较早的便接触到SQL只是注重在书本上，从来没有认真的去用编写程序，更不用说应用在数据库中。
零零散散的学习了一些基本知识，不大实用。
通过这次课程设计，我掌握了SQL与数据库结合起来编程的一般技术。
了解了怎样对数据库进行操作，了解了SQL数据库中的以前不大明白的技术运用。
在SQL数据库中，我们把在数据库理论上的知识予以运用，如：
建立视图，创建存储过程，应用事务等，在一些基本的数据库操作中，熟悉并巩固了SQL的语法知识。
通过对课程设计要求的分析，我们也初步理解一个软件工程的开发流程及发展思路。
培养了我们由书面文字要求到转化这种要求到现实模型的能力，即很大程度上培养了我们的建模能力，分析问题，总结归纳问题的能力。
这次课程设计也不能说一帆风顺，其中遇到的一个个困难给了我们一次次重新学习，再次思索的机会。
我们通过克服这一个个困难，让我们重新又对目前脑子里所掌握的知识进行审理，进行了再次的纠正或者完善，这些都是书本上学不来的。
理论联系实际就在这里自然地得到实现。
这对我们巩固已学知识，锻炼实践动手能力大有裨益。
升级会员 