学生学籍管理信息系统分析设计

《学生学籍管理信息系统分析设计》由会员分享，可在线阅读，更多相关《学生学籍管理信息系统分析设计（49页珍藏版）》请在装配图网上搜索。

1、目 录1.系统的开发意义22.系统分析2 2.1系统的需求分析2 2.2系统分析的概况3 2.3系统初步调查3 2.4系统的可行性研究5 2.4.1.技术可行性5 2.4.2.经济可行性5 2.4.3.营运可行性5 2.5现行系统的详细调查5 2.6新系统逻辑方案5 2.7学生学籍管理信息系统业务流程图5 2.8学生学籍管理信息系统数据流程图。73.学生学籍管理信息系统设计10 3.1系统的总体设计11 3.1.1系统功能结构的划分11 3.1.2确定计算机的处理流程11 3.2系统的详细设计12 3.2.1关系型数据模型12 3.2.2数据库的逻辑设计124.系统实现17 4.1界面、代码设

2、计与实现175.系统管理维护与评价45 5.1系统的日常管理维护45 5.2系统的评价45 5.3系统设计心得收获与结论45 湖北大学生学籍管理信息系统的设计与开发1.系统的开发意义 学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类

3、社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生学籍进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 本系统是由Microsoft Visual Basic 6.0可视化开发软件工具下分析、设计、开发大中专院校的学籍管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。是我们设计的数据库系统能够实

4、现学生信息管理，学生成绩管理，学生档案管理，用户管理等功能。该系统基本上满足了用户在学校信息管理方面的需求，用户界面友好。2.系统分析2.1系统的需求分析 本系统为了实现学校在校学生、离校学生各项信息资源的查询、统计、添加、删除、维护与管理，方便用户的管理与需求。将学生学籍管理系统分为：学生信息管理，学生成绩管理，学生学籍档案管理和用户管理四个功能模块。1.学生信息管理模块主要对学生信息（如学号、姓名、性别、班级、家庭住址等）进行管理，本模块又分为三个子模块。学生信息录入学生信息查询学生信息修改删除2.学生成绩管理模块主要是对学生成绩进行管理，四个子模块。学生成绩录入学生成绩查询学生成绩修改/

5、删除学生成绩统计3.学生学籍档案管理模块主要对学校在校生的档案进行管理。学生、奖惩情况的查询学生报名注册登记表录入在校生档案的查询4.用户管理主要对用户权限设置进行管理。用户名：密码设置（管理人员和普通用户）行功能调整。2.2系统分析的概况 系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进行分析工作的方法与技术。系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。 系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统规划所确定的范围，对现行系统进行详细调查，尽可能

6、弄清楚用户对信息的需求，调查原信息系统的资源，输入，处理和输出，描述现行系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本目标和逻辑功能要求，也即提出新系统的逻辑模型，为下一阶段进行物理方案设计，解决“怎么做”提供依据。 因此，这个阶段又称逻辑设计阶段。 系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。2.3系统初步调查 本系统初步调查采用的主要方式是与本校的教师，尤其是与学籍管理处的教职工进行交流，经过调查研究。本校基本情况为：学校现有教职工200余名，在校在册学生达5000余人。实行校长负责制，下设教务科、财务科、党团支部、学生科、总务

7、科、宿管、人事科、生产实习科、鉴定科、招生就业科、保卫科十二大部门。各部门分别针对各自管辖范围进行具体管理，并向校长负责。在学校的日常教学活动中，学生的学籍管理和培养方向是至关重要的。从学校的行政管理和职能分工角度，得出了组织结构图。（如图2-1）本校在日常教学活动中出现的主要问题是：1.学校现行的学籍管理方式仍为基于文本、表格等，纸介质的传统手工处理方式。学籍信息管理没有完全科学化、规范化、处理速度较慢，因此影响教学工作的开展，难以进行有效的信息反馈。2.学校领导对整个学校的学生信息在很多时候不能得到全面而又及时的反馈，因此不能适时指导教学方向，以至有所影响教育质量。3.部门之间信息交流较少

