VisualBasicSQL学生信息管理系统设计说明.doc

《VisualBasicSQL学生信息管理系统设计说明.doc》由会员分享，可在线阅读，更多相关《VisualBasicSQL学生信息管理系统设计说明.doc（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 . Visual_Basic SQL学生信息管理系统毕业设计摘 要本系统后台数据库采用SQL Server 2008建立，前端应用程序采用Visual Basic 6.0开发。在Visual Basic 6.0中对Microsoft Active Data Object 2.7Library部件的引用，并通过文件DSN的方式对数据库进行访问和操作。此学生信息管理系统针对学院的具体情况进行设计，管理员登录后能对班级信息、课程信息、学生基本信息、学生奖惩信息进行管理，包括对信息的添加、删除和更改，同时管理员能对访问者的权限进行管理。教师用户能对自己所担任课程进行课表查询、成绩管理。学生用户登录后

2、能对自己的基本信息进行确认、查询成绩以与申请奖学金。本系统经过多台计算机测试，运行正常，相对稳定。且系统初具规模，基本能胜任学院的学生综合信息管理。关键词： 学生管理系统 信息管理系统 管理系统 学生信息管理AbstractsThis system use SQL Server 2008 to build the backstage database, and use Visual Basic 6.0 to development the applicationprogram. In the Visual Basic, we select the Microsoft Active Data O

3、bject 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

4、, delete or change information, whats 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

5、 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 SichuanMediaCollege.Keywords:St

6、udents management systemMISManagementsystemStudentsinformation management目 录1前言12开发工具介绍22.1SQL Server 2008简介22.2Visual Basic 6.0简介32.3ADO组件的主要对象与其功能52.4本系统Visual Basic 6.0访问数据库方法53系统分析与设计73.1系统功能分析73.2系统结构图73.3系统ER图83.4数据库设计84系统具体实现114.1模块设计114.2登录窗体设计124.3系统主界面的设计154.4班级信息管理设计184.5学生基本信息维护204.6课程信息

7、维护224.7教务信息模块设计234.8奖惩信息模块设计264.9学费信息模块设计284.10管理员信息模块设计305结论33致34参考文献3534 / 371 前言学生信息管理系统是一个教育单位不可缺少的部分,它的容对于学校的决策者和管理者来说都至关重要。长期以来人们使用传统纸质档案的方式管理学生信息，这种管理方式存在着许多缺点，如：效率低、性差，而且长时间会产生大量的文件和数据，这对于查找、更新和维护都带来了不便。随着科学技术的不断提高，计算机科学日渐成熟，逐渐应用到各个领域。作为计算机应用的一部分，使用计算机对学生信息进行管理，具有着纸质档案管理所无法比拟的优点，例如：检索迅速、查找方便

8、、可靠性高、存储量大、性好、寿命长、成本低等。这些优点能够极提高学生信息管理的效率，也是高校对信息的科学化、正规化、无纸化管理的发展方向。本文介绍了利用SQL server 2008建立数据库，Visual Basic 6.0作为前台软件开发工具开发的学生管理系统。该系统从我校的实际情况出发，对我校在校学生的基本信息进行综合管理，包括学生班级信息、课程信息、成绩信息、奖惩信息，同时设置了三种不同的访问权限，分别是管理员、教师和学生，根据数据库中的具体数据自动分配其登录后的操作权限。管理员具有最高访问权限，能对所有信息进行综合编辑，教师用户主要对自己所担任课程进行成绩登录，学生用户能对自己的基本

9、信息进行查询和确认，包括成绩信息、奖惩信息和密码的更改。本系统初具规模，能胜任在校学生的基本信息的综合管理工作，并且基于Visual basic进行开发的软件具有界面友好、操作简便的优点。系统部对每步的操作均设置了相关提示信息，使用者不需对该软件进行长时间的学习即能使用，达到了方便快捷又不失功能强大的特点。2 开发工具介绍2.1 SQL Server 2008简介SQL Server 2008是微软公司最新版的大型数据库服务器，其性能指标在各方面都有赶超Oracle数据库的趋势。用它可以方便地管理数据库和开发应用程序，它使用了最先进的数据库构架，与Windows NT/2000平台紧密集成，具

