VB设计学生成绩管理系统
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Excel等），目前所有的关系数据库都符合该标准。ODBC本质上是一组数据库访
问API（应用程序编程接口），由一组函数调用组成，核心是SQL语句，他的结构
图如下图1：
图1.1
在具体操作时，首先必须用ODBC管理器注册一个数据源，管理器根据数据源提
供的数据库位置、数据库类型及ODBC驱动程序等信息，建立起ODBC与具体
(a)数据库访问接口：
(1) ODBC：
ODBC其实是开放式数据库互连（Open Database Conຫໍສະໝຸດ Baiduectivity），是微软公司
推出的一种实现应用程序和关系数据库之间通讯的方法标准，是一个接口标准。所
以它实际上是一种标准，符合标准的数据库就可以通过SQL语言编写的命令对数
据库进行操作，但只能针对关系数据库进行操作（如SQL Server，Oracle，Access，
（2）社会与经济可行性
利用学生信息管理系统实现了无纸化办公，提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作，可以在几个小时，最多几天内完成，大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排，第一时间录入到系统。学生也可以第一时间登录到该系统，查询自己本学期课程安排和考试方式，大大提高了时间成本。
End If
‘退出系统图标
If Button.Index = 3 Then
msQuitSys_Click
End If
End Sub
5.学生信息查询
目的与要求：了解使用控件怎么去显示数据库中的数据，同时了解查询的基本方法。
程序界面：
图5.1
主要功能：可以满足简单查询的需要，什么条件也不输则分页显示所有记录，可以输入条件进行简单的模糊查询，各条件之间为与的关系，在查询的结果中移动记录指针可以查看这个学生的具体选课信息
（6）设置StuKCADO的RecordSource属性为
select * from XS,KC,XS_KC
where XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH
（7）设置StuKCDG的DataSource属性为StuKCADO。
实现过程：直接打开时由于控件属性的设置，所以显示所有记录，当输入查询条件时点击查询按钮则调用MakeSqlStr函数产生查询字符串，然后重新设置控件的属性，打开控件显示查询结果集。当专业改变时调用StuZY_Click函数来分别显示所选的专业学生记录，当查询结果学生信息记录集中移动记录指针时，可以在下面的选课表中看到学生选课的信息。
(3) 使用记录集
(4) 断开连接
具体的应用后面在学生成绩录入中会介绍到。
2.VB连接SQL Server数据库
a)用可视ADODC控件连接数据库，如图将控件选择到工具栏。
（1）设置ADODC的ConnectionString属性。
（2）
图2.1
图2.2
（2）生成连接字符串。
图2.3
图2.4
（3）设置ADODC的RecordSource属性。
创建过程：
（1）在窗体上放入两个学生信息查询的ADODC和学生选课信息的ADODC、创建两个学生信息显示的DataGrid和学生选课信息显示的DataGrid，并分别起名为StuADO,StuKCADO,StuDG，StuKCDG。放入学号Edit、姓名Edit和专业下拉列表框,为了美观StuKCADO隐藏在StuKCDG这个后面。
b)用ADODB.CONNECTION对象连接数据库
（1）创建ADODB.CONNECTION对象
Private SqlCon As New ADODB.Connection
SqlCon.Provider = "SQLOLEDB"
SqlCon.Open "Server=microsof-cee903\dcr;DataBase=XSCJ;UID=wmx;PWD=1234;"
1.VB操作数据库简介
本章节主要介绍VB中操作数据库的一般方法，有ADO Data控件的连接、ADODB
对象的使用，当然在可视化的开发系统中用控件是的方法是比较简单的，但不是很灵活，相比较ADODB对象的方法比较灵活，但使用相对麻烦；这里读者会问，那这两个又是怎么去访问到数据库的呢？其实他们是通过一些接口去访问不同数据库的，而这些接口会屏蔽掉数据库访问协议和各个数据库之间的差别，这里最常用的有两种接口，一种就是ODBC、还有一种是OLE DB，下面我们介绍他们的结构：
Connection对象：连接对象，负责通过OLEDB或ODBC建立与数据库之间的连接。
Recordset对象：记录集对象，存放从数据库中得到的记录，这些可能是执行某条
SQL语句的结果。
Command对象：执行SQL语句返回Recordset类型的结果。
基本的用法：
(1) 连接数据源
(2) 打开记录集对象
⑵由于该系统的使用对象多,要求有较好的权限管理;
⑶原始数据修改简单方便,支持多条件修改
⑷方便的数据查询，支持多条件查询;
⑸在相应的权限下，删除数据方便简单，数据稳定性好；
⑹数据计算自动完成，尽量减少人工干预;
1.1.2可行性分析
（1）对象运用可行性
由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。
的方法访问各种数据，而不用考虑数据的具体存储地点、格式或类型，他的结构
图如下图2：
图1.2
(b)VB中数据库访问对象：
(1)ADO Data控件：
ADO Data控件使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑
定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控
VB学生成绩管理系统
1.系统概述
本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能，因而具有较强的实用性和先进性。
1.1系统及需求分析
1.1.1系统需求
通过调查,要求系统需要有以下功能:
⑴由于操作人员的计算机知识普遍较差,要求有良好的人机界面;
Set SqlRes=SqlCmd.Execute
3.学生成绩管理系统
本演示系统是一个用VB实现的简单的学生成绩管理系统，使用用可视ADODC控件和ADODB对象来访问后台数据库服务器的，包含学生信息的查询、学生休息的录入修改删除、学生成绩的录入修改，下面就分别说明各模块的具体实现。
4.系统主界面
图4.1
End If
If Trim(StuXM) <> "" Then
SqlStr = SqlStr + " and XM like '%" + Trim(StuXM.Text) + "%'"
的关系型数据库中的数据之外，还包括邮件数据、Web上的文本或图形、目录服
务(Directory Services)、以及主机系统中的文件和地理数据以及自定义业务对
象等。OLE DB标准的核心内容就是要求对以上这些各种各样的数据存储(Data
Store)都提供一种相同的访问接口，使得数据的使用者(应用程序)可以使用同样
图2.5
命令类型：
adCmdText：值1，表示命令为SQL语句。
adCmdTable：值2，表示命令为一表名。
adCmdStoredProc：值4，表示命令是一存储过程名。
adCmdUnknown：值8，表示不确定命令类型。
（4）此时数据源控件已连接好数据库，可以直接访问它，或者可以充当数据表格控件的数据源使用。
（2）使用ADODB.CONNECTION对象
Private SqlCmd As New ADODB.Command
‘指定Command对象所使用的连接
SqlCmd.ActiveConnection = SqlCon
SqlCmd.CommandText = "select * from XS"
‘执行命令
（3）设置StuADO的RecordSource属性为
select * from XS,CXB where XS.XB=CXB.XB
（4）设置StuDG的DataSource属性为StuADO。
（5）设置StuKCADO的ConnectionString属性为
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-cee903\dcr
学生信息查询、学生信息修改、学生成绩修改的index分别为3、6，7，8。
主要代码：
菜单Click的处理过程
退出系统菜单
Private Sub msQuitSys_Click()
End
End Sub
‘学生信息修改菜单
Private Sub msStuInfo_Click()
AddStu.Show
End Sub
ADODC在VB数据库程序设计中起了一个桥梁的作用，可以方便VB中的一些控
件直接和数据库关联，他的使用示意图如下：
图1.3
(2)ADODB对象
ADO是ActiveX Data Objects的缩写,是一项新的数据库的存取技术,他最主要包含三个对象，Connection、Recordset、Command，
‘学生成绩录入菜单
Private Sub msStuScore_Click()
AddStuScore.Show
End Sub
‘学生信息查询菜单
Private Sub msStuSearch_Click()
StuSearch.Show
End Sub
工具条Click的处理，分别对应调用菜单中的处理过程
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
主要功能：
主界面，导航作用，点击可进入操作窗口。
创建过程：
（1）创建菜单：
图4.2
分别起名为：学生信息查询(msStuSearch)、学生信息修改（msStuInfo）、
学生成绩修改（msStuScore）、退出系统（msQuitSys）
（2）创建工具条：
图4.3
创建工具条，创建ImageList控件，导入图标，与菜单关联；退出系统、
件。数据提供者可以是任何符合OLEDB规范的数据源,这里可能是对ADO的一
个封装，他访问数据库的接口可以使用ODBC、也可以使用OLEDB，但OLEDB
灵活，不用在系统中配置数据源，而且效率高，所以现在使用OLEDB更多点，下
面程序中也是用OLEDB来介绍的，下面简单介绍一下ADODC控件的使用层次图。
（2）设置StuADO的ConnectionString属性为
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-cee903\dcr
数据库的联系。这样，只要应用程序将数据源名提供给ODBC，ODBC就能建立
起与相应数据库的连接。
(2) OLE DB：
OLE DB：数据库链接和嵌入对象（Object Linking and Embedding
DataBase）。OLE DB是微软提出的基于COM思想且面向对象的一种技术标准，
目的是提供一种统一的数据访问接口访问各种数据源，这里所说的"数据"除了标准
‘学生信息查询图标
If Button.Index = 6 Then
msStuSearch_Click
End If
‘学生信息修改图标
If Button.Index = 7 Then
msStuInfo_Click
End If
‘学生成绩修改图标
If Button.Index = 8 Then
msStuScore_Click
主要代码：
根据学号、姓名的输入信息和专业的选择生成模糊查询的SQL字符串
Dim SqlStr As String‘保存查询字符串的
Public Sub MakeSqlStr()‘产生查询字符串的
SqlStr = ""
If Trim(StuXH) <> "" Then
SqlStr = "and XH like '%" + Trim(StuXH.Text) + "%'"
问API（应用程序编程接口），由一组函数调用组成，核心是SQL语句，他的结构
图如下图1：
图1.1
在具体操作时，首先必须用ODBC管理器注册一个数据源，管理器根据数据源提
供的数据库位置、数据库类型及ODBC驱动程序等信息，建立起ODBC与具体
(a)数据库访问接口：
(1) ODBC：
ODBC其实是开放式数据库互连（Open Database Conຫໍສະໝຸດ Baiduectivity），是微软公司
推出的一种实现应用程序和关系数据库之间通讯的方法标准，是一个接口标准。所
以它实际上是一种标准，符合标准的数据库就可以通过SQL语言编写的命令对数
据库进行操作，但只能针对关系数据库进行操作（如SQL Server，Oracle，Access，
（2）社会与经济可行性
利用学生信息管理系统实现了无纸化办公，提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作，可以在几个小时，最多几天内完成，大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排，第一时间录入到系统。学生也可以第一时间登录到该系统，查询自己本学期课程安排和考试方式，大大提高了时间成本。
End If
‘退出系统图标
If Button.Index = 3 Then
msQuitSys_Click
End If
End Sub
5.学生信息查询
目的与要求：了解使用控件怎么去显示数据库中的数据，同时了解查询的基本方法。
程序界面：
图5.1
主要功能：可以满足简单查询的需要，什么条件也不输则分页显示所有记录，可以输入条件进行简单的模糊查询，各条件之间为与的关系，在查询的结果中移动记录指针可以查看这个学生的具体选课信息
（6）设置StuKCADO的RecordSource属性为
select * from XS,KC,XS_KC
where XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH
（7）设置StuKCDG的DataSource属性为StuKCADO。
实现过程：直接打开时由于控件属性的设置，所以显示所有记录，当输入查询条件时点击查询按钮则调用MakeSqlStr函数产生查询字符串，然后重新设置控件的属性，打开控件显示查询结果集。当专业改变时调用StuZY_Click函数来分别显示所选的专业学生记录，当查询结果学生信息记录集中移动记录指针时，可以在下面的选课表中看到学生选课的信息。
(3) 使用记录集
(4) 断开连接
具体的应用后面在学生成绩录入中会介绍到。
2.VB连接SQL Server数据库
a)用可视ADODC控件连接数据库，如图将控件选择到工具栏。
（1）设置ADODC的ConnectionString属性。
（2）
图2.1
图2.2
（2）生成连接字符串。
图2.3
图2.4
（3）设置ADODC的RecordSource属性。
创建过程：
（1）在窗体上放入两个学生信息查询的ADODC和学生选课信息的ADODC、创建两个学生信息显示的DataGrid和学生选课信息显示的DataGrid，并分别起名为StuADO,StuKCADO,StuDG，StuKCDG。放入学号Edit、姓名Edit和专业下拉列表框,为了美观StuKCADO隐藏在StuKCDG这个后面。
b)用ADODB.CONNECTION对象连接数据库
（1）创建ADODB.CONNECTION对象
Private SqlCon As New ADODB.Connection
SqlCon.Provider = "SQLOLEDB"
SqlCon.Open "Server=microsof-cee903\dcr;DataBase=XSCJ;UID=wmx;PWD=1234;"
1.VB操作数据库简介
本章节主要介绍VB中操作数据库的一般方法，有ADO Data控件的连接、ADODB
对象的使用，当然在可视化的开发系统中用控件是的方法是比较简单的，但不是很灵活，相比较ADODB对象的方法比较灵活，但使用相对麻烦；这里读者会问，那这两个又是怎么去访问到数据库的呢？其实他们是通过一些接口去访问不同数据库的，而这些接口会屏蔽掉数据库访问协议和各个数据库之间的差别，这里最常用的有两种接口，一种就是ODBC、还有一种是OLE DB，下面我们介绍他们的结构：
Connection对象：连接对象，负责通过OLEDB或ODBC建立与数据库之间的连接。
Recordset对象：记录集对象，存放从数据库中得到的记录，这些可能是执行某条
SQL语句的结果。
Command对象：执行SQL语句返回Recordset类型的结果。
基本的用法：
(1) 连接数据源
(2) 打开记录集对象
⑵由于该系统的使用对象多,要求有较好的权限管理;
⑶原始数据修改简单方便,支持多条件修改
⑷方便的数据查询，支持多条件查询;
⑸在相应的权限下，删除数据方便简单，数据稳定性好；
⑹数据计算自动完成，尽量减少人工干预;
1.1.2可行性分析
（1）对象运用可行性
由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。
的方法访问各种数据，而不用考虑数据的具体存储地点、格式或类型，他的结构
图如下图2：
图1.2
(b)VB中数据库访问对象：
(1)ADO Data控件：
ADO Data控件使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑
定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控
VB学生成绩管理系统
1.系统概述
本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能，因而具有较强的实用性和先进性。
1.1系统及需求分析
1.1.1系统需求
通过调查,要求系统需要有以下功能:
⑴由于操作人员的计算机知识普遍较差,要求有良好的人机界面;
Set SqlRes=SqlCmd.Execute
3.学生成绩管理系统
本演示系统是一个用VB实现的简单的学生成绩管理系统，使用用可视ADODC控件和ADODB对象来访问后台数据库服务器的，包含学生信息的查询、学生休息的录入修改删除、学生成绩的录入修改，下面就分别说明各模块的具体实现。
4.系统主界面
图4.1
End If
If Trim(StuXM) <> "" Then
SqlStr = SqlStr + " and XM like '%" + Trim(StuXM.Text) + "%'"
的关系型数据库中的数据之外，还包括邮件数据、Web上的文本或图形、目录服
务(Directory Services)、以及主机系统中的文件和地理数据以及自定义业务对
象等。OLE DB标准的核心内容就是要求对以上这些各种各样的数据存储(Data
Store)都提供一种相同的访问接口，使得数据的使用者(应用程序)可以使用同样
图2.5
命令类型：
adCmdText：值1，表示命令为SQL语句。
adCmdTable：值2，表示命令为一表名。
adCmdStoredProc：值4，表示命令是一存储过程名。
adCmdUnknown：值8，表示不确定命令类型。
（4）此时数据源控件已连接好数据库，可以直接访问它，或者可以充当数据表格控件的数据源使用。
（2）使用ADODB.CONNECTION对象
Private SqlCmd As New ADODB.Command
‘指定Command对象所使用的连接
SqlCmd.ActiveConnection = SqlCon
SqlCmd.CommandText = "select * from XS"
‘执行命令
（3）设置StuADO的RecordSource属性为
select * from XS,CXB where XS.XB=CXB.XB
（4）设置StuDG的DataSource属性为StuADO。
（5）设置StuKCADO的ConnectionString属性为
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-cee903\dcr
学生信息查询、学生信息修改、学生成绩修改的index分别为3、6，7，8。
主要代码：
菜单Click的处理过程
退出系统菜单
Private Sub msQuitSys_Click()
End
End Sub
‘学生信息修改菜单
Private Sub msStuInfo_Click()
AddStu.Show
End Sub
ADODC在VB数据库程序设计中起了一个桥梁的作用，可以方便VB中的一些控
件直接和数据库关联，他的使用示意图如下：
图1.3
(2)ADODB对象
ADO是ActiveX Data Objects的缩写,是一项新的数据库的存取技术,他最主要包含三个对象，Connection、Recordset、Command，
‘学生成绩录入菜单
Private Sub msStuScore_Click()
AddStuScore.Show
End Sub
‘学生信息查询菜单
Private Sub msStuSearch_Click()
StuSearch.Show
End Sub
工具条Click的处理，分别对应调用菜单中的处理过程
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
主要功能：
主界面，导航作用，点击可进入操作窗口。
创建过程：
（1）创建菜单：
图4.2
分别起名为：学生信息查询(msStuSearch)、学生信息修改（msStuInfo）、
学生成绩修改（msStuScore）、退出系统（msQuitSys）
（2）创建工具条：
图4.3
创建工具条，创建ImageList控件，导入图标，与菜单关联；退出系统、
件。数据提供者可以是任何符合OLEDB规范的数据源,这里可能是对ADO的一
个封装，他访问数据库的接口可以使用ODBC、也可以使用OLEDB，但OLEDB
灵活，不用在系统中配置数据源，而且效率高，所以现在使用OLEDB更多点，下
面程序中也是用OLEDB来介绍的，下面简单介绍一下ADODC控件的使用层次图。
（2）设置StuADO的ConnectionString属性为
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-cee903\dcr
数据库的联系。这样，只要应用程序将数据源名提供给ODBC，ODBC就能建立
起与相应数据库的连接。
(2) OLE DB：
OLE DB：数据库链接和嵌入对象（Object Linking and Embedding
DataBase）。OLE DB是微软提出的基于COM思想且面向对象的一种技术标准，
目的是提供一种统一的数据访问接口访问各种数据源，这里所说的"数据"除了标准
‘学生信息查询图标
If Button.Index = 6 Then
msStuSearch_Click
End If
‘学生信息修改图标
If Button.Index = 7 Then
msStuInfo_Click
End If
‘学生成绩修改图标
If Button.Index = 8 Then
msStuScore_Click
主要代码：
根据学号、姓名的输入信息和专业的选择生成模糊查询的SQL字符串
Dim SqlStr As String‘保存查询字符串的
Public Sub MakeSqlStr()‘产生查询字符串的
SqlStr = ""
If Trim(StuXH) <> "" Then
SqlStr = "and XH like '%" + Trim(StuXH.Text) + "%'"