8、，信息渠道比较单一，在很大程度上不利于协调工作，容易出错。因此，通过建立学籍管理信息系统，使学生学籍管理工作科学化、规范化、程序化，促使提高信息处理的速度和正确性，使学校的信息流程和流向晰化、合理化。第一时间把握学生信息，以提高整体教学水平。校长兼党委书记副校长二校长助理副校长一党委副书记教务科宿 管学生科保卫科生产实习科总务科人事科团委办招生就业科鉴定科财务科党政办图2-1 组织结构图2.4系统的可行性研究 可行性研究是系统分析阶段的第二项活动。此活动的主要目标是：进一步明确系统的目标、规模与功能，对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出开发系统的初步方案与计划。可行性研

9、究是对系统进行全面、概要的分析。通过调查分析，新系统设计方案有以下三个可行性：2.4.1技术可行性 本系统采用Windows98作为操作平台。数据库管理系统选用Access，该数据库管理系统，提供数据库之间的数据复制功能，可代替现有系统单据数据的手工传递工作，降低出错率，提高数据的可用性。本系统的应用程序开发平台选用VisualBasic6.0，这是目前数据库应用软件的主流开发平台。2.4.2经济可行性 采用新的学籍信息管理系统可取代原系统的单据手工传递工作，减少人工开支，节省资金，并且可大大提高信息量的取得，缩短信息处理周期提高学生信息的利用率，使教学质量更上一个台阶。2.4.3营运可行性(

10、1).本系统操作简单，易于理解，只需通过简单培训，上手较快，学校学籍管理处的教职员以及相关教师均能进行操作，营运环境要求低。(2).面对于系统设计还应该以“标准性、安全性、高效性、保密性、可维护性”为标准，在着眼于当前实用的基础上，为将来系统的扩展，升级留有余地。软件的开发应能在较长时间内满足学校的发展需要。标准性：系统编写与运行必须符合标准，既可以保证系统运行又可以在此标准上每一项功能运行。可靠性：由于学籍信息的重要性，系统必须稳定可靠，从而避免或减少数据损失。安全性：通过系统权限控制使用者，从而确保使用者无法操作与其无关的数据。高效性：由于学校学生信息每次处理信息量较大，系统对信息处理能力

11、响应能力都应是快捷有效的。可维护性：采用结构化模块设计，便于开发与维护，也有利于情况随时进行2.5现行系统的详细调查 经过调查学校的学籍管理业务流程主要分为三大部分：建立学生基本信息、学生综合素质评估、学生学籍档案。1.建立学生基本信息：学生符合入学条件的，学校批准后由专人向学生发放入学通知书。对新生注册，并建立相关的学生个人信息（如学号、姓名、性别、专业和班级、家庭住址等），由本班班主任配合学校学生管理处负责人（学生科）统一审核并保存。根据用户权限对数据信息进行相应处理（如查询、录入、修改、删除）。1.学生成绩信息：将学生的学期成绩，由学生管理处工作人员将每期成绩结果进行记录并保存。根据用户

12、权限对数据信息进行相应处理（如查询、录入、修改、删除）。1.学生学籍档案：学生情况与奖惩情况。包括学生在校期间健康状况，学生参加校内外各项活动记录和奖惩记录进行综合分析与汇总，学生学期评语等有关的在校期间表现进行的记录。由学籍管理处工作人员将评估结果存入学生档案并保存。根据用户权限对数据信息进行相应处理（如查询、录入、修改、删除）。2.6新系统逻辑方案 新系统的逻辑模型，从本质上说，是规定系统应该做什么，即系统的逻辑描述。它主要包括新系统的业务流程、数据流程，以及对数据和功能的详细分析与描述。2.7学生学籍管理信息系统业务流程图 这是一种表明系统内各单位，人员之间的业务关系，作业顺序和管理信息

13、流动的流程图，它可以帮助分析人员找出业务流程中的不合理迂回等。学籍管理系统的系统分析的重点是对学籍管理信息系统的业务流程进行描述，通过采用流程图中的部分图形来对学生信息质量的管理活动进行规范化说明。学生学籍管理信息系统管理员学生成绩表学生信息表学生学籍管理信息表信息的查、增、删、改学生档案表-图2-2学生学籍管理信息流程图 从上图的业务流程图中，可以了解到整个学校学生学籍处理的基本业务以及业务动态去向：(1).从新生的入学录取，新生的注册（安排学号，登记学生个人基本信息），由学生管理处人员审阅并维护，最后保存。普通用户可查询。(2).根据学生学号可对应的查找到该生的成绩单，由学生管理处人员审阅