10、有完全的Web功能。通过对高端硬件平台、网络和存储技术的支持，为WEB站和企业的应用最大限度地提供了可扩展性和高可靠性，能在Internet商业领域快速建立并应用。SQL Server 2008提供的非常傻瓜的缺省安装和使用模式，其上手难度并不比Access大。另外，SQL Server 2008可以兼顾小、中、大规模的应用，有着远远比Access强大的伸缩性。2.1.1 SQL Server 数据库特点概括起来，SQL Server 2008数据库管理系统具有以下主要特点。（1）丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的

11、集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2008还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。（2）动态自动管理和优化功能。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。（3）丰富的编程接口工具，使用户开发SQL Server数据库应用程序更

12、加灵活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQL Server 2008还支持ODBC、OLE DB、ADO规，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库。（4）具有很好的伸缩性和可靠性。SQL Server 2008既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运

13、行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。2.2 Visual Basic 6.0简介微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。利用VISUAL BASIC 程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。因此，本系统采用Visual Basic设计前端软件。

14、2.2.1 Visual Basic的编程特点Visual Basic语言的出现为Windows下的编程提出了一个新概念，利用Visual Basic的动态数据交换、对象的和嵌入、动态库、ActiveX等技术可以很方便地设计出功能强大的应用程序。利用Visual Basic语言编程有以下特点：（1）可视化程序设计在Visual Basic中开发的应用程序，有丰富的图形界面，减少了开发图形界面而添加的代码，在设计图形界面的过程中只需设置 ActiveX控件的属性即可。（2）强大的数据库功能随着Visual Basic 语言的向前发展，在数据库和网络方面的功能优势就愈加明显，利用Visual Ba

15、sic 中的ODBC（开放式的数据库访问技术）可以很方便地开发出自己的数据库应用程序。同时，利用 Visual Basic自带的可视化数据管理器和报表生成器，也可以在Visual Basic中完成数据库的开发工作。（3）其他特性在Visual Basic以前的版本中，由于仍然摆脱不了解释执行的代码运行机制，所以在相当的程度上制约了 Visual Basic 的发展。从Visual Basic5.0版本开始，在Visual Basic 中制作的应用程序都改变为编译执行，使得Visual Basic的代码效率有了很大的提高，同时执行的速度也加快了解30%(同Visual Basic4.0相比)。2

16、.2.2 Visual Basic支持的数据库系统Visual Basic支持对多格式的数据库的访问和维护，无论是Access还是Foxpro中创建的数据库，都可以用Visual Basic打开，对其进行查询、修改和删除等操作。事实上，Visual Basic几乎支持对市面上所有数据库的访问。Visual Basic可以访问的数据库可以简单的分为三类，即：Microsoft Access格式数据库，外部数据库和ODBC数据库。Visual Basic对多种数据库格式的支持，大大的增强了开发数据库应用程序的能力。2.2.3 数据库开发中的三大工具Visual Basic在数据库应用程序的开发领域

17、中，提供包含数据管理（Data Manager），数据控件（Data Control）以与数据编程对象（数据访问对象（DAO）远程数据对象（RDO）和ActiveX数据对象（ADO）等工具，协助设计人员轻松的连接数据库文件，并访问其中的数据，在功能方面与其他一些专业数据库软件（如FoxPro，Microsoft Access等）不相上下。数据管理器（Data Manager）是Visual Basic已有的老成员之一，Jet数据库引擎（Database Engine）可以帮助Visual Basic程序元件立即维护数据库容，并可通过输入查询或查找数据库信息，而不必通过其他数据库软件另外去设计数

