计算机VB+SQL学生成绩管理系统

目录

摘 要 ........................................................................ 2 第1章 绪 论 ................................................................. 3

1.1引 言 ................................................................. 3 1.2设计目的及意义 ........................................................ 3 第2章 开发环境和工具 ........................................................ 4

2.1 Visual Basic简介 ..................................................... 5

2.1.1 Visual Basic语言特性 ............................................ 5 2.2 SQL server 2005简介 .................................................. 6

2.2.1 SQL server 2005数据库特点 ....................................... 7

第3章 系统分析 .............................................................. 9

3.1系统及需求分析 ........................................................ 9

3.1.1系统需求 ......................................................... 9 3.1.2需求分析 ........................................................ 10 3.2 可行性分析 ........................................................... 10

3.2.1经济可行性分析 .................................................. 10 3.2.2技术可行性分析 .................................................. 11 3.3系统功能流程图 ....................................................... 11 第4章 数据库的设计 ......................................................... 13

4.1数据库设计 ........................................................... 13

4.1.1各表的物理结构 .................................................. 13 4.2数据库链接 ........................................................... 14

4.2.1数据库链接代码 .................................................. 14 4.2.2数据库链接操作 .................................................. 15 4.3数据库调试 ........................................................... 17 第5章 主要内容 ............................................................. 19

5.1登录界面 ............................................................. 19 5.2学生成绩管理界面 ..................................................... 22 5.3学生信息管理 ......................................................... 25

5.3.1学生信息添加 .................................................... 25 5.3.2学生信息修改 .................................................... 28 5.3.3学生信息删除 .................................................... 30 5.3.4学生信息查询 .................................................... 31 5.4登录用户管理 ......................................................... 32

5.4.1普通用户管理 .................................................... 32 5.4.2高级用户管理 .................................................... 33 5.4.3超级用户管理 .................................................... 34 5.5用户注册 ............................................................. 38 5.6帮助界面 ............................................................. 40 总 结 ....................................................................... 41 参考文献 .................................................................... 42

摘 要

随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。

本系统是在管理信息系统的理论和方法指导下、数据库技术支持下完成的。本文在结构上首先论述了毕业设计目的和意义，然后叙述了开发环境、开发平台以及数据库技术，接着用图片、说明和代码的方式介绍了系统的整体规划，接下来是系统在具体实现中的详细内容，最终本系统能够完成信息的添加、修改、删除、查询等功能，本系统界面友好，操作简单，比较实用，思路缜密严谨，管理起来方便快捷，能有效的达到学生信息的管理的目的。

关键词：VB,SQL server2005,界面，权限。

第1章 绪 论

1.1引 言

人类有几千年的历史，计算机从产生到现在只不过50多年，而网络的迅速发展也不过10年的时间。但是，计算机和网络对社会的影响已经迅速扩大，甚至在改变人们的生活。特别是90年代以来，多媒体和网络技术的飞速发展正在以惊人的速度改变着人们的工作方式、交往方式和生活方式。正像著名的未来学家尼葛洛庞帝（1997）所说的：“数字不再只和计算有关，它决定我们的生存。”科学技术是第一生产力，是最先进的生产力。现在,已经没有人怀疑信息技术的发展将会引起人类社会全面和深刻的变革，使人类社会由工业社会迈向信息社会。目前，在社会各个方面都呈现出了与工业社会显著不同的特点。网上书店，网上医院，网上学校，网上购物，网上银行，政府上网等新事物如雨后春笋般涌现出来，对人们的传统生活方式、工作方式产生极大的冲击。使人们感受到技术发展的脉搏和信息时代前进的步伐。

随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。

1.2设计目的及意义

本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到用户登录的权限，针对学生信息和权限登录的学生成绩管理系统。

本系统主要包括注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功能主要有：

? 学生信息的添加，包括输入学生基本信息和成绩。

? 学生信息的查询，包括查询学生基本信息和成绩。 ? 学生信息的修改，包括修改学生基本信息和成绩。 ? 学生信息的删除，包括修改学生基本信息和成绩。

? 用户名注册，包括普通用户注册、高级用户注册和超级用户注册。 ? 登录用户密码修改，用户登录到系统可进行相应的用户密码修改。 ? 超级用户对用户名的管理，包括添加新用户、修改用户密码、删除用户

名和查询用户。

学生成绩管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。

经过分析，我们使用MICROSOFT公司的Visual Basic2005开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统

第2章 开发环境和工具

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 2005简介

SQL Server 2005是微软公司比较稳定的大型数据库服务器，其性能指标在各方面都有赶超Oracle数据库的趋势。用它可以方便地管理数据库和开发应用程序，它使用了最先进的数据库构架，与Windows NT/2000平台紧密集成，具有完全的Web功能。通过对高端硬件平台、网络和存储技术的支持，为WEB站

