VB设计报告(学生管理系统)-.pdf

1 一、系统的开发工具及编程环境1.1 开发工具的选择基于系统的需求分析以及系统Visual.Basic.NET的应用，系统将简体中文版进行开发，所选择的语言是Visual.Basic.NET和 Access 2003。1.1.1Visual.Basic.NET简介BASIC是 Beginner s All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的编写，是国际上广泛使用的一种计算机高级语言。BASIC简易、易学，目前仍是计算机入门的主要学习语言之一。BASIC语言自其问世经历了一下五个阶段：第一阶段（1964年-70 年代初）：1964 年 BASIC语言问世。第二阶段（20世纪 70 年代初-80 年代中）：微机上固化了 BASIC。第三阶段（20世纪 80 年代初-90 年代初）：推出了结构化 BASIC语言。第四阶段（1991年-2002 年）：推出了 Visual Basic。第五阶段（2002年以后）：推出了 Visual Basic.NET。1991年以后，Microsoft推出了 Visual Basic 1.0版，在当时引起了很大的轰动。许多专家把Visual Basic的出现当作软件开发史的一个具有时代意义的事件。其实，以现在的眼光来看，Visual Basic1.0 的功能实在是太弱了，但它是第一个“可视”的编程软件，因此很多程序员都尝试在Visual Basic的平台上进行软件创作。此后Microsoft在四年内连续推出Visual Basic2.0、Visual Basic3.0、Visual Basic4.0 等 3 个版本。从 Visual Basic3.0 开始，Microsoft将 Access 中的数据库驱动集成到了Visual Basic中，这使 Visual Basic的数据库编程能力大大提高；从 Visual Basic4.0 开始引入了面向对象的程序设计思想；Visual Basic还引入了“控件”的概念，使大量已经编好的Visual Basic程序可以被直接重用，Visual Basic5.0 版本引入了 ActiveX 的概念，允许开发人 员创 建自 己 的 ActiveX控 件；Visual Basic6.0集 成 了 ActiveX Data Objects(ADO),提供了一种访问数据库的全新方法；2002 年 2 月，随着 Visual Basic.NET 的发布，许多原有的局限性被消除，变成了功能强大的开发工具。1.1.2 Access2003 简介2 Access 技术：可以开发关系数据库，数据库能汇集各种信息以供查询、存储和检索。数据库是由一些有意义和有关系的数据所组合而成。一个数据库中，包含了许多条记录，而每条记录是由多个字段所组成，不同的字段存放着不同的数据。所以数据库的严格定义是一组相关记录的集合，而字段则是最基本的数据项，也是数据库中最小的单位。在计算机中帮我们管理数据库的系统，我们称之为数据库管理系统。数据库管理系统是架构在一个或多个数据库之上，并针对数据库中的数据进行管理运用。Access 的优点在于它能使用数据表示图或自定义窗体收集信息，数据表示图提供了一种类似于Excel 的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。1.2 编程环境的选择1.2.1 Visual Basic.NET编程环境系统使用环境操作系统：Windows XP系统支持：Visual Basic.NET数据库：Access 系统开发环境操作系统：Windows XP 系统支持：Visual Basic 2008 3 二、流程设计2.1 系统流程图设计2.1.1 VB.NET 流程设计设计学生管理系统首先需要一个总体流程（如图2-1），就是对学生管理系统的设计方案。（图 2-1）用户管理教师学生学生管理系统信息管理成绩管理信息查询成绩查询信息录入信息查询信息删除信息修改成绩录入成绩查询成绩删除成绩修改4 2.1.2 Access 2003 流程设计数据库在本学生管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。同时合理的数据库结构也将有利于程序的实现。设计本系统的数据库应该充分满足用户的需求。针对一般学生管理系统的需求，通过对学生学习过程的内容的分析，设计如下面所示的数据项和数据结构。我们根据课程需求，建立两个表：学生信息表、学生成绩表.如下图：图 2.2 建立数据库（1）学生信息表：包括的字段有：学号，姓名，性别，班级，出生日期，联系方式，家庭住址。表 2.1 基本信息表字段名称数据类型字段大小学号文本20 姓名文本20 性别文本20 联系方式文本20 班级文本20 家庭住址文本20 出生日期日期/时间50 5（2）学生成绩表：包括的字段有：学号，姓名，性别，班级，高数成绩，英语成绩，计算机成绩。表 2.2 成绩表字段名称数据类型字段大小学号文本20 英语文本20 V 文本20 数据库文本20 C 语言文本20 网络文本20 历史文本20 时事政策文本20 表 2.3 学生成绩表 2.4 学生信息通过建立的学生信息表和学生成绩表作为后台来连接前台的Visual Basic 6.0来实现整个系统。6 三、具体的设计过程3.1 登陆和进入界面3.1.1 用户登陆管理界面首先是进入登陆界面，如图 2.2.1 所示，本窗体显示系统名称，密码校验等信息，本系统的用户分为两类：教师，学生。使用者可以在组合框中选择所要登录的用户的类型，并输入相应的用户名和密码，单击“确定”就会将输入提交给系统以验证用户、密码及身份。如果用户类型及密码正确，则会进入系统的MDI主窗体（MDIMain.frm）.登陆流程图如下：图 3.1 流程图图 3.2 登陆界面登陆用户的代码：Static n As Integer If Me.RadioButton1.Checked Then 选择用户，输入密码密码正确？Y 进入系统主界面N 7 If Me.TextBox1.Text=And Me.TextBox2.Text=Then MsgBox(帐号或密码不能为空，请从新输入！,0+16,提示)Me.TextBox1.Focus()ElseIf Me.TextBox1.Text=teacher And Me.TextBox2.Text=Then MsgBox(请输入密码！,0+64,提示)Me.TextBox2.Focus()ElseIf Me.TextBox1.Text teacher And Me.TextBox2.Text 111 Then MsgBox(帐号或密码错误，请从新输入！,0+16,提示)Me.TextBox1.Text=Me.TextBox2.Text=Me.TextBox1.Focus()n+=1 If n=3 Then Me.Close()End If ElseIf Me.TextBox1.Text=teacher And Me.TextBox2.Text 111 Then MsgBox(密码错误，请从新输入！,0+16,提示！)Me.TextBox2.Text=Me.TextBox2.Focus()n+=1 If n=3 Then Me.Close()End If ElseIf Me.TextBox1.Text=teacher And Me.TextBox2.Text=111 Then 用户界面.Show()Me.Hide()End If End If If Me.RadioButton2.Checked Then 8 If Me.TextBox1.Text=And Me.TextBox2.Text=Then MsgBox(帐号或密码不能为空，请从新输入！,0+16,提示)Me.TextBox1.Focus()ElseIf Me.TextBox1.Text=student And Me.TextBox2.Text=Then MsgBox(请输入密码！,0+64,提示)Me.TextBox2.Focus()ElseIf Me.TextBox1.Text student And Me.TextBox2.Text 222 Then MsgBox(帐号或密码错误，请从新输入！,0+16,提示)Me.TextBox1.Text=Me.TextBox2.Text=Me.TextBox1.Focus()n+=1 If n=3 Then Me.Close()End If ElseIf Me.TextBox1.Text=student And Me.TextBox2.Text 222 Then MsgBox(密码错误，请从新输入！,0+16,提示！)Me.TextBox2.Text=Me.TextBox2.Focus()n+=1 If n=3 Then Me.Close()End If ElseIf Me.TextBox1.Text=student And Me.TextBox2.Text=222 Then 用户界面.Show()用户界面.信息录入 ToolStripMenuItem.Enabled=False 用户界面.信息删除 ToolStripMenuItem.Enabled=False 用户界面.信息修改 ToolStripMenuItem.Enabled=False Me.Hide()9 End If End If 取消代码：Me.TextBox1.Text=Me.TextBox2.Text=Me.TextBox1.Focus()退出代码：Dim msg As Integer msg=MsgBox(是否退出？,MsgBoxStyle.YesNo)If msg=6 Then Me.Close()Else Me.Show()End If3.1.2 用户进入界面用户进入界面可对成绩的管便捷我们添加了切换用户的功能，然后可以对学生成绩管理进行操作。用户进入界面图如下：图 3.3 进入界面该窗体添加了菜单控件控件。文件菜单中的切换用户代码：登录窗口.Show()Me.Hide()10 登录窗口.TextBox1.Text=登录窗口.TextBox2.Text=登录窗口.TextBox1.Focus()退出代码：End 学生信息和学生成绩菜单中子菜单的代码：1、信息录入进入窗体代码：Dim 信息录入 As New 信息录入信息录入.MdiParent=Me 信息录入窗口.Show()2、信息删除进入窗体代码:Dim 信息删除 As New 信息删除信息删除.MdiParent=Me 信息删除窗口.Show()3、信息修改进入窗体代码：Dim 信息修改 As New 信息修改信息修改.MdiParent=Me 信息修改窗口.Show()4、信息查询进入窗体代码：Dim 信息查询 As New 信息查询信息查询.MdiParent=Me 信息查询窗口.Show()5、成绩录入进入窗体代码：Dim 成绩录入 As New 成绩录入成绩录入.MdiParent=Me 成绩录入窗口.Show()6、成绩删除进入窗体代码：Dim 成绩删除 As New 成绩删除成绩删除.MdiParent=Me 成绩删除窗口.Show()7、成绩修改进入窗体代码：Dim 成绩删除 As New 成绩删除成绩删除.MdiParent=Me 成绩修改窗口.Show()8、成绩查询进入窗体代码：Dim 成绩查询 As New 成绩查询11 成绩查询.MdiParent=Me 成绩查询窗口.Show()根据实际情况来设计，添加 timer 控件来显示当前时间、当前日期。当前日期、时间代码：Me.ToolStripStatusLabel1.Text=当前时间：&Today.Date Me.ToolStripStatusLabel2.Text=当前时间：&TimeOfDay 3.2 学生成绩管理系统3.2.1 学生成绩查询图 3.4 成绩查询该窗体添加了 Data Gridview 控件来实现数据库与VB的连接，与数据库连接还需要依次添加了以下几个控件，与数据库连接。，并添加了两个RadioButton 控件，分别添加了4 个 button，查询、取消、刷新、返回。12 查询代码：Dim sss As String Me.OleDbConnection1.Open()If Me.RadioButton1.Checked Then 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()End If If Me.RadioButton2.Checked Then 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()End If 刷新代码：Dim sss As String 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()End Sub 13 取消代码：Me.TextBox1.Text=Me.TextBox2.Text=Me.TextBox1.Focus()3.2.2 学生成绩录入图 3.5 成绩录入该窗体添加了 Data Gridview 控件来实现数据库与VB的连接，与数据库连接还需要依次添加如下控件。，还有各科的 textbox，一个添加按钮。添加代码：Dim sss As String Me.OleDbConnection1.Open()sss=insert into 学生成绩表 (学号,姓名,VB,C 语言,网络,数据库,历史,英语)values(&Me.TextBox1.Text&,&Me.TextBox2.Text&,&Me.TextBox3.Text&,&Me.TextBox4.Text&,&Me.TextBox5.Text&,14&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 成绩删除该窗体添加了 Data Gridview 控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件一个删除按钮。删除代码：Dim sss As String Me.OleDbConnection1.Open()sss=delete*from 学生成绩表 where 学号=&TextBox1.Text“Me.OleDbDataAdapter1.DeleteCommand.CommandText=sss Me.OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()15 Me.DataSet81.Clear()Me.OleDbDataAdapter1.Fill(Me.DataSet81)Me.OleDbConnection1.Close()End If 3.2.4 成绩修改图 3.6 成绩修改该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件，这次并添加了上一个、下一个、第一个、最后一个、修改按钮。再将每个 textbox绑定。查看第一条记录代码：Me.BindingContext(Me.DataSet11,学生成绩表).Position=0 查看最后一条记录代码：Me.BindingContext(Me.DataSet11,学 生 成 绩 表).Position=Me.BindingContext(Me.DataSet11,学生成绩表).Count-1 16 查看下一条记录代码：Me.BindingContext(Me.DataSet11,学生成绩表).Position+=1 查看上一条记录代码：Me.BindingContext(Me.DataSet11,学生成绩表).Position-=1 成绩修改代码：Dim sss As String Me.OleDbConnection1.Open()sss=update 学生成绩表 set VB=&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 成绩查询该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件17 和查询按钮成绩查询代码：Dim sss As String 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()End If 3.3 学生信息管理系统3.3.1 学生信息查询图 3.8 信息查询该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件18 和查询按钮。学生信息查询代码：Dim sss As String 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()End If 3.3.2 学生信息录入图 3.9 信息录入该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件和录入按钮。19 学生信息录入代码：Dim sss As String Me.OleDbConnection1.Open()sss=insert into 学生信息表 (学号,姓名,性别,班级,出生日期 ,家庭地址,联系方式)values(&Me.TextBox1.Text&,&Me.TextBox2.Text&,&Me.TextBox3.Text&,&Me.TextBox4.Text&,&Me.TextBox5.Text&,&Me.TextBox6.Text&,&Me.TextBox7.Text&)Me.OleDbDataAdapter1.InsertCommand.CommandText=sss Me.OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()Me.DataSet11.Clear()Me.OleDbDataAdapter1.Fill(Me.DataSet11)Me.OleDbConnection1.Close()查看第一条记录代码：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-=13.3.3 学生信息修改20 图 3.10 信息修改该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件和修改、上一个、下一个、第一个、最后一个按钮。再将每个textbox 绑定。学生信息修改代码：Dim sss As String Me.OleDbConnection1.Open()sss=update 学生信息表 set 姓名=&Me.TextBox2.Text&,性别=&Me.TextBox3.Text&,班级=&Me.TextBox4.Text&,出生日期=&Me.TextBox5.Text&,家庭住址=&Me.TextBox7.Text&,联系方式=&Me.TextBox8.Text&where 学号=&Me.TextBox1.Text&Me.OleDbDataAdapter1.UpdateCommand.CommandText=sss Me.OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()Me.DataSet11.Clear()Me.OleDbDataAdapter1.Fill(Me.DataSet11)Me.OleDbConnection1.Close()3.3.4 学生信息删除图 3.11 信息删除21 该窗体添加了 Data Gridview控件来实现数据库与VB的连接，与数据库连接还需要依次添加以下几个控件和删除、取消、返回按钮。学生信息删除代码：Dim sss As String Me.OleDbConnection1.Open()If Me.RadioButton1.Checked Then sss=delete*from 学生信息表 where 学号=&TextBox1.Text“Me.OleDbDataAdapter1.DeleteCommand.CommandText=sss Me.OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()Me.DataSet11.Clear()Me.OleDbDataAdapter1.Fill(Me.DataSet11)Me.OleDbConnection1.Close()End If 学生信息删除窗体的取消代码：Me.TextBox1.Text=Me.TextBox1.Focus()22 结论通过这两周的课程设计，我学到了很多，对于上课期间没有真正领悟到的，在这段时间了，充分的去感受了这门学科的意义所在，对于最开始的不懂到最后将拥有这个能力做出一个设计，觉得自己收获很大。就这个设计而言，一开始是一头雾水，但通过老师的细心讲解，慢慢的修改，修正最终达到了课程设计的目的。而做的这个学生管理系统是通过对信息的采集、存储、加工、维护和使用等,并随着管理科学和技术科学的发展而形成的。学生管理系统能为用户提供充足的信息，对学生来说可以轻松使用。整个软件在开发过程中使用模块化程序设计方法，充分考虑了各种实际情况，通过这段时间的具体应用和不断完善，显示出良好的效果。整个管理系统是随着管理科学和技术科学的发展而形成的。本系统为用户提供充足的成绩信息和查询手段。整个系统在开发过程中使用模块化程序设计方法，充分考虑了各种实际情况，逐步取代了人们长期以来所使用的单纯的人工管理方式，提高了工作效率，也对学生工作管理的科学化、正规化起到了重要的作用。23 致谢感谢我的指导老师老师们，您的严谨细致、一丝不苟的作风一直是我工作、学习中的榜样；您的循循善诱的教导和不拘一格的思路给予我无尽的启迪。感谢我的老师，这篇论文的每个细节和每个数据，都离不开您的细心指导。而您开朗的个性和宽容的态度，帮助我能够很快的完成我的毕业设计。感谢我的同学们，从遥远的家来到这个陌生的城市里，是你们和我共同维系着彼此之间的感情。一学期过去了，仿佛就在昨天，我的毕业设计是在你们的协助之下完成的。在论文即将完成之际，我的心情无法平静，从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接受我诚挚的谢意！24 参考文献1 顾明.数据库原理与应用：Access 2003，第二版，北京，高等教育出版社，2009。2 苏英如.Visual Basic.NET程序设计，第一版，北京，中国水利水电出版社，2009。