18、据库。数据控件是Visual Basic所提供的基本控件成员之一，它使得设计者省下一堆程序代码编写的工作，能够轻松的设计与维护数据库容。数据控件可以通过一些属性的设置去某个数据库文件，但是它本身并无法显示数据库各个记录的容，必须在搭配其他具有数据感知（Data Aware）功能的控件对应并显示一个字段容，以方便地进行记录的浏览与编辑工作。Visual Basic提供的数据访问对象（Data Access Object；DAO）让程序设计者拥有更大的发挥空间。借助程序代码编写，直接控制Jet数据库引擎，配合数据库控件，能够开发出更具弹性且高效率的数据应用程序。RDO是处理远程数据库的一些专门需要

19、的对象集合。使用RDO可以不用本地的查询机就能访问ODBC数据源，这无疑提高了应用程序的性能。ADO是Visual Basic 6.0中新增的对象，它是一个更简单的对象模型，它更好的集成了其它数据访问技术，并且对本地和远程数据库均有共同的界面，可以取代DAO和RDO。ADO更易于使用。在本系统中利用数据管理器创建了数据库与数据库表，并采用了ADO+ODBC数据访问技术。2.3 ADO组件的主要对象与其功能ADO组件又称为数据库访问组件，它提供了以下七种对象：（1）Connection对象：提供对数据库的连接服务。（2）Command对象：定义对数据库源操作的命令。（3）Recordset对象：

20、由数据库服务器所返回的记录集。Recordset对象的LockType属性的设置值如下表所示：表2-1 Recordset对象的LockType属性的设置值常量值说明adLockReadOnly1默认值，只读。无法更改数据adLockPressimistic2保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用立即锁定数据源的记录的方式。adLockOptimistic3开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用Updata方法时锁定记录。adLockBatchOptimistic4开放式批更新。用于与立即更新模式相反的批更新模式。（4）Fields对象：由数据库

21、服务器所返回的单一数据字段（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的

22、引用。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.ConnectionSet con = New ADODB.Connectioncon.Open File

23、DSN=First.dsnSet rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimisticElserst.Open Trim$(SQL), con, adOpenDynamic, adLockReadOnlyEnd IfEnd Function3 系统分析与设计3.1 系统功能分析随着学校的规模不断扩大，学生的数量急剧增加，有关学生的各种信息量也成倍增长。通过这样的系统可以做到信息的规管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。设计

24、容为管理员、教师和学生用户登录该系统进行八个模块操作：（1）学生基本情况更新：增加、修改、删除、查询（按学号）（2）班级信息维护：添加班级、删除、编辑、查询（按班级编号）（3）课程信息维护：添加课程、删除、编辑（4）成绩管理：录入成绩（教师用户）、查询成绩（管理员、学生用户）（5）奖惩信息维护：奖学金申请（学生用户）、奖学金评定（管理员用户）、惩处信息的维护（管理员）（6）学费信息：费用设置、欠费处理、缴费（7）密码更改（8）管理员角色添加（管理员用户）3.2 系统结构图图3.1 系统结构图3.3 系统ER图图3.2 系统E-R图3.4 数据库设计本系统通过SQL server 2008建立后

25、台数据库，数据库共由11个表组成，分别是：访问权限信息表（访问权限）、学生基本情况信息表（学生信息）、班级信息表（班级信息）、课程信息、教师信息、选课表、处分信息、奖学金、学费信息、缴费信息、助学贷款信息表（贷款），下文将对主要表格进行简单介绍。（1） 访问权限表3-1 访问权限表设计 名称字段名称类型长度访问账号账号varchar14密码密码varchar14权限等级权限varchar8（2） 学生信息表3-2 学生基本信息表设计字段名称类型长度NULL值学号varchar14NOTvarchar8NOT班级编号varchar7NOT性别varchar2NOT年级varchar4NOT政治面

