学生学籍管理系统论文.doc

摘 要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文采用VB和MS SQL-Server等软件为开发工具，以Windows XP（或Windows 2000）为开发平台，设计出一个学籍管理信息系统，对学生的信息、课程、成绩进行统一管理，便于查询、修改和打印。涉及到的主要内容有：体系结构规划、设计平台的搭建以及系统的设计。主要实现的功能模块有管理系统的功能介绍子系统、新生入学子系统、学生成绩管理子系统、在校学生管理子系统、离校学生管理子系统、各种报表打印子系统、各种信息查询子系统以及系统维护子系统。本系统界面友好，操作简单，比较实用。关键词： 学籍管理 SQL Server VB 数据库目录第一章 概述1.1 系统概述1.2 需求分析1.2.1 整体需求分析1.2.2 具体需求1.3 VB及数据库概述1.3.1 VB概述1.3.2 数据库概述第二章 系统数据库设计2.1 SQL SERVER数据库基本特点2.2 SQL SERVER数据库及其基本操作2.2.1 新建数据库2.2.2创建数据表2.3 VB与SQL SERVER的连接2.4 数据库设计第三章 系统分析3.1 功能层次图3.2 业务流程图3.2.1 系统登录3.2.2 新生入学管理3.2.3 在校学生管理3.2.4 离校学生管理3.2.5 学生成绩管理3.2.6 查询及报表打印3.2.7 系统维护第四章 程序设计4.1 结构化查询语言(SQL)4.2 添加记录4.3 删除数据4.4 修改记录4.5 LISTVIEW控件第五章 系统功能界面与代码5.1 系统登录5.2 新生入学管理5.3 在校学生管理5.4 离校学生管理5.5 学生成绩管理5.6 查询及报表打印5.7 系统维护第六章 系统测试第七章 结束语第一章 概述1.1系统概述学籍管理是学校教务的一项主要工作，它反映了一个学校的生源情况和学生的在校表现，每一个档案都记录了一个学生在每个学校的一段历史，必须真实可靠，所以档案管理工作是一项严肃、认真而又繁琐的工作。本系统在认真研究国内外同类产品的基础上，博取众家之长，并在多年从事学生档案管理专家的指导下开发而成，该系统适合各类中、小学校、职业技术学校的学生学籍管理。 学籍管理系统从根本上解决了学校管理学生有关学生档案的烦恼，它不仅让学校能够方便的录入学生学籍的基本信息，还能够方便的查询、打印在校学生和历届已经毕业了的学生学籍信息。作为计算机应用的一部分,使用计算机对学生学籍信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。本人开发的学籍管理系统的开始工具为Visual Basic，数据库平台为SQL SERVER 2000。操作系统环境为WINDOWS XP。1.2系统需求分析1.2.1整体需求系统应该具备学生入学情况、在校情况、离校情况、课程成绩等方面信息的录入、修改、查询、打印等功能以及系统的管理功能，实现学生信息及学籍管理的计算机操作，提高学籍管理的工作效率。1.2.2具体需求系统管理：实现系统登录、及用户设置功能新生入学管理：学生各项信息的录入、修改、删除、查询打印等在校学生管理：在校学生各种信息的录入、修改、删除、查询打印等离校学生管理：离校学生各项信息的录入、修改、删除、查询打印等学生成绩管理：在校期间各课程成绩的录入、修改、删除、查询打印等其他功能：各种组合信息的查询、打印1.3 Visual Basic及数据库概述1.3.1 Visual Basic概述Visual指的是开发图形用户界面的方法，Basic指的是BASIC(Beginners All-purpose Symbolic Instruction Code)语言-一种在计算机技术发展史上应用最广泛的计算机语言。Visual Basic是在原有Basic语言基础上的进一步发展，它包含了数百条语句、函数及关键词，其中很多和Windows GUI有直接的关系。Visual Basic语言具有简单易学的特性，只要稍有语言基础就可以很快掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的界面设计中解脱出来；可视化编程环境的 “所见即所得” 功能，使界面设计如积木游戏一般，从而使编程成为一种享受；强大的多媒体功能可轻而易举地开发出集声音、动画、影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic6.0提供了与已有系统(如UNIX和SNA主机系统)的开放式的互联性技术，包括ActiveX Data Objects(ActiveX数据对象，简称ADO)、Microsoft SNA Server 4.0和COM/CISC事务集成管理器(COM T1)。Microsoft还为各种不同的数据库提供了全新的OLE DB和ODBC驱动程序，包括Oracle及运行于IBM AS400等大型机上的VSAM和DB/2数据库的驱动程序；通过第三方提供的ODBC和OLE DB驱动程序，还可以与其他数据库系统进行连接。Visual Basic6.0工具箱中的数据控件(Data)提供了一种访问数据库中数据的方法。通过设置属性，可以将数据控件与一个特定的数据库及其中的表联系起来，并可进入到数据库中的任一记录，同时还可以通过加入窗体的文本框等绑定控件来显示该记录。数据控件只是负责数据库和工程之间的数据交换，本身并不显示数据，必须使用Visual Basic6.0控件中的绑定控件，与数据控件一起来完成访问数据库的任务。在Visual Basic6.0标准控件中，对数据敏感的绑定控件有文本框(TextBox)，标签(Label)，复选框(CheckBox)，图像框(Image)，列表框(ListBox)和列表框(ListBox)。在客户控件中，对数据敏感的绑定控件有Dblist,DBCombo,DataGrid,MSFlexGrid,MaskEdBox及RichTextBox等。1.3.2 数据库概述数据库技术产生于60年代末期，是计算机领域中最重要的技术之一，是一种较理想的数据管理技术。所谓数据管理是指对数据的组织、存贮、检索和维护。用计算机进行数据管理大体经历了三个阶段：即人工管理阶段、文件系统阶段和数据库阶段。由于文件系统存在着文件之间无联系、数据不完全独立于程序，只在文件级共享数据等缺陷，因而数据库就发展了起来。数据库可以看作是与现实世界有一定相似性的模型，是认识世界的基础，是集中、统一地存储和管理某个领域信息的系统，它根据数据间的自然联系而构成，数据较少冗余，且具有较高的数据独立性，能为多种应用服务。数据库作为一个复杂的系统，由以下三个基本部分构成：数据集。一个结构化的相关数据的集合体，包括数据本身和数据间的联系。数据集独立于应用程序而存在，是数据库的核心和管理对象。物理存储介质。指计算机的外存储器和内存储器。前者存储数据；后者存储操作系统和数据库管理系统，并有一定数量的缓冲区，用于数据处理，以减少内外存交换次数，提高数据存取效率。数据库软件。其核心是数据库管理系统(DBMS)。主要任务是对数据库进行管理和维护。具有对数据进行定义、描述、操作和维护等功能，接受并完成用户程序和终端命令对数据库的请求，负责数据库的安全。要构成数据库其实非常简单，或许只要把一堆数据全部塞到一个文件中，或把多个文件集合起来，把这样的一堆数据称为数据库，但是这样杂乱无章的数据库能提供的信息有限，因此，建立一个有组织的数据库，才能提供更多的有用的数据。一个有组织的数据库，通常由一个或数个表格组成，而表格又是由一个或多个记录组成，一个记录则由一个或数个字段组成的一个数据集。一个有组织的数据库，除了要有这些必须的组织成份外还要有一个好的组织方法，来加以掌握，并对数据库中的数据加以处理。第二章 系统数据库设计数据库在一个信息管理系统中占有非常重要的位置，数据库结构设计的好坏将直接对应用系统的效果产生影响。合理的数据库设计可以提高数据库存储效率，保证数据的完整和一致。同时合理的数据结构也将有利于程序的实现。设计数据库系统时，应该首先了解用户的各个方面的需求，包括现有的以及将来可能增加的。21 SQL Server数据库的主要特征数据库方法与文件系统方法相比，具有更强的数据管理能力。数据库具有如下主要特征：数据集中控制。在文件管理方法中，文件是分散的，每个用户或每种处理都有各自的文件，这些文件之间一般是没有联系的，因此，不能按照统一的方法来控制、维护和管理。而数据库则很好地克服了这一缺点，可以集中控制、维护和管理有关数据。数据独立。数据库中的数据独立于应用程序，包括数据的物理独立性和逻辑独立性，给数据库的使用、调整、优化和进一步扩充提供了方便，提高了数据库应用系统的稳定性。数据共享。数据库中的数据可以供多个用户使用，每个用户只与库中的一部分数据发生联系；用户数据可以重叠，用户可以同时存取数据而互不影响，大大提高了数据库的使用效率。减少数据冗余。数据库中的数据不是面向应用，而是面向系统。数据统一定义、组织和存储，集中管理，避免了不必要的数据冗余，也提高了数据的一致性。数据结构化。整个数据库按一定的结构形式构成，数据在记录内部和记录类型之间相互关联，用户可通过不同的路径存取数据。统一的数据保护功能。在多用户共享数据资源的情况下，对用户使用数据有严格的检查，对数据库规定密码或存取权限，拒绝非法用户进入数据库，以确保数据的安全性、一致性和并发控制。2.2 SQL Server数据库及其基本操作SQL Server 是一种高效的关系数据库系统，它与Windows NT/2000及WindowsXP等操作系统紧密集成。这种安排使SQL Server能充分利用操作系统所提供的特性。对于今天复杂的客户/服务器系统来说，SQL Server是一个很好的选择。下面，在SQL Server中建立一个test数据库，test库中包含了该表。2.2.1 新建数据库Step1：启动（SQL Server企业管理器）SQL Server Enterprise Manager，单击服务器旁的加号(+)，其中便包含了已有的数据库。Step2：在（数据库）Databases文件夹上单击鼠标右键，选择（新数据库）New Database菜单选项。系统会显示（数据库属性）Database Properties对话框，如图2.2.1所示。图2.2.1 用（企业管理器）Enterprise Manager创建一个数据库Step3：选择（通用）General标签(如图1.2.1，该标签在初始时已默认被选中)，在（名称）Name的文本输入一个数据库名，这里输入的是test(即是创建后的数据库名)。Step4：在（数据库文件）Database files对话框的（数据库文件）Database files部分，输入文件名、位置、初始大小和文件组信息(一般按照默认的设置即可)。Step5：如果想使SQL Server能够自动地按需要增加数据库文件的大小，就应该选择（自动增加文件大小）Automatic grow file选项，否则则不选取。Step6：在（事务日志）Transaction Log标签中的（事务日志）Transaction Log对话框部分，可以输入文件名、位置及服务日志的初始大小。而日志的大小也可能通过（自动增加文件大小）Automatic grow file选项来设置是否能按需要来增加日志文件的大小。Step7：单击“确定”以完成创建数据库。以上的(4)(6)步聚均可按系统原来的默认设置来进行，这也是微软推荐的。在SQL Server中，当然也支持通过SQL语句来创建数据库，当然这对一个普通用户来说是没有必要的，并且也是烦琐的。2.2.2 创建数据表Step1：打开（数据库）Databases文件夹，在新建的test数据库图1.点上单击鼠标右键，选择 “新建” - “（表.）Table.”菜单项。如图2.2.2所示：Step2：在弹出的“选择”名称对话框的文本输入框中输入要创建的数据表名 authors,然后单击确定以创建新表，如图2.2.3所示。图2.2.2图2.2.3Step3：设置该表的字段属性，如图1.2.4所示。Step4：保存设置并退出，新表即建立完成。图2.2.42.3 VB连接SQL Server数据库用vb编写一个管理软件，如果不能连接数据库，那也没有什么用处。先看看VB是如何与SQL Server数据库相连接的。Sub ConnStr()连接数据库Set conn = CreateObject(ADODB.Connection) 建立数据库连接对像conn.Open Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=XIAOXIAO 打开数据库连接Set rs = CreateObject(ADODB.Recordset) 设置数据库对像End Sub上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下：Public connPublic rs上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。2.4 数据库设计数据库设计的好坏，直接关系到整个程序的好坏，数据库的结构是否合理，能不能满足现有的要求，今后系统的升级过程中是不是方便，能不能把数据库的结构直接移植到其它的数据库中使用，比如把SQL Server数据库的结构直接导入ACCESS中能不能直接使用，是不是还要修改程序等等。这些都是非常重要的，下面列出数据库中的每一个表，包括表中的字段的含意。成绩表：用于存放学生成绩的信息。字段名字段类型字段长度字段说明编号文本20主键，编号学年文本20第几学年学期文本20第几学期课程名文本50课程名成绩文本4成绩必修文本4必修分选修文本4选修分附加文本4附加分学号文本20学生学号表2.4.1离校生表：用于存放已经毕业或开除学籍等等的学生情况。字段名字段类型字段长度字段说明编号文本20主键，编号离校原因文本20离校原因离校去向文本50离校去向在校信息文本255在校信息离校状况文本255离校状况表2.4.2用户表：用于存放管理用户的相关信息。字段名字段类型字段长度字段说明用户名文本16用户名密码文本16密码表2.4.3在校生表：用于存放在校学生入学信息用在校期间的信息。字段名字段类型字段长度字段说明学号文本20学号姓名文本20姓名年龄文本4年龄性别文本4性别政治面貌文本10政治面貌出生年月日期/时间8出生年月籍贯文本50籍贯民族文本50民族班级文本50班级院系文本50院系联系电话文本20联系电话家庭住址文本50家庭住址邮编文本6邮编奖励文本255奖励处罚文本255处罚在校表现文本255在校表现表2.4.42.5 数据库结构成绩表的结构：成绩表编号成绩附加学年学期课程名必修选修学号图2.5.1离校生表的结构：离校生表编号离校原因在校信息离校状况离校去向图2.5.2在校生表的结构：新生入校在校学生学号姓名年龄性别院系联系电话家庭住址政治面貌出生年月籍贯邮编班级民族奖励在校表现处罚图2.5.3用户表的结构：用户表用户名密码图2.5.4第三章 系统分析3.1功能分析：功能层次图学生信息管理系统登录系统菜单新生入学管理在校学生管理离校学生管理学生成绩管理其他功能离校生管理在校生管理查询打印刪 除修 改增 加查询打印删 除修 改增 加图3.1.13.2模块流程图3.2.1登录流程图管理员界面超级管理员界面是是否超级管理员是输入用户名和密码判断用户是否存在否是判断密码是否正确否否登陆成功图3.2.1.13.2.2新生入学流程图输入操作要求 判断操作 增加 打印打印新生信息删除新生信息修改新生信息增加新生信息 修改 删除是否继续 是退出 否图3.2.2.13.2.3在校学生管理流程图输入操作要求 判断操作 增加 打印增加在校学生信息打印在校学生信息删除在校学生信息修改在校学生信息 修改 删除是否继续 是 否退出图3.2.3.13.2.4离校学生管理输入操作要求 判断操作 增加 打印打印在校学生信息删除在校学生信息修改在校学生信息增加在校学生信息 修改 删除是否继续 是 否退出图3.2.4.13.2.5学生成绩管理流程图输入操作要求 判断操作 增加 打印打印学生成绩删除学生成绩修改学生成绩增加学生成绩 修改 删除是否继续 是否退出 图3.2.5.13.2.6查询流程图输入查询条件按条件查询 打印 是否打印 是 否是否继续 是退出 否 图3.2.6.1第四章 程序设计4.1 结构化查询语言(SQL) 上面讲到了ACCESS数据库，如果要在程序中使用数据库的话，那么，一定会用到SQL，因为不管是连接数据库还是要在数据库中添加、删除、修改、查询数据都要用到SQL语言。结构化查询语言(Structured Query Language，SQL)，是一种高效的语言，被开发人员用于检索、增加、删除或修改关系型数据库中的信息。几乎所有的数据库都通过种标准语来通信，这涉及到SQL语言。 SELECT语句：可能是最常用的SQL语句，其主要用途是从数据库表中获得一个数据集。语法如下： SELECT name,sex,age from tablename 上面是最简单的一个SQL语句，其实SQL语句的复杂程度是一个难以想向的程度，曾经见到过的SELECT语句一共有几十行几百个字符。 INSERT语句：用于向数据库表中插入新记录(数据)。语法如下： Insert INTO tablename(name,sex,age) VALUES(xiaoxingchi,man,22) UPDATE语句：用于更新数据库表中的记录。语法如下： UPDATE tablename set name=xiaoxingchi,sex=manwhere id=100 DELETE语句：它用于删除数据库表中的记录。 DELETE FROM tablename where name=xiaoxingchi这些语句都是SQL语言中最常见的语句，也是最基本的语句。然而在SQL语言中也就是由这些基本的语句组合而成的。对于数据库的管理，肯定会涉及到添加、删除、修改等等操作。下面就是在VB6.0和SQL Server中对数据的添加、删除、修改管理。4.2 添加记录先看一段源代码,这段代码在很多数据库操作的程序中很常见，这是往数据库中添加记录的基本方法。Sub AddWp() /*这行代码是声明过程的头部。 */ConnStr /*这是数据库的连接，并且使之能在程序中使用记录集对象。*/sql = select * from wp /*一条简单的SQL语句，打开wp表。*/rs.Open sql, conn, 3, 3 /*执行SQL语句，并赋给一定的权限。*/rs.addnew /*这个是调用记录集的新增记录的方法。*/rs(wpname) = Text1.Text /*把文本框text1的text中值赋给wp表中的wpname字段*/rs(wpjg) = Text2.Text /*把文本框text2的text中的值赋给wp表中的wpjg字段*/rs(wpjj) = Text3.Text /*把文本框text3的text中的值赋给wp表中的wpjj字段*/rs(wpsl) = Text4.Text /*把文本框text4的text中的值赋给wp表中的wpsl字段*/rs.Update /*调用记录集的更新方法。*/rs.Close /*关闭已打开的记录集。*/Set rs = Nothing /*并把rs对象清空。*/Call Goo /*调用其它的过程。*/End Sub /*过程的结尾声明。*/其实往数据库中添加数据就这么几个要点，首先要指定数据库的位置，并声明记录集对象，然后执行一条SQL语句。最后把要添加的数据一一赋值给相对应的字段，并更新记录，关闭已打开的记录。这里要说明一下，打开的记录集用完后，一定要关闭，不然这样将会很危险。因为没有关闭记录集对象，在下面的使用中如果一不小心又用到了这个记录集对象，原本想是改变数据表A的数据记录，结果把数据表B的数据记录给修改了。这样就会造成很大的失误。所以用完数据表一定要关闭它。这样做是非常安全的，可以减少很多不必要的麻烦。4.3 删除数据删除数据库中的记录，没有添加记录更没有修改记录那么复杂，看起就是显得简单得多，但是删除数据库记录的操作是比较危险的操作。万一不小心删除了重要的记录，那将是致命的，可是财产的损失，也可能会危及人的生命安全，这里不是危言耸听。那么在操作删除数据库记录之前一定要想清楚，这条数据确实是不必的，或是这条数据肯定要删除吗？尽量减少损失。下面看一段代码，比较简单。Sub del() /*声明过程del()的头部*/Call ConnStr /*这里像添加记录一样，先调用connstr过程，过程作用是指定数据库的位置，并声明记录集的对象。*/sql = delete * from wp where id= & text1.text /*这是一条删除数据的SQL语句，意思是：删除来自wp数据表的数据，且id等于text1.text的数据记录。*/rs.Open sql, conn, 3, 3 /*这条是执行删除的操作。*/Set rs = Nothing /*把rs数据记录集对象清空。*/End sub /*声明过程的结束。*/删除数据表中数据记录的要点，还是首先要指定数据库的位置，并声明记录集对象，然后执行一条SQL语句。删除指定的对象一定要指明，不然SQL是不会进行这一步的操作的。最后还要清空数据记录集对象。4.4 修改记录修改记录在VB中的操作比在ASP中操作方便一些，不用先读取记录再修改。在VB中只需要说明修改哪条指定的记录，就可以了。用代码来说明问题：Sub delkf() /*声明过程delkf()，这里和上面一样。*/ConnStr /*这里像添加记录一样，先调用connstr过程，过程作用是指定数据库的位置，并声明记录集的对象。*/sql = select * from kf where id= & text1.text /*指定一条SQL语句，并确定是修改哪条记录。哪条记录由text1.text中的值来确定。*/rs.Open sql, conn, 3, 3 /*执行SQL语句。*/rs(name) = admin /*这里和添加记录不同，没有了addnew方法。直接就可以把”admin”这个值赋给字段name。*/rs(sex) = 男 /*把值”男”赋给指定字段sex。*/rs(age) = 19 /*把值”19”赋给指定字段age。*/rs(tag) = 1 /*把值”1”赋给指定字段tag。*/rs.Update /*这个地方和添加记录一样，更新数据库，并且把修改的值保存在数据中，这里差不多完成了数据的修改。*/ rs.Close /*关闭数据库记录集对象。*/Set rs = Nothing /*清空数据记录集对象rs。*/End Sub /*同上面一样，这是过程的结尾标记。*/4.5 操作listview控件 由于程序中大量的用到了listview控件，这个控件在VB中程序中读取数据并存入listview控件中，看起来比较漂亮，操作起来也比较方便。如果数量不多的话，可以考虑用此控件来操作数据库中的记录。如果较多话，用这个就比较慢了。正是因为考虑到本管理系统中的数据不多，所以就大量用到这个控件。下面的代码就是说明怎么从数据库中读取数据并存放在listview中的。Sub 取数据存入LIST中()Dim xitm As ListItem 定义变量Dim x定义变量ListView1.ListItems.Clear 清空listview1ConnStrx = 0sql = select * from kf where tag= & x & rs.Open sql, conn, 1, 1While Not rs.EOF Set xitm = Form1.ListView1.ListItems.Add(, , rs(id) xitm.SubItems(1) = rs(kfh) xitm.SubItems(2) = rs(class) xitm.SubItems(3) = rs(jg) xitm.SubItems(4) = rs(readme) Set xitm = Nothing rs.movenextWendrs.CloseSet rs = NothingEnd Sub Sub 取数据存入LIST中()：这是一个标准的过程名，没有想到微软公司这么照顾我们中国人。由于VB中的变量，过程名支持UNICODE字符集。所以在程序中可以使用除ASCII字符的其它字符。在VB中可以使用中文，日文，韩文等双字节的文字。Dim xitm As ListItem：这句是定义变量xitm为listitem类型，这种类型是列表项目类型。ListView1.ListItems.Clear:这句的功能是把listview1中的项目列表全部清空，以便存入新的数据。ConnStr：调用过程。sql = select * from kf where tag= & x & ：这句的大意是打开kf表中tag等于x的所有记录。rs.Open sql, conn, 1, 1：执行SQL语句。While Not rs.EOF：当rs对象不为结束时，就往下执行。Set xitm = Form1.ListView1.ListItems.Add(, , rs(id)：把窗体form1中的listview控件下面的列表项目声明为xitm对象。xitm.SubItems(1) = rs(kfh)：把数据库中字段为kfh的，存入listview中的字项目。下面的几句这句一样。Set xitm = Nothing：把用过的对象xitm清空。rs.movenext：记录向下移一条。Wend：这是while循环语句的结束，当条件不成立时，返回上面再执行。直到条件成立时，循环语句结束。rs.Close：关闭记录集对象。Set rs = Nothing:清空记录集对象。End Sub:过程结束。第五章 系统界面与代码本管理系统采用MDI窗体结构，把各功能块用菜单选项的形式组织起来，通过操作菜单要实现新生入学、在校学生管理、离校学生管理、成绩管理用有关查询打印等一切管理功能。系统包括一个主窗口界面和其它几个功能窗体，通过单击各工具菜单来连接到要进行操作界面，下面就各界面的功能说明如下：5.1 登陆系统下图是登陆系统的界面：登陆系统的代码如下： 用户登陆 On Error GoTo Err Call ConnStr sql = select * from 用户表 where 用户名= & Trim(Text1.Text) & Ado_login.Recordset.Open sql Rs.Open sql, conn, 1, 1 If Not Rs.EOF Then If Trim(Rs.Fields(1) = Trim(Text2.Text) Then MsgBox ok MDIForm1.New_Stu.Enabled = True MDIForm1.Out_Stu.Enabled = True MDIForm1.In_Stu.Enabled = True MDIForm1.Stu_CJ.Enabled = True MDIForm1.Other.Enabled = True Me.Visible = False Else MsgBox 密码错误，请确认后再输入！, 0 + 64 End If Else MsgShow 没有这个用户！ End If Call CloseConnErr: Exit Sub上面一段代码就是上面用户登陆时进行的判断，上面的中文就是对这段代码进行叙述。这样可以进行安全的管理，使其他非法用户不能对数据进行修改。5.2 新生入校管理新生入校管理包括学号、姓名、性别、年龄、出生年月、联系电话、家庭住址和邮编量等等的录入、修改和删除。界面图如下：图4.2.1新生入校管理的操作非常方便简单，可以通过“上一页”和“下一页”对记录进行翻页处理，如果要添加新生，点击“添加”按钮，在相应的位置输入相应的信息，再点“保存”就可以完成添加新生的操作。对于修改的操作与添加的操作是一样的。删除操作更简单，先通过“上一页”和“下一页”查找到要删除的记录，点击“删除”按钮就可以完成删除的操作。新生入校管理的主要代码如下：-过程功能：取数据库中的所有记录，并分页处理示例：Call GetData-Sub GetData()把数据库取出来 On Error GoTo Err Call ConnStr sql = select * from 在校生表 Rs.Open sql, conn, 1, 1 If Not Rs.EOF Then Rs.PageSize = 1 page1 = Rs.PageCount Rs.AbsolutePage = page1 For apage = 1 To Rs.PageSize recno = (page1 - 1) * Rs.PageSize + apage Rs.movenext If Rs.EOF Then Exit For Next 设置当前显示页码 iPage = Page If iPage Rs.PageCount Then iPage = Rs.PageCount Rs.AbsolutePage = iPage 如果数据是最后一页，那数字为最后一个 page_end = iPage * Rs.PageSize If iPage = Rs.PageCount Then page_end = recno End If End If For i = 1 To Rs.PageSize Text1.Text = Rs(学号) Text2.Text = Rs(姓名) Combo1.Text = Rs(性别) Text3.Text = Rs(年龄) DTPicker1.Value = Rs(出生年月) Text4.Text = Rs(联系电话) Text5.Text = Rs(家庭住址) Text6.Text = Rs(邮编) Rs.movenext If Rs.EOF Then Exit For Next Exit SubErr: Exit SubEnd SubSub AddData() On Error GoTo Err Call ConnStr sql = select * from 在校生表 Rs.Open sql, conn, 3, 3 Rs.AddNew Rs(学号) = Text1.Text Rs(姓名) = Text2.Text Rs(性别) = Combo1.Text Rs(年龄) = Text3.Text Rs(出生年月) = DTPicker1.Value Rs(联系电话) = Text4.Text Rs(家庭住址) = Text5.Text Rs(邮编) = Text6.Text Rs.Update Call CloseConn MsgShow (添加成功！) Exit SubErr: If Err.Number = -2147217887 Then MsgBox 学号重复，请重新输入正确的学号！, 0 + 16 Else MsgBox 未知错误，错误号： & Err.Number & ，描述： & Err.Description, 0 + 16 End IfEnd SubSub EditData() On Error GoTo Err Call ConnStr sql = select * from 在校生表 where 学号= & Trim(Text1.Text) & Rs.Open sql, conn, 3, 3 Rs(学号) = Text1.Text Rs(姓名) = Text2.Text Rs(性别) = Combo1.Text Rs(年龄) = Text3.Text Rs(出生年月) = DTPicker1.Value Rs(联系电话) = Text4.Text Rs(家庭住址) = Text5.Text Rs(邮编) = Text6.Text Rs.Update Call CloseConn MsgShow (修改成功！) Exit SubErr: If Err.Number = -2147217887 Then MsgBox 学号重复，请重新输入正确的学号！, 0 + 16 Else MsgBox 未知错误，错误号： & Err.Number & ，描述： & Err.Description, 0 + 16 End IfEnd SubSub Deldata() Call ConnStr sql = delete from 在校生表 where 学号= & Trim(Text1.Text) & Rs.Open sql, conn, 3, 3 Call CloseConn MsgShow (删除成功！)End Sub5.3 在校学生管理在校学生管理和新生入管理两个主要操作界面，实际是使