和企业的应用最大限度地提供了可扩展性和高可靠性，能在Internet商业领域快速建立并应用。此外，还增强了安全性，保护防火墙内外的数据。支持基于角色的安全并拥有安全审计工具。在经历了SQL Server 6.5和7.0两个版本的尝试后，微软公司终于开始了大规模的业务。记得在以前各种关于SQL Server的文章，都会将其定位成中小型应用方面，这种感觉被大家自然的延续到了2000版之中。其实这是一种误解。在过去的很长一段时间中，微软公司聘请了世界上最优秀的数据库专家以及专门搭建了信息量可谓空前的地理信息系统，励精图治，就是为了摘掉扣在自己头上的这顶帽子。有了强大的性能和功能支持，再配合其一向为人称道的易用性，SQL Server可以说成为了开发者手中的一柄利器！

另外，目前国内的一些关于微软平台的数据库编程教程，喜欢使用Access作为数据库平台的案例，并展开相关的内容。这其实对于开发真正的数据库应用并没有直接的帮助作用，只能使大家停留在应用的初级阶段。SQL Server 2005提供的非常傻瓜的缺省安装和使用模式，其上手难度并不比Access大。另外，SQL Server 2005可以兼顾小、中、大规模的应用，有着远远比Access强大的伸缩性。

2.2.1 SQL server 2005数据库特点

概括起来，SQL Server 2005数据库管理系统具有以下主要特点。 1）、丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2005还提供了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 2000还支持ODBC、OLE DB、ADO规范，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库。

5）、具有很好的伸缩性和可靠性。SQL Server 2005既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。

第3章 系统分析

本学生成绩管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生信息管理、学生成绩管理、用户权限管理等多种功能，因而具有较强的实用性。

3.1系统及需求分析

3.1.1系统需求

通过调查,要求系统需要有以下功能: ? 要求有良好的人机交互界面;

? 由于该系统使用对象多,要求有较好的权限管理; ? 原始数据修改简单方便,支持多条件修改 ? 方便的数据查询，支持多条件查询;

? 在相应的权限下，删除数据方便，数据稳定性好； ? 数据计算自动完成，尽量减少人工干预。

3.1.2需求分析

目前计算机管理在日常生活中的地位变得越来越重要。它能够代替人做各种重复、繁琐的劳动，并且拥有操作简单、可信度好、不易出错等优点，大大减少了不必要的人力消耗，提高个人的工作效率。学生信息查询是每个学校必须面临的问题，所以，如何开发一个应用简单、界面友好、容易操作、数据安全性好的管理系统就成为非常重要的技术问题。

学生成绩管理系统的设计与实现，是在班级学生处数据库基础上，只对学生成绩信息进行管理的一个系统，是对学校教务管理系统的补充，主要是针对辅导员的需要，主要包括三个用户群：普通用户、高级用户、超级用户。

普通用户，主要的需求有学生成绩查询、学生基本信息查询、普通用户密码修改。

高级用户，主要的需求有学生成绩管理、学生信息管理、普通用户和高级用户密码修改。

超级用户，主要的需求有学生成绩管理、学生信息管理、登录用户名管理。

3.2 可行性分析

由于本系统管理的对象单一,且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。 3.2.1经济可行性分析

随着科学技术的不断发展与创新，计算机作用的日益突显，计算机软件成为人们解决问题的一个有效手段，当然，它的作用也越来越重要。在当今信息时代，国民经济和国防建设、社会发展、人民生活都离不开软件，软件也无处不在。

软件产业也是一个新兴产业，尽管起步晚，但是发展迅速，已经成为增长最快的产业，是具有高投入/高产出、无污染、低能耗的绿色产业。学生成绩管理

图 安全性设置

第三步：服务器属性设置，右击服务器属性，进行安全性设置。

图 服务器属性设置

第四步：重启服务器。右击服务器，选择重启服务器。

图 重启服务器

4.3数据库调试

数据库成功附加、安全性设置、重启。

数据库

图

第5章 主要内容

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 = \source=PC-201103171305\\SQLEXPRESS;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 = \普通用户where 用户名='\ &

TextBox1.Text.ToString().Trim() & \密码='\ & 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