26、貌varchar8NULL民族varchar4NOT籍贯varchar4NOT号varchar18NOT学籍状态varchar4NULL（3） 班级信息表3-3 班级信息表设计字段名称类型长度NULL值班级编号varchar7NOT年级varchar4NOT班级名称varchar30NOT班级简称varchar16NULL人数Int5NOT班主任varchar8NOT（4） 课程信息表3-4 课程信息表设计字段名称类型长度NULL值课程代码varchar5NOT课程名称varchar50NOT课程性质varchar4NOT上课时间varchar20NOT上课地点varchar14NULL任课教

27、师varchar8NOT学分int2NOT（5） 选课表表3-5 选课表设计字段名称类型长度NULL值学号varchar14NOT课程代码varchar5NOT成绩float20NULL（6） 教师信息表3-6 教师表设计字段名称类型长度NULL值账号varchar14NOTvarchar8NOT任课科目varchar50NOT（7） 处分信息表3-8 处分信息表设计字段名称类型长度NULL值学号varchar14NOT处分等级varchar12NOT说明varchar50NOT填报时间dateNOT（8） 奖学金表3-9 奖学金信息表设计字段名称类型长度NULL值学号varchar14NOT

28、平均成绩float20NOT申请标记varchar4NULL4 系统具体实现本部分主要容为本系统的各个运行界面以与主要界面的源代码。4.1 模块设计加一个模块module1，该部分主要包括一些公共变量的定义、ExecuteSQL等执行过程定义以与自动把备份的数据库文件还原到SQL Server 2008 中的代码设计。4.1.1 公共变量Public 权限 As StringPublic 账号1 As String 用于存储账号和权限，在访问过程中分配其访问权限以与当前登陆者密码的更改。4.1.2 SQL执行语句Public Function ExecuteSQL(ByVal SQL As S

29、tring, rst As ADODB.Recordset, Optional enableWrite As Boolean = True) Dim con As ADODB.ConnectionSet con = New ADODB.Connectioncon.Open FileDSN=First.dsn打开文件DSNSet rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimistic以读写方式打开数据文件Elserst.Open Trim$(SQL)

30、, con, adOpenDynamic, adLockReadOnly以只读方式打开数据文件End IfEnd Function4.1.3 判断数据库中是否存在指定记录Public Function DBExist(ByVal SQL As String) As Boolean 判断数据库中是否存在指定记录Dim rst As ADODB.RecordsetDim con As ADODB.ConnectionSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.Open filedsn=first.dsnrst.Ope

31、n Trim$(SQL), con, adOpenStatic, adLockOptimisticIf rst.EOF = True ThenDBExist = False 没有此记录ElseDBExist = True 有此记录End IfEnd Function4.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.Rec

32、ordsetDim con As ADODB.ConnectionSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.Open filedsn=first.dsnIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenStatic, adLockOptimisticSet dg.DataSource = rstdg.RefreshElserst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnlySet dg.DataSourc

33、e = rstdg.RefreshEnd IfEnd Function4.2 登录窗体设计添加一个窗体（登录.frm），该部分主要包括用户的验证以与权限的限制。登录功能的程序代码：Option ExplicitDim SQL As StringDim rst As ADODB.RecordsetPrivate Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 请你填写完整！, vbOKOnly + vbExclamation, 提示ElseSQL = select 账号,权限 from 访问权限 where 账号= +

34、 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)ElseMsgBox 密码错误, vbOKOnly + vbExclamation, 警告Text2.Text = End IfEnd IfIf 权限 = 学生 Then学生.Show登录.HideEnd IfIf 权限 = 教师 Then教师.Show登录.HideE

35、nd IfIf 权限 = 管理员 ThenForm2.Show登录.HideEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub form_load()Text1.Text = Text2.Text = End Sub图4.1 登录界面当在图4.1中填写不完整点击“登陆”按钮，则弹出报错信息，如图4.2所示：图4.2 信息未填写完整当输入用户名或密码错误时，系统统一定义为密码填写错误，弹出如图4.3所示