14、并维护，最后保存。普通用户可查询。(3).根据学生学号对应查找，该生在校的情况（如健康状况、活动情况、奖惩情况等）和该生报名时登记的本人基本情况，由学生管理处人员审阅并维护，最后保存。普通用户可查询。2.8学生学籍管理信息系统数据流程图。 数据流程图描述系统的逻辑模型，不涉及硬、软件，数据结果与文件组织，用图形描述及相关的注释表示系统的逻辑功能。图中没有具体的物理元素，只是描述信息在系统中流动和处理的情况。在对学籍管理信息系统调研阶段的业务流程图进行分析的基础上，从系统的科学性、管理的合理性、实际运用的可行性角度出发，将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上精确地描述新系统应

15、具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。S01档案单成绩单P03P02P01D3D2D1信息单学生学籍信息管理员学生信息录入成绩信息录入档案信息录入信息数据表成绩数据表档案数据表数据库 图2-3学生学籍信息管理数据流图1.学生学籍管理员通过学生信息单，学生成绩单，学生档案单分别录入，生成信息数据表，成绩数据表，档案数据表从而成立一个总的数据库。F05F04F03F02F01按班级按学号按姓名P01D1S01信息录入学生信息管理员学生信息查询信息数据表F06图2-4学生信息管理数据流图2.学籍信息管理员通过信息单录入学生的信息，建立信息数据表。用户可根据，学号，姓名，班

16、级来查询自己所需的信息，方便而简单。F07F05DP1P2按姓名按班级按学号F04F03F02F06成绩统计成绩单F01S01学籍成绩管理员成绩录入成绩查询成绩数据表图2-5学生成绩管理数据流图3.学籍成绩管理人员通过成绩单录入学生的成绩，建立成绩数据表。则用户可根据，学号，姓名，班级查看自己所需的信息。F07F06DP2P1按姓名按班级F05F04F03按学号F02档案单F01S01学生档案管理人员档案信息录入档案查询档案数据表图2-6学籍档案管理数据流图4.学籍档案管理员通过档案单录入学生的档案，建立档案数据表。用户可根据，学号，姓名，班级查询学生的基本档案。维护数据查询管理添加设置DF0

17、6F05F04D03D02D01CVF03F02F01S01系统管理员用户用户信息录入用户权限系统数据表图2-7系统管理数据流图5系统管理员根据用户需要设置用户及权限，建立系统数据表。使整个系统的维护更具有安全性，保密性。3.学生学籍管理信息系统设计 系统设计是管理系统开发的第二个阶段。在这一阶段中我们将根据系统调查与分析阶段的结果，进行新系统的设计工作。系统设计包括两方面的工作：首先是系统总体结构的设计，即把系统的功能分解成许多基本的功能模块，取得它们之间的联系，规定它们的功能和处理流程；其次是系统的详细设计。系统的各项功能，选择具体的设计手段和处理方式。因此，如果说系统研制人员在系统调查与

18、分析阶段的任务是在逻辑上弄清楚系统“做什么”的话，在系统设计阶段的认为则是在物理上确定系统“如何去做”。所以系统设计阶段也称为系统的物理设计阶段。系统设计包括如下工作内容1、系统总体结构设计(1).系统功能结构的划分。(2).确定系统的计算机处理流程。1.系统详细的设计(1).系统数据模型设计。(2).数据库的逻辑设计。3.1系统的总体设计 系统的总体设计是指在系统调查与分析的基础上，对整个系统在结构上的划分，硬软件环境的配置和确定子系统与模块的处理流程。3.1.1系统功能结构的划分总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分，结构化。学生信息录入学生学籍管理信息系统学生

19、信息管理学生成绩管理学生学籍档案学生信息修改删除学生信息查询学生成绩录入学生成绩查询学生成绩修改学生报名注册登记表录入在校生档案查询学生成绩统计学生奖惩情况查询图3-1学生学籍管理信息系统功能结构图3.1.2确定计算机的处理流程 为了让开发人员明确子系统或功能模块中信息的流动、转换、存储和处理等情况，以便进一步明确模块物理设计及日后模块实现的任务和工作要点，从而把系统的总体设计思想落实到每一个子系统和功能模块之中。子系统或模块的计算机处理流程学生个人信息 键入 学生信息登记 学籍信息数据库学籍信息数据库 用户管理添加 用户管理表学生信息查找和删改 学籍信息数据库学籍信息数据库 学生学籍档案的录

