VisualBasicSQL学生信息管理系统毕业设计样本.doc

摘 要

本系统后台数据库采用SQL Server 建立，前端应用程序采用Visual Basic 6.0开发。在Visual Basic 6.0中对Microsoft Active Data Object 2.7Library部件引用，并通过文献DSN方式对数据库进行访问和操作。
此学生信息管理系统针对四川传媒学院详细状况进行设计，管理员登录后能对班级信息、课程信息、学生基本信息、学生奖惩信息进行管理，涉及对信息添加、删除和更改，同步管理员能对访问者权限进行管理。教师顾客能对自己所担任课程进行课表查询、成绩管理。学生顾客登录后能对自己基本信息进行确认、查询成绩以及申请奖学金。
本系统通过多台计算机测试，运营正常，相对稳定。且系统初具规模，基本能胜任四川传媒学院学生综合信息管理。

核心词： 学生管理系统 信息管理系统 管理系统 学生信息管理

Abstracts

This system use SQL Server to build the backstage database，and use Visual Basic 6.0 to development the application program. In the Visual Basic，we select the Microsoft Active Data Object 2.7Library then we can opera the Database through file DSN.
This student information system build for Sichuan Media College based on her detail，Administrators could management the class information，class information，students information after they signed in，and they also have right to build，delete or change information，what’s more，Administrators can management the right that who use this information system. Teachers can management their classes score，and they have right to know their course arrangement. Students can confirmation themselves information after they signed in，and they can check their course score. Applying for a scholarship in this system is a good choice too.
The Sichuan media college students' information management system has tested on many PCs，they work quietly，safety and fast. And this system is a large system，could work for Sichuan Media College.

Keywords：Students management system MIS Management system Students information management

目 录

1 前言 1
2 开发工具简介 2
2.1 SQL Server 简介 2
2.2 Visual Basic 6.0简介 3
2.3 ADO组件重要对象及其功能 5
2.4 本系统Visual Basic 6.0访问数据库办法 5
3 系统分析与设计 7
3.1 系统功能分析 7
3.2 系统构造图 7
3.3 系统E—R图 8
3.4 数据库设计 8
4 系统详细实现 11
4.1 模块设计 11
4.2 登录窗体设计 12
4.3 系统主界面设计 15
4.4 班级信息管理设计 18
4.5 学生基本信息维护 20
4.6 课程信息维护 22
4.7 教务信息模块设计 23
4.8 奖惩信息模块设计 26
4.9 学费信息模块设计 28
4.10 管理员信息模块设计 30
5 结论 33
致 谢 34
参照文献 35

1 前言
学生信息管理系统是一种教诲单位不可缺少某些,它内容对于学校决策者和管理者来说都至关重要。长期以来人们使用老式纸质档案方式管理学生信息，这种管理方式存在着许多缺陷，如：效率低、保密性差，并且长时间会产生大量文献和数据，这对于查找、更新和维护都带来了不便。
随着科学技术不断提高，计算机科学日渐成熟，逐渐应用到各个领域。作为计算机应用一某些，使用计算机对学生信息进行管理，具备着纸质档案管理所无法比拟长处，例如：检索迅速、查找以便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些长处可以极大地提高学生信息管理效率，也是高校对信息科学化、正规化、无纸化管理发展方向。
本文简介了运用SQL server 建立数据库，Visual Basic 6.0作为前台软件开发工具开发学生管理系统。该系统从我校实际状况出发，对我校在校学生基本信息进行综合管理，涉及学生班级信息、课程信息、成绩信息、奖惩信息，同步设立了三种不同访问权限，分别是管理员、教师和学生，依照数据库中详细数据自动分派其登录后操作权限。管理员具备最高访问权限，能对所有信息进行综合编辑，教师顾客重要对自己所担任课程进行成绩登录，学生顾客能对自己基本信息进行查询和确认，涉及成绩信息、奖惩信息和密码更改。
本系统初具规模，能胜任在校学生基本信息综合管理工作，并且基于Visual basic进行开发软件具备界面和谐、操作简便长处。系统内部对每步操作均设立了有关提示信息，使用者不需对该软件进行长时间学习即能使用，达到了以便快捷又不失功能强大特点。

