SQL学生成绩管理系统.doc
- 文档编号:2132382
- 上传时间:2023-05-02
- 格式:DOC
- 页数:25
- 大小:763.50KB
SQL学生成绩管理系统.doc
《SQL学生成绩管理系统.doc》由会员分享,可在线阅读,更多相关《SQL学生成绩管理系统.doc(25页珍藏版)》请在冰点文库上搜索。
基于VB和SQL的数据库编程技术
指导教师:
霍戌文、郭奕亿
《应用软件实践》课程设计
(2012/2013-2分散)
班级:
*******
学号:
**********
姓名:
***
浙江理工大学科技与艺术学院
2013年3月
《应用软件实践》课程设计报告
目录
1.题目..........................................................................................3
2.目的与要求..............................................................................3
3.需求分析.........................................3
4.数据建模与分析....................................4
5.数据库建立..............................................................................5
6.数据库应用开发与运行..........................................................8
6.1登录程序代码、界面图、详细功能说明............8
6.2选择界面程序代码、界面图、详细功能说明........10
6.3缴费信息界面程序代码、界面图、详细功能说明.....11
6.4缴费信息修改界面程序代码、界面图、详细功能说明...17
6.5学分信息界面程序代码、界面图、详细功能说明.......19
6.6学分信息修改界面程序代码、界面图、详细功能说明....20
6.7基本信息界面程序代码、界面图、详细功能说明........21
6.8基本信息修改界面程序代码、界面图、详细功能说明....22
7.结果分析、结论与体会...................................23
8.参考文献及资料................................................24
一、题目:
学生基本信息管理系统
二、目的和要求:
1.设计目的:
1.让学生按照软件工程的规范掌握一般应用软件开发的基本过程、基本技术,为以后的毕业设计奠定基础。
2.掌握关系型数据库管理系统的编程技术,并能独立完成一般小系统的程序设计、调试运行等工作。
3.培养把所学知识运用到具体对象,理解面向对象编程理论,并能求出解决方案的能力。
2.任务要求
1、学生基本信息设置:
包括专业、班级、姓名、学号等;
2、学生学分信息及缴费信息录入:
包括已获学分、还需选修学分,缴费信息等;
3、学生基本信息和学分、缴费信息的查询及增删改;
4、学分及缴费信息的统计(此项可选)。
三、需求分析:
SQL是一种结构化数据库查询语言,其发音为“sequel”或“S-Q-L”。
尽管MICROSOFT以其特有的方式加入了所有权声明,但它在大多数据库应用中近乎成为一种标准。
简言之,它是一种使用你选择的标准从数据库记录中选择某些记录的方法。
就象SQL的名字一样,我们可以通过容易理解的查询语言,来和数据库打交道,从数据库中得到我们想要的数据。
对于SQL语言,有两个组成部分:
DML(datamanipulationlanguage):
它们是SELECT、UPDATE、INSERT、DELETE,就象它的名字一样,这4条命令是用来对数据库里的数据进行操作的语言。
(1)登录管理:
实现系统加密功能
(2)学籍管理:
主要功能用来对学生的学籍进行管理和记录。
(3)收费管理:
对学生收费进行管理。
包括总费用,已缴费用,还需退款,缴费统计等修改。
(4)修改管理:
管路员对学生的基本信息,学分信息,缴费信息的修改,删除,添加等功能。
(5)学分管理:
对学生的学分进行管理,包括学分标准,学分统计,已修学分等学分信息修改。
(6)查询管理:
学生对自己基本信息,学分信息,缴费信息的查询。
四:
数据分析与建模缴费信息表
学分信息表
登录表
学生基本信息表
图4.1数据库关系表
图4.1是以登录表信息为约束条件,又以各表的学号为主键形成的约束关系。
学生基本信息管理系统
基本信息管理
缴费信息管理
学分信息管理
登录信息管理
学分信息删除
学分信息统计
缴费信息添加
学分信息统计
缴费信息修改
学分信息修改
学分信息添加
学生信息删除
学生信息修改
学生信息添加
学分信息统计
学生信息添加
图4.2系统功能模块
图4.2是学生基本信息管理系统的几大功能模块以及其子模块
五、数据库建立:
图5.1
图5.1基本信息表包含了学生的学号,姓名等的基本结构。
图5.2
图5.2学分信息表包含了学生的总学分,已修学分等的基本结构。
图5.3
图5.3登录信息表包含了学生的学号,密码等的基本结构。
图5.4
图5.4缴费信息表包含了学生的总缴费,已缴费用等的基本结构。
图5.5
图5.5基本信息表包含了学生的学号,姓名基本内容。
图5.6
图5.6学分信息表包含了学生的总学分,已修学分基本内容。
图5.7
图5.7登录信息表包含了学生的总学分,已修学分基本内容。
图5.8
图5.8登录信息表包含了学生的总缴费,已缴费用基本内容。
图5.9
图5.9为各表间的关系图。
六、数据库应用开发与运行:
(程序代码、界面图、详细功能说明)
6.1登录程序代码、界面图、详细功能说明
a.登录界面程序代码:
(1)登录键
PrivateSubCommand1_Click()
StaticcountAsInteger'静态变量,其值会保留
DimsqlstrAsString'创建一个字符串
Adodc1.RecordSource="select*from登录where学号='"&Text1&"'"'显示表登录上的所有字段
Adodc1.Refresh'更新
IfAdodc1.Recordset.BOFThen'若没有找到用户
MsgBox"用户名错误,请重新输入!
",vbExclamation,"警告"
Text1.Text=""
Text1.SetFocus'TEXT1获得焦点
Text2.Text=""
Else
Adodc1.RecordSource="select*from登录where密码='"&Text2&"'"
sqlstr=Adodc1.Recordset.Fields("密码")
sqlstr=Trim(sqlstr)
IfText2.Text=sqlstrThen
LoadForm1:
Form1.Show
Unloadme
Else
MsgBox"密码错误,请重新输入!
",vbExclamation,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
count=0
EndIf
count=count+1
Ifcount=3Then
UnloadMe
EndIf
EndSub
(2)取消键
PrivateSubCommand2_Click()
HideMe
EndSub
b.登录界面图:
图6.1
图6.1为登录界面图包含登录内容。
c.登录界面详细功能说明
登录界面
退出键
登录键
退出
输入学号
找到用户
未找到用户
重新输入直至正确
输入密码
重输密码
不正确输入超过三次
正确
退出
显示选择界面
正确
图6.2
图6.2为登录详细的功能实现流程,与实现的功能。
6.2选择界面程序代码、界面图、详细功能说明
a.选择界面程序代码:
(1)退出键
PrivateSubCommand1_Click()
dengluxitong.Show
UnloadMe
EndSub
(2)学生基本信息键
PrivateSub学生基本信息_Click(IndexAsInteger)
jibenxinxi.Show
UnloadMe
EndSub
(3)学分信息键
PrivateSub学分信息_Click(IndexAsInteger)
xuefenxinxi.Show
UnloadMe
EndSub
(4)学生缴费信息键
PrivateSub学生缴费信息_Click(IndexAsInteger)
jiaofeixinxi.Show
UnloadMe
EndSub
b.选择界面图:
图6.3
图6.3为选择界面图,包含多种功能选项。
C.选择界面详细功能说明
选择界面
学生缴费信息键
学生基本信息键
退出键
学分信息键
登录界面
学分信息界面
学生缴费信息界面
学生基本信息界面
图6.4
图6.4为选择界面的实现选择的详细流程及其包含的详细功能。
6.3缴费信息界面程序代码、界面图、详细功能说明
a.缴费信息界面程序代码:
(1)添加键
PrivateSubCmdadd1_Click()
DimsqlstrAsString
Adodc1.RecordSource="select*from缴费信息where学号='"&Text1&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen'判断学号是否重复
MsgBox("学号重复错误!
"),vbExclamation,"检查学号"
Text1=""
Text1.SetFocus
Adodc1.Refresh
ExitSub
Else
Adodc1.RecordSource="select*from登录where学号='"&Text1&"'"
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen'诺没有找到用户
MsgBox"学号错误,请重新输入!
",vbExclamation,"检查学号"
Text1.Text=""
Text1.SetFocus'TEXT1获得焦点、
Adodc1.RecordSource="select*from缴费信息"
Adodc1.Refresh
ExitSub
EndIf
EndIf
Adodc1.RecordSource="select*from登录where姓名='"&Text2&"'"
sqlstr=Adodc1.Recordset.Fields("姓名")
sqlstr=Trim(sqlstr)
IfText2.Text<>sqlstrThen
MsgBox"姓名错误,请重新输入!
",vbExclamation,"警告"
Text2.Text=""
Text2.SetFocus'TEXT2获得焦点
Adodc1.RecordSource="select*from缴费信息"
Adodc1.Refresh
ExitSub
Else
Adodc1.RecordSource="select*from缴费信息"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("学号")=Text1.Text
Adodc1.Recordset.Fields("姓名")=Text2.Text
Adodc1.Recordset.Fields("专业")=Text3.Text
Adodc1.Recordset.Fields("总缴费")=Text4.Text
Adodc1.Recordset.Fields("已缴费用")=Text5.Text
Adodc1.Recordset.Fields("还需缴费")=Text6.Text
Adodc1.Recordset.Update
Adodc1.RecordSource="select*from缴费信息"
Adodc1.Refresh
MsgBox("添加成功!
")
EndIf
EndSub
(2)还需缴费键
PrivateSubCommand3_Click()
IfVal(Text4.Text) Text6.Text=0 a=Abs(Val(Text4.Text)-Val(Text5.Text)) MsgBox("该学生还有退款"&a&"元! ") EndIf IfVal(Text4.Text)=Val(Text5.Text)Then a=Val(Text4.Text)-Val(Text5.Text) Text6.Text=a EndIf IfVal(Text4.Text)>Val(Text5.Text)Then a=Val(Text4.Text)-Val(Text5.Text) Text6.Text=a MsgBox("该学生还需缴费"&a&"元! ") EndIf EndSub (3)删除键 PrivateSubCmddelete_Click() DimmyvalAsString myval=MsgBox("是否要删除该记录? ",vbYesNo) Ifmyval=vbYesThen Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext MsgBox("删除成功! ") EndIf EndSub (4)修改键 PrivateSubCmdmodify_Click() jiaofeixinxixiugai.Show EndSub (5)刷新键 PrivateSubCommand1_Click() Adodc1.RecordSource="select*from缴费信息" Adodc1.Refresh EndSub (5)返回选择界面键 PrivateSubCmdexit_Click() Form1.Show UnloadMe EndSub (6)重新登录键 PrivateSubCommand2_Click() dengluxitong.Show UnloadMe EndSub (7)统计键 PrivateSubCommand5_Click() Sum=0 Fori=0ToAdodc1.Recordset.RecordCount-1 DataGrid1.Row=i IfTrim(Adodc1.Recordset.Fields("还需缴费"))<>0Then sum1=sum1+1 Else sum1=sum1+0 EndIf IfTrim(Adodc1.Recordset.Fields("已缴费用"))>=100000Then sum2=sum2+1 Else sum2=sum2+0 EndIf IfTrim(Adodc1.Recordset.Fields("已缴费用"))>100000Then sum3=sum3+1 Else sum3=sum3+0 EndIf Nexti Text8.Text=sum1 Text9.Text=sum2 Text10.Text=sum3 EndSub (8)查询键 PrivateSubCommand4_Click() Adodc1.RecordSource="select*from登录where学号='"&Text7&"'" Adodc1.Refresh IfAdodc1.Recordset.BOFThen'诺没有找到用户 MsgBox"学号错误,请重新输入! ",vbExclamation,"警告" Text7.Text="" Text7.SetFocus'TEXT1获得焦点 Adodc1.RecordSource="select*from缴费信息" Adodc1.Refresh ExitSub Else Adodc1.RecordSource="select*from缴费信息where学号='"&Text7&"'" Adodc1.Refresh EndIf EndSub b.缴费信息界面图: 图6.5 图6.5为缴费信息的界面图,以及其包含的选项。 c.缴费信息界面详细功能说明 (1)总布局图 缴费信息界面 删除键 统计键 重新登录键 修改键 添加键 返回选择界面键 查询键 计算键 图6.6 图6.6为缴费信息界面的各个将实现的详细功能,其中有些功能实现简单,像删除键,返回键等等。 但有些功能实现较为复杂。 将复杂的过程简单,将以图6.7,图6.8,图6.9简单明了的介绍其流程。 计算键 (2)计算键流程图 总缴费=已缴费 总缴费>已缴费 总缴费<已缴费 显示需缴费情况或需退款情款 图6.7 图6.7为计算键流程图,有这样的流程图,思路清晰,会使编程过程简单化。 (3)添加键流程图 添加键 学号无重复 学号重复 没有找到用户 找到用户 重新输入学号,直至找到用户 输入姓名 姓名正确 姓名错误 重新输入姓名直至正确 添加其他信息 按添加键 添加成功 图6.8 图6.8为添加键流程图,添加的过程十分的复杂。 但画出流程图之后会是编程的过程少走很多弯路。 统计键 (4)统计键流程图 判断还需缴费与总缴费的大小 显示结果 图6.9 图6.9为统计键流程图,统计键的流程看似简单,但其中包含了许多知识,但我们主要围绕判断大小而展开分析。 6.4缴费信息修改界面程序代码、界面图、详细功能说明 a.缴费信息修改界面程序代码 (1)修改键 PrivateSubCommand2_Click() DimaAsString Dimb
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SQL 学生 成绩管理系统