海洋学院
信息工程系毕业设计
题目：学籍管理系统
学院：海洋学院
专业班级：计算机网络2004级2班学号：2004093090228号
学生姓名：姚翔
指导教师：王守玉
二OO四年六月十五日
目录
封面 (1)
目录 (2)
设计概况 (4)
正文 (4)
前言 (4)
第一章 VB语言概述 (5)
1.1VB语言简介 (5)
1.2VB语言的基本特点及VB应用程序的基本持点 (5)
1.2.1 可视化设计 (5)
1.2.2 事件驱动编程 (5)
1.2.3 提供了易学易用的应用程序集成开发环境 (5)
1.2.4 结构化的程序设计语言 (5)
1.2.5 支持多种数据库的访问 (5)
1.2.6 支持动态数据交换（DDE）、动态连接库（DLL）和对象的链接与嵌入（OLE）技术 (5)
第二章使用ACCESS2000 实现关系型数据库 (6)
2.1数据库的概念 (6)
2.2新建一个数据库 (6)
2.3修改已建的数据库 (6)
2.4实现数据库之间的联系 (6)
2.5数据库系统 (6)
2.6学籍管理数据库系统简介 (6)
第三章学籍管理简介 (7)
3.1为什么要开发一个学生档案管理系统？ (7)
3.2在大中专院校用计算机管理学生学籍的意义 (7)
3.3为将来学校上网做好准备 (7)
3.4学籍管理的设计分析 (7)
第四章怎样开发一个学籍管理系统 (8)
4.1编程环境的选择 (8)
4.2关系型数据库的实现 (8)
4.3二者的结合（ADO） (8)
第五章学籍管理系统总体规划 (9)
5.1系统功能描述 (9)
5.1.1 功能阐述 (9)
5.1.2 模块功能阐述 (9)
5.2数据库实现 (13)
5.2.1数据库表结构 (13)
5.2.2数据库操作 (14)
第六章学籍管理系统详细设计 (16)
6.1系统数据流图 (16)
6.2系统模块图 (16)
6.3代码实现 (16)
6.4设计心得 (20)
设计概况
本系统主要致力于我院学籍管理工作。根据高校学籍管理的实际要求，结合学籍管理的实际流程，本系统需要实现以下功能：掌握全校每个学生的基本情况。其中包括学号、班级、学生姓名、出生日期、性别、民族、籍贯、所在院系、所学专业、所在宿舍等；基于权限的管理。本系统可以同时提供给高级用户或者普通用户使用。但是，对于普通用户而言，只能浏览、查找管理所有的学籍信息；而高级用户除了能浏览查找管理所有的学籍信息，还可以浏览查找管理所有的用户信息；提供灵活的浏览和查找功能，可以查看某个系、某个专业所有学生的学籍信息，可以对学籍信息进行精确查找；可以对学生学籍进行变动管理，对学籍信息进行添加、编辑和删除等操作。
本系统是由Microsoft Visual Basic 6.0可视化开发软件工具下分析、设计、开发大中专院校的学籍管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。我们设计的数据库系统能够实现学生管理，学生信息管理，系统管理功能。该系统基本上满足了用户在学校信息管理方面的需求，用户界面友好。此系统更加贴近信息电子化处理，从而降低了人工劳动并增加了信息的准确性。
本系统使用Visual Basic 6.0与Access 2000开发，使用数据库访问对象（ADO）模型与数据库相连，通过结构化查询语言（SQL）查询数据库。
关键词：学籍管理，Visual Basic 6.0，Access 2000
正文
前言
学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
我作为一名河北农业大学海洋学院2004届计算机网络专业的学生，对从事计算机操作和编程工作有着特殊的爱好，在工作和学习之余，我时常钻研专业课基础理论，经常用VB调试一些小程序。
为了在毕业之际向学校交一份满意的答卷，开发这样一套学籍管理软件很有必要,在下面的各章中我们将以开发一套学生学籍管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
第一章 VB语言概述
1.1 VB语言简介
VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。
美国微软公司在1991年推出VB1.0至今已经经历了6个版本，VB6.0运行在win9x 或winme，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具。
1.2 VB语言的基本特点及VB应用程序的基本持点
VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程.
1.2.1 可视化设计
VB为用户提供大量的界面元素(在VB中称为控件对象),这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如"窗体"、"菜单"、"命令按钮"、"工具按钮"、"检查框"等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。
1.2.2 事件驱动编程
Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用VB设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编程。
1.2.3 提供了易学易用的应用程序集成开发环境
在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，是用户在友好的开发环境中工作。
1.2.4 结构化的程序设计语言
VB具有丰富的数据类型和结构化程序结构，而且简单易学。此外，作为一种程序设计语言，VB还有许多独到之处：
●强大的数值和字符处理功能。
●丰富的图形指令，可方便的绘制各种图形。
●提供静态和动态数组，有利于简化内存管理。
●过程可递归调用，使程序更为简练。
●支持随机文件访问和顺序文件访问。
●提供了一个可供应用程序调用的包含多种类型的图表库。
●具有完善的运行出错处理。
1.2.5 支持多种数据库的访问
利用数据控件可访问的数据库系统有：Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox等，也可以访问Microsoft Excel,Lotsl2-3等多种电子表格。
1.2.6 支持动态数据交换（DDE）、动态连接库（DLL）和对象的链接与嵌入（OLE）技术
动态数据交换（DDE）的编程技术，使VB开发应用程序能与其他Windows应用程序之间建立数据通信。
通过VB的动态链接库（DLL）技术，在VB程序中可方便的调用用C语言或汇编语言编写的函数，也可调用Windows应用程序接口（API）函数，以实现SDK所能实现的功能。
VB的核心是其对对象的链接与嵌入（OLE）的支持，它是访问所有对象的一种方法。利用OLE技术，VB将其他应用软件视为一个对象嵌入到VB应用程序中，进行各种操作，也可将各种基于Windows的应用程序嵌入到VB应用程序，实现声音、图像、动画等多媒
第二章使用Access2000 实现关系型数据库
2.1 数据库的概念
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
2.2 新建一个数据库
创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。
●标识需要的数据；
●收集被标识的字段到表中；
●标识主关键字字段；
●绘制一个简单的数据图表；
●规范数据；
●标识指定字段的信息；
●创建物理表。
2.3 修改已建的数据库
数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。
2.4 实现数据库之间的联系
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。
2.5数据库系统
数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种电子文件柜：也就是说，它是收集计算机数据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。
总之，数据库系统是一个计算机存储记录的系统，即，它是一个计算机系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。
2.6 学籍管理数据库系统简介
使用学籍管理系统，普通管理员可以方便得管理学校学籍信息，查看学籍变动情况，对数据库进行更新和维护。每次添加、修改、删除数据库中信息，数据库系统同时更改。本系统根据管理员的权限不同分为两部分：普通管理员执行一般系统操作和系统管理员执行用户操作
第三章学籍管理简介
3.1 为什么要开发一个学生档案管理系统？
今天，计算机已经成为我们学习和工作的得力助手，其价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多域，计算机之所以如此流行的原因主要有以下几个方面：
首先，计算机可以代替人工进行许多繁杂的劳动；
其次，计算机可以节省许多资源；
第三，计算机可以大大的提高人们的工作效率；
第四，计算机可以使敏感文档更加安全，等等。
3.2在大中专院校用计算机管理学生学籍的意义
现在我国的某些院校的学籍管理水平还停留在纸介质的基础上，这样的机制已经不适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。
我作为一个计算机专业的本科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我三年的所学编制出一个实用的程序能够进行有效的学籍管理。
归纳起来，好处大约有以下几点：
●可以存储历届的学生档案，安全、高效；
●只需一到二名档案录入员即可操作系统，节省大量人力；
●可以迅速查到所需信息。
3.3为将来学校上网做好准备
根据1999年中国电信的调查报告显示我国的上网人数已达到890万，互联网已经十分普及，学校往界的毕业生希望能在世界的任何一个角落查到自己校友的信息，本系统为学校将来的上网作了先期工作，比如数据库的建立。
3.4学籍管理的设计分析
根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。
第四章怎样开发一个学籍管理系统
4.1编程环境的选择
微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。
4.2关系型数据库的实现
Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
4.3二者的结合（ADO）
微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。
ActiveX Data Objects(ADO)是微软公司最新的数据访问技术。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问（Universal DataAccess）。OLE DB 是一个低层的数据访问接口，用它可以访问各种数据资源。
ADO Data控件使用Microsoft ActiveX数据对象（ADO）来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有【数据源】属性的控件。尽管可以在应用程序中直接使用ActiveX数据对象，但ADO Data控件有作为一个图形控件的优势。（具有【向前】和【向后】按钮），以及一个易于使用的界面，使用用户可以用最少的代码创建数据库应用程序。在本系统主要是通过使用ADO对象和ADO Data控件访问数据库。
第五章学籍管理系统总体规划
5.1 系统功能描述
5.1.1 功能阐述
本系统针对学校学籍管理管理工作量大，效率低等不足之处着手设计，并结合数据库连接技术，使学生的学籍管理均由计算机实现，避免了纸介质记录带来的不方便的因素。学生学籍变动由管理员管理，管理员可以进行学生基本信息管理，院系管理，班级管理，系统管理，便于了解每位学生基本信息及在校情况。
本系统为每位学生分配编号（学号），同时保存学生基本信息。学生学籍变动可通过系统进行调整，可以查询学生入学情况，管理用户情况，学生退学休学以及留级情况和数据库的情况。还可以添加、删除管理用户,分配用户权限。
本系统使用Visual Basic 6.0与Access 2000开发，使用数据库访问对象（ADO）模型与数据库相连，通过结构化查询语言（SQL）查询数据库。系统主界面如图5.1所示：
5.1.2 模块功能阐述
管理员有两种权限：高级管理员和普通管理员。高级管理员可以执行系统中的所有操作，而普通管理员不能进行对数据库的操作。每种权限的操作员均由与其对应的正确的密码进入系统。当用户以高级用户登录系统时，菜单显示用户管理模块，可以对用户进行管理以及查询，并可以改变用户的权限，可以令普通用户改变为高级用户。若以普通用户登录则不显示用户管理模块，即没有管理用户的权限。
图5.1 系统主界面
本系统分为：密码管理、用户管理、学生管理、异动管理、院系管理,专业管理，查询七大部分。使用Access 2000建库，数据库名为：db1.mdb※，包括五个表：表userTable※记录用户的密码及权限，包括userName、pwd、repwd、userType四个字段，userType分为高级用户和普通用户，即高级管理员与普通管理员类型，只有权限为高级用户的管理员才有权编辑用户信息；
表stuTable※记录学生信息，包括学号、姓名、性别、籍贯、民族、出生年月、身份证号、入学年份、所在院系、所学专业、所在班级、所在宿舍十二个字段；
表depTable※记录院系信息，包括院系编号、院系名称、备注三个字段；
表majTable※记录专业信息，包括专业编号、专业名称、所属院系三个字段；
表chgTable※记录学籍变动信息，包括编号、学号、变动类型、变动日期、备注字段；下面将分模块介绍：
●密码管理：
此模块分为密码修改和登录管理两部分。
通过登录才能连接主窗体，当用户名或密码为空，或用户名或密码不对应，则会出现提示信息,当输入正确的用户名及其对应的密码，登录主窗体,登录界面如图5.2所示。
图5.2 登录界面
密码修改是修改用户本身密码，通过密码修改，可以改变登录密码，界面如图5.3所示。
※db1.mdb是使用Access2000所建立的数据库的名称，系统通过VB的ADO模型调用其中的表
※userTable是db1.mdb中的一个表，用来标记管理员的密码及权限。
※stuTable是db1.mdb中的一个表，用来记录学生的基本信息。
※depTable是db1.mdb中的一个表，用来记录院系基本信息。
※majTable是db1.mdb中的一个表，用来记录专业基本信息。
※chgTable是db1.mdb中的一个表，用来记录学籍的变动情况。
图5.3 密码修改界面
●用户管理：
只有用户类型为高级用户的用户才可以获得本模块的使用权。若为普通用户，则用户管理在主窗体上不显示。此模块主要用于用户的添加，删除，修改，查询。界面如图5.4所示。
图5.4 用户管理界面
图5.5学生管理界面
●学生管理
学生管理模块主要应用于对学籍的基本操作。可以录入学生基本信息，对学籍进行修改，选择性删除，其主界面如5.5所示。
●异动管理
本模块主要用于学籍变动管理，可以对学生的基本变动进行管理，如：转专业，转班，转宿舍，休学，复学，退学等。输入需要变动学籍学生的学号，选择变动类型，添加备注，点击确定后还可以进行具体操作，此时变动信息将存入学籍变动表chgTable。异动管理主界面如图5.6所示。
图 5.6异动管理界面
●院系管理
本模块主要用于院系管理，可以对院系信息进行增加，删除，修改。点击添加可以进入添加页，点击修改和删除可以对所选记录进行修改和删除。院系管理界面如图5.7所示。
图 5.7院系管理界面
●专业管理
本模块主要用于专业管理，可以对专业信息进行增加，删除，修改。点击添加可以进入添加页，点击修改和删除可以对所选记录进行修改和删除。专业管理界面如图5.8所示。
图 5.8专业管理界面
●查询
本模块主要由两部分组成，查询学生基本信息和查询学籍变动信息。点击查询学生基本信息对学生基本信息进行查询，点击查询学籍变动信息对学籍变动信息进行查询。在查询区输入查询条件，点击查询，即可在显示区看到相应的查询结果。查询主界面如图5.9所示。
图 5.9查询界面
5.2数据库实现
5.2.1数据库表结构
表stuTable结构如下表所示：
表userTable结构如下表5.1所示：
表chgTable结构如下表所示：
表depTable结构如下表所示：
表majTable如下表所示：
5.2.2数据库操作
在Access2000中创建数据库db1.mdb，使用设计器创建表，在设计器中设置表的字段以及数据类型。如下图5.10分别使用设计器创建表chgTable，表depTable,表majTable,表stuTable,表userTable五个表，并为其分配合适的数据类型。如图5.11所示。
图5.10
图5．11
第六章学籍管理系统详细设计
6.1系统数据流图
图6.1 系统数据流程图
6.2系统模块图
图6.2系统模块图
6.3 代码实现
《学籍管理系统》源程序共包括17个窗体，1个模块，源代码共2900多行。大量使用了标签(Lable),按钮(Button),文本框(Text),框架(Frame), 组合框控件(ComboBox),时钟(Timer),图片框(PictureBox),图像框（Image），工具栏控件(Toolbar),状态栏控件(StatusBar),图片列表控件(ImageList),框架控件（Frame），单选按钮控件
（OptionButton），复选框控件（CheckBox），DataGrid网格控件。共使用了3个Timer 控件，6个DataGrid网格控件。
系统中需要调用数据库的内容，由DataGrid网格控件显示。
使用ADO访问数据库，源代码例如：
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset '数据专用
Dim strcnn, SQL, str As String
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection '创建连接
cnn.Open strcnn '打开连接
SQL = "select * from userTable" '查询语句
cnn.Execute SQL '执行查询语句
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockBatchOptimistic
用户登录主要源代码如图：
Do
If Adodc1.Recordset.Fields("userName") = txtUser.Text Then
If Adodc1.Recordset.Fields("pwd") = txtPassword.Text Then
If Adodc1.Recordset.Fields("userType") = "普通用户" Then flag = True ‘flag为判断用户权限的标志变量
Else
flag = False
End If
Adodc1.Recordset.Close
Unload Me
Load frmMain
frmMain.Show
Exit Sub
Exit Do
ElseIf txtPassword.Text <> "" Then
MsgBox "密码错误，请重新输入密码！", vbOKOnly + vbInformation, "注意"
txtPassword.Text = ""
txtPassword.SetFocus
TIM = TIM + 1
If TIM > 2 Then
MsgBox "密码连续错误，您可能忘记密码，请向系统管理员咨询！", vbOKOnly + vbCritical, "警告"
End
End If
Exit Sub
Exit Do
End If
End If
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
查询主要源代码如下：
Select Case Combo1.Text
Case Is = "学号"
Adodc1.RecordSource = "select * from chgTable where 学号=val('" & Text1.Text & "')"
Case Is = "变动类型"
Adodc1.RecordSource = "select * from chgTable where 变动类型='" & Text1.Text & "'"
Case Is = "变动日期"
Adodc1.RecordSource = "select * from chgTable where 变动日期='" & Text1.Text & "'"
Case Is = "查询全部"
Adodc1.RecordSource = "select * from chgTable order by 编号"
End Select
Adodc1.Refresh
Label2.Caption = "查询结果为：" & Adodc1.Recordset.RecordCount & " 条 "
Combo1.Text = ""
Text1.Text = ""
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "查无此人！", vbOKOnly + vbInformation, "注意"
Combo1.Text = ""
Text1.Text = ""
End If
添加用户源代码如下：
Private Sub Command1_Click()
On Error GoTo exit1
rs.MoveFirst
str = "insert into userTable(userName,pwd,repwd,realName,userType) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Combo1.Text & "')" '测试用户名，密码及密码验证
Do
If rs.Fields("userName") = Text1.Text Then
MsgBox "此用户已经存在，请重新输入用户名！", vbOKOnly + vbInformation, "注意"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Exit Sub
End If
rs.MoveNext
Loop Until rs.EOF
If rs.EOF Then
If Text1.Text <> "" Then
If Text2.Text <> "" Then
If Text3.Text <> "" Then
If Text2.Text = Text3.Text Then
cnn.Execute str
MsgBox "添加成功！！", vbOKOnly + vbInformation, "提示"
frmManage1.Adodc1.Refresh
Unload Me
Else
MsgBox "验证密码输入错误，请重新输入！", vbOKOnly + vbInformation, "注意"
Text3.SetFocus
Text3.Text = ""
End If
Else
MsgBox "验证密码不能为空，请输入验证密码！", vbOKOnly + vbInformation, "注意"
Text3.SetFocus
End If
Else
MsgBox "密码不能为空，请输入密码！", vbOKOnly + vbInformation, "注意" Text2.SetFocus
End If
Else
MsgBox "用户名不能为空，请输入用户名！", vbOKOnly + vbInformation, "注意" Text1.SetFocus
End If
End If
Exit Sub
exit1:
MsgBox "添加失败！", vbOKOnly + vbInformation, "错误"
End Sub
删除源代码如下：
Private Sub Command1_Click()
On Error GoTo exit1
Select Case Combo2.Text
Case Is = "学号"
Set rs = cnn.Execute("delete from stuTable where 学号 = val('" & Text1.Text & "')")
Case Is = "姓名"
Set rs = cnn.Execute("delete from stuTable where 姓名 = '" & Text1.Text & "'") Case Is = "性别"
Set rs = cnn.Execute("delete from stuTable where 性别 = '" & Text1.Text & "'") Case Is = "民族"
Set rs = cnn.Execute("delete from stuTable where 民族 = '" & Text1.Text & "'") Case Is = "籍贯"
Set rs = cnn.Execute("delete from stuTable where 籍贯 = '" & Text1.Text & "'") Case Is = "入学年份"
Set rs = cnn.Execute("delete from stuTable where 入学年份 = '" & Text1.Text & "'")
Case Is = "所在院系"
Set rs = cnn.Execute("delete from stuTable where 所在院系 = '" & Text1.Text & "'")
Case Is = "所在宿舍"
Set rs = cnn.Execute("delete from stuTable where 所在宿舍 = '" & Text1.Text & "'")
Case Is = "所学专业"
Set rs = cnn.Execute("delete from stuTable where 所学专业 = '" & Text1.Text & "'")
Case Is = "身份证号"
Set rs = cnn.Execute("delete from stuTable where 身份证号 = '" & Text1.Text & "'")
End Select
MsgBox "删除成功！"
frmManage2.Adodc1.Refresh
Unload Me
Exit Sub
exit1:
MsgBox "删除失败！"
End Sub
6.4设计心得
经过近三个月的设计和开发，《学籍管理系统》基本开发完毕。其功能基本符合用户需求，能够完成学生学籍的存储和成绩的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决，系统界面美观、统一。
但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如数据库操作不够完善，对于字段的增删没有实现，报表打印功能未实现等多方面问题。这些都有待进一步改善。
在本次毕业设计中，我从指导老师王守玉老师身上学到了很多东西。王老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。
参考文献