2 开发工具简介
2.1 SQL Server 简介
SQL Server 是微软公司最新版大型数据库服务器，其性能指标在各方面均有赶超Oracle数据库趋势。用它可以以便地管理数据库和开发应用程序，它使用了最先进数据库构架，与Windows NT/平台紧密集成，具备完全Web功能。通过对高品位硬件平台、网络和存储技术支持，为WEB站和公司应用最大限度地提供了可扩展性和高可靠性，能在Internet商业领域迅速建立并应用。SQL Server 提供非常傻瓜缺省安装和使用模式，其上手难度并不比Access大。此外，SQL Server 可以兼顾小、中、大规模应用，有着远远比Access强大伸缩性。
2.1.1 SQL Server 数据库特点
概括起来，SQL Server 数据库管理系统具备如下重要特点。
（1）丰富图形管理工具，使系统管理、操作更为直观以便。SQL Server公司管理器是一种基于图形顾客界面（GUI）集成管理工具，运用它可以配备管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和各种操作向导等图形界面管理工具，大大简化了顾客操作，从而增强了系统易用性。
（2）动态自动管理和优化功能。虽然SQL Server数据库管理员不做任何设立，SQL Server也可以在运营过程中依照环境配备和顾客访问状况动态自动配备，以达到最优性能，从而减轻管理员工作。
（3）丰富编程接口工具，使顾客开发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数据库。
（4）具备较好伸缩性和可靠性。SQL Server 既能运营在Windows桌面操作系统下，又可运营在服务器操作系统（涉及Windows NT和Windows ）下；既能运营在单CPU计算机上，又能运营在对称多解决系统下。因此，它具备较好伸缩性，可以满足从桌面应用到大型公司分布式应用到不同层次顾客规定。
2.2 Visual Basic 6.0简介
微软公司Visual Basic 6.0是Windows应用程序开发工具，是当前最为广泛、易学易用面向对象开发工具。Visual Basic提供了大量控件，这些控件可用于设计界面和实现各种功能，减少了编程人员工作量，也简化了界面设计过程，从而有效提高了应用程序运营效率和可靠性。运用VISUAL BASIC 程序设计语言，可以很以便地设计出在WINDOWS环境下运营应用程序。因而，本系统采用Visual Basic设计前端软件。
2.2.1 Visual Basic编程特点
Visual Basic语言浮现为Windows下编程提出了一种新概念，运用Visual Basic动态数据互换、对象链接和嵌入、动态链接库、ActiveX等技术可以很以便地设计出功能强大应用程序。运用Visual Basic语言编程有如下特点：
（1）可视化程序设计
在Visual Basic中开发应用程序，有丰富图形界面，减少了开发图形界面而添加代码，在设计图形界面过程中只需设立 ActiveX控件属性即可。
（2）强大数据库功能
随着Visual Basic 语言向前发展，在数据库和网络方面功能优势就更加明显，运用Visual Basic 中ODBC（开放式数据库访问技术）可以很以便地开发出自己数据库应用程序。同步，运用 Visual Basic自带可视化数据管理器和报表生成器，也可以在Visual Basic中完毕数据库开发工作。
（3）其她特性
在Visual Basic此前版本中，由于依然挣脱不理解释执行代码运营机制，因此在相称限度上制约了 Visual Basic 发展。从Visual Basic5.0版本开始，在Visual Basic 中制作应用程序都变化为编译执行，使得Visual Basic代码效率有了很大提高，同步执行速度也加快理解30%(同Visual Basic4.0相比)。
2.2.2 Visual Basic支持数据库系统
Visual Basic支持对多格式数据库访问和维护，无论是Access还是Foxpro中创立数据库，都可以用Visual Basic打开，对其进行查询、修改和删除等操作。事实上，Visual Basic几乎支持对市面上所有数据库访问。
Visual Basic可以访问数据库可以简朴分为三类，即：Microsoft Access格式数据库，外部数据库和ODBC数据库。Visual Basic对各种数据库格式支持，大大增强了开发数据库应用程序能力。
2.2.3 数据库开发中三大工具
Visual Basic在数据库应用程序开发领域中，提供包括数据管理（Data Manager），数据控件（Data Control）以及数据编程对象（数据访问对象（DAO）远程数据对象（RDO）和ActiveX数据对象（ADO））等工具，协助设计人员轻松连接数据库文献，并访问其中数据，在功能方面与其她某些专业数据库软件（如FoxPro，Microsoft Access等）不相上下。
数据管理器（Data Manager）是Visual Basic已有老成员之一，Jet数据库引擎（Database Engine）可以协助Visual Basic程序元件及时维护数据库内容，并可通过输入查询或查找数据库信息，而不必通过其她数据库软件此外去设计数据库。
数据控件是Visual Basic所提供基本控件成员之一，它使得设计者省下一堆程序代码编写工作，可以轻松设计及维护数据库内容。数据控件可以通过某些属性设立去链接某个数据库文献，但是它自身并无法显示数据库各个记录内容，必要在搭配其她具备数据感知（Data Aware）功能控件相应并显示一种字段内容，以以便地进行记录浏览及编辑工作。
Visual Basic提供数据访问对象（Data Access Object；DAO）让程序设计者拥有更大发挥空间。借助程序代码编写，直接控制Jet数据库引擎，配合数据库控件，可以开发出更具弹性且高效率数据应用程序。
RDO是解决远程数据库某些专门需要对象集合。使用RDO可以不用本地查询机就能访问ODBC数据源，这无疑提高了应用程序性能。
ADO是Visual Basic 6.0中新增对象，它是一种更简朴对象模型，它更好集成了其他数据访问技术，并且对本地和远程数据库均有共同界面，可以取代DAO和RDO。ADO更易于使用。
在本系统中运用数据管理器创立了数据库及数据库表，并采用了ADO+ODBC数据访问技术。
2.3 ADO组件重要对象及其功能
ADO组件又称为数据库访问组件，它提供了如下七种对象：
（1）Connection对象：提供对数据库连接服务。
（2）Command对象：定义对数据库源操作命令。
（3）Recordset对象：由数据库服务器所返回记录集。
Recordset对象LockType属性设立值如下表所示：
表2-1 Recordset对象LockType属性设立值
常量
值
阐明
adLockReadOnly
1
默认值，只读。无法更改数据
adLockPressimistic
2
保守式记录锁定（逐条）。提供者执行必要操作保证成功编辑记录，普通采用及时锁定数据源记录方式。
adLockOptimistic
3
开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用Updata办法时锁定记录。
adLockBatchOptimistic
4
开放式批更新。用于与及时更新模式相反批更新模式。
（4）Fields对象：由数据库服务器所返回单一数据字段
（5）Parametes对象：表达Command对象参数。
（6）Property对象：单独一种Property对象，提供属性功能。
（7）Error对象：提供解决错误功能。
使用ADO对象可以建立和管理数据库连接，按数据库服务器规定获得数据，执行更新、删除、添加数据等操作，获取ODBC错误信息等。
2.4 本系统Visual Basic 6.0访问数据库办法
在Visual Basic 6.0工程中，选取菜单“工程”—“引用”命令，在“可用引用”中选取Microsoft Active Data Object 2.7Library选项，这样就在程序中加入了ADO引用。
ADO通过ODBC方式访问数据库可以使用顾客DSN、系统DSN和文献DSN，鉴于安全性考虑，普通不使用系统DSN，本系统选用文献DSN。在设计过程中设立本系统文献DSN为first.dsn.通过文献DSN访问数据库代码如下：
Public Function ExecuteSQL(ByVal SQL As String，rst As ADODB.Recordset，Optional enableWrite As Boolean = True)
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "FileDSN=First.dsn"
Set rst = New ADODB.Recordset
If enableWrite Then
rst.Open Trim$(SQL)，con，adOpenDynamic，adLockOptimistic
Else
rst.Open Trim$(SQL)，con，adOpenDynamic，adLockReadOnly
End If
End Function

