VB学生成绩标准管理系统真正完整很好很强大版.doc

目录摘 要2第一章 绪 论31.1引 言31.2设计目标及意义3第二章 开发环境和工具42.1 Visual Basic介绍42.1.1 Visual Basic语言特征52.2 SQL server 介绍62.2.1 SQL server 数据库特点6第三章 系统分析73.1系统及需求分析83.1.1系统需求83.1.2需求分析83.2 可行性分析93.2.1经济可行性分析93.2.2技术可行性分析93.3系统功效步骤图10第四章 数据库设计104.1数据库设计104.1.1各表物理结构114.2数据库链接124.2.1数据库链接代码124.2.2数据库链接操作124.3数据库调试14第五章 关键内容155.1登录界面155.2学生成绩管理界面185.3学生信息管理215.3.1学生信息添加215.3.2学生信息修改245.3.3学生信息删除265.3.4学生信息查询275.4登录用户管理285.4.1一般用户管理285.4.2高级用户管理295.4.3超级用户管理305.5用户注册345.6帮助界面36总 结37参考文件38摘 要伴随信息技术在管理上越来越深入而广泛应用，管理信息系统实施在技术上已逐步成熟。管理信息系统是一个不停发展新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必需建立和本身特点相适应管理信息系统。本系统是在管理信息系统理论和方法指导下、数据库技术支持下完成。本文在结构上首先叙述了毕业设计目标和意义，然后叙述了开发环境、开发平台和数据库技术，接着用图片、说明和代码方法介绍了系统整体计划，接下来是系统在具体实现中具体内容，最终本系统能够完成信息添加、修改、删除、查询等功效，本系统界面友好，操作简单，比较实用，思绪缜密严谨，管理起来方便快捷，能有效达成学生信息管理目标。关键词：VB,SQL server,界面，权限。第一章 绪 论1.1引 言人类有几千年历史，计算机从产生到现在只不过50多年，而网络快速发展也不过时间。不过，计算机和网络对社会影响已经快速扩大，甚至在改变大家生活。尤其是90年代以来，多媒体和网络技术飞速发展正在以惊人速度改变着大家工作方法、交往方法和生活方法。正像著名未来学家尼葛洛庞帝（1997）所说：“数字不再只和计算相关，它决定我们生存。”科学技术是第一生产力，是最优异生产力。现在,已经没有些人怀疑信息技术发展将会引发人类社会全方面和深刻变革，使人类社会由工业社会迈向信息社会。现在，在社会各个方面全部展现出了和工业社会显著不一样特点。网上书店，网上医院，网上学校，网上购物，网上银行，政府上网等新事物如雨后春笋般涌现出来，对大家传统生活方法、工作方法产生极大冲击。使大家感受到技术发展脉搏和信息时代前进步伐。伴随学校规模不停扩大，学生数量急剧增加，相关学生多种信息量也成倍增加。面对庞大信息量需要有学生管理系统来提升学生管理工作效率。经过这么系统能够做到信息规范管理、科学统计和快速查询、修改、增加、删除等，从而降低管理方面工作量。1.2设计目标及意义本系统关键用于学校学生信息管理，总体任务是实现学生信息关系系统化、规范化和自动化，其关键任务是用计算机对学生信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到用户登录权限，针对学生信息和权限登录学生成绩管理系统。本系统关键包含注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功效关键有： 学生信息添加，包含输入学生基础信息和成绩。 学生信息查询，包含查询学生基础信息和成绩。 学生信息修改，包含修改学生基础信息和成绩。 学生信息删除，包含修改学生基础信息和成绩。 用户名注册，包含一般用户注册、高级用户注册和超级用户注册。 登录用户密码修改，用户登录到系统可进行对应用户密码修改。 超级用户对用户名管理，包含添加新用户、修改用户密码、删除用户名和查询用户。学生成绩管理系统是经典信息管理系统，其开发关键包含后台数据库建立和维护和前端应用程序开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好库。而对于后者则要求应用程序功效完备，易使用等特点。经过分析，我们使用MICROSOFT企业Visual Basic开发工具，利用其提供多种面向对象开发工具，尤其是数据窗口这一能方便而简练操纵数据库智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不停修正和改善，直到形成用户满意可行系统。第二章 开发环境和工具2.1 Visual Basic介绍Visual Basic（VB）是一个由微软企业开发包含帮助开发环境事件驱动编程语言。从任何标准来说，VB全部是世界上使用人数最多语言不仅是盛赞VB开发者还是埋怨VB开发者数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，能够轻易使用DAO、RDO、ADO连接数据库，或轻松创建ActiveX控件。程序员能够轻松使用VB提供组件快速建立一个应用程序。2.1.1 Visual Basic语言特征一个经典VB进程VB中心思想就是要便于程序员使用，不管是新手或教授。VB使用了能够简单建立应用程序GUI系统，不过又能够开发相当复杂程序。VB程序是一个基于窗体可视化组件安排联合，而且增加代码来指定组建属性和方法。因为默认属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就能够完成一个简单程序。过去版本里面VB程序性能问题一直被放在了桌面上，不过伴随计算机速度飞速增加，相关性能争论已经越来越少。窗体控件增加和改变能够用拖放技术实现。一个排列满控件工具箱用来显示可用控件（比如文本框或按钮)。每个控件全部有自己属性和事件。默认属性值会在控件创建时候提供，不过程序员也能够进行更改。很多属性值能够在运行时候伴随用户动作和修改善行改动，这么就形成了一个动态程序。举个例子来说：窗体大小改变事件中加入了能够改变控件位置代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中文字改变事件中加入对应代码，程序就能够在文字输入时候自动翻译或阻止一些字符输入。VB程序能够包含一个或多个窗体，或是一个主窗体和多个子窗体，类似于操作系统样子。有极少功效对话框窗口（比如没有最大化和最小化按钮窗体）能够用来提供弹出功效。VB组件既能够拥有用户界面，也能够没有。这么一来服务器端程序就能够处理增加模块。VB使用参数计算方法来进行垃圾搜集，这个方法中包含有大量对象，提供基础面向对象支持。因为越来越多组建出现，程序员能够选择自己需要扩展库。和有些语言不一样，VB对大小写不敏感，不过能自动转换关键词到标准大小写状态，和强制使得符号表入口实体变量名称遵照书写规则。默认情况下字符串比较是对大小写敏感，不过能够关闭这个功效。VB使得大量外界控件有了自己生存空间。大量第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件方法，不过因为语言问题，从一个应用程序创建另外一个并不简单。2.2 SQL server 介绍SQL Server 是微软企业比较稳定大型数据库服务器，其性能指标在各方面全部有赶超Oracle数据库趋势。用它能够方便地管理数据库和开发应用程序，它使用了最优异数据库构架，和Windows NT/平台紧密集成，含有完全Web功效。经过对高端硬件平台、网络和存放技术支持，为WEB站和企业应用最大程度地提供了可扩展性和高可靠性，能在Internet商业领域快速建立并应用。另外，还增强了安全性，保护防火墙内外数据。支持基于角色安全并拥有安全审计工具。在经历了SQL Server 6.5和7.0两个版本尝试后，微软企业最终开始了大规模业务。记得在以前多种相关SQL Server文章，全部会将其定位成中小型应用方面，这种感觉被大家自然延续到了之中。其实这是一个误解。在过去很长一段时间中，微软企业聘用了世界上最优异数据库教授和专门搭建了信息量可谓空前地理信息系统，励精图治，就是为了摘掉扣在自己头上这顶帽子。有了强大性能和功效支持，再配合其一向为人称道易用性，SQL Server能够说成为了开发者手中一柄利器！另外，现在中国部分相关微软平台数据库编程教程，喜爱使用Access作为数据库平台案例，并展开相关内容。这其实对于开发真正数据库应用并没有直接帮助作用，只能使大家停留在应用初级阶段。SQL Server 提供很傻瓜缺省安装和使用模式，其上手难度并不比Access大。另外，SQL Server 能够兼顾小、中、大规模应用，有着远远比Access强大伸缩性。2.2.1 SQL server 数据库特点概括起来，SQL Server 数据库管理系统含有以下关键特点。1）、丰富图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）集成管理工具，利用它能够配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。另外，SQL Server 还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多个操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统易用性。2）、动态自动管理和优化功效。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中依据环境配置和用户访问情况动态自动配置，以达成最优性能，从而减轻管理职员作。3）、充足Internet技术支持。Internet网络发展到今天已经成为一条关键信息公布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术支持，这使得电子商务系统能够经过XML等访问SQL Server数据库系统，也扩展了SQL Server在数据挖掘和分析服务领域应用。4）、丰富编程接口工具，使用户开发SQL Server数据库应用程序愈加灵活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL和工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面需要。另外，SQL Server 还支持ODBC、OLE DB、ADO规范，能够使用ODBC、OLE DB、ADO接口访问SQL Server数据库。5）、含有很好伸缩性和可靠性。SQL Server 既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包含Windows NT和Windows ）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它含有很好伸缩性，能够满足从桌面应用到大型企业分布式应用到不一样层次用户要求。第三章 系统分析本学生成绩管理系统能够说是一个综合性学校学生管理系统，这它集成了学生信息管理、学生成绩管理、用户权限管理等多个功效，所以含有较强实用性。3.1系统及需求分析3.1.1系统需求经过调查,要求系统需要有以下功效: 要求有良好人机交互界面; 因为该系统使用对象多,要求有很好权限管理; 原始数据修改简单方便,支持多条件修改 方便数据查询，支持多条件查询; 在对应权限下，删除数据方便，数据稳定性好； 数据计算自动完成，尽可能降低人工干预。3.1.2需求分析现在计算机管理在日常生活中地位变得越来越关键。它能够替换人做多种反复、繁琐劳动，而且拥有操作简单、可信度好、不易犯错等优点，大大降低了无须要人力消耗，提升个人工作效率。学生信息查询是每个学校必需面临问题，所以，怎样开发一个应用简单、界面友好、轻易操作、数据安全性好管理系统就成为很关键技术问题。学生成绩管理系统设计和实现，是在班级学生处数据库基础上，只对学生成绩信息进行管理一个系统，是对学校教务管理系统补充，关键是针对教导员需要，关键包含三个用户群：一般用户、高级用户、超级用户。一般用户，关键需求有学生成绩查询、学生基础信息查询、一般用户密码修改。高级用户，关键需求有学生成绩管理、学生信息管理、一般用户和高级用户密码修改。超级用户，关键需求有学生成绩管理、学生信息管理、登录用户名管理。3.2 可行性分析因为本系统管理对象单一,且每个数据内容含有较强关联性，包含计算过程不是很复杂。所以，比较适合于采取数据库管理。在技术难度方面，因为有指导老师指导和相关参考文件，尤其是网上资料，尤其是参考其它程序功效，所以完全能够实现。3.2.1经济可行性分析伴随科学技术不停发展和创新，计算机作用日益突显，计算机软件成为大家处理问题一个有效手段，当然，它作用也越来越关键。在当今信息时代，国民经济和国防建设、社会发展、人民生活全部离不开软件，软件也无处不在。软件产业也是一个新兴产业，尽管起步晚，不过发展快速，已经成为增加最快产业，是含有高投入/高产出、无污染、低能耗绿色产业。学生成绩管理系统是一个基于教务处数据库一个管理系统，对已经使用类似系统进调查分析、类比，本课题含有特点：开发工作量小，能够有两个人合作开发或一个人独立开发，开发周期短，有熟练开发人员30天就能够完成系统开发和测试。3.2.2技术可行性分析从技术方面来说，Visual Basic是一个企业级、面向对象快速应用开发工具，是数据库最优异开发工具之一。Visual Basic完全支持面向对象开发，它拥有多个数据库接口，能够很方便地连接多种数据源，再加之其专利产品Data Window（数据窗口），经过SQL语句即可轻松地查询和更新后台数据库中数据。Visual Basic基于组件开发增强了面向对象技术，她提供一个更有效封装、管理、重用和扩展企业规则和处理高层路径。在数据操作方面，选择灵活、易用Microsoft SQL server数据源。3.3系统功效步骤图本系统在实施时，先依据不一样操作人员需要来进行对应模块，然后能够输入数据或进行其它查询或浏览等操作；总体来说，本系统属于一个权限型管理系统。学生成绩管理系统用户查询用户删除用户修改用户添加一般用户管理高级用户管理超级用户管理登录用户管理系统查询删除修改添加学生信息管理系统用户注册帮助文件帮助学生成绩管理系统界面模式界面返回界面退出学生成绩管理系统用户登录图2.1 系统功效步骤第四章 数据库设计4.1数据库设计本系统数据库是SQL server数据库，在SQL环境下创建数据库学生信息库.mdf文件。该数据库包含学生信息表、成绩信息表、用户登录信息表用于纪录学生基础信息数据库表结构以下所表示：4.1.1各表物理结构表3.1.1 学生信息表表3.1.1 学生成绩表1表3.1.1 学生档案表2表3.1.1 用户登录表4.2数据库链接4.2.1数据库链接代码Module Module1 Public admin As Boolean = True Public adminis As String Public grade As String Public Function link(ByVal i) As DataTable Dim sqlcon As New SqlConnection(data source=PC-03171305SQLEXPRESS;database=学生信息库;user id=sa;pwd=) 用连接对象连接数据库 Dim sqlad As SqlDataAdapter Dim ds As DataTable sqlad = New SqlDataAdapter(i, sqlcon) ds = New DataTable 数据集对象 Try sqlad.Fill(ds) 添加数据 Catch ex As Exception MessageBox.Show(ex.Message + Chr(10) + Chr(13) + ex.StackTrace) End Try Return ds End FunctionEnd Module4.2.2数据库链接操作第一步：附加数据库（对已经建好数据库进行附加）点击数据库右键附加。图附加数据库第二部：安全性设置，展开安全性，sa用户点击右键属性，进行安全性设置（密码设置、默认数据库设置），状态选择登录启用。图 安全性设置第三步：服务器属性设置，右击服务器属性，进行安全性设置。图 服务器属性设置第四步：重启服务器。右击服务器，选择重启服务器。图 重启服务器4.3数据库调试数据库成功附加、安全性设置、重启。图 数据库第五章 关键内容5.1登录界面图4.1登录界面设计过程：用于输入用户名和密码登录，选择对应用户类型进入系统，若是用户类型选择错误则不能进入系统。没有用户名可注册用户名，如对系统操作有不了解可点击帮助，进入帮助界面。输入用户名和密码后点击确定判定数据库中用户是否为正当用户。设计代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 选择一般用户登录 If Me.RadioButton1.Checked Then Dim str As String str = data source=PC-03171305SQLEXPRESS;database=学生信息库;user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 一般用户where 用户名= & TextBox1.Text.ToString().Trim() & and 密码= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加DToolStripMenuItem.Enabled = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = data source=PC-03171305SQLEXPRESS;database=学生信息库;user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 高级用户where 用户名= & TextBox1.Text.ToString().Trim() & and 密码= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 选择超级用户登录 If Me.RadioButton3.Checked Then Dim str As String str = data source=PC-03171305SQLEXPRESS;database=学生信息库;user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 超级用户where 用户名= & TextBox1.Text.ToString().Trim() & and 密码= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.Show() Me.Hide() Else MsgBox(对不起，用户名或密码错误！重新输入（请正确选择用户类型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If End Sub5.2学生成绩管理界面图4.2学生成绩管理界面设计过程：全部功效全部在菜单中打开来实现。在登录时选择用户类型限制本界面功效使用权限，不一样用户类型所显示可用功效不一样。一般用户可使用界面管理功效、学生信息管理中查询功效、登录用户管理中一般用户管理功效；高级用户拥有一般用户全部功效使用权限，外加登录用户管理中高级用户管理功效；超级用户拥有高级用户全部功效使用权限，外加超级用户管理功效；全部登录用户全部可使用界面管理功效和帮助功效。不一样权限拥有不一样功效。设计代码：Public Class 学生信息管理系统Private Sub 添加DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加DToolStripMenuItem.Click Dim tianjia As New 添加 tianjia.MdiParent = Me tianjia.Show() End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改KToolStripMenuItem.Click Dim xiugai As New 修改 xiugai.MdiParent = Me xiugai.Show() End SubPrivate Sub 删除DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除DToolStripMenuItem.Click Dim shanchu As New 删除 shanchu.MdiParent = Me shanchu.Show() End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click End End SubPrivate Sub 返回ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陆界面.Show() Me.Close() End SubPrivate Sub 信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查询 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click Dim yonghuguanli As New 用户信息管理 yonghuguanli.MdiParent = Me yonghuguanli.Show() End SubPrivate Sub 查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripMenuItem.Click Dim chaxun As New 查询 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 窗口层叠ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗口层叠ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End SubPrivate Sub 水平平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End SubPrivate Sub 垂直平铺ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平铺ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End SubPrivate Sub 修改密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click Dim 修改密码As New 高级用户密码修改 修改密码.MdiParent = Me 修改密码.Show() End SubPrivate Sub 修改一般用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改一般用户ToolStripMenuItem.Click Dim 修改密码As New 一般用户密码修改 修改密码.MdiParent = Me 修改密码.Show() End SubPrivate Sub 帮助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助ToolStripMenuItem.Click Dim 帮助As New 帮助文件 帮助.MdiParent = Me 帮助.Show() End SubEnd Class5.3学生信息管理5.3.1学生信息添加图4.3.1学生信息添加学生基础信息添加设计过程：选择学生信息添加，在对应栏目填入或选择对应内容，点击添加后数据存入学生信息表。点击退出则退出整个管理系统，点击返回则退回到学生成绩管理界面。（选择学生信息