20、入和查询学籍信息数据库 学生成绩的删改和添加 成绩表学生个人信息学籍信息数据库用户管理表学生信息登记学生信息的查删改学生成绩查删改，添加统计学生学籍档案录入、查询用户管理添加键入学籍档案表成绩表图3-2计算机处理流程图3.2系统的详细设计321关系型数据模型学生信息表（专业，班级，学号，姓名，性别，出生年月，家庭住址，联系电话，备注）学生成绩表（专业，班级，学号，姓名，课程名称，备注）学生档案表（专业，班级，学号，姓名，民族，籍贯，政治面貌，奖惩，是否留级，表现情况，备注）学生注册表（专业，班级，学号，姓名，出生年月，家庭住址，联系电话，备注）用户管理表（用户名，密码，备注）322数据库的逻辑

21、设计 通过数据库管理系统提供的功能与描述工具，设计出规模恰当，能正确反映实际信息关系，重复数据少，存取效率高并能满足用户数据要求的数据模型。1.系统逻辑设计的主要工作就是将ER图转换成一张张的二维表。班级姓名11N1N111NN用户名密码登录管理员/普通用户学生学籍从属学生信息联系电话学号专业家庭住址出生年月从属学生成绩专业学号课程名称姓名班级从属学生档案专业姓名学号班级政治面貌奖惩是否留级包含注册表专业班级姓名学号出生年月家庭住址联系电话图3-3 学生学籍管理信息系统E-R图E-R图 转换成二维表学生信息表学生信息专业班级学号姓名出生年月家庭住址联系电话学生成绩表学生成绩专业班级学号姓名课程

22、名称学生档案表学生档案专业班级学号姓名政治面貌奖惩是否留级注册表注册专业班级学号姓名出生年月家庭住址联系电话用户管理表用户用户名密码2.数据字典数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后获得的主要成果。数据字典通常包括以下几部分：（1）数据项:数据项是不可在分的数据单位。（2）数据结构:数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。（3）数据流:数据流是数据结构在系统内传输的路径。（4）数据存储:数据存储是数据及结构停留或保存的地方，也是数据流的来源和去向之一。（5）处理过程:处理过程的具体处理逻辑一般用判定表或

23、判定树来描述。（6）数据字典:是关于数据库中数据的描述，即对原数据的描述。本系统的数据字典如下： 学生信息表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别逻辑型（2）NOTNULL籍贯文本型（8）NOTNULL出生年月日期型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL政治面貌文本型（4）NOTNULL备注备注型(50)NOTNULL注册表列名数据类型及长度可否为空主键用户名文本型（16）NOTNULL密码文本型（16）NOTNULL

24、学生档案表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别文本型（4）NOTNULL民族文本型（8）NOTNULL籍贯文本型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL奖惩情况文本型（100）NOTNULL留级情况文本型（60）NOTNULL表现情况文本型（200）NOTNULL备注备注型（50）NOTNULL学生成绩表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOT

25、NULL主键姓名文本型（8）NOTNULL计算机网络数字型（4）NOTNULL计算机组成原理数字型（4）NOTNULL计算机应用与提高数字型（4）NOTNULL管理信息系统数字型（4）NOTNULL信息法律规程数字型（4）NOTNULL办公软件数字型（4）NOTNULL备注备注型（50）NOTNULL4.系统实现4.1界面、代码设计与实现主窗口1.主窗口界面说明：用户直接单击“进入”按钮进入登录界面。2.主窗口界面代码：Private Sub Command1_Click()主界面.Hide 隐藏主界面登录界面.Show 显示登录界面End Sub登录窗口1.登录窗口界面说明此登录界面分为“管

26、理员”和“普通用户”登录。“管理员”需输入用户名和密码登录“信息管理”窗口；而普通用户则直接单击“登录”按钮进入“普通用户学生学籍窗口”。2.登录窗口界面代码（1）管理员登录代码：Private Sub Command1_Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringdb.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:zlfdb1.mdb;Persist Security Info=Falsedb

27、.Opensql = select * from 用户管理表rs.Open sql, db, adOpenStatic, adLockReadOnlyWhile rs.EOF = False If rs.Fields(0).Value = Text1.Text Then If rs.Fields(1).Value = Text2.Text Then 登录界面.Hide 学生学籍信息管理窗口.Show Else MsgBox (密码错误,请重新输入！) End If End If rs.MoveNextWendEnd SubPrivate Sub Command2_Click()登录界面.Hid