3 系统分析与设计
3.1 系统功能分析
随着学校规模不断扩大，学生数量急剧增长，关于学生各种信息量也成倍增长。通过这样系统可以做到信息规范管理、迅速查询、修改、增长、删除等，从而减少管理方面工作量。设计内容为管理员、教师和学生顾客登录该系统进行八个模块操作：
（1）学生基本状况更新：增长、修改、删除、查询（按学号）
（2）班级信息维护：添加班级、删除、编辑、查询（按班级编号）
（3）课程信息维护：添加课程、删除、编辑
（4）成绩管理：录入成绩（教师顾客）、查询成绩（管理员、学生顾客）
（5）奖惩信息维护：奖学金申请（学生顾客）、奖学金评估（管理员顾客）、惩处信息维护（管理员）
（6）学费信息：费用设立、欠费解决、缴费
（7）密码更改
（8）管理员角色添加（管理员顾客）
3.2 系统构造图

图3.1 系统构造图

3.3 系统E—R图

图3.2 系统E-R图
3.4 数据库设计
本系统通过SQL server 建立后台数据库，数据库共由11个表构成，分别是：访问权限信息表（访问权限）、学生基本状况信息表（学生信息）、班级信息表（班级信息）、课程信息、教师信息、选课表、处分信息、奖学金、学费信息、缴费信息、助学贷款信息表（贷款名单），下文将对重要表格进行简朴简介。
（1） 访问权限
表3-1 访问权限表设计
名称
字段名称
类型
长度
访问账号
账号
varchar
14
密码
密码
varchar
14
权限级别
权限
varchar
8
（2） 学生信息
表3-2 学生基本信息表设计
字段名称
类型
长度
NULL值
学号
varchar
14
NOT
姓名
varchar
8
NOT
班级编号
varchar
7
NOT
性别
varchar
2
NOT
年级
varchar
4
NOT
政治面貌
varchar
8
NULL
民族
varchar
4
NOT
籍贯
varchar
4
NOT
身份证号
varchar
18
NOT
学籍状态
varchar
4
NULL
（3） 班级信息
表3-3 班级信息表设计
字段名称
类型
长度
NULL值
班级编号
varchar
7
NOT
年级
varchar
4
NOT
班级名称
varchar
30
NOT
班级简称
varchar
16
NULL
人数
Int
5
NOT
班主任
varchar
8
NOT
（4） 课程信息
表3-4 课程信息表设计
字段名称
类型
长度
NULL值
课程代码
varchar
5
NOT
课程名称
varchar
50
NOT
课程性质
varchar
4
NOT
上学时间
varchar
20
NOT
上课地点
varchar
14
NULL
任课教师
varchar
8
NOT
学分
int
2
NOT
（5） 选课表
表3-5 选课表设计
字段名称
类型
长度
NULL值
学号
varchar
14
NOT
课程代码
varchar
5
NOT
成绩
float
20
NULL
（6） 教师信息