MessageBox.Show(\删除记录\ & ComboBox1.Text & \成功\, \删除成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If

End Sub

5.3.4学生信息查询

图4.3.4学生信息查询

设计过程：

选择查询的学生信息类型，输入所要查询的学生学号，点击查询即可，在下面会显示你所查询学生信息。点击刷新能及时更新最新的学生信息。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.RadioButton1.Checked Then

xh = \成绩表where 学号='\ & Me.TextBox2.Text.Trim & \ ElseIf Me.RadioButton2.Checked Then

xh = \成绩表where 学号='\ & Me.TextBox2.Text.Trim & \ ElseIf Me.RadioButton3.Checked Then

xh = \学生信息表where 学号='\ & Me.TextBox2.Text.Trim & \

End If tianxuehao()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.TextBox2.Text = \

If Me.RadioButton1.Checked Then xh = \成绩表\ tianxuehao()

ElseIf Me.RadioButton2.Checked Then xh = \成绩表\ tianxuehao()

ElseIf Me.RadioButton3.Checked Then xh = \学生信息表\ tianxuehao() End If

End Sub

5.4登录用户管理

5.4.1普通用户管理

图4.4.1普通用户管理

设计过程：

在普通用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xh = \普通用户 where 用户名='\ & Me.TextBox1.Text.Trim & \ If Me.TextBox2.Text.Trim = String.Empty Then

MessageBox.Show(\密码不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

str = \普通用户 set 密码='\ & Me.TextBox2.Text.Trim & \用户名='\ & Me.TextBox1.Text.Trim & \

If Not link(str).Rows.Count Then

MessageBox.Show(\修改普通用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

End Sub

5.4.2高级用户管理

图4.4.2高级用户管理

设计过程：

在高级用户密码修改界面，输入所要修改的自己或者别人的用户名，填入新的密码，点击提交即可修改相应的用户名密码。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xh = \高级用户 where 用户名='\ & Me.TextBox1.Text.Trim & \ If Me.TextBox2.Text.Trim = String.Empty Then

MessageBox.Show(\密码不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

Str = \高级用户 set 密码='\ & Me.TextBox2.Text.Trim & \用户名='\ & Me.TextBox1.Text.Trim & \

If Not link(Str).Rows.Count Then

MessageBox.Show(\修改高级用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

End Sub

5.4.3超级用户管理

图4.4.3超级用户管理

设计过程：

正确选择所要操作的用户类型，在用户信息管理界面可添加用户、修改用户、删除用户、查询用户等功能，这是一个只有超级用户才拥有的权限功能，这个界

面功能可操作学生成绩管理系统的用户登录信息，方面了超级用户对用户名和密码的管理。

设计代码： 用户添加代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox1.Text.Trim = String.Empty Then

MessageBox.Show(\用户名不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error)

ElseIf Me.TextBox2.Text.Trim = String.Empty Then

MessageBox.Show(\密码不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If

If Me.RadioButton1.Checked Then

Dim str As String = \普通用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then str = Nothing

str = \into 普通用户\ & \(用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str)

MessageBox.Show(\普通用户\ & Me.TextBox1.Text & \已成功\, \添加成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) Else

MessageBox.Show(\记录\ & Me.TextBox1.Text & \已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If

If Me.RadioButton2.Checked Then

Dim str As String = \高级用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then str = Nothing

str = \into 高级用户\ & \(用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str)

MessageBox.Show(\高级用户\ & Me.TextBox1.Text & \已成功\, \添加成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) Else

MessageBox.Show(\记录\ & Me.TextBox1.Text & \已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error)

End If End If

If Me.RadioButton3.Checked Then

Dim str As String = \超级用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then str = Nothing

str = \into 超级用户\ & \(用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str)

MessageBox.Show(\超级用户\ & Me.TextBox1.Text & \已成功\, \添加成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) Else

MessageBox.Show(\记录\ & Me.TextBox1.Text & \已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If

End Sub

用户修改代码：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Me.TextBox3.Text.Trim = String.Empty Then

MessageBox.Show(\密码不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If Me.RadioButton1.Checked Then

str = \普通用户 set 密码='\ & Me.TextBox3.Text.Trim & \用户名='\ & Me.ComboBox1.Text.Trim & \

If Not link(str).Rows.Count Then

MessageBox.Show(\修改普通用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

If Me.RadioButton2.Checked Then

str = \高级用户 set 密码='\ & Me.TextBox3.Text.Trim & \用户名='\ & Me.ComboBox1.Text.Trim & \

If Not link(str).Rows.Count Then

MessageBox.Show(\修改高级用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If

If Me.RadioButton3.Checked Then

str = \超级用户 set 密码='\ & Me.TextBox3.Text.Trim & \用户名='\

& Me.ComboBox1.Text.Trim & \

If Not link(str).Rows.Count Then

MessageBox.Show(\修改超级用户密码成功！\, \提示\, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End If End If

End Sub

用户删除代码：

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If Me.RadioButton1.Checked Then

Dim str As String = \普通用户 where 用户名='\ & ComboBox2.Text.Trim & \

link(str)

MessageBox.Show(\删除普通用户记录\ & ComboBox2.Text & \, \删除成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) End If

If Me.RadioButton2.Checked Then

Dim str As String = \高级用户 where 用户名='\ & ComboBox2.Text.Trim & \

link(str)

MessageBox.Show(\删除高级用户记录\ & ComboBox2.Text & \, \删除成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) End If

If Me.RadioButton3.Checked Then

Dim str As String = \超级用户 where 用户名='\ & ComboBox2.Text.Trim & \

link(str)

MessageBox.Show(\删除超级用户记录\ & ComboBox2.Text & \, \删除成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) End If

End Sub

用户查询代码：

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If Me.RadioButton1.Checked Then

xh = \普通用户 where 用户名='\ & Me.TextBox6.Text.Trim & \ ElseIf Me.RadioButton2.Checked Then

xh = \高级用户 where 用户名='\ & Me.TextBox6.Text.Trim & \ ElseIf Me.RadioButton3.Checked Then

xh = \超级用户 where 用户名='\ & Me.TextBox6.Text.Trim & \

End If chaxun()

End Sub

5.5用户注册

图4.5用户注册

设计过程：

进入用户注册界面后输入所要注册用户名和密码，再次确定后，选择所要注册的用户类型，点击提交后即可把相应的用户名和密码存入相应的用户信息表。

设计代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox1.Text.Trim = String.Empty Then

MessageBox.Show(\用户名不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error)

ElseIf Me.TextBox2.Text.Trim = String.Empty Then

MessageBox.Show(\密码不能为空\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If

If Me.RadioButton1.Checked Then

Dim str As String = \普通用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then

If Me.TextBox3.Text = Me.TextBox2.Text Then

str = Nothing

str = \普通用户\ & \用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str)

MessageBox.Show(\普通用户\ & Me.TextBox1.Text & \已成功\, \添加成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) Else

MessageBox.Show(\两次密码不一致\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If Else

MessageBox.Show(\记录\ & Me.TextBox1.Text & \已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If

If Me.RadioButton2.Checked Then

Dim str As String = \高级用户\ & \用户名='\ & Me.TextBox1.Text.Trim & \

If link(str).Rows.Count = 0 Then

If Me.TextBox3.Text = Me.TextBox2.Text Then str = Nothing

str = \高级用户\ & \用户名,密码) values ('\ & Me.TextBox1.Text.Trim & \ & Me.TextBox2.Text.Trim & \ link(str)

MessageBox.Show(\高级用户\ & Me.TextBox1.Text & \已成功\, \添加成功\, MessageBoxButtons.OK, MessageBoxIcon.Information) Else

MessageBox.Show(\两次密码不一致\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If Else

MessageBox.Show(\记录\ & Me.TextBox1.Text & \已存在\, \添加失败\, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If

End Sub

5.6帮助界面

图4.6帮助界面

设计过程：

从登陆界面或者学生成绩管理界面进入帮助界面后，可有选择的了解用户操作的方法，点击关闭按钮回到登陆界面或者学生成绩管理界面。

总 结

在毕业设计中，我们遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。

在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。

在程序编写中，我认识到软件要有简便的界面，良好的程序风格。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。

我认为，所谓友好的界面，就是用户需要的界面，力求简便全面。所以设计一个界面时，开发人员必须要了解用户的想法，从用户的角度去设计，当然，开发不能全听用户的意见，在详细分析了系统后，开发人员可以向用户提出一些修改的意见，在双方多次交流后定出程序所需的功能，以决定界面的实现。

在编码中，良好的编程风格与习惯是提高工作效率的一个重要方面，而且良好的编程风格与习惯也是使软件便于维护的基础。那如何是良好的编程风格与习惯呢？我认为主要是程序的模块化、必要的注释。所谓模块化就是使程序的功能实现分成多个单独的功能模块，而不能在一大段代码中实现多个功能，如果这样做，别的人是非常难读懂你的程序。必要的注释，显而易见是要在程序的编写中加入对程序的说明，原因就是为了别人能读懂你的程序，过一段时间后你自己还能读懂自己的程序。

最后说明下这次毕业设计给我感受最深的有三点：

1．进行管理系统开发这样的工作，要有恒心，要能静下新来做，而不能浮躁。

2．要善于同别人交流与合作，善于获取各种有用的资源。 3．要真真实实的多查资料，多问，多看。

参考文献

[1] 《学用Visual Basic 编程》潭浩著西安电子科技大学出版社 [2] 《数据库原理》 丁宝康 施伯乐著 经济科学出版社

[3] 《SQL Server数据库开发入门与范例解析》 夏邦贵著 北京机械工业出版社

[4] 《SQL Server 2005应用开发技术指南》

彭东著北京清华大学出版社

本文来源：https://www.bwwdw.com/article/m5ax.html