SQL课程设计论文.docx
- 文档编号:14674180
- 上传时间:2023-06-26
- 格式:DOCX
- 页数:30
- 大小:773.21KB
SQL课程设计论文.docx
《SQL课程设计论文.docx》由会员分享,可在线阅读,更多相关《SQL课程设计论文.docx(30页珍藏版)》请在冰点文库上搜索。
SQL课程设计论文
XXX职业技术学院
课程设计论文
设计题目:
学生成绩管理系统
学生姓名:
XXX
指导教师:
XXX
专业名称:
网络系统管理
所在院系:
信息工程系
2011年6月20日
摘要
在现在信息化高速发展的时代,信息只有快,准,精才能发挥其价值。
所以机器代替人力是必然的历史发展趋势,人工操作必将被计算机代替。
计算机在我们的日常生活中的使用越来越不可或缺,计算机进行信息管理,不仅提高了工作效率,而且大大的提高了其安全性.尤其对于复杂的信息管理,计算机能够充分发挥它的优越性.
数据库技术,已经成为先进信息技术的重要组成部分,是现代计算机信息系统和计算机应用系统的基础和核心。
数据库技术从诞生到现在,在不到半个世纪的时间里,形成了坚实的理论基础、成熟的商业产品和广泛的应用领域,吸引越来越多的研究者加入。
数据库的诞生和发展给计算机信息管理带来了一场巨大的革命。
三十多年来,国内外已经开发建设了成千上万个数据库,它已成为企业、部门乃至个人日常工作、生产和生活的基础设施。
同时,随着应用的扩展与深入,数据库的数量和规模越来越大,数据库的研究领域也已经大大地拓广和深化了。
计算机技术不断应用到各行各业,大量的企业数据存放于数据库中,并通过数据库进行快速查询,获取比传统方式更高的效率。
而学生成绩交由数据库进行保存、管理,则是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要。
关键字:
VB;SQLServer;信息管理系统;虚拟机;网络服务器
表目录
图目录
第1章绪论
1.1课题组成员及本人任务
课题由本人单独完成,系统的组成和功能组要包括包括:
1.系统组成
数据表组成:
数据表3个:
学生信息表、课程信息表、学生成绩信息表
查询组成:
查询学生、按学号查询成绩、按课程编号查询学分等
自由表组成:
教师登录表、学生登录表。
2.系统功能
通过登录界面选择不同权限来进入学生成绩管理系统;
以教师身份进入教师登录系统后可以对学生成绩管理系统进行增、删、改、查等操作;
以学生身份进入学生登录系统,学生不能进行修改操作,只能进行一系列的查询的操作;
1.2系统需求分析
1、所使用的工具:
microsoftvisualfoxpro6.0
2、需要存储的数据和在该模块实现的功能:
◆学生信息:
对不同专业不同年级学生信息的录入,基本的学生信息包括学号、姓名、性别、年级、专业、民族,可进行添加、修改,查询、删除及退出该表单;
◆课程信息:
针对不同的系别,设置课程编号、课程名称、任课教师、开课系别、学分等,以及实现对课程的添加、修改、查询、删除的功能,及退出该表单;
◆学生成绩:
根据学生学号统计出该学生每科成绩的分数以有是需要重考,可以对学号、课程编号、课程名称、分数、是否重考进行添加、修改、查询、删除的功能,及退出该表单;
◆设置用户:
对用户的添加、修改和设置权限;
1.3系统开发目标
本系统主要用于学校学生信息管理,总体任务是实现学生信息关系的系统化、规范化和自动化,其主要任务是用计算机对学生信息进行日常管理,如查询、修改、增加、删除,另外还考虑到用户登录的权限,针对学生信息和权限登录的学生成绩管理系统。
学生成绩管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
1.4VB简介
VB6.0全称为VisualBasic6.0,是微软公司于1998年推出的可视化编
vb6.0启动画面
程工具MSDN之一,是目前世界上使用最广泛的程序开发工具之一。
结构简单,编写程序对系统的资源占有极低,是程序编写者编写小型程序的第一选择!
如果你是一个对编程一无所知,而又迫切希望掌握一种快捷实用的编程语言的初学者,那选择VB6.0没错的。
即使考虑到VB程序本身编译和运行效率较低的不足,但是它的快捷的开发速度,简单易学的语法,体贴便利的开发环境,它仍不失一款优秀的编程工具,是初学者的首选。
1.5SQLServer简介
SQL(StructuredQueryLanguage),结构化查询语言。
SQL语言的主要功能就是同各种数据库建立联系,进行沟通。
按照ANSI(美国国家标准协会)的规定,SQL被作为关系型数据库管理系统的标准语言。
SQL语句可以用来执行各种各样的操作,例如更新数据库中的数据,从数据库中提取数据等。
绝大多数流行的关系型数据库管理系统都采用了SQL语言标准。
虽然很多数据库都对SQL语句进行了再开发和扩展,但是包括Select,Insert,Update,Delete,Create,以及Drop在内的标准的SQL命令仍然可以被用来完成几乎所有的数据库操作。
SQLServer是一个关系数据库管理系统。
它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的,于1988年推出了第一个OS/2版本。
在WindowsNT推出后,Microsoft与Sybase在SQLServer的开发上就分道扬镳了,Microsoft将SQLServer移植到WindowsNT系统上,专注于开发推广SQLServer的WindowsNT版本。
Sybase则较专注于SQLServer在UNIX操作系统上的应用。
SQLServer2000
SQLServer2000是Microsoft公司推出的SQLServer数据库管理系统,该版本继承了SQLServer7.0版本的优点,同时又比它增加了许多更先进的功能。
具有使用方便可伸缩性好与相关软件集成程度高等优点,可跨越从运行MicrosoftWindows98的膝上型电脑到运行MicrosoftWindows2000的大型多处理器的服务器等多种平台使用。
SQLServer2005
SQLServer2005是一个全面的数据库平台,使用集成的商业智能(BI)工具提供了企业级的数据管理。
SQLServer2005数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能,使您可以构建和管理用于业务的高可用和高性能的数据应用程序。
SQLServer2005数据引擎是本企业数据管理解决方案的核心。
此外SQLServer2005结合了分析、报表、集成和通知功能。
这使您的企业可以构建和部署经济有效的BI解决方案,帮助您的团队通过记分卡、Dashboard、Webservices和移动设备将数据应用推向业务的各个领域。
与MicrosoftVisualStudio、MicrosoftOfficeSystem以及新的开发工具包(包括BusinessIntelligenceDevelopmentStudio)的紧密集成使SQLServer2005与众不同。
无论您是开发人员、数据库管理员、信息工作者还是决策者,SQLServer2005都可以为您提供创新的解决方案,帮助您从数据中更多地获益。
第2章设计实现的详细步骤
2.1用SqlServer创建数据库和表
在SqlServer里创建学生成绩管理系统数据库,在创建好的学生成绩管理系统数据库中建立学生信息表(包括:
学号、姓名、性别、年级的、专业、民族),学生成绩信息表(包括:
学号、课程编号、课程名称、分数、是否重考),课程信息表(包括:
课程编号、课程名称、任课教师、开课系别、学分),另外还要再建两个登录用的表:
教师登录表(包括:
教师姓名、密码),学生登录表(包括:
学号、密码)如下:
表1学生信息表
表2学生成绩信息表
表3课程信息表
表4登录信息表
2.2VB控件及操作流程图
在SqlServer中创建好数据库和表之后然后设计VB界面再与SqlSverve数据库连接。
在VB中主要用的控件有Label、Text、DataGrid、Commandbutton等,在设计过程中我还用到Image控件插了几张图片设计了几个窗体,可以供进学生成绩管理系统的人在工作之余欣赏一下图片缓解一下疲劳。
另外一个主要的控件是Adodc,这个控件是用来连接SqlServe数据库的
右击它,设置他的属性与SqlServer数据库连接如图:
图1Adodc属性
具体操作流程图如下:
2.3登录界面
1.由登录系统选择权限进入学生成绩管理系统初始登录界面如下:
图2登录系统初始界面
代码:
PrivateSubCommand1_Click()
IfOption1.valueThen
Frmteacher.Show
UnloadMe
Else
Frmstudent.Show
UnloadMe
EndIf
EndSub
2.选择老师登录后将弹出
图3教师登录界面
实现登录功能的操作代码:
OptionExplicit
DimcntAsInteger
DimpwdAsString
DimrsUserAsADODB.Recordset
PrivateSubCombo1_Click()
DimsqlAsString
SetrsUser=NewADODB.Recordset
IfrsUser.State=1ThenrsUser.Close
sql="select密码from教师登录where教师姓名='"&Combo1.Text&"'"
rsUser.Opensql,conn,adOpenStatic,adLockPessimistic
Text1.SetFocus
pwd=Trim(rsUser.Fields("密码"))
'conn.Close
Text1.Text=""
EndSub
PrivateSubCommand1_Click()
IfCombo1.Text=""Then
MsgBox"请选择用户名!
",,"登录"
Combo1.SetFocus
ExitSub
EndIf
IfText1.Text=""Then
MsgBox"请输入密码!
",,"登录"
Text1.SetFocus
ExitSub
EndIf
IfText1.Text=pwdThen
userID=Combo1.Text
Frmteacherxitong.Show
UnloadMe
Else
MsgBox"密码无效,请重试!
",,"登录"
Text1.SetFocus
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
EndIf
EndSub
PrivateSubForm_Load()
DimcnnstrAsString
DimsqlAsString
SetrsUser=NewADODB.Recordset
cnnstr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=学生成绩管理系统;DataSource=."
conn.Opencnnstr
sql="select教师姓名from教师登录"
rsUser.Opensql,conn,adOpenStatic,adLockPessimistic
Combo1.Clear
DoUntilrsUser.EOF
Combo1.AddItemrsUser.Fields("教师姓名")
rsUser.MoveNext
Loop
cnt=0
EndSub
当输入密码超过三次的时候将会自动退出学生成绩管理系统。
3.选择学生登录后将弹出:
图4学生登录界面
实现登录功能的操作代码与老师登录的操作代码相似,如需要请参照上面代码。
2.4教师操作系统
选择教师姓名,输入密码后进入教师操作系统
图5教师操作系统
在“学生系统管理”菜单下可以对学生信息表、学生成绩信息表、课程信息表进行修改、删除、查询和添加的操作,下面以学生信息表为例:
图6查询学生信息
在对学生信息表、学生成绩信息表、课程信息表进行操作时可以使用两种查询方式,用Sql语句查询还可以按学号和课程编号查询,修改、删除及查询代码如下:
OptionExplicit
Dimrs_bookAsNewADODB.Recordset
PrivateSubCommand1_Click()
Command2.Enabled=False
Command1.Enabled=False
Command3.Enabled=True
Command4.Enabled=True
DataGrid1.AllowUpdate=True
EndSub
PrivateSubCommand2_Click()
DimanswerAsString
answer=MsgBox("确定要删除吗?
",vbYesNo,"")
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
rs_book.Delete
rs_book.Update
DataGrid1.Refresh
MsgBox"成功删除",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
UnloadMe
Else
ExitSub
EndIf
EndSub
PrivateSubCommand3_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
rs_book.Update
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command4.Enabled=False
Command3.Enabled=False
DataGrid1.AllowUpdate=False
MsgBox"修改成功!
",vbOKOnly+vbExclamation,""
EndSub
PrivateSubCommand4_Click()
Dimrs_bookAsNewADODB.Recordset
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
Command1.Enabled=True
Command2.Enabled=True
Command4.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubForm_Load()
DimsqlAsString
DimamAsString
Ifrs_book.State=1Thenrs_book.Close
sql="select*from学生信息"
rs_book.CursorLocation=adUseClient
am="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=学生成绩管理系统;DataSource=."
rs_book.Opensql,conn,adOpenKeyset,adLockPessimistic'打开数据库
Command3.Enabled=False
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
EndSub
PrivateSubCommand5_Click()
IfOption1.value=TrueThen
Adodc1.RecordSource=Trim(Text1.Text)
Adodc1.Refresh
Else
Adodc1.RecordSource="select*from学生信息where学号='"&Text2.Text&"'"
Adodc1.Refresh
EndIf
EndSub
在教师操作系统中可以添加信息以添加学生信息为例如下图:
图7添加学生信息
添加功能实现具体操作代码如下:
PrivateSubCommand1_Click()
Dimrs_bookstyleAsNewADODB.Recordset
DimsqlAsString
IfTrim(Text1.Text)=""Then
MsgBox"学号不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"姓名不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
sql="select*from学生信息where学号='"&Text1.Text&"'"
rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_bookstyle.EOFThen
rs_bookstyle.AddNew
rs_bookstyle.Fields(0)=Val(Trim(Text1.Text))
rs_bookstyle.Fields
(1)=Trim(Text2.Text)
rs_bookstyle.Fields
(2)=Trim(Text3.Text)
rs_bookstyle.Fields(3)=Val(Trim(Text4.Text))
rs_bookstyle.Fields(4)=Val(Trim(Text5.Text))
rs_bookstyle.Fields(5)=Trim(Text6.Text)
rs_bookstyle.Update
MsgBox"添加成功!
",vbOKOnly,""
rs_bookstyle.Close
UnloadMe
Else
MsgBox"学号重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_bookstyle.Close
ExitSub
EndIf
EndSub
在教师操作系统中还以修改当前用户密码以及增加用户,如下图所示:
图8修改密码
修改密码具体功能实现的操作代码如下:
PrivateSubCommand1_Click()
Dimrs_changAsNewADODB.Recordset
DimsqlAsString
IfTrim(Text1.Text)<>Trim(Text2.Text)Then
MsgBox"密码不一致!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Else
sql="select*from教师登录where教师姓名='"&userID&"'"
rs_chang.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_chang.Fields
(1)=Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox"密码修改成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndSub
图9增加用户
增加用户具体功能实现的操作代码如下:
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_addAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空",vbOKOnly+vbExclamation,""
ExitSub
Text1.SetFocus
Else
sql="select*from教师登录"
rs_add.Opensql,conn,adOpenKeyset,adLockPessimistic
While(rs_add.EOF=False)
IfTrim(rs_add.Fields(0))=Trim(Text1.Text)Then
MsgBox"用户名已存在",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.MoveNext
EndIf
Wend
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.AddNew
rs_add.Fields(0)=Text1.Text
rs_add.Fields
(1)=Text2.Text
rs_add.Update
rs_add.Close
MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndIf
EndSub
在教师操作系统中可以对学生信息表、学生成绩信息表和课程信息表进行增、删、改、查,以上只是以对学生信息表的操作为例进行的分析,对另外两个表的操作如上所示。
2.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SQL 课程设计 论文