表3-6 教师表设计
字段名称
类型
长度
NULL值
账号
varchar
14
NOT
姓名
varchar
8
NOT
任课科目
varchar
50
NOT
（7） 处分信息
表3-8 处分信息表设计
字段名称
类型
长度
NULL值
学号
varchar
14
NOT
处分级别
varchar
12
NOT
阐明
varchar
50
NOT
填报时间
date

NOT
（8） 奖学金
表3-9 奖学金信息表设计
字段名称
类型
长度
NULL值
学号
varchar
14
NOT
平均成绩
float
20
NOT
申请标记
varchar
4
NULL

4 系统详细实现
本某些重要内容为本系统各个运营界面以及重要界面源代码。
4.1 模块设计
加一种模块module1，该某些重要涉及某些公共变量定义、ExecuteSQL等执行过程定义以及自动把备份数据库文献还原到SQL Server 中代码设计。
4.1.1 公共变量
Public 权限 As String
Public 账号1 As String
用于存储账号和权限，在访问过程中分派其访问权限以及当前登陆者密码更改。
4.1.2 SQL执行语句
Public Function ExecuteSQL(ByVal SQL As String，rst As ADODB.Recordset，Optional enableWrite As Boolean = True)
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "FileDSN=First.dsn"'打开文献DSN
Set rst = New ADODB.Recordset
If enableWrite Then
rst.Open Trim$(SQL)，con，adOpenDynamic，adLockOptimistic’以读写方式打开数据文献
Else
rst.Open Trim$(SQL)，con，adOpenDynamic，adLockReadOnly’以只读方式打开数据文献
End If
End Function
4.1.3 判断数据库中与否存在指定记录
Public Function DBExist(ByVal SQL As String) As Boolean '判断数据库中与否存在指定记录
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.Open "filedsn=first.dsn"
rst.Open Trim$(SQL)，con，adOpenStatic，adLockOptimistic
If rst.EOF = True Then
DBExist = False '没有此记录
Else
DBExist = True '有此记录
End If
End Function
4.1.4 DataGride中显示数据
Public Function viewData(ByVal SQL As String，dg As DataGrid，Optional enableWrite As Boolean = True) As Integer 'DataGride中显示数据
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.Open "filedsn=first.dsn"
If enableWrite Then
rst.Open Trim$(SQL)，con，adOpenStatic，adLockOptimistic
Set dg.DataSource = rst
dg.Refresh
Else
rst.Open Trim$(SQL)，con，adOpenStatic，adLockReadOnly
Set dg.DataSource = rst
dg.Refresh
End If
End Function
4.2 登录窗体设计
添加一种窗体（登录.frm），该某些重要涉及顾客验证以及权限限制。