36、错误信息：图4.3 密码错误4.3 系统主界面的设计4.3.1 管理员身份进入系统以管理员的账号“男”与正确的密码“17”进入到系统，系统会自动根据访问权限中的数据记录分配其访问权限，运行结果如下图所示：图4.4 系统主页系统主界面的设计过程：添加Form2.frm，点击Visual Basic 6.0中的工具，对系统主界面的菜单进行编辑，编辑过程如下图所示：图4.5 菜单编辑过程菜单功能的程序代码：Private Sub form_load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture(E:

37、VB学生信息1.jpg)End SubPrivate Sub 班级维护_Click()Form2.Hidebanji.ShowEnd SubPrivate Sub 处分信息_Click()cfxx.ShowForm2.HideEnd SubPrivate Sub 管理员密码修改_Click()密码.ShowForm2.HideEnd SubPrivate Sub 管理员信息管理_Click()管理员.ShowForm2.HideEnd SubPrivate Sub 奖学金评定_Click()jxj.ShowForm2.HideEnd SubPrivate Sub 课程信息维护_Click()F

38、orm2.Hidekcxx.ShowEnd SubPrivate Sub 欠费处理_Click()qfcl.ShowForm2.HideEnd SubPrivate Sub 退出系统_Click()EndEnd SubPrivate Sub 学费设置_Click()xfsz.ShowForm2.HideEnd SubPrivate Sub 学生缴费_Click()Form2.Hidexsjf.ShowEnd SubPrivate Sub 学生信息_Click()Form2.Hidecjcx.ShowEnd SubPrivate Sub 学生信息维护_Click()Form2.Hidexsxx.

39、ShowEnd SubPrivate Sub 学生选课_Click()Form2.Hidexsxk.ShowEnd Sub4.3.2 教师登录系统主界面设计添加窗体教师.frm，如果教师键入正确的密码和账号就进入到该界面，运行效果如图4.6所示，其设计过程与管理员主界面的设计过程相似。教师登录主界面的菜单功能代码为：Private Sub form_load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture(E:VB学生信息1.jpg)End SubPrivate Sub 成绩管理_Click()

40、成绩录入.Show教师.HideEnd SubPrivate Sub 密码修改_Click()教师密码.Show教师.HideEnd SubPrivate Sub 退出系统_Click()EndEnd Sub图4.6 教师登录主界面4.3.3学生登录系统主界面设计学生登录主界面的设计与管理员、教师登录的设计一致。4.4 班级信息管理设计该模块可以通过输入班级编号进行搜索显示，对具体班级进行编辑，也可以全部显示查看。添加新的班级信息时在系统所提供的界面进行输入，点击添加进行保存，删除班级信息时需要在班级编号栏输入拟删除班级的班级编号，然后点击删除按钮。整个显示过程是通过Visual Basic

41、中的DataGrid空间显示，进行添加、删除或搜索操作后DataGrid会进行刷新显示新的数据，在操作过程中如果遇到非法操作（如：不允许空值时无输入信息，输入文本超出限制长度等）时，系统会做出相关提示或警告。该模块按“显示全部”功能运行时的界面如图4.7所示：图4.7 班级信息显示全部界面该模块按“搜索”功能运行时的界面如图4.8所示：图4.8 班级信息管理搜索功能界面该模块按“删除”功能运行时的界面如图4.9所示：图4.9删除功能4.5 学生基本信息维护4.5.1 学生信息维护简介学生信息维护界面的设计包含2个单选框、11个文本框、1个DataGrid控件以与6个按钮。单选框用于确定搜索条件

42、，系统设置了按班级搜索和按学号搜索两大功能，搜索结果用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

43、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) +

44、 , + Trim(jg.Text) + , + Trim(sfz.Text) + , + Trim(xj.Text) + )Call ExecuteSQL(SQL, rst, True)SQL = select * from 学生信息 order by 学号 ascCall viewData(SQL, DataGrid1, True) 在DataGrid控件中进行显示3 删除功能rst.Open delete from 学生信息 where 学号= + Trim(ID.Text) + , con, adOpenStatic, adLockOptimisticrst.Open select *

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