28、e主界面.ShowEnd Sub（2）普通用户窗口代码Private Sub Command3_Click()普通用户学生学籍窗口.Show登录界面.HideEnd SubPrivate Sub Command4_Click()登录界面.Hide主界面.ShowEnd Sub信息管理窗口1.信息管理界面说明信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理”，下设相应的子菜单。管理员可根据需要进行内容的查询、添加、删除等。2.信息管理界面代码（1）（学生学籍信息管理）信息查询窗口弹出代码：Private Sub xxcx_Click(Index As Integer)

29、查询学生信息窗口.ShowEnd Sub（2）（学生学籍信息管理）信息添加窗口弹出代码：Private Sub xxtj_Click(Index As Integer)添加学生信息窗口.ShowEnd Sub（3）（学生学籍信息管理）信息修改窗口弹出代码：Private Sub xxg_Click(Index As Integer)修改学生信息窗口.ShowEnd Sub（4）（学生学籍成绩管理）成绩查询窗口弹出代码：Private Sub chjcx_Click(Index As Integer)查询学生成绩窗口.ShowEnd Sub（5）（学生学籍成绩管理）成绩添加窗口弹出代码：Priv

30、ate Sub chjtj_Click(Index As Integer)添加学生成绩窗口.ShowEnd Sub（6）（学生学籍成绩管理）成绩修改窗口弹出代码：Private Sub chjxg_Click(Index As Integer)修改学生成绩窗口.ShowEnd Sub（7）（学生学籍档案管理）档案查询窗口弹出代码：Private Sub dacx_Click(Index As Integer)用户档案查询窗口.ShowEnd Sub（8）（学生学籍档案管理）注册查询窗口弹出代码：Private Sub dazccx_Click(Index As Integer)用户注册查询窗口

31、.ShowEnd Sub（9）（用户管理）用户修改窗口弹出代码：Private Sub yhxg_Click(Index As Integer)用户修改窗口.ShowEnd Sub（10）（用户管理）用户添加窗口弹出代码：Private Sub yhtj_Click(Index As Integer)用户添加窗口.ShowEnd Sub（11）信息管理返回按钮代码：Private Sub Command1_Click()学生学籍信息管理窗口.Hide登录界面.ShowEnd Sub查询学生信息窗口1.查询学生信息界面说明用户选择所要查询的对象，单击“确定”按钮，得出相应信息。2.查询学生信息界

32、面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As String kl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Op

33、ensql = select * from 学生信息表rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 学生信息表 where 姓名= & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox 表内无记录 如果为空，弹出对话框 Else rs.MoveFirst 如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fi

34、elds(1).Value 显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value Text8.Text = rs1.Fields(7).Value Text9.Text = rs1.Fields(8).Value Text10.Text = rs1.Fields(9).Value MsgBox (查询成

35、功) Adodc1.Refresh End IfEnd SubPrivate Sub Command2_Click()查询学生信息窗口.Hide学生学籍信息管理窗口.ShowEnd Sub添加学生信息窗口1.添加学生信息界面说明管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功。2.添加学生信息界面代码Private Sub Command1_Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql, rt As StringDim zy, bj, xh, xm, xb, jg, csn

36、y, jtzz, lxdh, zzmm, bz As Stringdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生信息表rs.Open sql, db, adOpenStatic, adLockOptimisticrs.AddNewrs.Fields(0).Value = Text1.Textrs.Fields(1).Value = Text2.Textrs.Fields(

37、2).Value = Text3.Textrs.Fields(3).Value = Text4.Textrs.Fields(4).Value = Text5.Textrs.Fields(5).Value = Text6.Textrs.Fields(6).Value = Text7.Textrs.Fields(7).Value = Text8.Textrs.Fields(8).Value = Text9.Textrs.Fields(9).Value = Text10.Textrs.Fields(10).Value = Text11.Textrs.UpdateMsgBox (增加成功)Text1.

38、Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = End SubPrivate Sub Command2_Click()Unload MeEnd Sub 修改学生信息窗口1.修改学生信息界面说明管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后单击“修改”按钮即可成功修改学生信息。2.修改学生信息界面代码Private Sub Command1_

39、Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim gg As New ADODB.RecordsetDim sql, rt As StringDim z, a As StringDim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As Stringdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=