登录功能程序代码：
Option Explicit
Dim SQL As String
Dim rst As ADODB.Recordset
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "请你填写完整！"，vbOKOnly + vbExclamation，"提示"
Else
SQL = "select 账号,权限 from 访问权限 where 账号='" + Trim(Text1.Text) + "'and 密码= '" + Trim(Text2.Text) + "'"
Call DBExist(SQL)
If DBExist(SQL) = True Then
账号1 = Trim(Text1.Text)
Call ExecuteSQL(SQL，rst，False)
权限 = rst.Fields(1)
Else
MsgBox "密码错误"，vbOKOnly + vbExclamation，"警告"
Text2.Text = ""
End If
End If
If 权限 = "学生" Then
学生.Show
登录.Hide
End If
If 权限 = "教师" Then
教师.Show
登录.Hide
End If
If 权限 = "管理员" Then
Form2.Show
登录.Hide
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub form_load()
Text1.Text = ""
Text2.Text = ""
End Sub

图4.1 登录界面
当在图4.1中填写不完整点击“登陆”按钮，则弹出报错信息，如图4.2所示：

图4.2 信息未填写完整
当输入顾客名或密码错误时，系统统一定义为密码填写错误，弹出如图4.3所示错误信息：

图4.3 密码错误
4.3 系统主界面设计
4.3.1 管理员身份进入系统
以管理员账号“赵男”及对的密码“”进入到系统，系统会自动依照访问权限中数据记录分派其访问权限，运营成果如下图所示：

图4.4 系统主页
系统主界面设计过程：添加Form2.frm，点击Visual Basic 6.0中工具，对系统主界面菜单进行编辑，编辑过程如下图所示：

图4.5 菜单编辑过程
菜单功能程序代码：
Private Sub form_load()
Form2.AutoRedraw = True
Image1.Stretch = True
Image1.Picture = LoadPicture("E:\VB学生信息\1.jpg")
End Sub
Private Sub 班级维护_Click()
Form2.Hide
banji.Show
End Sub
Private Sub 处分信息_Click()
cfxx.Show
Form2.Hide
End Sub
Private Sub 管理员密码修改_Click()
密码.Show
Form2.Hide
End Sub
Private Sub 管理员信息管理_Click()
管理员.Show
Form2.Hide
End Sub
Private Sub 奖学金评估_Click()
jxj.Show
Form2.Hide
End Sub
Private Sub 课程信息维护_Click()
Form2.Hide
kcxx.Show
End Sub
Private Sub 欠费解决_Click()
qfcl.Show
Form2.Hide
End Sub
Private Sub 退出系统_Click()
End
End Sub
Private Sub 学费设立_Click()
xfsz.Show
Form2.Hide
End Sub
Private Sub 学生缴费_Click()
Form2.Hide
xsjf.Show
End Sub
Private Sub 学生信息_Click()
Form2.Hide
cjcx.Show
End Sub
Private Sub 学生信息维护_Click()
Form2.Hide
xsxx.Show
End Sub
Private Sub 学生选课_Click()
Form2.Hide
xsxk.Show
End Sub
4.3.2 教师登录系统主界面设计
添加窗体教师.frm，如果教师键入对的密码和账号就进入到该界面，运营效果如图4.6所示，其设计过程与管理员主界面设计过程相似。教师登录主界面菜单功能代码为：
Private Sub form_load()
Form2.AutoRedraw = True
Image1.Stretch = True
Image1.Picture = LoadPicture("E:\VB学生信息\1.jpg")
End Sub
Private Sub 成绩管理_Click()
成绩录入.Show
教师.Hide
End Sub
Private Sub 密码修改_Click()
教师密码.Show
教师.Hide
End Sub
Private Sub 退出系统_Click()
End
End Sub

