VB设计报告学生管理系统.docx
- 文档编号:11434731
- 上传时间:2023-03-01
- 格式:DOCX
- 页数:25
- 大小:380.07KB
VB设计报告学生管理系统.docx
《VB设计报告学生管理系统.docx》由会员分享,可在线阅读,更多相关《VB设计报告学生管理系统.docx(25页珍藏版)》请在冰豆网上搜索。
VB设计报告学生管理系统
一、系统的开发工具及编程环境
1.1开发工具的选择
基于系统的需求分析以及系统Visual.Basic.NET的应用,系统将简体中文版进行开发,所选择的语言是Visual.Basic.NET和Access2003。
1.1.1Visual.Basic.NET简介
BASIC是Beginner’sAll-purposeSymbolicInstructionCode(初学者通用符号指令代码)的编写,是国际上广泛使用的一种计算机高级语言。
BASIC简易、易学,目前仍是计算机入门的主要学习语言之一。
BASIC语言自其问世经历了一下五个阶段:
第一阶段(1964年-70年代初):
1964年BASIC语言问世。
第二阶段(20世纪70年代初-80年代中):
微机上固化了BASIC。
第三阶段(20世纪80年代初-90年代初):
推出了结构化BASIC语言。
第四阶段(1991年-2002年):
推出了VisualBasic。
第五阶段(2002年以后):
推出了VisualBasic.NET。
1991年以后,Microsoft推出了VisualBasic1.0版,在当时引起了很大的轰动。
许多专家把VisualBasic的出现当作软件开发史的一个具有时代意义的事件。
其实,以现在的眼光来看,VisualBasic1.0的功能实在是太弱了,但它是第一个“可视”的编程软件,因此很多程序员都尝试在VisualBasic的平台上进行软件创作。
此后Microsoft在四年内连续推出VisualBasic2.0、VisualBasic3.0、VisualBasic4.0等3个版本。
从VisualBasic3.0开始,Microsoft将Access中的数据库驱动集成到了VisualBasic中,这使VisualBasic的数据库编程能力大大提高;从VisualBasic4.0开始引入了面向对象的程序设计思想;VisualBasic还引入了“控件”的概念,使大量已经编好的VisualBasic程序可以被直接重用,VisualBasic5.0版本引入了ActiveX的概念,允许开发人员创建自己的ActiveX控件;VisualBasic6.0集成了ActiveXDataObjects(ADO),提供了一种访问数据库的全新方法;2002年2月,随着VisualBasic.NET的发布,许多原有的局限性被消除,变成了功能强大的开发工具。
1.1.2Access2003简介
Access技术:
可以开发关系数据库,数据库能汇集各种信息以供查询、存储和检索。
数据库是由一些有意义和有关系的数据所组合而成。
一个数据库中,包含了许多条记录,而每条记录是由多个字段所组成,不同的字段存放着不同的数据。
所以数据库的严格定义是一组相关记录的集合,而字段则是最基本的数据项,也是数据库中最小的单位。
在计算机中帮我们管理数据库的系统,我们称之为数据库管理系统。
数据库管理系统是架构在一个或多个数据库之上,并针对数据库中的数据进行管理运用。
Access的优点在于它能使用数据表示图或自定义窗体收集信息,数据表示图提供了一种类似于Excel的电子表格,可以使数据库一目了然。
另外,Access允许创建自定义报表用于打印或输出数据库中的信息。
Access也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库。
如上所述,Access作为关系数据库开发具备了许多优点,可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
1.2编程环境的选择
1.2.1VisualBasic.NET编程环境
系统使用环境
操作系统:
WindowsXP
系统支持:
VisualBasic.NET
数据库:
Access
系统开发环境
操作系统:
WindowsXP
系统支持:
VisualBasic2008
二、流程设计
2.1系统流程图设计
2.1.1VB.NET流程设计
设计学生管理系统首先需要一个总体流程(如图2-1),就是对学生管理系统的设计方案。
(图2-1)
2.1.2Access2003流程设计
数据库在本学生管理系统中占有非常重要的地位,数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率,保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
针对一般学生管理系统的需求,通过对学生学习过程的内容的分析,设计如下面所示的数据项和数据结构。
我们根据课程需求,建立两个表:
学生信息表、学生成绩表.如下图:
图2.2建立数据库
(1)学生信息表:
包括的字段有:
学号,姓名,性别,班级,出生日期,联系方式,家庭住址。
表2.1基本信息表
字段名称
数据类型
字段大小
学号
文本
20
姓名
文本
20
性别
文本
20
联系方式
文本
20
班级
文本
20
家庭住址
文本
20
出生日期
日期/时间
50
(2)学生成绩表:
包括的字段有:
学号,姓名,性别,班级,高数成绩,英语成绩,计算机成绩。
表2.2成绩表
字段名称
数据类型
字段大小
学号
文本
20
英语
文本
20
V
文本
20
数据库
文本
20
C语言
文本
20
网络
文本
20
历史
文本
20
时事政策
文本
20
表2.3学生成绩
表2.4学生信息
通过建立的学生信息表和学生成绩表作为后台来连接前台的VisualBasic6.0来实现整个系统。
三、具体的设计过程
3.1登陆和进入界面
3.1.1用户登陆管理界面
首先是进入登陆界面,如图2.2.1所示,本窗体显示系统名称,密码校验等信息,本系统的用户分为两类:
教师,学生。
使用者可以在组合框中选择所要登录的用户的类型,并输入相应的用户名和密码,单击“确定”就会将输入提交给系统以验证用户、密码及身份。
如果用户类型及密码正确,则会进入系统的MDI主窗体(MDIMain.frm)
.登陆流程图如下:
图3.1流程图
图3.2登陆界面
登陆用户的代码:
StaticnAsInteger
IfMe.RadioButton1.CheckedThen
IfMe.TextBox1.Text=""AndMe.TextBox2.Text=""Then
MsgBox("帐号或密码不能为空,请从新输入!
",0+16,"提示")
Me.TextBox1.Focus()
ElseIfMe.TextBox1.Text="teacher"AndMe.TextBox2.Text=""Then
MsgBox("请输入密码!
",0+64,"提示")
Me.TextBox2.Focus()
ElseIfMe.TextBox1.Text<>"teacher"AndMe.TextBox2.Text<>"111"Then
MsgBox("帐号或密码错误,请从新输入!
",0+16,"提示")
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Me.TextBox1.Focus()
n+=1
Ifn=3Then
Me.Close()
EndIf
ElseIfMe.TextBox1.Text="teacher"AndMe.TextBox2.Text<>"111"Then
MsgBox("密码错误,请从新输入!
",0+16,"提示!
")
Me.TextBox2.Text=""
Me.TextBox2.Focus()
n+=1
Ifn=3Then
Me.Close()
EndIf
ElseIfMe.TextBox1.Text="teacher"AndMe.TextBox2.Text="111"Then
用户界面.Show()
Me.Hide()
EndIf
EndIf
IfMe.RadioButton2.CheckedThen
IfMe.TextBox1.Text=""AndMe.TextBox2.Text=""Then
MsgBox("帐号或密码不能为空,请从新输入!
",0+16,"提示")
Me.TextBox1.Focus()
ElseIfMe.TextBox1.Text="student"AndMe.TextBox2.Text=""Then
MsgBox("请输入密码!
",0+64,"提示")
Me.TextBox2.Focus()
ElseIfMe.TextBox1.Text<>"student"AndMe.TextBox2.Text<>"222"Then
MsgBox("帐号或密码错误,请从新输入!
",0+16,"提示")
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Me.TextBox1.Focus()
n+=1
Ifn=3Then
Me.Close()
EndIf
ElseIfMe.TextBox1.Text="student"AndMe.TextBox2.Text<>"222"Then
MsgBox("密码错误,请从新输入!
",0+16,"提示!
")
Me.TextBox2.Text=""
Me.TextBox2.Focus()
n+=1
Ifn=3Then
Me.Close()
EndIf
ElseIfMe.TextBox1.Text="student"AndMe.TextBox2.Text="222"Then
用户界面.Show()
用户界面.信息录入ToolStripMenuItem.Enabled=False
用户界面.信息删除ToolStripMenuItem.Enabled=False
用户界面.信息修改ToolStripMenuItem.Enabled=False
Me.Hide()
EndIf
EndIf
取消代码:
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Me.TextBox1.Focus()
退出代码:
DimmsgAsInteger
msg=MsgBox("是否退出?
",MsgBoxStyle.YesNo)
Ifmsg=6Then
Me.Close()
Else
Me.Show()
EndIf
3.1.2用户进入界面
用户进入界面可对成绩的管便捷我们添加了切换用户的功能,然后可以对学生成绩管理进行操作。
用户进入界面图如下:
图3.3进入界面
该窗体添加了菜单控件
控件。
文件菜单中的切换用户代码:
登录窗口.Show()
Me.Hide()
登录窗口.TextBox1.Text=""
登录窗口.TextBox2.Text=""
登录窗口.TextBox1.Focus()
退出代码:
End
学生信息和学生成绩菜单中子菜单的代码:
1、信息录入进入窗体代码:
Dim信息录入AsNew信息录入
信息录入.MdiParent=Me
信息录入窗口.Show()
2、信息删除进入窗体代码:
Dim信息删除AsNew信息删除
信息删除.MdiParent=Me
信息删除窗口.Show()
3、信息修改进入窗体代码:
Dim信息修改AsNew信息修改
信息修改.MdiParent=Me
信息修改窗口.Show()
4、信息查询进入窗体代码:
Dim信息查询AsNew信息查询
信息查询.MdiParent=Me
信息查询窗口.Show()
5、成绩录入进入窗体代码:
Dim成绩录入AsNew成绩录入
成绩录入.MdiParent=Me
成绩录入窗口.Show()
6、成绩删除进入窗体代码:
Dim成绩删除AsNew成绩删除
成绩删除.MdiParent=Me
成绩删除窗口.Show()
7、成绩修改进入窗体代码:
Dim成绩删除AsNew成绩删除
成绩删除.MdiParent=Me
成绩修改窗口.Show()
8、成绩查询进入窗体代码:
Dim成绩查询AsNew成绩查询
成绩查询.MdiParent=Me
成绩查询窗口.Show()
根据实际情况来设计,添加timer控件来显示当前时间、当前日期。
当前日期、时间代码:
Me.ToolStripStatusLabel1.Text="当前时间:
"&Today.Date
Me.ToolStripStatusLabel2.Text="当前时间:
"&TimeOfDay
3.2学生成绩管理系统
3.2.1学生成绩查询
图3.4成绩查询
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加了以下几个控件,与数据库连接。
,并添加了两个RadioButton控件,分别添加了4个button,查询、取消、刷新、返回。
查询代码:
DimsssAsString
Me.OleDbConnection1.Open()
IfMe.RadioButton1.CheckedThen
sss="Select*from学生成绩表where学号='"&Me.TextBox1.Text&"'"
Me.OleDbDataAdapter1.SelectCommand.CommandText=sss
Me.OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Me.DataSet91.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet91)
Me.OleDbConnection1.Close()
EndIf
IfMe.RadioButton2.CheckedThen
sss="Select*from学生成绩表where姓名='"&Me.TextBox2.Text&"'"
Me.OleDbDataAdapter1.SelectCommand.CommandText=sss
Me.OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Me.DataSet91.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet91)
Me.OleDbConnection1.Close()
EndIf
刷新代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="Select*from学生成绩表"
Me.OleDbDataAdapter1.SelectCommand.CommandText=sss
Me.OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Me.DataSet91.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet91)
Me.OleDbConnection1.Close()
EndSub
取消代码:
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Me.TextBox1.Focus()
3.2.2学生成绩录入
图3.5成绩录入
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加如下控件。
,还有各科的textbox,一个添加按钮。
添加代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="insertinto学生成绩表(学号,姓名,VB,C语言,网络,数据库,历史,英语)values('"&Me.TextBox1.Text&"','"&Me.TextBox2.Text&"',"&Me.TextBox3.Text&","&Me.TextBox4.Text&","&Me.TextBox5.Text&","&Me.TextBox6.Text&","&Me.TextBox7.Text&","&Me.TextBox8.Text&")"
Me.OleDbDataAdapter1.InsertCommand.CommandText=sss
Me.OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()
Me.DataSet61.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet61)
Me.OleDbConnection1.Close()
3.2.3成绩删除
图3.6成绩删除
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加以下几个控件
一个删除按钮。
删除代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="delete*from学生成绩表where学号=‘"&TextBox1.Text“‘
Me.OleDbDataAdapter1.DeleteCommand.CommandText=sss
Me.OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()
Me.DataSet81.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet81)
Me.OleDbConnection1.Close()
EndIf
3.2.4成绩修改
图3.6成绩修改
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加以下几个控件
,这次并添加了上一个、下一个、第一个、最后一个、修改按钮。
再将每个textbox绑定。
查看第一条记录代码:
Me.BindingContext(Me.DataSet11,"学生成绩表").Position=0
查看最后一条记录代码:
Me.BindingContext(Me.DataSet11,"学生成绩表").Position=Me.BindingContext(Me.DataSet11,"学生成绩表").Count-1
查看下一条记录代码:
Me.BindingContext(Me.DataSet11,"学生成绩表").Position+=1
查看上一条记录代码:
Me.BindingContext(Me.DataSet11,"学生成绩表").Position-=1
成绩修改代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="update学生成绩表setVB='"&Me.TextBox3.Text&"',C语言='"&Me.TextBox4.Text&"',网络='"&Me.TextBox5.Text&"',数据库='"&Me.TextBox3.Text&"',时事政策='"&Me.TextBox7.Text&"'历史='"&Me.TextBox6.Text&"',英语='"&Me.TextBox1.Text&"'where学号='"&Me.TextBox8.Text&"'"
Me.OleDbDataAdapter1.UpdateCommand.CommandText=sss
Me.OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()
Me.DataSet11.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet11)
Me.OleDbConnection1.Close()
3.2.5学生成绩查询
图3.7成绩查询
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加以下几个控件
和查询按钮
成绩查询代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="Select*from学生成绩表where学号='"&Me.TextBox1.Text&"'"
Me.OleDbDataAdapter1.SelectCommand.CommandText=sss
Me.OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Me.DataSet91.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet91)
Me.OleDbConnection1.Close()
EndIf
3.3学生信息管理系统
3.3.1学生信息查询
图3.8信息查询
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加以下几个控件
和查询按钮。
学生信息查询代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="Select*from学生信息表where学号='"&Me.TextBox1.Text&"'"
Me.OleDbDataAdapter1.SelectCommand.CommandText=sss
Me.OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Me.DataSet91.Clear()
Me.OleDbDataAdapter1.Fill(Me.DataSet91)
Me.OleDbConnection1.Close()
EndIf
3.3.2学生信息录入
图3.9信息录入
该窗体添加了DataGridview控件来实现数据库与VB的连接,与数据库连接还需要依次添加以下几个控件
和录入按钮。
学生信息录入代码:
DimsssAsString
Me.OleDbConnection1.Open()
sss="insertinto学生信息表(学号,姓名,性别,班级,出生日期,家庭地址,联系方式)values
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 设计 报告 学生 管理 系统