40、Falsedb.Opensql = select * from 学生信息表rs.Open sql, db, adOpenStatic, adLockOptimistica = update 学生信息表 set 专业= & Text1.Text & ,班级= & Text2.Text & ,学号= & Text3.Text & ,姓名= & Text4.Text & ,性别= & Text5.Text & ,出生年月= & Text6.Text & ,家庭住址= & Text7.Text & ,联系电话= & Text8.Text & ,政治面貌= & Text9.Text & ,备注= & T

41、ext10.Text & where 姓名= & z & gg.Open a, db, adOpenStatic, adLockOptimisticMsgBox ( 修改成功)End SubPrivate Sub Command2_Click()Unload MeEnd Sub成绩查询窗口1.成绩查询界面说明管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2.成绩查询界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.Recordset

42、Dim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As String kl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生成绩表1rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 学生成绩表1 where

43、 学号= & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox 表内无记录 如果为空，弹出对话框 Else rs.MoveFirst 如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fields(1).Value 显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = r

44、s1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value Text8.Text = rs1.Fields(7).Value Text9.Text = rs1.Fields(8).Value Text10.Text = rs1.Fields(9).Value MsgBox (查询成功) Adodc1.Refresh End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub添加学生成绩窗口1.添加学生成绩界面说明管理员在空白栏中正

45、确输入所要添加的信息，单击“添加”按钮即可添加成功。2.添加学生成绩界面代码Private Sub Command1_Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql, rt As StringDim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxflgc, bgrj, bz As Stringdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb

46、1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生成绩表1rs.Open sql, db, adOpenStatic, adLockOptimisticrs.AddNewrs.Fields(0).Value = Text1.Textrs.Fields(1).Value = Text2.Textrs.Fields(2).Value = Text3.Textrs.Fields(3).Value = Text4.Textrs.Fields(4).Value = Text5.Textrs.Fields(5).Value = Te

47、xt6.Textrs.Fields(6).Value = Text7.Textrs.Fields(7).Value = Text8.Textrs.Fields(8).Value = Text9.Textrs.Fields(9).Value = Text10.Textrs.UpdateMsgBox (增加成功)Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text =

48、End SubPrivate Sub Command2_Click()Unload MeEnd Sub修改学生成绩窗口1.修改学生成绩界面说明管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后单击“修改”按钮即可成功修改学生信息。2.修改学生成绩界面代码Private Sub Command1_Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim gg As New ADODB.RecordsetDim sql, rt As StringDim z, a As StringDim zy

49、, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxfgc, bgrj, bz As Stringdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生成绩表1rs.Open sql, db, adOpenStatic, adLockOptimistica = update 学生成绩表1 set 专业= & Text1.Text &

50、 ,班级= & Text2.Text & ,学号= & Text3.Text & ,姓名= & Text4.Text & ,计算机网络= & Text5.Text & ,计算机组成原理= & Text6.Text & ,计算机应用与提高= & Text7.Text & ,管理信息系统= & Text8.Text & ,信息法律规程= & Text9.Text & ,办公软件= & Text10.Text & ,备注= & Text10.Text & where 姓名= & z & gg.Open a, db, adOpenStatic, adLockOptimisticMsgBox ( 修改成

51、功)DataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub档案查询窗口1.档案查询界面说明管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2.档案查询界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As String kl

52、= Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生档案表rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 学生档案表 where 学号= & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.Recor

53、dCount = 0 Then MsgBox 表内无记录 如果为空，弹出对话框 Else rs.MoveFirst 如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fields(1).Value 显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fi

54、elds(6).Value Text8.Text = rs1.Fields(7).Value Text9.Text = rs1.Fields(8).Value Text10.Text = rs1.Fields(9).Value Text11.Text = rs1.Fields(10).Value Text12.Text = rs1.Fields(11).Value Text13.Text = rs1.Fields(12).Value MsgBox (查询成功) Adodc1.Refresh End If End SubPrivate Sub Command2_Click()Unload MeE

55、nd Sub注册查询窗口1.注册查询界面说明管理员根据需要选择所要查询的对象，单击“查询”得到该对象的注册信息。2.注册查询界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As String kl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLED

56、B.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from 学生注册表rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 学生注册表 where 姓名= & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox 表内无记录 如果为空，弹出对话框 Else rs.MoveFirst 如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fields(1).Value 显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value MsgBox (查询成功) Adodc1.Refresh