图4.6 教师登录主界面

4.3.3学生登录系统主界面设计
学生登录主界面设计与管理员、教师登录设计一致。
4.4 班级信息管理设计
该模块可以通过输入班级编号进行搜索显示，对详细班级进行编辑，也可以所有显示查看。添加新班级信息时在系统所提供界面进行输入，点击添加进行保存，删除班级信息时需要在班级编号栏输入拟删除班级班级编号，然后点击删除按钮。
整个显示过程是通过Visual Basic 中DataGrid空间显示，进行添加、删除或搜索操作后DataGrid会进行刷新显示新数据，在操作过程中如果遇到非法操作（如：不容许空值时无输入信息，输入文本超过限制长度等）时，系统会做出有关提示或警告。
该模块按“显示所有”功能运营时界面如图4.7所示：
图4.7 班级信息显示所有界面
该模块按“搜索”功能运营时界面如图4.8所示：

图4.8 班级信息管理搜索功能界面

该模块按“删除”功能运营时界面如图4.9所示：

图4.9删除功能

4.5 学生基本信息维护
4.5.1 学生信息维护简介
学生信息维护界面设计包括2个单选框、11个文本框、1个DataGrid控件以及6个按钮。单选框用于拟定搜索条件，系统设立了按班级搜索和按学号搜索两大功能，搜索成果用DataGrid控件刷新显示。界面下方文本框用于添加顾客时资料填写，点击相应“添加”按钮即可对数据库进行插入记录操作，“删除”按钮相应SQL中Delete语句，操作过程中均有有关警告和提示，以便顾客使用。运营界面如图4.10所示：

图4.10 学生信息维护运营界面
4.5.2 学生信息维护核心代码简介
1 搜索功能
SQL = "select * from 学生信息 where 学号 = '" + Trim(Text1.Text) + "'"
Call DBExist(SQL) ’查询数据库中与否存在要搜索记录
If DBExist(SQL) = True Then '记录中没有记录
Call viewData(SQL，DataGrid1，True) ’在DataGrid控件中进行显示
搜索条件为班级时，代码相似。按班级搜索功能运营界面如图4.11所示。

图4.11按班级搜索运营界面
2 添加功能

SQL = "insert into 学生信息 values('" + Trim(ID.Text) + "','" + Trim(xingming.Text) + "','" + Trim(class.Text) + "','" + Trim(sex.Text) + "','" + Trim(grade.Text) + "','" + Trim(zz.Text) + "','" + Trim(mz.Text) + "','" + Trim(jg.Text) + "','" + Trim(sfz.Text) + "','" + Trim(xj.Text) + "')"
Call ExecuteSQL(SQL，rst，True)
SQL = "select * from 学生信息 order by 学号 asc"
Call viewData(SQL，DataGrid1，True) ’在DataGrid控件中进行显示
3 删除功能
rst.Open "delete from 学生信息 where 学号= '" + Trim(ID.Text) + "'"，con，adOpenStatic，adLockOptimistic
rst.Open "select * from 学生信息"，con，adOpenStatic，adLockOptimistic
Set DataGrid1.DataSource = rst
DataGrid1.Refresh
删除学生信息运营如图4.12所示：

图4.12删除学生信息运营界面
4.6 课程信息维护
课程信息维护功能是对全校课程进行统一安排，如：上学时间、地点、任课教师等，该模块具备添加和删除功能，在DataGrid控件中进行实时刷新显示。运营界面如图4.13所示。
显示代码：
SQL = "select * from 课程信息 order by 课程代码 asc"
Call viewData(SQL，DataGrid1，True) ’在DataGrid中显示
DataGrid1.Refresh

图4.13 课程信息维护运营界面
4.7 教务信息模块设计
4.7.1 学生选课
该模块分为管理员和学生顾客两种模式，其功能重要对象是学生顾客。学生登录后系统会自动选用“选课表”中与登录学号相应选课表内容，学生选学时输入相应课程代码并点击“选课”即可添加课程，同步系统提供了删除课程功能，选课内容以及课程信息内容均采用DataGrid控件进行显示。
选课代码：
SQL = "select 课程代码 from 选课表 where 课程代码= '" + Trim(Text1.Text) + "'and 学